subroutine ANVarClose ! Uses use an_types, only: AN_VARIABLE use an_file, only: ANFileClose, ANFileSync use an_vartable, only: vtable_delete use dc_error ! Calls call ANFileClose call ANFileSync call StoreError ! Variables type (AN_VARIABLE), intent(in) :: var logical, optional, intent(out) :: err integer :: fileid end subroutine ANVarClose
type (AN_VARIABLE), intent(in) :: var
logical, optional, intent(out) :: err
integer :: fileid