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/creduc.f
View File

@@ -195,7 +195,7 @@ C-----------------------------------------------------------------------
C Order the threefold axes on the angle with the plane
C-----------------------------------------------------------------------
IF (N3 - N2 .GE. 2) THEN
DO 240 I = N3,N3 - 1
DO 240 I = N3,N3 - 1,-1
ANMAX = AANG(I)
MAX = I
DO 230 J = I + 1,N3