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

6
difrac/cellsd.f
View File

@@ -115,9 +115,9 @@ C-----------------------------------------------------------------------
$ SAS(1),SAS(2),SAS(3),SANS(1),SANS(2),SANS(3)
RETURN
10000 FORMAT (/,' Real Cell'/
$ 3X,'a', 11X,'b', 11X,'c', 9X,'alpha', 6X'beta', 5X,'gamma'/
$ 3X,'a', 11X,'b', 11X,'c', 9X,'alpha', 6X, 'beta', 5X,'gamma'/
$ 3(F9.5,3X),3(F7.3,3X)/3(F9.5,3X),3(F7.3,3X))
11000 FORMAT (/,' Reciprocal Cell'/
$ 3X,'a*',10X,'b*',10X,'c*',8X,'alpha*',5X'beta*',4X,'gamma*'/
$ 3(1X,F8.6,3X),3(F7.3,3X)/3(1X,F8.6,3X),3(F7.3,3X))
$ 3X,'a*',10X,'b*',10X,'c*',8X,'alpha*',5X, 'beta*',4X,'gamma*'/
$ ,3(1X,F8.6,3X),3(F7.3,3X)/3(1X,F8.6,3X),3(F7.3,3X))
END