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

24
difrac/mesint.f
View File

@@ -38,7 +38,7 @@ C-----------------------------------------------------------------------
PRESET = SPRESET
RETURN
ENDIF
120 CALL CTIME (TTIME,COUNT)
120 CALL CCTIME (TTIME,COUNT)
IF (COUNT/TTIME .GE. ICPSMX) THEN
NATT = NATT + 1
CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
@@ -72,7 +72,7 @@ C-----------------------------------------------------------------------
C Measure the low angle background for BGDTIM
C-----------------------------------------------------------------------
BGDTIM = FRAC*PRESET
CALL CTIME (BGDTIM,BGRD1)
CALL CCTIME (BGDTIM,BGRD1)
C-----------------------------------------------------------------------
C Do the scan:
C ITYPE Type of scan 0 -- theta/2-theta b-p-b
@@ -202,7 +202,7 @@ C-----------------------------------------------------------------------
I = BGRD1*PRESET*FRAC/BGDTIM + 0.5
BGRD1 = I
BGDTIM = PRESET*FRAC
CALL CTIME (BGDTIM,BGRD2)
CALL CCTIME (BGDTIM,BGRD2)
IF (BGRD1 + BGRD2 .GT. 4.0*COUNT) THEN
WRITE (COUT,11000) IH,IK,IL
CALL GWRITE(ITP,' ')
@@ -251,7 +251,7 @@ C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C Count at peak for time TIME
C-----------------------------------------------------------------------
420 CALL CTIME (PRESET,COUNT)
420 CALL CCTIME (PRESET,COUNT)
C C = COUNT/PRESET
IF (C .GE. ICPSMX .AND. NATTEN .GT. 0 .AND. NATT .LT. NATTEN) THEN
NATT = NATT + 1
@@ -271,9 +271,9 @@ C Measure the backgrounds
C-----------------------------------------------------------------------
IF (ITYPE .EQ. 5 .OR. ITYPE .EQ. 6) THEN
BGDTIM = FRAC*PRESET
CALL CTIME (BGDTIM,BGRD2)
CALL CCTIME (BGDTIM,BGRD2)
CALL ANGSET (ANG1,ANG2,CHI,PHI,NATT,ICOL)
CALL CTIME (BGDTIM,BGRD1)
CALL CCTIME (BGDTIM,BGRD1)
IF (BGRD1 + BGRD2 .GT. 4.0*COUNT) THEN
WRITE (COUT,11000) IH,IK,IL
CALL GWRITE(LPT,' ')
@@ -287,7 +287,7 @@ C-----------------------------------------------------------------------
C Sample background on high side
C-----------------------------------------------------------------------
PRESET = STIME*0.5
CALL CTIME (PRESET,BGRD2)
CALL CCTIME (PRESET,BGRD2)
C-----------------------------------------------------------------------
C Evaluate rough Peak/Background ratio and Time required to
C accumulate a preset number FRAC of counts on the peak.
@@ -308,7 +308,7 @@ C Finish measurement of high background
C-----------------------------------------------------------------------
BCT = (IBCT - (STIME/2.0))
IF (BCT .GT. 0.) THEN
CALL CTIME (BCT,BKG2)
CALL CCTIME (BCT,BKG2)
BGRD2 = BGRD2 + BKG2
BCT = IBCT
ICC = 0
@@ -327,7 +327,7 @@ C-----------------------------------------------------------------------
ENDIF
PPCT = PCT
PCT = IPCT
CALL CTIME (PPCT,PC)
CALL CCTIME (PPCT,PC)
COUNT = COUNT + PC
ELSE
PCT = STIME
@@ -341,7 +341,7 @@ C-----------------------------------------------------------------------
RETURN
ENDIF
PRESET = BCT
CALL CTIME (PRESET,BGRD1)
CALL CCTIME (PRESET,BGRD1)
PRESET = PCT + BCT
CALL FILLN2 (IFILN,NFLG)
IF (NFLG .EQ. 1) GO TO 100
@@ -373,7 +373,7 @@ C-----------------------------------------------------------------------
WRITE (COUT,10000)
CALL GWRITE (ITP,' ')
100 TIM1 = 1500
CALL CTIME (TIM1,CONT)
CALL CCTIME (TIM1,CONT)
DUM1 = 1.0/16.0
DUM2 = 0.5
CALL ONEBEP (DUM1,DUM2)
@@ -385,7 +385,7 @@ C-----------------------------------------------------------------------
CALL GWRITE (ITP,' ')
TMIN = DELAY*6000
IF (TMIN .LE. 1) TMIN = 1
CALL CTIME (TMIN,DUM2)
CALL CCTIME (TMIN,DUM2)
IFILN = 1
NFLG = 1
ENDIF