2,684
edits
Generate adx: Difference between revisions
also make frmnam longer ...
(change string*80 to string*132 to accommodate longer paths) |
(also make frmnam longer ...) |
||
| 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*132,frmnam* | character :: string*132,frmnam*103,form*6='(i0.0)' | ||
logical :: back=.true. | logical :: back=.true. | ||