C -+-+-+-+-+  H A E L A B . F T  -+-+-+-+-+ C C SUBROUTINE LABPLT (XC,YC,TLAST) REAL XC,YC @ START OF THE LABEL INTEGER TLAST @ POINT WHEN PLOT ENDS INCLUDE HAECSZ.FI C INCLUDE HAEBUF.FI INCLUDE HAEGSA.FI C INTEGER TOASCI EXTERNAL TOASCI C IF (SETNUM.GT.0) * CALL NUMBER (XC,YC,YZ,SETNUM,0,0) @ PRINT THE NUMBER OF THE DATA SET FROM UNIT 6 OR 7 CALL NUMBER (999.,999.,YZ,CHANEL,0,-1) @ AND INSERT THE NUMBER OF THE DATA CHANNEL PLOTTED CALL SYMBOL (999.,999.,YZ,'*',0,1) CALL NUMBER (999.,999.,YZ,BEGIN/60,0,-1) CALL SYMBOL (999.,999.,YZ,':',0,1) CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(BEGIN,60)),0,2) CALL SYMBOL (999.,999.,YZ,'-',0,1) CALL NUMBER (999.,999.,YZ,TLAST/60,0,-1) CALL SYMBOL (999.,999.,YZ,':',0,1) CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(TLAST,60)),0,2) CALL SYMBOL (999.,999.,YZ,' ',0,1) CALL NUMBER (999.,999.,YZ,SPAN,0,-1) CALL SYMBOL (999.,999.,YZ,'-',0,1) CALL NUMBER (999.,999.,YZ,OVRLAP,0,-1) CALL SYMBOL (999.,999.,YZ,'$',0,1) CALL NUMBER (999.,999.,YZ,FILTER,0,-1) RETURN END