anvarclose.f90

Path: src/anvarclose.f90
Last Update: Wed Jul 20 18:22:22 JST 2005

Copyright (C) GFD Dennou Club, 2000. All rights reserved

Methods

ANVarClose  

Included Modules

an_types an_file an_vartable dc_error

Public Instance methods

ANVarClose(var, err)
var :type(AN_VARIABLE), intent(in)
err :logical, intent(out), optional

[Source]

subroutine ANVarClose(var, err)

    implicit none
    type(AN_VARIABLE), intent(in):: var
    logical, intent(out), optional:: err
    integer:: fileid
continue
    fileid = vtable_delete(var)
    if (fileid < 0) then
        call StoreError(fileid, 'ANVarClose', err)
        return
    endif
    call ANFileSync(fileid)
    call ANFileClose(fileid, err)
end subroutine

[Validate]