subroutine directive_dump implicit none include 'parameters.inc' include 'tables.inc' character*(max_line_length) line integer*4 i,last_char,j,k do i=1,name_table_size if(name_table(i).inuse)then call back_skip_blanks(name_table(i).name,last_char) if(name_table(i).type.eq.type_string)then !string call list_line( 1 name_table(i).name(1:last_char)//' is type string',.false., 1 .true.) j=name_table(i).string_loc call back_skip_blanks(string_table(j).string,last_char) call list_line(string_table(j).string(1:last_char),.false., 1 .true.) elseif(name_table(i).type.eq.type_logical)then if(name_table(i).logical_value)then call list_line( 1 name_table(i).name(1:last_char)//' is .true.',.false., 1 .true.) else call list_line( 1 name_table(i).name(1:last_char)//' is .false.',.false., 1 .true.) endif elseif(name_table(i).type.eq.type_value)then write(line(1:15),100)name_table(i).integer_value 100 format(I15) call list_line( 1 name_table(i).name(1:last_char)//' is '//line(1:15),.false., 1 .true.) elseif(name_table(i).type.eq.type_list)then call list_line( 1 name_table(i).name(1:last_char)//' is type list',.false., 1 .true.) j=name_table(i).string_loc do while(j.ne.0) call back_skip_blanks(string_table(j).string,last_char) call list_line(string_table(j).string(1:last_char), 1 .false.,.true.) j=string_table(j).next_string enddo elseif(name_table(i).type.eq.type_unused)then call list_line( 1 name_table(i).name(1:last_char)//' is untyped',.false.,.true.) elseif(name_table(i).type.eq.type_macro)then call list_line( 1 name_table(i).name(1:last_char)//' is type macro',.false., 1 .true.) j=name_table(i).first_line_loc do while(j.ne.0) call back_skip_blanks(string_table(j).string,last_char) call list_line(string_table(j).string(1:last_char), 1 .false.,.true.) j=string_table(j).next_string enddo endif call list_line(' ',.false.,.true.) endif enddo return end