2,652
edits
Adxv: Difference between revisions
no edit summary
(New page: == Visualizing XDS data reduction == The latest beta versions of ADXV (from http://www.scripps.edu/~arvai/adxv/) can read spot files (whose name ends with .adx) and display them together ...) |
No edit summary |
||
| Line 24: | Line 24: | ||
frmnam=adjustl(string(30:)) | frmnam=adjustl(string(30:)) | ||
i1=index(frmnam,'!') | i1=index(frmnam,'!') | ||
if (i1>0) frmnam=frmnam(:i1-1) | |||
frmnam=frmnam(:index(frmnam,'.',back))//'adx' ! exchange extension | if (index(frmnam,'.',back)>index(frmnam,'?',back)) then | ||
frmnam=frmnam(:index(frmnam,'.',back))//'adx' ! exchange extension | |||
else | |||
frmnam=frmnam(:len_trim(frmnam))//'.adx' ! add extension | |||
endif | |||
endif | endif | ||
end do | end do | ||
| Line 60: | Line 64: | ||
print*,'working',num | print*,'working',num | ||
num=num*2 | num=num*2 | ||
endif | |||
if (iframe/=j) then ! new frame | if (iframe/=j) then ! new frame | ||
write(frmnam(i1:i2),form) iframe | write(frmnam(i1:i2),form) iframe | ||