*
* $Id: fzcvhibm.inc,v 1.1.1.1 1996/03/06 10:47:10 mclareni Exp $
*
* $Log: fzcvhibm.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
* Zebra
*
*
*   convert EBCDIC <-> ASCII
*
* fzcvhibm.inc
*
#if defined(CERNLIB_QMIBM)
C--       IBM conversion  EBCDIC <--> ASCII
      NTHR = NWDO
  522 NTH  = MIN (NTHR,24)
      NCH  = 4*NTH
      CALL UPKCH (MS(JMS+1),IQUEST,NCH,IPKVEC)
      DO 529  JCH=1,NCH
      J = MIN (MAX(IQUEST(JCH)-JCHMIN,0), JCHMAX)
  529 IQUEST(JCH) = MTAB(J+1)
      CALL PKCHAR (IQUEST,MT(JMT+1),NCH,IPKVEC)
      JMT  = JMT + NTH
      JMS  = JMS + NTH
      NTHR = NTHR - NTH
      IF (NTHR.NE.0)               GO TO 522
      GO TO 801
#endif
*   convert EBCDIC <-> ASCII
*
* fzcvhibm.inc
*
#if defined(CERNLIB_QMIBMD)
C--       IBM conversion  EBCDIC <--> ASCII
      NTHR = NWDO
  522 NTH  = MIN (NTHR,24)
      NCH  = 4*NTH
      CALL UPKCH (MS(JMS+1),IQUEST,NCH,IPKVEC)
      DO 529  JCH=1,NCH
      J = MIN (MAX(IQUEST(JCH)-JCHMIN,0), JCHMAX)
  529 IQUEST(JCH) = MTAB(J+1)
      CALL PKCHAR (IQUEST,MT(JMT+1),NCH,IPKVEC)
      JMT  = JMT + NTH
      JMS  = JMS + NTH
      NTHR = NTHR - NTH
      IF (NTHR.NE.0)               GO TO 522
      GO TO 801
#endif