Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=THARN_MAXSTR), | public | :: | filename | ||||
integer, | public | :: | numStrings | ||||
type(problem_descriptor_strings), | public, | pointer | :: | str(:) |
type problem_descriptor_records character(THARN_MAXSTR) :: filename ! filename of problem descriptor record integer :: numStrings ! # of problem descriptor strings in record type(problem_descriptor_strings), pointer :: str(:) ! problem descriptor strngs end type problem_descriptor_records