Class | gt4_historyauto |
In: |
gt4_historyauto.f90
|
Derived_Types | [] | GT4_ATTRIBUTE, GT4_REAL1D, GT4_NAMED_REALARY |
Derived Type : | |
name : | character(len=TOKEN) |
rval(:) =>null() : | real,pointer |
ival(:) =>null() : | integer,pointer |
cval : | character(len=STRING) |
Derived Type : | |||
rank : | integer | ||
name : | character(len=TOKEN) | ||
dims(3) : | character(len=TOKEN)
| ||
longname : | character(len=STRING) | ||
units : | character(len=STRING) | ||
ary(:) =>null() : | real,pointer |
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 |
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) |
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