subroutine list_line(line,numbered,forced) implicit none include 'parameters.inc' include 'io_control.inc' integer*4 form_feed/12/ integer*4 length character*(*) line logical numbered,forced if(.not.l_list_open)return if(.not.(l_list.or.forced.or.l_debug))return if(lines_left.le.0)then page_number=page_number+1 write(list_unit,100)form_feed,page_number 100 format(a1,' Source File Macro Processor Page ',I6,/) lines_left=page_size-3 endif length=len(line) lines_left=lines_left-1 if(numbered)then line_count=line_count+1 write(list_unit,102)line_count,line(1:length) 102 format(1x,i4,1x,a) else write(list_unit,101)line(1:length) 101 format(6x,a) endif return end