subroutine directive_comment implicit none include 'parameters.inc' include 'io_control.inc' include 'directive.inc' character*(max_line_length) line,line2 logical found integer*4 line_length,directive,next,in_table call get_line(line,line_length) do while(.not.l_eof) call convert_case(line,line2) call check_directive(line2(1:line_length),directive,found, 1 next,in_table) if(found)then if(directive.ne.dir_endcomment)then call log_error(' ****Missing ENDCOMMENT****') call recycle_last_line endif return endif call get_line(line,line_length) enddo call log_error(' ****End of File before ENDCOMMENT****') return end