integer(kind=4), parameter :: class_sec_com_id=-1
integer(kind=4), parameter :: class_sec_comm_len=256
type comment
sequence
integer(kind=4) :: ltext ! Length of comment
character ctext*1024 ! Comment string
end type comment