2,684
edits
Generate adx: Difference between revisions
Jump to navigation
Jump to search
make longer in two more places
(also make frmnam longer ...) |
(make longer in two more places) |
||
| Line 45: | Line 45: | ||
i1=index(frmnam,'?') | i1=index(frmnam,'?') | ||
i2=0 | i2=0 | ||
do i=i1, | do i=i1,len_trim(frmnam) | ||
if (frmnam(i:i)=='?') then | if (frmnam(i:i)=='?') then | ||
i2=i | i2=i | ||
| Line 92: | Line 92: | ||
! Removes leading and trailing blanks, and turns multiple blanks into one blank. | ! Removes leading and trailing blanks, and turns multiple blanks into one blank. | ||
implicit none | implicit none | ||
character string*(*),copy* | character string*(*),copy*132 | ||
integer i,j | integer i,j | ||
logical first | logical first | ||