MINICERN/packlib/zebra/rz/rzhtoa.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/24 17:26:53  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:24  mclareni
  10 * Zebra
  11 *
  12 *
  13 #include "zebra/pilot.h"
  14        SUBROUTINE RZHTOA(IH,NW)
  15 *
  16 ***********************************************************************
  17 *
  18 *       Converts array of NW EBCDIC hollerith words into ASCII
  19 *
  20 *  Author  : R.Brun CN/AS
  21 *  Written : 17/10/92
  22 *  Last mod: 17/10/92
  23 *
  24 ***********************************************************************
  25 #if defined(CERNLIB_QMIBM)
  26       DIMENSION IH(1)
  27       PARAMETER          (NCHAR = 256)
  28       DIMENSION IASCI(NCHAR)
  29       DATA IASCI/
  30      +4*32,9,58*32,32,10*32,46,60,40,43,124,38,9*32,33,36,42,41,59,94,
  31      +45,47,9*32,44,37,95,62,63,9*32,96,58,35,64,39,61,34,32,97,98,99,
  32      +100,101,102,103,104,105,7*32,106,107,108,109,110,111,112,113,114,
  33      +7*32,126,115,116,117,118,119,120,121,122,3*32,91,15*32,93,32,32,
  34      +123,65,66,67,68,69,70,71,72,73,6*32,125,74,75,76,77,78,79,80,81,
  35      +82,6*32,92,32,83,84,85,86,87,88,89,90,6*32,48,49,50,51,52,53,54,
  36      +55,56,57,7*32/
  37 *-----------------------------------
  38 *
  39
  40 #include "zebra/q_jbyt.inc"
  41
  42       DO 20 IW=1,NW
  43          DO 10 I=1,25,8
  44             IBYTE=JBYT(IH(IW),I,8)
  45             CALL SBYT(IASCI(IBYTE),IH(IW),I,8)
  46   10     CONTINUE
  47   20  CONTINUE
  48 #endif
  49       END