[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / j / namezb.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:49  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if defined(CERNLIB_CDC)
      SUBROUTINE NAMEZB(CHSTR,NN,LFN)
      DIMENSION A(13),C(120),H(6)
      DIMENSION CHSTR(2)
      DATA H/10HABCDEFGHIJ,10HKLMNOPQRST,10HUVWXYZ1234
     +      ,10H567890 '-+,10H="[!.,/#*<,10H>_()]:;?&$/
      DATA HC/1H#/,NL/9/,NC/13/
#endif
#if (defined(CERNLIB_CDC))&&(defined(CERNLIB_F4))
      DATA (C(I),I=1,20)
     +    /00000007717731061061B,   03101770770000000000B,
     +     00000077777744144144B,   14417773360000000000B,
     +     00000037677740140140B,   14016032020000000000B,
     +     00000077777740140140B,   14017773760000000000B,
     +     00000077777744144144B,   14014014010000000000B,
     +     00000077777744044044B,   04004004000000000000B,
     +     00000037677740140141B,   14116172160000000000B,
     +     00000077777704004004B,   00407777770000000000B,
     +     00000040140140177777B,   74014014010000000000B,
     +     00000040240340177777B,   64004004000000000000B/
      DATA (C(I),I=21,40)
     +    /00000077777706017031B,   46064030010000000000B,
     +     00000077777700100100B,   10010010010000000000B,
     +     00000077737714006006B,   01403777770000000000B,
     +     00000077737714006003B,   00147777770000000000B,
     +     00000037577640543146B,   15013775760000000000B,
     +     00000077777741041041B,   04107703600000000000B,
     +     00000037677740140140B,   54037763750000000000B,
     +     00000077777741041041B,   44167733610000000000B,
     +     00000030274344144144B,   14416772360000000000B,
     +     00000040040040077777B,   74004004000000000000B/
      DATA (C(I),I=41,60)
     +    /00000077677700100100B,   10017777760000000000B,
     +     00000077077400600300B,   30067747700000000000B,
     +     00000077777601403003B,   00147767770000000000B,
     +     00000040761733016016B,   03306174070000000000B,
     +     00000040060030017717B,   73006004000000000000B,
     +     00000040340741543146B,   15417016010000000000B,
     +     00000000100120177777B,   70010010010000000000B,
     +     00000020761743146144B,   14417413010000000000B,
     +     00000020260340144144B,   14417773360000000000B,
     +     00000001003007015031B,   07777770100000000000B/
      DATA (C(I),I=61,80)
     +    /00000074274344144144B,   14414774360000000000B,
     +     00000037677744144144B,   14416772360000000000B,
     +     00000040040040047757B,   77006004000000000000B,
     +     00000033677744144144B,   14417773360000000000B,
     +     00000036277341141141B,   14117773760000000000B,
     +     00000037677740140140B,   14017773760000000000B,
     +     00000000000000000000B,   00000000000000000000B,
     +     00000000000000070070B,   00000000000000000000B,
     +     00000002002002002002B,   00200200200000000000B,
     +     00000002002002017417B,   40200200200000000000B/
      DATA (C(I),I=81,100)
     +    /00000005005005005005B,   00500500500000000000B,
     +     00000000060060000000B,   06006000000000000000B,
     +     00000000000077777740B,   14010000000000000000B,
     +     00000000000040140177B,   77770000000000000000B,
     +     00000000000000000300B,   30000000000000000000B,
     +     00000000000000000500B,   60000000000000000000B,
     +     00000000300601403006B,   01403006000000000000B,
     +     00000005005407015005B,   40701500500000000000B,
     +     00000002012407002007B,   01240200000000000000B,
     +     00000002007005010410B,   42022020000000000000B/
      DATA (C(I),I=101,120)
     +    /00000020220210410405B,   00700200000000000000B,
     +     00000000100100100100B,   10010010010000000000B,
     +     00000000000007017420B,   24010000000000000000B,
     +     00000000000040120217B,   40700000000000000000B,
     +     00000000000000077377B,   30000000000000000000B,
     +     00000000000000003303B,   30000000000000000000B,
     +     00000000000000002502B,   60000000000000000000B,
     +     00000020040040043347B,   35407002000000000000B,
     +     00000034646743143142B,   54433060110000000000B,
     +     00000014422222277777B,   72122161040000000000B/
#endif
#if (defined(CERNLIB_CDC))&&(!defined(CERNLIB_F4))
      DATA (C(I),I=1,20)
     +    /O"00000007717731061061",   O"03101770770000000000",
     +     O"00000077777744144144",   O"14417773360000000000",
     +     O"00000037677740140140",   O"14016032020000000000",
     +     O"00000077777740140140",   O"14017773760000000000",
     +     O"00000077777744144144",   O"14014014010000000000",
     +     O"00000077777744044044",   O"04004004000000000000",
     +     O"00000037677740140141",   O"14116172160000000000",
     +     O"00000077777704004004",   O"00407777770000000000",
     +     O"00000040140140177777",   O"74014014010000000000",
     +     O"00000040240340177777",   O"64004004000000000000"/
      DATA (C(I),I=21,40)
     +    /O"00000077777706017031",   O"46064030010000000000",
     +     O"00000077777700100100",   O"10010010010000000000",
     +     O"00000077737714006006",   O"01403777770000000000",
     +     O"00000077737714006003",   O"00147777770000000000",
     +     O"00000037577640543146",   O"15013775760000000000",
     +     O"00000077777741041041",   O"04107703600000000000",
     +     O"00000037677740140140",   O"54037763750000000000",
     +     O"00000077777741041041",   O"44167733610000000000",
     +     O"00000030274344144144",   O"14416772360000000000",
     +     O"00000040040040077777",   O"74004004000000000000"/
      DATA (C(I),I=41,60)
     +    /O"00000077677700100100",   O"10017777760000000000",
     +     O"00000077077400600300",   O"30067747700000000000",
     +     O"00000077777601403003",   O"00147767770000000000",
     +     O"00000040761733016016",   O"03306174070000000000",
     +     O"00000040060030017717",   O"73006004000000000000",
     +     O"00000040340741543146",   O"15417016010000000000",
     +     O"00000000100120177777",   O"70010010010000000000",
     +     O"00000020761743146144",   O"14417413010000000000",
     +     O"00000020260340144144",   O"14417773360000000000",
     +     O"00000001003007015031",   O"07777770100000000000"/
      DATA (C(I),I=61,80)
     +    /O"00000074274344144144",   O"14414774360000000000",
     +     O"00000037677744144144",   O"14416772360000000000",
     +     O"00000040040040047757",   O"77006004000000000000",
     +     O"00000033677744144144",   O"14417773360000000000",
     +     O"00000036277341141141",   O"14117773760000000000",
     +     O"00000037677740140140",   O"14017773760000000000",
     +     O"00000000000000000000",   O"00000000000000000000",
     +     O"00000000000000070070",   O"00000000000000000000",
     +     O"00000002002002002002",   O"00200200200000000000",
     +     O"00000002002002017417",   O"40200200200000000000"/
      DATA (C(I),I=81,100)
     +    /O"00000005005005005005",   O"00500500500000000000",
     +     O"00000000060060000000",   O"06006000000000000000",
     +     O"00000000000077777740",   O"14010000000000000000",
     +     O"00000000000040140177",   O"77770000000000000000",
     +     O"00000000000000000300",   O"30000000000000000000",
     +     O"00000000000000000500",   O"60000000000000000000",
     +     O"00000000300601403006",   O"01403006000000000000",
     +     O"00000005005407015005",   O"40701500500000000000",
     +     O"00000002012407002007",   O"01240200000000000000",
     +     O"00000002007005010410",   O"42022020000000000000"/
      DATA (C(I),I=101,120)
     +    /O"00000020220210410405",   O"00700200000000000000",
     +     O"00000000100100100100",   O"10010010010000000000",
     +     O"00000000000007017420",   O"24010000000000000000",
     +     O"00000000000040120217",   O"40700000000000000000",
     +     O"00000000000000077377",   O"30000000000000000000",
     +     O"00000000000000003303",   O"30000000000000000000",
     +     O"00000000000000002502",   O"60000000000000000000",
     +     O"00000020040040043347",   O"35407002000000000000",
     +     O"00000034646743143142",   O"54433060110000000000",
     +     O"00000014422222277777",   O"72122161040000000000"/
#endif
#if defined(CERNLIB_CDC)
C
      DATA NCPW/10/,NBPW/60/
      CALL NOARG(NA)
      IF(NA.EQ.1) NN=(IUCOMP(0,CHSTR,100)-1)*NCPW
      IF(NN.LE.0) RETURN
      N=MIN(NN,NC)
      DO 3 LINE=1,NL
      CALL VBLANK(A,N)
      DO 1 K = 1,N
      CALL CHMOVE(CHSTR,K,Z,1,1)
      I0=2*(LOCHAR(Z,1,H,60)-1)+1
      IF(I0.EQ.-1) I0=73
      DO 2 I=2,9
      IB=LINE+9*I-1
      IW=IB/NBPW+I0
      IF(JBIT(C(IW),NBPW-MOD(IB,NBPW)).EQ.1) CALL CHMOVE(HC,1,A(K),I,1)
    2 CONTINUE
    1 CONTINUE
      IF(NA.LT.3) WRITE(6,100)(A(I),I=1,N)
      IF(NA.EQ.3) WRITE(LFN,100) (A(I),I=1,N)
  100 FORMAT(13A10)
    3 CONTINUE
      RETURN
      END
#endif
#if defined(CERNLIB_IBM)
      SUBROUTINE NAMEZB(TEXT,NCHARS,LUN)
C
C CERN PROGLIB# J402    NAMEZB          .VERSION GEN      X          X
C
C.....PRINT THE NCHARS CHARACTERS OF TEXT USING BLOCK CHARACTERS
C     IF NCHARS > MAXCH ONLY THE FIRST MAXCH ARE PRINTED
C
      DIMENSION LINE(32)
C
      LOGICAL*1 TEXT(NCHARS)
C
      DATA MAXCH/9/
C
C
C--   GET NUMBER OF ARGUMENTS
C
      LUNWTR=6
      NARG=3
      CALL NOARG(NARG)
      IF(NARG.GE.3) LUNWTR=LUN
      N = NCHARS
      IF(NCHARS.GT.MAXCH) N = MAXCH
C
      DO 1 I=1,12
      CALL UBLANK(LINE,1,32)
      CALL NAME12 (TEXT,I,LINE,N)
      WRITE(LUNWTR,100) LINE
 1    CONTINUE
C
      RETURN
C
 100  FORMAT(1X,32A4)
C
      END
#endif
#if (!defined(CERNLIB_CDC))&&(!defined(CERNLIB_IBM))
      SUBROUTINE NAMEZB(CHSTR,NN,LFN)
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:49 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if defined(CERNLIB_CDC)
	11	SUBROUTINE NAMEZB(CHSTR,NN,LFN)
	12	DIMENSION A(13),C(120),H(6)
	13	DIMENSION CHSTR(2)
	14	DATA H/10HABCDEFGHIJ,10HKLMNOPQRST,10HUVWXYZ1234
	15	+ ,10H567890 '-+,10H="[!.,/#*<,10H>_()]:;?&$/
	16	DATA HC/1H#/,NL/9/,NC/13/
	17	#endif
	18	#if (defined(CERNLIB_CDC))&&(defined(CERNLIB_F4))
	19	DATA (C(I),I=1,20)
	20	+ /00000007717731061061B, 03101770770000000000B,
	21	+ 00000077777744144144B, 14417773360000000000B,
	22	+ 00000037677740140140B, 14016032020000000000B,
	23	+ 00000077777740140140B, 14017773760000000000B,
	24	+ 00000077777744144144B, 14014014010000000000B,
	25	+ 00000077777744044044B, 04004004000000000000B,
	26	+ 00000037677740140141B, 14116172160000000000B,
	27	+ 00000077777704004004B, 00407777770000000000B,
	28	+ 00000040140140177777B, 74014014010000000000B,
	29	+ 00000040240340177777B, 64004004000000000000B/
	30	DATA (C(I),I=21,40)
	31	+ /00000077777706017031B, 46064030010000000000B,
	32	+ 00000077777700100100B, 10010010010000000000B,
	33	+ 00000077737714006006B, 01403777770000000000B,
	34	+ 00000077737714006003B, 00147777770000000000B,
	35	+ 00000037577640543146B, 15013775760000000000B,
	36	+ 00000077777741041041B, 04107703600000000000B,
	37	+ 00000037677740140140B, 54037763750000000000B,
	38	+ 00000077777741041041B, 44167733610000000000B,
	39	+ 00000030274344144144B, 14416772360000000000B,
	40	+ 00000040040040077777B, 74004004000000000000B/
	41	DATA (C(I),I=41,60)
	42	+ /00000077677700100100B, 10017777760000000000B,
	43	+ 00000077077400600300B, 30067747700000000000B,
	44	+ 00000077777601403003B, 00147767770000000000B,
	45	+ 00000040761733016016B, 03306174070000000000B,
	46	+ 00000040060030017717B, 73006004000000000000B,
	47	+ 00000040340741543146B, 15417016010000000000B,
	48	+ 00000000100120177777B, 70010010010000000000B,
	49	+ 00000020761743146144B, 14417413010000000000B,
	50	+ 00000020260340144144B, 14417773360000000000B,
	51	+ 00000001003007015031B, 07777770100000000000B/
	52	DATA (C(I),I=61,80)
	53	+ /00000074274344144144B, 14414774360000000000B,
	54	+ 00000037677744144144B, 14416772360000000000B,
	55	+ 00000040040040047757B, 77006004000000000000B,
	56	+ 00000033677744144144B, 14417773360000000000B,
	57	+ 00000036277341141141B, 14117773760000000000B,
	58	+ 00000037677740140140B, 14017773760000000000B,
	59	+ 00000000000000000000B, 00000000000000000000B,
	60	+ 00000000000000070070B, 00000000000000000000B,
	61	+ 00000002002002002002B, 00200200200000000000B,
	62	+ 00000002002002017417B, 40200200200000000000B/
	63	DATA (C(I),I=81,100)
	64	+ /00000005005005005005B, 00500500500000000000B,
65	+ 00000000060060000000B, 06006000000000000000B,
66	+ 00000000000077777740B, 14010000000000000000B,
67	+ 00000000000040140177B, 77770000000000000000B,
68	+ 00000000000000000300B, 30000000000000000000B,
69	+ 00000000000000000500B, 60000000000000000000B,
70	+ 00000000300601403006B, 01403006000000000000B,
71	+ 00000005005407015005B, 40701500500000000000B,
72	+ 00000002012407002007B, 01240200000000000000B,
73	+ 00000002007005010410B, 42022020000000000000B/
74	DATA (C(I),I=101,120)
75	+ /00000020220210410405B, 00700200000000000000B,
76	+ 00000000100100100100B, 10010010010000000000B,
77	+ 00000000000007017420B, 24010000000000000000B,
78	+ 00000000000040120217B, 40700000000000000000B,
79	+ 00000000000000077377B, 30000000000000000000B,
80	+ 00000000000000003303B, 30000000000000000000B,
81	+ 00000000000000002502B, 60000000000000000000B,
82	+ 00000020040040043347B, 35407002000000000000B,
83	+ 00000034646743143142B, 54433060110000000000B,
84	+ 00000014422222277777B, 72122161040000000000B/
85	#endif
86	#if (defined(CERNLIB_CDC))&&(!defined(CERNLIB_F4))
87	DATA (C(I),I=1,20)
88	+ /O"00000007717731061061", O"03101770770000000000",
89	+ O"00000077777744144144", O"14417773360000000000",
90	+ O"00000037677740140140", O"14016032020000000000",
91	+ O"00000077777740140140", O"14017773760000000000",
92	+ O"00000077777744144144", O"14014014010000000000",
93	+ O"00000077777744044044", O"04004004000000000000",
94	+ O"00000037677740140141", O"14116172160000000000",
95	+ O"00000077777704004004", O"00407777770000000000",
96	+ O"00000040140140177777", O"74014014010000000000",
97	+ O"00000040240340177777", O"64004004000000000000"/
98	DATA (C(I),I=21,40)
99	+ /O"00000077777706017031", O"46064030010000000000",
100	+ O"00000077777700100100", O"10010010010000000000",
101	+ O"00000077737714006006", O"01403777770000000000",
102	+ O"00000077737714006003", O"00147777770000000000",
103	+ O"00000037577640543146", O"15013775760000000000",
104	+ O"00000077777741041041", O"04107703600000000000",
105	+ O"00000037677740140140", O"54037763750000000000",
106	+ O"00000077777741041041", O"44167733610000000000",
107	+ O"00000030274344144144", O"14416772360000000000",
108	+ O"00000040040040077777", O"74004004000000000000"/
109	DATA (C(I),I=41,60)
110	+ /O"00000077677700100100", O"10017777760000000000",
111	+ O"00000077077400600300", O"30067747700000000000",
112	+ O"00000077777601403003", O"00147767770000000000",
113	+ O"00000040761733016016", O"03306174070000000000",
114	+ O"00000040060030017717", O"73006004000000000000",
115	+ O"00000040340741543146", O"15417016010000000000",
116	+ O"00000000100120177777", O"70010010010000000000",
117	+ O"00000020761743146144", O"14417413010000000000",
118	+ O"00000020260340144144", O"14417773360000000000",
119	+ O"00000001003007015031", O"07777770100000000000"/
120	DATA (C(I),I=61,80)
121	+ /O"00000074274344144144", O"14414774360000000000",
122	+ O"00000037677744144144", O"14416772360000000000",
123	+ O"00000040040040047757", O"77006004000000000000",
124	+ O"00000033677744144144", O"14417773360000000000",
125	+ O"00000036277341141141", O"14117773760000000000",
126	+ O"00000037677740140140", O"14017773760000000000",
127	+ O"00000000000000000000", O"00000000000000000000",
128	+ O"00000000000000070070", O"00000000000000000000",
129	+ O"00000002002002002002", O"00200200200000000000",
130	+ O"00000002002002017417", O"40200200200000000000"/
131	DATA (C(I),I=81,100)
132	+ /O"00000005005005005005", O"00500500500000000000",
133	+ O"00000000060060000000", O"06006000000000000000",
134	+ O"00000000000077777740", O"14010000000000000000",
135	+ O"00000000000040140177", O"77770000000000000000",
136	+ O"00000000000000000300", O"30000000000000000000",
137	+ O"00000000000000000500", O"60000000000000000000",
138	+ O"00000000300601403006", O"01403006000000000000",
139	+ O"00000005005407015005", O"40701500500000000000",
140	+ O"00000002012407002007", O"01240200000000000000",
141	+ O"00000002007005010410", O"42022020000000000000"/
142	DATA (C(I),I=101,120)
143	+ /O"00000020220210410405", O"00700200000000000000",
144	+ O"00000000100100100100", O"10010010010000000000",
145	+ O"00000000000007017420", O"24010000000000000000",
146	+ O"00000000000040120217", O"40700000000000000000",
147	+ O"00000000000000077377", O"30000000000000000000",
148	+ O"00000000000000003303", O"30000000000000000000",
149	+ O"00000000000000002502", O"60000000000000000000",
150	+ O"00000020040040043347", O"35407002000000000000",
151	+ O"00000034646743143142", O"54433060110000000000",
152	+ O"00000014422222277777", O"72122161040000000000"/
153	#endif
154	#if defined(CERNLIB_CDC)
155	C
156	DATA NCPW/10/,NBPW/60/
157	CALL NOARG(NA)
158	IF(NA.EQ.1) NN=(IUCOMP(0,CHSTR,100)-1)*NCPW
159	IF(NN.LE.0) RETURN
160	N=MIN(NN,NC)
161	DO 3 LINE=1,NL
162	CALL VBLANK(A,N)
163	DO 1 K = 1,N
164	CALL CHMOVE(CHSTR,K,Z,1,1)
165	I0=2*(LOCHAR(Z,1,H,60)-1)+1
166	IF(I0.EQ.-1) I0=73
167	DO 2 I=2,9
168	IB=LINE+9*I-1
169	IW=IB/NBPW+I0
170	IF(JBIT(C(IW),NBPW-MOD(IB,NBPW)).EQ.1) CALL CHMOVE(HC,1,A(K),I,1)
171	2 CONTINUE
172	1 CONTINUE
173	IF(NA.LT.3) WRITE(6,100)(A(I),I=1,N)
174	IF(NA.EQ.3) WRITE(LFN,100) (A(I),I=1,N)
175	100 FORMAT(13A10)
176	3 CONTINUE
177	RETURN
178	END
179	#endif
180	#if defined(CERNLIB_IBM)
181	SUBROUTINE NAMEZB(TEXT,NCHARS,LUN)
182	C
183	C CERN PROGLIB# J402 NAMEZB .VERSION GEN X X
184	C
185	C.....PRINT THE NCHARS CHARACTERS OF TEXT USING BLOCK CHARACTERS
186	C IF NCHARS > MAXCH ONLY THE FIRST MAXCH ARE PRINTED
187	C
188	DIMENSION LINE(32)
189	C
190	LOGICAL*1 TEXT(NCHARS)
191	C
192	DATA MAXCH/9/
193	C
194	C
195	C-- GET NUMBER OF ARGUMENTS
196	C
197	LUNWTR=6
198	NARG=3
199	CALL NOARG(NARG)
200	IF(NARG.GE.3) LUNWTR=LUN
201	N = NCHARS
202	IF(NCHARS.GT.MAXCH) N = MAXCH
203	C
204	DO 1 I=1,12
205	CALL UBLANK(LINE,1,32)
206	CALL NAME12 (TEXT,I,LINE,N)
207	WRITE(LUNWTR,100) LINE
208	1 CONTINUE
209	C
210	RETURN
211	C
212	100 FORMAT(1X,32A4)
213	C
214	END
215	#endif
216	#if (!defined(CERNLIB_CDC))&&(!defined(CERNLIB_IBM))
217	SUBROUTINE NAMEZB(CHSTR,NN,LFN)
218	RETURN
219	END
220	#endif