C TEST PLOTA INTEGER*2 INIT(7),IBOX(4),ILIM(4),ITIX(2),IPAR(3) INTEGER*2 ITLE(2),ISYM INTEGER*2 IDATA DIMENSION IDATA(100),ITTL(10) BYTE ITTL DATA INIX1/"25000/,INIX2/"102000/,INIX7/"17/ DATA INIT/"165320,"101000,100,0,0,0,"15/ DATA IBOX/1500,400,1500,400/ DATA ITIX/10,10/ DATA IPAR/0,0,0/ C XMAX,XMIN,YMAX,YMIN DATA ILIM/100,0,2000,0/ DATA ITLE/10,0/ DATA ITTL(1)/'P'/,ITTL(2)/'L'/,ITTL(3)/'O'/, 1 ITTL(4)/'T'/,ITTL(5)/'A'/,ITTL(6)/' '/,ITTL(7)/'T'/, 2 ITTL(8)/'E'/,ITTL(9)/'S'/,ITTL(10)/'T'/ DATA ISYM/"53/ ! + SIGN FOR SYM PLOTS INIT(4)=IADDR(IDATA) ITLE(1)=10 ITLE(2)=IADDR(ITTL) C ABOVE FILLS IN POINTERS TO TITLE, ETC. NOW FILL IN DATA C USE SINE WAVE DAMPED FOR GRAPH MATERIAL. DO 1 N=1,100 X=FLOAT(N)/20. XX=X Y=SIN(XX) Z=(X/5.)+.2 Y=(Y+1.)*Z Y=Y*1000. Y=ABS(Y) IDATA(N)=INT(Y) 1 CONTINUE C PLOT OUT DAMPED SINE WAVE. C ADD SOME EXTRA POINTS JUST TO SHOW THEY APPEAR TOO. C NOTE WE PLOT INTEGER DATA AND ARRANGE IT TO BE POSITIVE. C RANGE IS WHAT FITS IN INTEGER * 2 DATA. HERE USE ERROR BARS C AS SQRT(N) FOR DEMO BUT USER MAY SUPPLY THEM. IDATA(44)=1700 IDATA(63)=2100 CALL PLOTA(INIT,IBOX,ILIM,ITIX,IPAR,ITLE,ISYM) INIT(7)=INIX7 IDATA(21)=3 IDATA(22)=9 INIT(1)=INIX1 INIT(2)=INIX2 CALL PLOTA(INIT,IBOX,ILIM,ITIX,IPAR,ITLE,ISYM) DO 22 I=1,100 X=FLOAT(I) XX=X/11. Y=XX**2 XY=COS(X*1.1)+1.3 XY=XY*.95 X=100.*XY*Y IDATA(I)=INT(X) 22 CONTINUE INIT(7)=11 CALL PLOTA(INIT,IBOX,ILIM,ITIX,IPAR,ITLE,ISYM) CALL VTERAS CALL EXIT END