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

@@ -259,7 +259,7 @@ C-----------------------------------------------------------------------
22000 FORMAT (' There are NO Explicit Absence Conditions')
23000 FORMAT (' The Explicit Absence Conditions are :--')
24000 FORMAT (' Type',I3,' -- ',
$ I4,'*h +',I2,'*k +',I2,'*l = ',I2'*n +',I2)
$ I4,'*h +',I2,'*k +',I2,'*l = ',I2,'*n +',I2)
30000 FORMAT (' Peak Top Counting - 2Theta range')
31000 FORMAT (' Peak Top Counting - Omega range')
32000 FORMAT (' Economized Peak Top - 2Theta range')
@@ -271,8 +271,8 @@ C-----------------------------------------------------------------------
29000 FORMAT (' Omega Scan with Precision Control. ',A,
$ 'rofile analysis.')
25000 FORMAT (' Compton or TDS Measurements')
35000 FORMAT (' Bisecting Geometry. Scan speed 'F8.3'deg/min')
34000 FORMAT (' Parallel Geometry. Scan speed 'F8.3'deg/min')
35000 FORMAT (' Bisecting Geometry. Scan speed ',F8.3,'deg/min')
34000 FORMAT (' Parallel Geometry. Scan speed ',F8.3,'deg/min')
36000 FORMAT (' Scan Parameters: ',
$ F6.3,' + ',F6.3,'*tan(theta) + ',F6.3)
37000 FORMAT (' Time/Precision Params: ',
@@ -285,5 +285,5 @@ C-----------------------------------------------------------------------
43000 FORMAT (' Next reflection: ',3I4,', #',I5,', set',I3,
$ ', segment',I2,', at record ',I4)
44000 FORMAT (' This is a low-temperature experiment.'/
$ ' The waiting time after a refill is'F6.2' minutes.')
$ ' The waiting time after a refill is',F6.2,' minutes.')
END