gdncfilereopen.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfilereopen (fileid, err)

Function/Subroutine Documentation

gdncfilereopen()

subroutine gdncfilereopen	(	integer, intent(in)	fileid,
		logical, intent(out), optional	err
	)

Definition at line 2 of file gdncfilereopen.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_trace::endsub(), gtdata_netcdf_file_internal::id_head, gtdata_netcdf_file_internal::id_used, and dc_error::storeerror().

Referenced by gdncvaropenbydimord().

  ! 同じファイル番号の参照カウントを増加する。
  use gtdata_netcdf_file_types, only: gd_nc_file_id_entry
  use gtdata_netcdf_file_internal, only: id_head, id_used
  use netcdf, only: nf90_enotnc
  use dc_error, only: storeerror
  use dc_trace, only: beginsub, endsub, dbgmessage
  implicit none
  integer, intent(in):: fileid
  logical, intent(out), optional:: err
  type(gd_nc_file_id_entry), pointer:: identptr
  character(*), parameter:: subname = "GDNcFileReopen"
continue
  call beginsub(subname, 'file=%d', i=(/fileid/))
  if (id_used) then
    identptr => id_head
    do
      if (identptr % id == fileid) then
        identptr % count = identptr % count + 1
        if (present(err)) err = .false.
        call endsub(subname, 'count=%d', i=(/identptr % count/))
        return
      endif
      identptr => identptr % next
      if (.not. associated(identptr)) exit
    enddo
  endif
  call storeerror(nf90_enotnc, 'GDNcFileReopen', err, cause_i=fileid)
  call endsub(subname, 'err')

Here is the call graph for this function:

Here is the caller graph for this function: