sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haelab.ft

   1 C       -+-+-+-+-+ \ e  H A E L A B . F T  \ e -+-+-+-+-+
   2 C
   3 C
   4         SUBROUTINE LABPLT (XC,YC,TLAST)
   5         REAL XC,YC                      @ START OF THE LABEL
   6         INTEGER TLAST                   @ POINT WHEN PLOT ENDS
   7         INCLUDE HAECSZ.FI
   8 C
   9         INCLUDE HAEBUF.FI
  10         INCLUDE HAEGSA.FI
  11 C
  12 \f       INTEGER TOASCI
  13         EXTERNAL TOASCI
  14 C
  15         IF (SETNUM.GT.0)
  16      *   CALL NUMBER (XC,YC,YZ,SETNUM,0,0) @ PRINT THE NUMBER OF THE DATA SET FROM UNIT 6 OR 7
  17         CALL NUMBER (999.,999.,YZ,CHANEL,0,-1) @ AND INSERT THE NUMBER OF THE DATA CHANNEL PLOTTED
  18         CALL SYMBOL (999.,999.,YZ,'*',0,1)
  19         CALL NUMBER (999.,999.,YZ,BEGIN/60,0,-1)
  20         CALL SYMBOL (999.,999.,YZ,':',0,1)
  21         CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(BEGIN,60)),0,2)
  22         CALL SYMBOL (999.,999.,YZ,'-',0,1)
  23         CALL NUMBER (999.,999.,YZ,TLAST/60,0,-1)
  24         CALL SYMBOL (999.,999.,YZ,':',0,1)
  25         CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(TLAST,60)),0,2)
  26         CALL SYMBOL (999.,999.,YZ,' ',0,1)
  27         CALL NUMBER (999.,999.,YZ,SPAN,0,-1)
  28         CALL SYMBOL (999.,999.,YZ,'-',0,1)
  29         CALL NUMBER (999.,999.,YZ,OVRLAP,0,-1)
  30         CALL SYMBOL (999.,999.,YZ,'$',0,1)
  31         CALL NUMBER (999.,999.,YZ,FILTER,0,-1)
  32         RETURN
  33         END
  34 \1a