Path: | src/anvarclose.f90 |
Last Update: | Wed Jul 20 18:22:22 JST 2005 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved
var : | type(AN_VARIABLE), intent(in) |
err : | logical, intent(out), optional |
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