gdncfiledefinemode.f90

Path: gtdata/gtdata_netcdf/gtdata_netcdf_file/gdncfiledefinemode.f90
Last Update: Tue Apr 28 20:05:59 +0900 2009

Methods

GDNcFileDefineMode  

Included Modules

netcdf_f77 dc_trace

Public Instance methods

GDNcFileDefineMode( fileid ) result(result)
Function :
result :integer
fileid :integer, intent(in)

[Source]

integer function GDNcFileDefineMode(fileid) result(result)
  use netcdf_f77, only: nf_redef, NF_EINDEFINE, NF_NOERR
  use dc_trace, only: BeginSub, EndSub, DbgMessage
  integer, intent(in):: fileid
  character(*), parameter:: subname = "GDNcFileDefineMode"
continue
  call DbgMessage(subname // ' %d', i=(/fileid/))
  result = nf_redef(fileid)
  if (result == NF_EINDEFINE) result = NF_NOERR
end function GDNcFileDefineMode

[Validate]