Class gt4_historyauto
In: gt4_historyauto.f90

Methods

Included Modules

dc_types dc_trace dc_present gt4_history

Attributes

Derived_Types  []  GT4_ATTRIBUTE, GT4_REAL1D, GT4_NAMED_REALARY

Public Instance methods

GT4_ATTRIBUTE()
Derived Type :
name :character(len=TOKEN)
rval(:) =>null() :real,pointer
ival(:) =>null() :integer,pointer
cval :character(len=STRING)
GT4_NAMED_REALARY()
Derived Type :
rank :integer
name :character(len=TOKEN)
dims(3) :character(len=TOKEN)
: to support up to 3D
longname :character(len=STRING)
units :character(len=STRING)
ary(:) =>null() :real,pointer
GT4_REAL1D()
Derived Type :
ary(:) => null() :real,pointer

to make an array of 1D arrays

Function :
result :type(GT4_ATTRIBUTE)
name :character(len=*),intent(in)
rval(:) :real,intent(in),optional
ival(:) :integer,intent(in),optional
cval :character(len=*),intent(in),optional

[Source]

   function init_gt4_attribute(name,rval,ival,cval) result(result)
      implicit none
      type(GT4_ATTRIBUTE)                       :: result
      character(len=*),intent(in)           :: name
      real,intent(in),optional              :: rval(:)
      integer,intent(in),optional           :: ival(:)
      character(len=*),intent(in),optional  :: cval
      result%name = name
      if(present(rval)) then
	 allocate(result%rval(size(rval)))
	 result%rval = rval
	 nullify(result%ival)
      else if (present(ival)) then
	 allocate(result%ival(size(ival)))
	 result%ival = ival
	 nullify(result%rval)
      else if (present(cval)) then
	 nullify(result%rval)
	 nullify(result%ival)
	 result%cval = cval
      endif
   end function init_gt4_attribute
Function :
result :type(GT4_REAL1D)
ary(:) :real,intent(in)

[Source]

   function init_gt4_real1d(ary) result(result)
      implicit none
      type(GT4_REAL1D)      :: result
      real,intent(in)   :: ary(:)
      if(associated(result%ary)) deallocate(result%ary)
      allocate(result%ary(size(ary)))
      result%ary = ary
   end function init_gt4_real1d

[Validate]