program Webify_Logic ! Read a List_1_1* text file and make an HTML file with links to ! the drawing number ! Input format: ! 1-9: Page numbers ! 11-16: Drawing number ! 18-22: Figure number ! 24- : Title character(255) :: Line ! Get title from command line argument call getarg ( 1, line ) ! Begin the file and start a table write ( *, '(a)' ) & & '', & & '
Pages | ', & & 'Drawing # | ', & & 'Fig # | ', & & 'Title | ', & & '
---|---|---|---|
' // line(1:9) // ' | ', & ! Pages & '' // & & line(11:16) // ' | ', & ! Drawing # & '' // line(18:22) // ' | ', & ! Fig # & '' // trim(adjustl(line(24:))) // ' | ', & ! Title & '