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