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

2
difrac/ormat3.f
View File

@@ -203,7 +203,7 @@ C-----------------------------------------------------------------------
$ ' Alf* ',F7.3,' Bet* ',F7.3,' Gam* ',F7.3)
19000 FORMAT (' a ',F8.5,' b ',F8.5,' c ',F8.5,
$ ' Alf ',F7.3,' Bet ',F7.3,' Gam ',F7.3/)
20000 FORMAT (' Type h,k,l,Psi (End) '$)
20000 FORMAT (' Type h,k,l,Psi (End) ',$)
22000 FORMAT (3I4,' Psi ',F7.3,' Rotation not possible')
22100 FORMAT (3F8.3,' Psi ',F7.3,' Rotation not possible')
23000 FORMAT (3I4,5F8.3)