2,652
edits
Generate adx: Difference between revisions
allow for longer paths
(make longer in two more places) |
(allow for longer paths) |
||
| 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. | ||