* * $Id: namezb.F,v 1.1.1.1 1996/04/01 15:02:49 mclareni Exp $ * * $Log: namezb.F,v $ * 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