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