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

@@ -133,7 +133,7 @@ C-----------------------------------------------------------------------
ENDIF
ENDIF
CALL SHUTTR (1)
CALL CTIME (PRESET,CT1)
CALL CCTIME (PRESET,CT1)
CALL SHUTTR (-1)
WRITE (COUT,23000) IH,IK,IL,RTHETA,ROMEGA,RCHI,RPHI,CT1
CALL GWRITE (ITP,' ')
@@ -303,7 +303,7 @@ C-----------------------------------------------------------------------
ENDIF
ENDIF
CALL SHUTTR (1)
CALL CTIME (PRESET,CT1)
CALL CCTIME (PRESET,CT1)
CALL SHUTTR (-1)
WRITE (LPT,30000) IH,IK,IL,RTHETA,ROMEGA,RCHI,RPHI,CT1
IF (ITRUE .EQ. 1) THEN