PSI sics-cvs-psi_pre-ansto

difrac/pfind.f

@@ -0,0 +1,55 @@
+C-----------------------------------------------------------------------
+C  Get the coarse value of Phi for PCENTR
+C-----------------------------------------------------------------------
+      SUBROUTINE PFIND (TIM,MAXCOUNT)
+      INCLUDE 'COMDIF'
+      REAL MAXCOUNT, MCOUNT
+      DIMENSION PCOUNT(NSIZE)
+      EQUIVALENCE (ACOUNT(9*NSIZE + 1), PCOUNT(1))
+C-----------------------------------------------------------------------
+C  If offset by 2.5 deg and do 20 0.25 deg steps then we should find
+C  the maximum.
+C-----------------------------------------------------------------------
+      STEPM = 0.05
+      PSTEP = 0.25
+      NPTS = 20
+      NATT = 0
+C-----------------------------------------------------------------------
+C  Offset phi to the start of the scan
+C-----------------------------------------------------------------------
+  100 POFFS = PSTEP*10.0
+      PHI = PHI - POFFS
+      IF (PHI .LT.   0.0) PHI = PHI + 360.0
+      IF (PHI .GE. 360.0) PHI = PHI - 360.0
+      PHIOFF = PHI 
+      CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
+C-----------------------------------------------------------------------
+C  Find the max intensity either by step and count or by doing a scan,
+C  depending on the type of diffractometer
+C-----------------------------------------------------------------------
+      ICOUNT = 0
+      MCOUNT = 0
+      DO 110 I = 1,NPTS
+        CALL CCTIME (TIM,PCOUNT(I))
+        CALL KORQ (IFLAG1)
+        IF (IFLAG1 .NE. 1) THEN
+          KI = 'O4'
+          RETURN
+        ENDIF
+        IF (PCOUNT(I) .GT. MCOUNT) THEN
+          MCOUNT = PCOUNT(I)
+          ICOUNT = I
+        ENDIF
+        PHI = PHI + PSTEP
+        IF (PHI .LT.   0.0) PHI = PHI + 360.0
+        IF (PHI .GE. 360.0) PHI = PHI - 360.0
+        CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
+  110 CONTINUE
+      MAXCOUNT = REAL(MCOUNT)
+      IF (ICOUNT .EQ. 1 .OR. ICOUNT .EQ. NPTS) THEN
+         TIM = -5.0
+         RETURN 
+      ENDIF
+      PHI = PHIOFF + (ICOUNT - 1)*PSTEP
+      RETURN
+      END