]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.2 1996/04/18 16:12:07 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * Revision 1.1.1.1 1996/03/06 10:47:17 mclareni | |
9 | * Zebra | |
10 | * | |
11 | * | |
12 | #include "zebra/pilot.h" | |
13 | SUBROUTINE MZVERS | |
14 | ||
15 | C- Print Zebra / Kernlib version on IQLOG, user called | |
16 | ||
17 | #include "zebra/zheadp.inc" | |
18 | #include "zebra/zstate.inc" | |
19 | #include "zebra/zunit.inc" | |
20 | #include "zebra/mqsysh.inc" | |
21 | C-------------- End CDE -------------- | |
22 | ||
23 | #include "zebra/q_locf.inc" | |
24 | ||
25 | IF (NQLOGD.LT.-1) GO TO 79 | |
26 | ||
27 | WRITE (IQLOG,9002) QVERSN,IQDATE,IQTIME | |
28 | 9002 FORMAT (1X/' ZEBRA SYSTEM',F8.4,' executing, Date/Time',I7,1H/,I4) | |
29 | ||
30 | WRITE (IQLOG,9003) | |
31 | #if defined(CERNLIB_PY_VS5) | |
32 | * 9003 FORMAT (1X/1X,'?') | |
33 | #endif | |
34 | #if !defined(CERNLIB_PY_VS5) | |
35 | 9003 FORMAT (1X/1X, | |
36 | + 'ZEMQ 3.77 ' | |
37 | F) | |
38 | #endif | |
39 | ||
40 | LQASTO = LOCF (LQ(1)) - 1 | |
41 | WRITE (IQLOG,9004) LQASTO,LQASTO | |
42 | 9004 FORMAT (1X/10X,'ZEBRA store base LQ(0) in /ZEBQ/ at adr',I12, | |
43 | #if !defined(CERNLIB_HEX) | |
44 | F1X,O11,' OCT') | |
45 | #endif | |
46 | #if defined(CERNLIB_HEX) | |
47 | F1X,Z11,' HEX') | |
48 | #endif | |
49 | CALL KERNGT (IQLOG) | |
50 | 79 IQUEST(1) = QVERSN * 10000. | |
51 | RETURN | |
52 | END | |
53 | * ================================================== | |
54 | #include "zebra/qcardl.inc" |