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

@@ -253,7 +253,7 @@ C-----------------------------------------------------------------------
WRITE (LPT,24000) IH,IK,IL,THETA,OMEGA,CHI,PHI
CALL WXW2T (DT,DO,DC,ISLIT)
CALL SHUTTR (1)
CALL CTIME (MPRESET,COUNT)
CALL CCTIME (MPRESET,COUNT)
CALL KORQ(INTERRUPT)
IF(INTERRUPT .NE. 1) THEN
WRITE(COUT,37000)
@@ -373,7 +373,7 @@ C14000 FORMAT (' Type the Crystal-to-Detector distance (',I3,'mm) ',$)
18000 FORMAT (' Type the max count cutoff fraction (0.5) ',$)
19000 FORMAT (' Type h,k,l for reflections to be used (End) ')
C22000 FORMAT (' The 1st reflection is set. Is everything OK (Y) ? ',$)
23000 FORMAT (' Setting',I2', Collision. Cannot complete',3I4)
23000 FORMAT (' Setting',I2,', Collision. Cannot complete',3I4)
24000 FORMAT (' Starting values ',3I4,4F10.3)
25000 FORMAT (' Setting',I2,' of',3I4,' failed on first attempt.')
25100 FORMAT (' Setting',I2,' of',3I4,' failed. Cannot complete')