C -+-+-+-+-+  H A E P L A . F T  -+-+-+-+-+ C C HERE WE PLOT THE TIME AXIS FOR THE HAEPAL (PALOT) AND HAEPRL (PRLOT) C ROUTINES. C SUBROUTINE PLALRL C INCLUDE HAEBUF.FI INCLUDE HAEGSA.FI INCLUDE HABRK.FI INCLUDE HAPPEN.FI INCLUDE HAECSZ.FI C LOGICAL MLTPLE REAL COND INTEGER NCOND EXTERNAL MLTPLE,COND,NCOND C REAL TE1,TE2 @ TEMPORARY STORAGE INTEGER I LOGICAL ABISMI @ TIME AXIS SCALING IS IF ABISMI THEN MINUTES ELSE SECONDS FI C C C PLOT THE TIME SCALE C ABISMI=PZEND-PZBEG.GT.600 @ IF MORE THAN 300 SECONDS TO PLOT THEN WE DRAW A MINUTE SCALE CALL FACTOR (XLEN/(PZEND-PZBEG),1.) CALL XYPLOT (0,-.5,-PENUP) C HERE WE DRAW A LITTLE BAR INDICATING A SECOND OR MINUTE DO 135 I=PZBEG,PZEND @ ONE SECOND INCREMENTS TE1=I-PZBEG CALL XYPLOT (TE1,0.,PENDWN) IF (ABISMI) TE2=COND(MOD(I,600).EQ.0,-.7, * MOD(I,300).EQ.0,-.5, * MOD(I,60).EQ.0,-.3) IF (.NOT.ABISMI) TE2=COND(PZEND-PZBEG.GT.180, * COND(MLTPLE(I,60),-.7,MLTPLE(I,10),-.5,MLTPLE(I,5),-.3), * COND(MLTPLE(I,10),-.7,MLTPLE(I,5),-.5,-.3)) CALL XYPLOT (TE1,TE2,PENDWN) C HERE WE COMPUTE WHERE TO WRITE THE NUMBER ONTO THE TIME AXIS TE2=PZEND-PZBEG IF (MOD(I,NCOND(TE2.GT.5400,1800, TE2.GE.1800,600, * TE2.GE.900,300, TE2.GT.300,120, 60)).GT.0) * GOTO 134 @ EACH FIRST OR SECOND MINUTE WE PLOT THE NUMBER CALL WHERE (TE2,TE2,TE2,TE3) @ GET X FACTOR CALL FACTOR (1.,1.) CALL NUMBER (TE1*TE2-INT(ALOG10(AMAX1(1.,FLOAT(I)/60.)) * +.01)*YN/2.-YN*.3,-1.3,YN,I/60.,0,-1) @ CENTER THE NUMBER CALL FACTOR (TE2,TE3) @ RESET THE FACTOR CALL XYPLOT (TE1,0,PENUP) @ DRIVE PEN BACK TO THE AXIS 134 CALL XYPLOT (TE1,0,PENDWN) IF (ABISMI) I=NCOND(MLTPLE(I,60).AND.I.LT.PZEND-1 * ,MIN0(I+58,PZEND-1),I) @ IF MINUTE SCALING THEN WE MAY SKIP 60 SECONDS 135 CONTINUE CALL XYPLOT (0,.5,-PENUP) @ RESET CORRECT ORIGIN CALL FACTOR (1.,1.) CALL SYMBOL (AMAX1(XLEN*.5,10.),-YOFSET,YZ, * 'TIME [MIN]',0,10) CALL LABPLT (0,-YOFSET,PZEND) CALL SYMBOL (0,YLEN+YZ,YZ,LABEL,0,MIN0(42,LABCNT*6)) @ PLOT 42 CHARACTERS INTO THE FIRST LINE OF LABEL IF (LABCNT.GT.7) * CALL SYMBOL (YZ,YLEN,YZ,LABEL(8),0,LABCNT*6-42) @ AND THE REMAINING INTO THE NEXT LINE 140 CALL XYPLOT (38.,25.,PENUP) CALL EXPLT RETURN END