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

9
difrac/centre.f
View File

@@ -16,6 +16,9 @@ C-----------------------------------------------------------------------
CHARACTER ANGLE(4)*6
DATA ANGLE/'2theta','Omega','Chi','PH'/
INTEGER IRUPT
C
external range ! Prevent use of intrinsic function under GNU G77
C
NATT = 0
C------- a debug flag! Set to 0 for no debug output
IDEBUG = 1
@@ -79,7 +82,7 @@ C-----------------------------------------------------------------------
CALL CCTIME (PRESET,COUNT)
IF(IDEBUG .EQ. 1)THEN
WRITE(COUT,20000),AN(1),AN(2),AN(3),AN(4),COUNT
20000 FORMAT('TH = ',F8.2,' OM = ',F8.2,' CH = ',F8.2,' PH = ' F8.2,
20000 FORMAT('TH = ',F8.2,' OM = ',F8.2,' CH = ',F8.2,' PH = ', F8.2,
& ' CTS = ', F8.2)
ENDIF
CALL KORQ(IRUPT)
@@ -292,6 +295,7 @@ C-----------------------------------------------------------------------
11000 FORMAT (' Alignment Failure on ',A,'. NBOT, NTOP',2I4,' MAX',I6)
12000 FORMAT (3I6,/,(10F10.4))
END
C
C-----------------------------------------------------------------------
C Subroutine to do a fine (1) or coarse (0) centreing on a specified
C circle for the CAD4 using the routine GENSCN.
@@ -435,6 +439,7 @@ C write (LPT,99998) ki,theta,omega,chi,phi
C99998 format (' After ',a,2x,4f8.3)
RETURN
END
C
C-----------------------------------------------------------------------
C Subroutine to find the centroid of the ACOUNT distribution
C-----------------------------------------------------------------------
@@ -500,5 +505,3 @@ C ENDIF
C99999 format (' imax,max,nbot,ntop',A,4i6/(10f7.0))
RETURN
END