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

12
difrac/demo1e.f
View File

@@ -12,7 +12,7 @@ C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C Move 2Theta
C-----------------------------------------------------------------------
CALL CTIME (DELAY,COUNT)
CALL CCTIME (DELAY,COUNT)
CALL ANGET (THETA,OMEGA,CHI,PHI)
THETA = THETA + 20.0
CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
@@ -21,7 +21,7 @@ C Move Omega
C-----------------------------------------------------------------------
WRITE (COUT,11000)
CALL GWRITE (ITP,' ')
CALL CTIME (DELAY,COUNT)
CALL CCTIME (DELAY,COUNT)
OMEGA = OMEGA - 20.0
CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
C-----------------------------------------------------------------------
@@ -29,7 +29,7 @@ C Move Chi
C-----------------------------------------------------------------------
WRITE (COUT,12000)
CALL GWRITE (ITP,' ')
CALL CTIME (DELAY,COUNT)
CALL CCTIME (DELAY,COUNT)
CHI = CHI + 20.0
IF (CHI .GE. 360.0) CHI = CHI - 360.0
CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
@@ -38,7 +38,7 @@ C Move Phi
C-----------------------------------------------------------------------
WRITE (COUT,13000)
CALL GWRITE (ITP,' ')
CALL CTIME (DELAY,COUNT)
CALL CCTIME (DELAY,COUNT)
PHI = PHI + 30.0
IF (PHI .GE. 360.0) PHI = PHI - 360.0
CALL ANGSET (THETA,OMEGA,CHI,PHI,NATT,ICOL)
@@ -47,7 +47,7 @@ C Move all circles
C-----------------------------------------------------------------------
WRITE (COUT,14000)
CALL GWRITE (ITP,' ')
CALL CTIME(DELAY,COUNT)
CALL CCTIME(DELAY,COUNT)
THETA = THETA - 20.0
OMEGA = OMEGA + 20.0
CHI = CHI - 20.0
@@ -82,7 +82,7 @@ C-----------------------------------------------------------------------
DO 130 J = 1,100
DJUNK = SQRT(1.0)
130 CONTINUE
CALL CTIME (DELAY,COUNT)
CALL CCTIME (DELAY,COUNT)
140 CONTINUE
CALL SHUTTR (-1)
C-----------------------------------------------------------------------