1 SUBROUTINE GREEK (X0,Y0,HEIGHT,CHARAC,ANGLE)
2 REAL X0,Y0,HEIGHT,CHARAC,ANGLE
7 INTEGER I,N1,N2,N3,M1,M2,M3,PENPOS
9 DATA WORD /'THETA','TAU','GAMMA','RHO','ALPHA','BETA','DELTA',
10 *'EPSILO','ETA','KAPPA','LAMBDA','MY','PHI','PI','ZETA','JOTA',
11 *'NY','CHI','PSI','OMEGA','XI','SIGMA','OMIKRO','YPSILO'/
15 CALL CGET(CHARAC,1,N1)
16 CALL CGET(CHARAC,2,N2)
17 CALL CGET(CHARAC,3,N3)
18 CALL CGET(WORD(I),1,M1)
19 CALL CGET(WORD(I),2,M2)
20 CALL CGET(WORD(I),3,M3)
22 IF (M1.EQ.N1.AND.M2.EQ.N2.AND.M3.EQ.N3) GOTO 20
25 1 FORMAT (' GREEK DOES NOT KNOW HOW TO PLOT:',A6)
31 CANGLE=COS(ANGLE*1.7453293E-2)
32 SANGLE=SIN(ANGLE*1.7453293E-2)
34 30 PENPOS=GREEK1(X,Y,I,N1)
35 IF (PENPOS.LE.0) RETURN
38 X=XX*CANGLE-Y*SANGLE+X0
39 Y=XX*SANGLE+Y*CANGLE+Y0
40 CALL XYPLOT (X,Y,PENPOS)