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

8
difrac/pcount.f
View File

@@ -49,7 +49,7 @@ C-----------------------------------------------------------------------
C Single count only
C-----------------------------------------------------------------------
IF (ANS .EQ. 'N') THEN
CALL CTIME (MPRESET,COUNT)
CALL CCTIME (MPRESET,COUNT)
IF (NATTEN .NE. 0) THEN
WRITE (COUT,15000) MPRESET,NATT,COUNT
CALL GWRITE (ITP,' ')
@@ -69,7 +69,7 @@ C-----------------------------------------------------------------------
110 CONTINUE
BIGTIM = MPRESET * 5.
WRITE (LPT,17000) BIGTIM
CALL CTIME (BIGTIM,COUNT)
CALL CCTIME (BIGTIM,COUNT)
COUNT = COUNT*MPRESET/BIGTIM
SIGM = SQRT(COUNT)
AVC = COUNT + 0.5
@@ -81,7 +81,7 @@ C-----------------------------------------------------------------------
WRITE (LPT,20000)
DO 150 N = 1,50
DO 120 I = 1,10
CALL CTIME (MPRESET,COUNT)
CALL CCTIME (MPRESET,COUNT)
C(I) = COUNT
120 CONTINUE
DO 130 I = 1,10
@@ -119,7 +119,7 @@ C-----------------------------------------------------------------------
CALL SHUTTR (-99)
KI = ' '
RETURN
10000 FORMAT (' Timed Count at a Point (Y) ? '$)
10000 FORMAT (' Timed Count at a Point (Y) ? ',$)
11000 FORMAT (' Type the Count Preset and the attenuator',
$ ' number (1000.0,0) ',$)
12000 FORMAT (' Type the Count Preset (1000.0) ',$)