MINICERN/mathlib/gen/j/namezb.F

   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