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

4
difrac/comptn.f
View File

@@ -44,7 +44,7 @@ C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C Sample count at point to find suitable counting time, then measure
C-----------------------------------------------------------------------
CALL CTIME (QTIME,ENQ)
CALL CCTIME (QTIME,ENQ)
COUNT = ENQ
ENQD = ENQ - 2.0*SQRT(ENQ)
IF (ENQD .LE. 0.0) ENQD = ENQ
@@ -53,7 +53,7 @@ C-----------------------------------------------------------------------
IF (PRESET .GT. QTIME) THEN
IF (PRESET .GT. PRESET) PRESET = TMAX
TIMED = PRESET - QTIME
CALL CTIME (TIMED,EN)
CALL CCTIME (TIMED,EN)
ELSE
PRESET = QTIME
EN = 0