MINICERN/packlib/zebra/rz/rzhfra.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/24 17:26:52  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 RZHFRA(IH,NW)
  15 *
  16 ***********************************************************************
  17 *
  18 *       Converts array of NW ASCII words into  EBCDIC hollerith
  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 = 126)
  28       DIMENSION IEB(NCHAR)
  29       DATA IEB /8*0,5,22*0,
  30      + 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97,
  31      +240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111,
  32      +124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214,
  33      +215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109,
  34      +121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150,
  35      +151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161/
  36 *-----------------------------------
  37 *
  38
  39 #include "zebra/q_jbyt.inc"
  40
  41       DO 20 IW=1,NW
  42          DO 10 I=1,25,8
  43             IBYTE=JBYT(IH(IW),I,8)
  44             IF(IBYTE.GT.126)IBYTE=32
  45             CALL SBYT(IEB(IBYTE),IH(IW),I,8)
  46   10     CONTINUE
  47   20  CONTINUE
  48 #endif
  49       END