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