SUBROUTINE GREEK (X0,Y0,HEIGHT,CHARAC,ANGLE) REAL X0,Y0,HEIGHT,CHARAC,ANGLE REAL WORD(24), * X,Y,F,CANGLE,SANGLE INTEGER GREEK1 EXTERNAL GREEK1 INTEGER I,N1,N2,N3,M1,M2,M3,PENPOS C DATA WORD /'THETA','TAU','GAMMA','RHO','ALPHA','BETA','DELTA', *'EPSILO','ETA','KAPPA','LAMBDA','MY','PHI','PI','ZETA','JOTA', *'NY','CHI','PSI','OMEGA','XI','SIGMA','OMIKRO','YPSILO'/ C C DO 10 I=1,24 CALL CGET(CHARAC,1,N1) CALL CGET(CHARAC,2,N2) CALL CGET(CHARAC,3,N3) CALL CGET(WORD(I),1,M1) CALL CGET(WORD(I),2,M2) CALL CGET(WORD(I),3,M3) IF (N3.EQ.32) M3=32 IF (M1.EQ.N1.AND.M2.EQ.N2.AND.M3.EQ.N3) GOTO 20 10 CONTINUE WRITE (0,1) CHARAC 1 FORMAT (' GREEK DOES NOT KNOW HOW TO PLOT:',A6) RETURN C C 20 CONTINUE F=HEIGHT*5.E-2 CANGLE=COS(ANGLE*1.7453293E-2) SANGLE=SIN(ANGLE*1.7453293E-2) N1=0 30 PENPOS=GREEK1(X,Y,I,N1) IF (PENPOS.LE.0) RETURN XX=F*X Y=F*Y X=XX*CANGLE-Y*SANGLE+X0 Y=XX*SANGLE+Y*CANGLE+Y0 CALL XYPLOT (X,Y,PENPOS) GOTO 30 END