linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compiled under Redhat Linux<Right

Browse Source
This commit is contained in:
cvs
2000-02-18 15:54:23 +00:00
parent b9529f1cfd
commit cbc7fdf334
48 changed files with 160 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
difrac/cellls.f
View File

@@ -61,7 +61,7 @@ C-----------------------------------------------------------------------
KI = ' '
RETURN
10000 FORMAT (/10X,'Constrained Cell Dimension Least-Squares'/)
11000 FORMAT (/' Wavelength'F10.6,'; ',I6,' reflections.')
11000 FORMAT (/' Wavelength',F10.6,'; ',I6,' reflections.')
12000 FORMAT (' Less than 6 reflections. Quit')
END
C-----------------------------------------------------------------------
@@ -625,4 +625,4 @@ C-----------------------------------------------------------------------
220 CONTINUE
RETURN
END