C SYMBOL TEST PROGRAM C C. E. COHN, ARGONNE NATIONAL LABORATORY PROGRAM SYMTST DATA H,THETA/.5,0./ NC=0 CALL INIPLT(14,7.,10.) CALL PLOT(0.,0.,-3) CALL PLOT(10.,7.,10) CALL PLOT(0.,0.,11) DO1I=1,6 X=.5+FLOAT(I) DO1J=1,6 Y=.5+FLOAT(J) CALL SYMBOL(X,Y,THETA,H,NC,3) IF(NC-33)1,2,2 1 NC=NC+1 2 CALL PLOT(0.,0.,3) CALL ENDPLT STOP END