]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.2 1996/04/24 17:26:58 mclareni | |
6 | * Extend the include file cleanup to dzebra, rz and tq, and also add | |
7 | * dependencies in some cases. | |
8 | * | |
9 | * Revision 1.1.1.1 1996/03/06 10:47:25 mclareni | |
10 | * Zebra | |
11 | * | |
12 | * | |
13 | #include "zebra/pilot.h" | |
14 | SUBROUTINE RZKEYS(MAXDIM,MAXKEY,KEYS,NKEYS) | |
15 | * | |
16 | ************************************************************************ | |
17 | * | |
18 | * Returns the list of keys currently in the CWD | |
19 | * Input: | |
20 | * MAXDIM The actual first dimension of output array KEYS. It should | |
21 | * in principle be at least equal to the number of key elements | |
22 | * NWKEY as declared to RZMDIR. | |
23 | * MAXKEY The actual second dimension of output array KEYS | |
24 | * Output: | |
25 | * KEYS* A 2-dimensional array dimensioned KEYS(MAXDIM,MAXKEY). It | |
26 | * will contain the key vectors associated with the CWD. | |
27 | * Its first index runs over the key elements for a given key, | |
28 | * while its second index runs over the different keys. | |
29 | * NKEYS* Actual number of keys present for the CWD. | |
30 | * | |
31 | * Called by <USER> | |
32 | * | |
33 | * Author : R.Brun DD/US/PD | |
34 | * Written : 05.04.86 | |
35 | * Last mod: 09.02.93 JDS. Return NK and NWK in IQUEST in all cases | |
36 | * | |
37 | ************************************************************************ | |
38 | #include "zebra/rzcl.inc" | |
39 | #include "zebra/rzk.inc" | |
40 | DIMENSION KEYS(MAXDIM,MAXKEY) | |
41 | * | |
42 | *----------------------------------------------------------------------- | |
43 | * | |
44 | ||
45 | #include "zebra/q_jbyt.inc" | |
46 | ||
47 | IQUEST(1)=0 | |
48 | NKEYS=0 | |
49 | IF(LQRS.EQ.0)GO TO 99 | |
50 | IF(LCDIR.EQ.0)GO TO 99 | |
51 | LK = IQ(KQSP+LCDIR+KLK) | |
52 | NK = IQ(KQSP+LCDIR+KNKEYS) | |
53 | NWK= IQ(KQSP+LCDIR+KNWKEY) | |
54 | IF(NK.LE.MAXKEY)THEN | |
55 | NKEYS=NK | |
56 | IQUEST(11)=NK | |
57 | IQUEST(12)=NWK | |
58 | ELSE | |
59 | NKEYS=MAXKEY | |
60 | IQUEST(1)=1 | |
61 | IQUEST(11)=NK | |
62 | IQUEST(12)=NWK | |
63 | ENDIF | |
64 | IF(NWK.GT.MAXDIM)THEN | |
65 | IQUEST(1)=1 | |
66 | IQUEST(11)=NKEYS | |
67 | IQUEST(12)=NWK | |
68 | ENDIF | |
69 | * | |
70 | DO 20 I=1,NKEYS | |
71 | K=LK+(NWK+1)*(I-1) | |
72 | DO 10 J=1,NWK | |
73 | IKDES=(J-1)/10 | |
74 | IKBIT1=3*J-30*IKDES-2 | |
75 | IF(JBYT(IQ(KQSP+LCDIR+KKDES+IKDES),IKBIT1,3).LT.3)THEN | |
76 | KEYS(J,I)=IQ(KQSP+LCDIR+K+J) | |
77 | ELSE | |
78 | CALL ZITOH(IQ(KQSP+LCDIR+K+J),KEYS(J,I),1) | |
79 | ENDIF | |
80 | 10 CONTINUE | |
81 | 20 CONTINUE | |
82 | * | |
83 | 99 RETURN | |
84 | END |