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/linprf.f
View File

@@ -72,7 +72,7 @@ C Loop to count and step through the reflection
C-----------------------------------------------------------------------
CALL SHUTTR (99)
DO 240 J = 1,NPTS
CALL CTIME (TSTEP,COUNT)
CALL CCTIME (TSTEP,COUNT)
ACOUNT(J) = COUNT
IF (ITYP .EQ. 0) ANG1 = ANG1 + CSTEP
IF (ITYP .NE. 0) ANG2 = ANG2 + CSTEP
@@ -135,7 +135,7 @@ C-----------------------------------------------------------------------
11000 FORMAT (' There is something WRONG. Please try again.')
13000 FORMAT (' Scan type: Theta/2Theta or Omega, 0 or 1 ',$)
15000 FORMAT (' Type the no. of pts before & after the peak,'
$ '(',I2,',',I2,') ',$)
$ ,'(',I2,',',I2,') ',$)
15100 FORMAT (' Type the step size in degs and the preset/step',
$ ' (',F4.2,',',F4.2,') ',$)
17000 FORMAT (' Which attenuator do you wish to use (0) ? ',$)