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


subroutine ANVarClose(var, err) 1,8
    use an_types, only: AN_VARIABLE
    use an_file, only: ANFileClose, ANFileSync
    use an_vartable, only: vtable_delete
    use dc_error
    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