2,652
edits
Generate adx: Difference between revisions
allow for longer paths
(also make frmnam longer ...) |
(allow for longer paths) |
||
| (One intermediate revision by the same user not shown) | |||
| Line 18: | Line 18: | ||
nref=0,i,i1,i2,num | nref=0,i,i1,i2,num | ||
real intensity,sigi,x,y,z | real intensity,sigi,x,y,z | ||
character :: string* | character :: string*550,frmnam*512,form*6='(i0.0)' | ||
logical :: back=.true. | logical :: back=.true. | ||
| 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 | ||