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

@@ -35,7 +35,7 @@ C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C CTIME Count for a fixed time
C-----------------------------------------------------------------------
SUBROUTINE CTIME (XTIME, XCOUNT)
SUBROUTINE CCTIME (XTIME, XCOUNT)
REAL XTIME, XCOUNT
INCLUDE 'COMDIF'
call setslt (icadsl,icol)
@@ -234,7 +234,7 @@ C----- position
RETURN
ENDIF
C----- count
CALL CTIME(PRESET,COUNT)
CALL CCTIME(PRESET,COUNT)
CALL KORQ(IT)
IF(IT .NE. 1)THEN
IERR = 2
@@ -295,7 +295,7 @@ C----- position
RETURN
ENDIF
C----- count
CALL CTIME(SPRESET,COUNT)
CALL CCTIME(SPRESET,COUNT)
CALL KORQ(IT)
IF(IT .NE. 1)THEN
IERR = 2
@@ -341,7 +341,7 @@ C-----------------------------------------------------------------------
C Set the microscope viewing position (CAD-4 version)
C-----------------------------------------------------------------------
SUBROUTINE VUPOS (VTH,VOM,VCH,VPH)
CALL ANGSET(VTH,VOM,VCH,VPH)
CALL ANGSET(VTH,VOM,VCH,VPH,1,1)
RETURN
END