Path: | src/anvarsync.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), optional |
stat : | integer, intent(out), optional |
subroutine ANVarSync(var, stat) implicit none type(AN_VARIABLE), intent(in), optional:: var integer, intent(out), optional:: stat type(an_variable_entry):: ent integer:: mystat if (.not. present(var)) then call ANFileSync(stat=stat) return endif mystat = vtable_lookup(var, ent) if (mystat /= NF_NOERR) then if (present(stat)) stat = mystat else call ANFileSync(ent%fileid, stat=stat) endif end subroutine