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

Now GNU G77 compliant

Browse Source
This commit is contained in:
cvs
2000-10-20 14:22:35 +00:00
parent ca2a062492
commit 9f2030d053
6 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
difrac/blind.f
View File

@@ -714,7 +714,7 @@ C--------------------------------------------------------------------
$ ' (E) Exit.')
12000 FORMAT ( ' Command (L,D,R,A,F,E) ',$)
13000 FORMAT (' N Theta Omega Chi Phi Int'/)
14000 FORMAT (' 'I2,1X,4(F8.2),2X,I8,5X,A)
14000 FORMAT (' ',I2,1X,4(F8.2),2X,I8,5X,A)
15000 FORMAT (' There are no reflections in the list')
16000 FORMAT (' Input reflection number: ')
17000 FORMAT (' Reflection ',I2,' marked unused')
@@ -725,7 +725,3 @@ C--------------------------------------------------------------------
21000 FORMAT (A)
22000 FORMAT (I4,' reflections have been read from ',A)
END