]> git.uio.no Git - u/mrichter/AliRoot.git/blame - MINICERN/packlib/zebra/fq/fzcvhibm.inc
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fzcvhibm.inc
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 10:47:10 mclareni
6* Zebra
7*
8*
9* convert EBCDIC <-> ASCII
10*
11* fzcvhibm.inc
12*
13#if defined(CERNLIB_QMIBM)
14C-- IBM conversion EBCDIC <--> ASCII
15 NTHR = NWDO
16 522 NTH = MIN (NTHR,24)
17 NCH = 4*NTH
18 CALL UPKCH (MS(JMS+1),IQUEST,NCH,IPKVEC)
19 DO 529 JCH=1,NCH
20 J = MIN (MAX(IQUEST(JCH)-JCHMIN,0), JCHMAX)
21 529 IQUEST(JCH) = MTAB(J+1)
22 CALL PKCHAR (IQUEST,MT(JMT+1),NCH,IPKVEC)
23 JMT = JMT + NTH
24 JMS = JMS + NTH
25 NTHR = NTHR - NTH
26 IF (NTHR.NE.0) GO TO 522
27 GO TO 801
28#endif
29* convert EBCDIC <-> ASCII
30*
31* fzcvhibm.inc
32*
33#if defined(CERNLIB_QMIBMD)
34C-- IBM conversion EBCDIC <--> ASCII
35 NTHR = NWDO
36 522 NTH = MIN (NTHR,24)
37 NCH = 4*NTH
38 CALL UPKCH (MS(JMS+1),IQUEST,NCH,IPKVEC)
39 DO 529 JCH=1,NCH
40 J = MIN (MAX(IQUEST(JCH)-JCHMIN,0), JCHMAX)
41 529 IQUEST(JCH) = MTAB(J+1)
42 CALL PKCHAR (IQUEST,MT(JMT+1),NCH,IPKVEC)
43 JMT = JMT + NTH
44 JMS = JMS + NTH
45 NTHR = NTHR - NTH
46 IF (NTHR.NE.0) GO TO 522
47 GO TO 801
48#endif