*
* $Id: igtext.F,v 1.5 1998/09/25 09:24:06 mclareni Exp $
*
* $Log: igtext.F,v $
* Revision 1.5  1998/09/25 09:24:06  mclareni
* Modifications for the Mklinux port flagged by CERNLIB_PPC
*
* Revision 1.4  1998/01/30 15:22:19  couet
* - APOLLO version removed
*
* Revision 1.3  1997/03/14 14:23:15  mclareni
* WNT mods
*
* Revision 1.2.2.1  1997/01/21 11:25:32  mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.2  1996/04/02 22:26:07  thakulin
* Add F90 style hex initializers of arrays for EPC Fortran.
*
* Revision 1.1.1.1  1996/02/14 13:10:40  mclareni
* Higz
*
*
#include "higz/pilot.h"
*CMZ :  1.20/10 31/01/94  10.52.10  by  O.Couet
*-- Author :
      SUBROUTINE IGTEXT(X,Y,KTEXT,SSIZE,ANGLE,CHOPT)
*.===========>
*.
*.   Routine to draw software characters using
*. the H E R S H E Y  character table .
*.
*. N.M. WOLCOTT, J. HILSENRATH
*. A contribution to computer typesetting techniques
*. table of coordinates for HERSHEY'S repertory
*. of occidental type fonts and graphics symbols
*. national bureau of standards
*. special publication No. 424
*. U.S. Government printing office,
*. Washington,  January 1976.
*.
*. Each x or y subcoordinate of each character
*. is packed in 6 bits (HERSHEY VALUE+32)
*. The number of coordinates in a word is
*. machine dependent
*.
*. The program contained in deck HERSHEY
*. is used to generate the table of packed values
*. for a given computer
*. COMDECK HERO20  to be used for machines
*.         with words having 60 bits or more
*. COMDECK HERO12  to be used for machines
*.         with words having 36 bits
*.         and octal representation
*. COMDECK HERO10  to be used for machines
*.         with words having 32 bits
*.         and octal representation
*. COMDECK HERZ8   to be used for machines
*.         with words having 30 bits or more
*.         and hexadecimal representation
*.
*. _Input parameters:
*.
*.  REAL X,Y : Coordinates for beginning of text .
*.  CHARACTER KTEXT : Text .
*.  INTEGER SSIZE : Text size .
*.  REAL ANGLE : The rotation angle in degrees .
*.  CHARACTER CHOPT : Option .
*.
*.                    CHOPT='L'eft .
*.                    CHOPT='R'ight .
*.                    CHOPT='C'enter .
*.                    CHOPT='S' return text length in ANGLE.
*.
*.
*..==========> (R.Brun O.Couet)
#include "higz/hiatt.inc"
#include "higz/hiflag.inc"
#if defined(CERNLIB_MAIL)
#include "higz/himail.inc"
#endif
      LOGICAL ZFSAV
      CHARACTER*(*) KTEXT,CHOPT
      DIMENSION ITEXT(255),IFORT(73),ISPEC(11)
      EQUIVALENCE(ITEXT(1),IFORT(1)),(ITEXT(74),ISPEC(1))
      DIMENSION XP(40),YP(40),XXP(40),YYP(40),LGREEK(26)
      DIMENSION IOPT(4)
      EQUIVALENCE (IOPT(1),IOPTL),(IOPT(2),IOPTC),(IOPT(3),IOPTR)
      EQUIVALENCE (IOPT(4),IOPTS)
      SAVE IFIRST,IPASS,IGO,IFORT,ISPEC
#if defined(CERNLIB_CDC)
      DIMENSION IA(64)
      DIMENSION ISTART(210),IX( 425),IY( 425)
      DIMENSION IX11( 36),IY11( 36)
      EQUIVALENCE (IX11(1),IX(  1)),(IY11(1),IY(  1))
      DIMENSION IX12( 36),IY12( 36)
      EQUIVALENCE (IX12(1),IX( 37)),(IY12(1),IY( 37))
      DIMENSION IX13( 36),IY13( 36)
      EQUIVALENCE (IX13(1),IX( 73)),(IY13(1),IY( 73))
      DIMENSION IX14( 36),IY14( 36)
      EQUIVALENCE (IX14(1),IX(109)),(IY14(1),IY(109))
      DIMENSION IX15( 36),IY15( 36)
      EQUIVALENCE (IX15(1),IX(145)),(IY15(1),IY(145))
      DIMENSION IX16( 36),IY16( 36)
      EQUIVALENCE (IX16(1),IX(181)),(IY16(1),IY(181))
      DIMENSION IX17( 36),IY17( 36)
      EQUIVALENCE (IX17(1),IX(217)),(IY17(1),IY(217))
      DIMENSION IX18( 36),IY18( 36)
      EQUIVALENCE (IX18(1),IX(253)),(IY18(1),IY(253))
      DIMENSION IX19( 36),IY19( 36)
      EQUIVALENCE (IX19(1),IX(289)),(IY19(1),IY(289))
      DIMENSION IX20( 36),IY20( 36)
      EQUIVALENCE (IX20(1),IX(325)),(IY20(1),IY(325))
      DIMENSION IX21( 36),IY21( 36)
      EQUIVALENCE (IX21(1),IX(361)),(IY21(1),IY(361))
      DIMENSION IX22( 29),IY22( 29)
      EQUIVALENCE (IX22(1),IX(397)),(IY22(1),IY(397))
#endif
#if defined(CERNLIB_CVX)||defined(CERNLIB_CRAY)
      DIMENSION IA(256)
      DIMENSION ISTART(210),IX( 425),IY( 425)
      DIMENSION IX11( 54),IY11( 54)
      EQUIVALENCE (IX11(1),IX(  1)),(IY11(1),IY(  1))
      DIMENSION IX12( 54),IY12( 54)
      EQUIVALENCE (IX12(1),IX( 55)),(IY12(1),IY( 55))
      DIMENSION IX13( 54),IY13( 54)
      EQUIVALENCE (IX13(1),IX(109)),(IY13(1),IY(109))
      DIMENSION IX14( 54),IY14( 54)
      EQUIVALENCE (IX14(1),IX(163)),(IY14(1),IY(163))
      DIMENSION IX15( 54),IY15( 54)
      EQUIVALENCE (IX15(1),IX(217)),(IY15(1),IY(217))
      DIMENSION IX16( 54),IY16( 54)
      EQUIVALENCE (IX16(1),IX(271)),(IY16(1),IY(271))
      DIMENSION IX17( 54),IY17( 54)
      EQUIVALENCE (IX17(1),IX(325)),(IY17(1),IY(325))
      DIMENSION IX18( 47),IY18( 47)
      EQUIVALENCE (IX18(1),IX(379)),(IY18(1),IY(379))
#endif
#if defined(CERNLIB_NORD)||defined(CERNLIB_HPUX)
      DIMENSION IA(256)
      SAVE IA
#endif
#if defined(CERNLIB_UNIVAC)
      DIMENSION IA(64)
#endif
#if defined(CERNLIB_NORD)||defined(CERNLIB_UNIVAC)||defined(CERNLIB_HPUX)
      DIMENSION ISTART(210),IX( 751),IY( 751)
      DIMENSION IX11( 90),IY11( 90)
      EQUIVALENCE (IX11(1),IX(  1)),(IY11(1),IY(  1))
      DIMENSION IX12( 90),IY12( 90)
      EQUIVALENCE (IX12(1),IX( 91)),(IY12(1),IY( 91))
      DIMENSION IX13( 90),IY13( 90)
      EQUIVALENCE (IX13(1),IX(181)),(IY13(1),IY(181))
      DIMENSION IX14( 90),IY14( 90)
      EQUIVALENCE (IX14(1),IX(271)),(IY14(1),IY(271))
      DIMENSION IX15( 90),IY15( 90)
      EQUIVALENCE (IX15(1),IX(361)),(IY15(1),IY(361))
      DIMENSION IX16( 90),IY16( 90)
      EQUIVALENCE (IX16(1),IX(451)),(IY16(1),IY(451))
      DIMENSION IX17( 90),IY17( 90)
      EQUIVALENCE (IX17(1),IX(541)),(IY17(1),IY(541))
      DIMENSION IX18( 90),IY18( 90)
      EQUIVALENCE (IX18(1),IX(631)),(IY18(1),IY(631))
      DIMENSION IX19( 31),IY19( 31)
      EQUIVALENCE (IX19(1),IX(721)),(IY19(1),IY(721))
#endif
#if (!defined(CERNLIB_CDC))&&(!defined(CERNLIB_CVX))&&(!defined(CERNLIB_CRAY))&&(!defined(CERNLIB_NORD))&&(!defined(CERNLIB_UNIVAC))&&(!defined(CERNLIB_HPUX))
      DIMENSION IA(256)
      DIMENSION ISTART(210),IX( 751),IY( 751)
      DIMENSION IX11(108),IY11(108)
      EQUIVALENCE (IX11(1),IX(  1)),(IY11(1),IY(  1))
      DIMENSION IX12(108),IY12(108)
      EQUIVALENCE (IX12(1),IX(109)),(IY12(1),IY(109))
      DIMENSION IX13(108),IY13(108)
      EQUIVALENCE (IX13(1),IX(217)),(IY13(1),IY(217))
      DIMENSION IX14(108),IY14(108)
      EQUIVALENCE (IX14(1),IX(325)),(IY14(1),IY(325))
      DIMENSION IX15(108),IY15(108)
      EQUIVALENCE (IX15(1),IX(433)),(IY15(1),IY(433))
      DIMENSION IX16(108),IY16(108)
      EQUIVALENCE (IX16(1),IX(541)),(IY16(1),IY(541))
      DIMENSION IX17(103),IY17(103)
      EQUIVALENCE (IX17(1),IX(649)),(IY17(1),IY(649))
#endif
#if defined(CERNLIB_IPSC)||defined(CERNLIB_ALLIANT)||defined(CERNLIB_MACMPW)
      SAVE IA
      DATA (IX11(I),I=1,50)/
     +'1969C7D6'X,'217DC699'X,'269E79A4'X,'00FDF864'X,'2185E716'X,
     +'0000003F'X,'1C6DA696'X,'2696489E'X,'27663966'X,'0000003F'X,
     +'238266D6'X,'269E79A5'X,'1A6DE864'X,'00000FD9'X,'3FA198D6'X,
     +'0003F8E3'X,'1B69B956'X,'279A485E'X,'1E8649A7'X,'00FD969B'X,
     +'208A5996'X,'1B69A6DD'X,'2692181D'X,'219269E7'X,'3F69B760'X,
     +'19FDD9D6'X,'00000FE7'X,'1A69B796'X,'2692175B'X,'229669E7'X,
     +'1965A6DE'X,'258DF71A'X,'1E8A59A6'X,'0000003F'X,'208E5996'X,
     +'1965A71F'X,'2381F71A'X,'239669A5'X,'3F69B7A0'X,'20FD8817'X,
     +'3F95BFE8'X,'19FD9655'X,'279E6962'X,'19FE2966'X,'279E6962'X,
     +'3F662966'X,'23967A16'X,'1969B75F'X,'1F75B699'X,'3FA27963'X/
      DATA (IX11(I), I=51,108)/
     +'19FD9655'X,'279A58E0'X,'208E59A7'X,'00000FD9'X,'1AFDA696'X,
     +'3F89AFE7'X,'0003F9DA'X,'1AFDA696'X,'3F89AFE7'X,'23967A16'X,
     +'1969B75F'X,'1F75B699'X,'28A27963'X,'00FE88FF'X,'27FD9655'X,
     +'3F9D9FE7'X,'00FE081C'X,'228E4918'X,'1A6DC7A0'X,'00000FDA'X,
     +'27FD9655'X,'3F9DEFD9'X,'1AFDA696'X,'00000FE6'X,'18FD8614'X,
     +'3F828FE0'X,'0003FA28'X,'19FD9655'X,'3F9E7FE7'X,'1969C795'X,
     +'1C699618'X,'279A489E'X,'249A7A28'X,'0003F7A2'X,'19FD9655'X,
     +'279E6962'X,'3F662966'X,'1969C795'X,'1C699618'X,'279A489E'X,
     +'249A7A28'X,'2787F7A2'X,'0000003F'X,'19FD9655'X,'279E6962'X,
     +'3F662966'X,'0003F9E0'X,'1E8A59D6'X,'1B69965B'X,'279A58DD'X,
     +'1B7A2967'X,'00000FD9'X,'19FE0818'X,'00000FE7'X,'1C699655'X,
     +'279A485F'X,'00000FE7'X,'28FE0617'X/
      DATA (IX12(I),I=1,50)/
     +'00000FE0'X,'20FDB594'X,'3F960FDB'X,'0003F96A'X,'27FE7656'X,
     +'00000FD9'X,'3F820617'X,'0003F828'X,'19FD99D6'X,'3F9D9FE7'X,
     +'20FD8817'X,'3F95BFE8'X,'19FD9655'X,'279E6962'X,'19FE2966'X,
     +'279E6962'X,'3F662966'X,'1AFDA696'X,'00000FE6'X,'20FD8817'X,
     +'3FA18FE8'X,'1AFDA696'X,'3F89AFE7'X,'0003F9DA'X,'19FD99D6'X,
     +'3F9D9FE7'X,'27FD9655'X,'3F9D9FE7'X,'1969C795'X,'1C699618'X,
     +'279A489E'X,'249A7A28'X,'2377F7A2'X,'0000003F'X,'00FE081C'X,
     +'27FD9655'X,'3F9DEFD9'X,'20FD8817'X,'00000FE8'X,'18FD8614'X,
     +'3F828FE0'X,'0003FA28'X,'19FD9655'X,'3F9E7FE7'X,'1DFE7657'X,
     +'3F9D9FE3'X,'1969C795'X,'1C699618'X,'279A489E'X,'249A7A28'X/
      DATA (IX12(I), I=51,108)/
     +'0003F7A2'X,'27FD9655'X,'3F9D9FE7'X,'19FD9655'X,'279E6962'X,
     +'3F662966'X,'3F660657'X,'2767F9D9'X,'0000003F'X,'19FE0818'X,
     +'00000FE7'X,'1B699657'X,'2081F79D'X,'259A79FF'X,'3F8218A3'X,
     +'1EFE0816'X,'1A65969B'X,'2696279B'X,'229669E7'X,'00000FDE'X,
     +'19FE7656'X,'00000FE7'X,'17FE0815'X,'1C6DA658'X,'2696485F'X,
     +'00FE9A27'X,'1969D656'X,'217DC699'X,'269E79A4'X,'0003F9E3'X,
     +'18FE0814'X,'3FA18FE8'X,'00FE081C'X,'1A69E79A'X,'268A279E'X,
     +'3F7A28A6'X,'22FDE796'X,'26966FE2'X,'1E8A59E7'X,'1B69965B'X,
     +'3F9E58DD'X,'258DD6D9'X,'229679E6'X,'1A6596DE'X,'0003F69B'X,
     +'20FE081B'X,'3F82181F'X,'27FDA856'X,'3FA1AFE0'X,'0003F9D9'X,
     +'3F628614'X,'1C6DA697'X,'2696489E'X,'20824966'X,'2181F83F'X,
     +'00000FE0'X,'2AA68A54'X,'23967A6A'X/
      DATA (IX13(I),I=1,50)/
     +'1D7A0862'X,'228E4FDC'X,'1B75E7E0'X,'175965D9'X,'0003F5D8'X,
     +'2181F81B'X,'207E0FE0'X,'0003F821'X,'2181F81B'X,'1F821FE0'X,
     +'1F821860'X,'0000003F'X,'3FA18A14'X,'1EFDD759'X,'3F91DFDE'X,
     +'0003F91D'X,'23FE2899'X,'3F8DCFE3'X,'0003F8DC'X,'3F6E56D8'X,
     +'256FF95B'X,'0000003F'X,'1E7E0899'X,'218607DE'X,'1F7E0FDF'X,
     +'218A2860'X,'218A285D'X,'3F81F7E0'X,'1F82185F'X,'2281F79E'X,
     +'0000003F'X,'22860799'X,'1F7E0862'X,'21860FE1'X,'1F79E7E0'X,
     +'1F79E7E3'X,'3F821860'X,'2181F7E1'X,'1E8218A2'X,'0000003F'X,
     +'3F81748F'X,'20C3F816'X,'0000003F'X,'1865C814'X,'1F75B658'X,
     +'27920FE0'X,'23967A28'X,'1F83F821'X,'22860FDE'X,'00FE27BF'X/
      DATA (IX13(I), I=51,108)/
     +'1C79F814'X,'1961865B'X,'20FE071A'X,'279648A1'X,'249A7A28'X,
     +'00000FE0'X,'1769E814'X,'299A283F'X,'2079A5FF'X,'208A6A7F'X,
     +'0000003F'X,'26922814'X,'26A29A68'X,'2387F864'X,'1F863924'X,
     +'1F75C71D'X,'1869C7FF'X,'1C6985D7'X,'1F83F81E'X,'22860FDE'X,
     +'00FE27BF'X,'28A6AA93'X,'208A49A7'X,'165D869E'X,'207D85D6'X,
     +'1C7A0861'X,'2379C6DB'X,'2AAA99E5'X,'0000003F'X,'27FE7655'X,
     +'00000FD9'X,'1DFDA998'X,'1A6DD79E'X,'2485D6DA'X,'228A3FE6'X,
     +'259A6963'X,'00000FE3'X,'258E2815'X,'2BAEAA67'X,'23967A6A'X,
     +'196DD7A2'X,'16555597'X,'1E75B657'X,'00000FE0'X,'1C71D7DC'X,
     +'248E17DD'X,'3F7E18E4'X,'1E7BF75D'X,'20FDF7FF'X,'3F861FE0'X,
     +'238FF8A2'X,'0000003F'X,'2491C71C'X,'3F75DFDC'X,'1F7FF79E'X,
     +'21FE083F'X,'3F8A2FE1'X,'0003F8E3'X/
      DATA (IX14(I),I=1,50)/
     +'2095B81B'X,'20FDD83F'X,'3F7E0FE3'X,'0003F860'X,'206E581B'X,
     +'20FE383F'X,'3F860FDD'X,'0003F7E0'X,'1A99C81A'X,'2083F824'X,
     +'20FDA83F'X,'3F920FDC'X,'0003F9A0'X,'3F9A9993'X,'17FE3A23'X,
     +'00000FE8'X,'3F8A0798'X,'20FE581B'X,'00000FE0'X,'3F697693'X,
     +'18FDD61D'X,'00000FE9'X,'3F8A0798'X,'20FE581B'X,'00000FE0'X,
     +'2181F81B'X,'00FDF821'X,'2181F81B'X,'00000FE0'X,'207E085B'X,
     +'3F7E0861'X,'00FD7A55'X,'1E822919'X,'2281E75D'X,'00000FE4'X,
     +'2281E719'X,'1E8228E3'X,'00000FDC'X,'00FE95D3'X,'17FE0813'X,
     +'00000FE9'X,'17FE95D3'X,'00000FE9'X,'1BFE0818'X,'3F6E5FE5'X,
     +'1D75E81B'X,'238E281E'X,'0003F822'X,'3F82079B'X,'2385F75B'X/
      DATA (IX14(I), I=51,108)/
     +'3F8DD8A3'X,'2385F75B'X,'2183F863'X,'1D7E18E3'X,'0000003F'X,
     +'21FE185B'X,'0003F91C'X,'207DD79B'X,'1F8228E2'X,'3F89EFDD'X,
     +'1D7A089B'X,'238A079D'X,'3F75E822'X,'1DFDF8DB'X,'00000FE3'X,
     +'1F75D7DB'X,'1F8638E1'X,'1F75D7FF'X,'3F8638E1'X,'1E8228DB'X,
     +'238A079D'X,'3F7A08A3'X,'26FE6997'X,'1B75F8A4'X,'1F75B69A'X,
     +'00FE6922'X,'1AFDA696'X,'258E179C'X,'218E59A6'X,'00FDA71E'X,
     +'1F8A4997'X,'1B69A6DD'X,'269227DD'X,'0000003F'X,'26FE6997'X,
     +'1B75F8A4'X,'1F75B69A'X,'00FE6922'X,'259A6697'X,'1B75F8A4'X,
     +'1F75B69A'X,'00FE6922'X,'2086395B'X,'3F91DFE0'X,'24966997'X,
     +'26FDD7E2'X,'1B75F8A4'X,'1F75B69A'X,'00FE6922'X,'1BFDB6D7'X,
     +'2696381E'X,'00000FE6'X,'208607DC'X,'3F820FDF'X,'218A181B'X,
     +'20861FE0'X,'0003F71E'X,'25FDB6D7'X/
      DATA (IX15(I),I=1,50)/
     +'3F99FFDB'X,'00FE081C'X,'15FD5551'X,'207DD698'X,'258E0FE0'X,
     +'3FAEBAA8'X,'1BFDB6D7'X,'2696381E'X,'00000FE6'X,'1A6DD7D7'X,
     +'227DD6DA'X,'269E79A4'X,'00FDF8A4'X,'1AFDA696'X,'258E179C'X,
     +'218E59A6'X,'00FDA71E'X,'26FE6997'X,'1B75F8A4'X,'1F75B69A'X,
     +'00FE6922'X,'1DFDD759'X,'3F96281E'X,'1F8A5998'X,'2379C6DC'X,
     +'229669A5'X,'00FDB71F'X,'2386081B'X,'3F91DFE5'X,'1E71B6D7'X,
     +'26FE68E1'X,'00000FE6'X,'26FE0698'X,'00000FE0'X,'20FDC615'X,
     +'3F920FDC'X,'0003F928'X,'26FE66D8'X,'00000FDB'X,'26FE0698'X,
     +'1969C7A0'X,'0000003F'X,'1BFDB998'X,'3F99BFE6'X,'1A6DD7D6'X,
     +'1E71A659'X,'289E58E0'X,'238A17FF'X,'3FA279A5'X,'1D7E18D7'X/
      DATA (IX15(I), I=51,108)/
     +'3F65A6DC'X,'269E7963'X,'20FE08E5'X,'24965922'X,'1C75F863'X,
     +'00000FDB'X,'1D71A617'X,'2086181F'X,'209A7A3F'X,'0003F75E'X,
     +'1B75F897'X,'1E71B69A'X,'259648A0'X,'1F7E08A4'X,'3F9A48A0'X,
     +'1F8A4958'X,'3F85E75D'X,'1C6DB761'X,'3F96385E'X,'1F7E0898'X,
     +'26FE68E0'X,'1B6DC7E2'X,'228A179C'X,'00FDE7E1'X,'1C6985D6'X,
     +'3F69C75D'X,'248A079C'X,'3F8A59A6'X,'1B657595'X,'1C6DB71C'X,
     +'248E17DD'X,'239669A5'X,'23860821'X,'0003FA25'X,'1D75E81A'X,
     +'3F8E281E'X,'27FD9757'X,'1D7E3966'X,'1F79CFDC'X,'3F9238A1'X,
     +'1E75B658'X,'3F6A0FE6'X,'1CFD7756'X,'217DD6DB'X,'259FF963'X,
     +'299E5924'X,'00000FEA'X,'1B71D697'X,'259A7FDA'X,'3F69D823'X,
     +'1F7E0898'X,'23FE68E0'X,'1F75D7A0'X,'1E8BF922'X,'2175B6DC'X,
     +'3F7A08A2'X,'1B71E818'X,'217DD71B'X/
      DATA (IX16(I),I=1,50)/
     +'259A6963'X,'00FE08A4'X,'23FDA795'X,'17FE6964'X,'00FE9719'X,
     +'1D71B6D7'X,'2696385F'X,'208A4966'X,'3F5DB71E'X,'1B75FA57'X,
     +'1E71B69A'X,'259648A0'X,'00FE18E4'X,'18FDE856'X,'00FE875A'X,
     +'1C6985D6'X,'1D6DB75D'X,'279A489F'X,'00000FE7'X,'1865B755'X,
     +'1F71A658'X,'28A27962'X,'1E822926'X,'00000FDB'X,'2375B657'X,
     +'27A3F9E5'X,'3F6196E5'X,'15FDC914'X,'1B6DA616'X,'1F75B69A'X,
     +'29A26922'X,'0000003F'X,'1761A714'X,'1D6D9617'X,'207E0FDF'X,
     +'289E58E1'X,'00FE69E8'X,'1BFE0818'X,'3F95BFE5'X,'00FE081E'X,
     +'209D9819'X,'2066783F'X,'0000003F'X,'22FDF7D9'X,'24925FE2'X,
     +'1C7A3965'X,'3F96475C'X,'2596475C'X,'1C75F8A4'X,'3F71D75C'X/
      DATA (IX16(I), I=51,108)/
     +'21FE081E'X,'21820FE1'X,'0003F821'X,'23FDE81B'X,'3F91DFE1'X,
     +'0003F91D'X,'3F6E56D8'X,'2386079C'X,'21860823'X,'21820FE3'X,
     +'0003F821'X,'279E6997'X,'20862926'X,'23FDD79F'X,'1E7E0862'X,
     +'1A65969C'X,'00000FDA'X,'2186081E'X,'21820FE0'X,'0003F821'X,
     +'2186081E'X,'20821FE0'X,'00FE0861'X,'3F95B958'X,'1FFDE79B'X,
     +'3F8DEFDF'X,'0003F8DE'X,'22FE185B'X,'3F89DFE2'X,'0003F89D'X,
     +'3F95B958'X,'256FF95B'X,'0000003F'X,'1E79F85A'X,'1E7FF860'X,
     +'1EFE087F'X,'1E82185F'X,'1E7E1860'X,'1EFE183F'X,'1E821FDF'X,
     +'00FE17DE'X,'228A17DB'X,'2287F7E0'X,'22FE07FF'X,'2281F7E1'X,
     +'2285F7E0'X,'22FDF83F'X,'2281FFE1'X,'00FDF862'X,'3F81A5D5'X,
     +'20A7F819'X,'0000003F'X,'217DE795'X,'1657F8A2'X,'1B69A658'X,
     +'269A58DD'X,'3FAEAA27'X,'1E7FFAD5'X/
      DATA (IX17(I),I=1,50)/
     +'3F86285F'X,'20FE0818'X,'3F860FDF'X,'1F83F85F'X,'1C7FF71E'X,
     +'248A183F'X,'20FE487F'X,'1EFD869C'X,'2483F61A'X,'268BFA26'X,
     +'1D7A0FE8'X,'1D7A0FDD'X,'238E283F'X,'3F8E283F'X,'20FE0818'X,
     +'3F820FE0'X,'2183F7E0'X,'20FE17FF'X,'2183F79F'X,'2281EFE2'X,
     +'1B71E83F'X,'2592283F'X,'2281E73F'X,'1C7A0FE4'X,'3F69965A'X,
     +'279A48A0'X,'1E73F9A7'X,'20FE48A0'X,'1969B75E'X,'20FDA618'X,
     +'279A58E2'X,'1BFE6A28'X,'3F96381D'X,'20FDF818'X,'3F85FFE1'X,
     +'28A268E0'X,'27A27967'X,'218E48E5'X,'1B75C75F'X,'196D9619'X,
     +'2075A618'X,'0000003F'X,'218A391A'X,'1D71C760'X,'1E821860'X,
     +'2385F75D'X,'00000FE4'X,'23FE375B'X,'00000FDD'X,'29AABAD7'X/
      DATA (IX17(I), I=51,103)/
     +'1A761926'X,'1A6175D8'X,'299A485D'X,'00FEBAEA'X,'24967A16'X,
     +'1C79F862'X,'1961865B'X,'217DE71B'X,'289E5922'X,'00000FE8'X,
     +'1969C7D9'X,'217DC699'X,'269E79A4'X,'00FDF864'X,'2699A69A'X,
     +'00000FDA'X,'209D9819'X,'0000003F'X,'2681A81A'X,'00000FE0'X,
     +'1D61E818'X,'288E581B'X,'0003F822'X,'239A3897'X,'23963FE2'X,
     +'00FE56BF'X,'1DFE081B'X,'3F8E281E'X,'00FE281E'X,'1D69D797'X,
     +'1D6DDFDE'X,'00FE66FF'X,'1DFE081B'X,'3F8E281E'X,'00FE281E'X,
     +'2182085E'X,'0003F821'X,'2186081E'X,'00000FE0'X,'2182085E'X,
     +'0003F821'X,'00FDC91B'X,'1F7E089D'X,'0003F8A0'X,'2186079C'X,
     +'0003F7A0'X,'00FE471A'X,'1CFE081A'X,'00000FE4'X,'1CFE471A'X,
     +'00000FE4'X,'1DFE081B'X,'3F763FE3'X/
      DATA (IY11(I),I=1,50)/
     +'1D61552A'X,'29A68960'X,'18760968'X,'00FD4515'X,'2951762A'X,
     +'0000003F'X,'1559866A'X,'18595514'X,'29A5F71A'X,'0000003F'X,
     +'1C71452A'X,'268E179D'X,'27A29A68'X,'00000FE5'X,'208A252A'X,
     +'0003FA54'X,'1C75452A'X,'2179C6DB'X,'29A689A3'X,'00FE59E8'X,
     +'145155EA'X,'2689D615'X,'26A29A68'X,'1C75F8A3'X,'3F89F75C'X,
     +'1482952A'X,'00000FD4'X,'195D552A'X,'2079D71B'X,'29A27962'X,
     +'22967A29'X,'1B71D7A0'X,'145155D9'X,'0000003F'X,'2181E6EA'X,
     +'1A6DE821'X,'15514557'X,'289606D7'X,'3F9A8A69'X,'14829529'X,
     +'3F8A2829'X,'1482952A'X,'1A616554'X,'1E81E75C'X,'258A07DE'X,
     +'3FA69A27'X,'1455766B'X,'1C657554'X,'29A26921'X,'3F926A29'X/
      DATA (IY11(I), I=51,108)/
     +'1482952A'X,'1C657554'X,'29A26921'X,'00000FE9'X,'14829529'X,
     +'2079E814'X,'0003FA69'X,'14829528'X,'3F79E814'X,'1455766B'X,
     +'1C657554'X,'29A26921'X,'21926A29'X,'00FE1860'X,'1482952B'X,
     +'3F79E829'X,'00FE9524'X,'289E4528'X,'249E8A69'X,'00000FE2'X,
     +'1482952A'X,'3FA5D822'X,'29829527'X,'00000FE9'X,'1482952C'X,
     +'20A54829'X,'0003FA54'X,'1482952B'X,'3FA54829'X,'195D552B'X,
     +'289A485C'X,'249A8A69'X,'155D9721'X,'0003F514'X,'1482952A'X,
     +'1B616554'X,'3F7DF79D'X,'195D552B'X,'289A485C'X,'249A8A69'X,
     +'155D9721'X,'2B960514'X,'0000003F'X,'1482952A'X,'1A616554'X,
     +'2079E75C'X,'0003FA5E'X,'145155EA'X,'1C6D95D5'X,'238607DD'X,
     +'28A69A26'X,'00000FE6'X,'14829528'X,'00000FD4'X,'289A352B'X,
     +'239A8A69'X,'00000FD4'X,'14829529'X/
      DATA (IY12(I),I=1,50)/
     +'00000FE9'X,'1482952C'X,'20A54829'X,'0003FA54'X,'1482952A'X,
     +'00000FE9'X,'20A5E529'X,'0003F794'X,'1482952A'X,'3FA69814'X,
     +'14829529'X,'3F8A2829'X,'1482952A'X,'1A616554'X,'1E81E75C'X,
     +'258A07DE'X,'3FA69A27'X,'14829527'X,'00000FD4'X,'14829529'X,
     +'3FA69829'X,'14829529'X,'2079E814'X,'0003FA69'X,'1482952A'X,
     +'3FA69814'X,'1482952B'X,'3F79E829'X,'195D552B'X,'289A485C'X,
     +'249A8A69'X,'155D9721'X,'1E7A0514'X,'0000003F'X,'00FE9524'X,
     +'1482952A'X,'3FA5D822'X,'14829529'X,'00000FE9'X,'1482952C'X,
     +'20A54829'X,'0003FA54'X,'1482952B'X,'3FA54829'X,'1E814529'X,
     +'3FA6981E'X,'195D552B'X,'289A485C'X,'249A8A69'X,'155D9721'X/
      DATA (IY12(I), I=51,108)/
     +'0003F514'X,'1482952B'X,'3F514829'X,'1482952A'X,'1B616554'X,
     +'3F7DF79D'X,'20A5E529'X,'29A60514'X,'0000003F'X,'14829528'X,
     +'00000FD4'X,'14557669'X,'296D7554'X,'14557660'X,'3F6D7554'X,
     +'1982952A'X,'2281D6DA'X,'228E4923'X,'1969B760'X,'00000FD9'X,
     +'2982952A'X,'00000FD4'X,'1A82952B'X,'2285F6DA'X,'1F8628E3'X,
     +'00FDA69B'X,'1E8A9A6A'X,'145155DA'X,'2279A5D5'X,'0003FA69'X,
     +'2082962C'X,'3FA69820'X,'00FF0424'X,'2279E6A6'X,'228A69A2'X,
     +'3F69A79E'X,'1082D42A'X,'1961782D'X,'145155D8'X,'1C6D95D5'X,
     +'208A07DD'X,'1F79C6D9'X,'29A268A0'X,'24966A29'X,'0003F9A5'X,
     +'27822525'X,'3F9E8A68'X,'1083042B'X,'2075D830'X,'0003F8E3'X,
     +'3FA605EC'X,'15598669'X,'18595514'X,'227DD71A'X,'28A689E0'X,
     +'00000FE7'X,'124D246C'X,'13450411'X/
      DATA (IY13(I),I=1,50)/
     +'2CA1C615'X,'1851282E'X,'2FB6BA24'X,'2DBAFC30'X,'0003FBEE'X,
     +'1C75C6E5'X,'29A2781B'X,'0003F9E8'X,'1C75C6E5'X,'28A6881B'X,
     +'2DB2AA27'X,'0000003F'X,'3FA605EC'X,'10830427'X,'20410830'X,
     +'0003FC30'X,'10830427'X,'20410830'X,'0003FC30'X,'2085D668'X,
     +'269A08A2'X,'0000003F'X,'14491427'X,'1D6D9616'X,'154D181F'X,
     +'1E71A617'X,'289A48A0'X,'20BEDAE9'X,'289E58E1'X,'30BEEB2A'X,
     +'0000003F'X,'14491427'X,'1D6D9616'X,'154D181F'X,'1E71A617'X,
     +'289A48A0'X,'20BEDAE9'X,'289E58E1'X,'30BEEB2A'X,'0000003F'X,
     +'209DB6F0'X,'29220A5C'X,'0000003F'X,'2179A5AC'X,'259A6963'X,
     +'1E696823'X,'269A58E1'X,'278E08E5'X,'2A9E382A'X,'00FEAAA0'X/
      DATA (IY13(I), I=51,108)/
     +'165D972C'X,'207595D6'X,'1C82A962'X,'175965D9'X,'258A0759'X,
     +'00000FEA'X,'2075856C'X,'20758560'X,'2BA23820'X,'2BA23820'X,
     +'0000003F'X,'269A58AC'X,'1E7E18E5'X,'1D7E07DE'X,'1659765B'X,
     +'1F75B657'X,'1F79E7E0'X,'269A58E1'X,'278A08A5'X,'2A9E282A'X,
     +'00FEAAA0'X,'1B6DC76D'X,'289A379C'X,'259E8A69'X,'1B720863'X,
     +'155155D9'X,'267DC657'X,'27A29A68'X,'0000003F'X,'1982766B'X,
     +'00000FE7'X,'19826668'X,'1C75D71A'X,'1A69965A'X,'258E2819'X,
     +'228E59A6'X,'00000FE2'X,'2592382B'X,'1F863925'X,'1C6DB71D'X,
     +'259648DD'X,'1D7E18E4'X,'1D71B6DC'X,'00000FE0'X,'217DD724'X,
     +'218E4923'X,'2071C75F'X,'227A085F'X,'1D823760'X,'208DD823'X,
     +'217E089E'X,'0000003F'X,'1C924724'X,'208DD81C'X,'237608DD'X,
     +'1D823760'X,'208DD823'X,'0003F8DD'X/
      DATA (IY14(I),I=1,50)/
     +'1A8E36A5'X,'1D822760'X,'208A0822'X,'0003F8A0'X,'2675D9A5'X,
     +'2381E8E0'X,'207A081E'X,'0003F7A0'X,'1E7A56A6'X,'1A8206A5'X,
     +'2081E820'X,'20960825'X,'0003F7A0'X,'208A07AD'X,'2082581B'X,
     +'00000FE0'X,'206976A8'X,'1881D61D'X,'00000FE9'X,'208A07AD'X,
     +'2082581B'X,'00000FE0'X,'209A99A8'X,'17823A23'X,'00000FE8'X,
     +'155155A5'X,'00FDA657'X,'28A689E5'X,'00000FE7'X,'27A29A25'X,
     +'3FB6CAA8'X,'00FF042B'X,'19552427'X,'2EAE789E'X,'00000FF0'X,
     +'19552427'X,'2EAE789E'X,'00000FF0'X,'00FE082D'X,'208295ED'X,
     +'00000FE0'X,'2381D76D'X,'00000FE3'X,'1D8266A8'X,'3F8DD823'X,
     +'2179C6E5'X,'1E863923'X,'0003F6DC'X,'3F91B765'X,'1C6DB725'X/
      DATA (IY14(I), I=51,108)/
     +'3F92481E'X,'1C6DB725'X,'1F7E07DE'X,'239248E0'X,'0000003F'X,
     +'1B8246E5'X,'0003F861'X,'1E79F6E5'X,'2492385F'X,'3F6DB823'X,
     +'1E71B6E5'X,'218E48E1'X,'3F85F79F'X,'1B8246E5'X,'00000FDB'X,
     +'1F79C6E5'X,'1B6DC79F'X,'248E07E0'X,'3F7E08E4'X,'208607A5'X,
     +'1E71B71E'X,'3F9248E1'X,'1E8296EA'X,'1E71B6DC'X,'29A268E1'X,
     +'00FE6A29'X,'1E829529'X,'1E71B6DC'X,'29A268E1'X,'00FE6A29'X,
     +'1B6DC7A9'X,'268E179C'X,'26A29A68'X,'0000003F'X,'1E82952A'X,
     +'1E71B6DC'X,'29A268E1'X,'00FE6A29'X,'1D7E1869'X,'1E71B6DC'X,
     +'29A268E1'X,'00FE6A29'X,'18554527'X,'3F6DB829'X,'2FBAB6EA'X,
     +'1E82FC30'X,'1E71B6DC'X,'29A268E1'X,'00FE6A29'X,'1F82952A'X,
     +'1F71B6DC'X,'00000FE9'X,'13515524'X,'3FA5B814'X,'13515525'X,
     +'2FB1B814'X,'0003FC30'X,'1B829528'X/
      DATA (IY15(I),I=1,50)/
     +'3FA61825'X,'00FE9524'X,'1F8296EF'X,'1F71B6DC'X,'1B71F829'X,
     +'3FA5F71B'X,'1F8296EA'X,'1F71B6DC'X,'00000FE9'X,'2179C6EA'X,
     +'29A689A3'X,'1E8639A8'X,'00FDB6DC'X,'1E8306E9'X,'1E71B6DC'X,
     +'29A268E1'X,'00FE6A29'X,'1E8306EA'X,'1E71B6DC'X,'29A268E1'X,
     +'00FE6A29'X,'218296E6'X,'3F6DB71E'X,'1B6DC7A9'X,'2286079C'X,
     +'29A26963'X,'00FE6A29'X,'29A25527'X,'3F6DB829'X,'29A256EA'X,
     +'1B825A29'X,'00000FE9'X,'1B8296E8'X,'00000FE9'X,'1B8296EB'X,
     +'20A5B829'X,'0003FA5B'X,'1B8296E9'X,'00000FE9'X,'1B8296E8'X,
     +'30C2FB69'X,'0000003F'X,'1B8296E9'X,'3FA6981B'X,'2079C6EB'X,
     +'29A689A3'X,'1B7A2968'X,'1E71B6E0'X,'3FA69A26'X,'1B5D552A'X/
      DATA (IY15(I), I=51,108)/
     +'20C2889E'X,'1B656514'X,'1D81D75C'X,'2796281E'X,'27A29A68'X,
     +'00000FE4'X,'1B6DC7AA'X,'2992075C'X,'2981E6E0'X,'0003FC2D'X,
     +'1E71B6E9'X,'29A27921'X,'208E6A29'X,'155D96DD'X,'3F5D5514'X,
     +'1B6DC768'X,'2086079C'X,'289A48A1'X,'3F9A8A69'X,'17595527'X,
     +'19819658'X,'258E075B'X,'2FB6BA67'X,'00FEEC30'X,'1B6DD7EA'X,
     +'20A6279C'X,'1B6DC7A2'X,'3FC2581D'X,'1B6DD7EA'X,'289A379C'X,
     +'23968A69'X,'145586E0'X,'1E6D8594'X,'0003F8A0'X,'289A26E5'X,
     +'3F967A69'X,'1C8296E9'X,'2181C6DB'X,'238A1821'X,'3FA29A68'X,
     +'16554528'X,'3FA5B829'X,'1F8306EB'X,'28A699E4'X,'226E08A6'X,
     +'27A69A26'X,'00000FE5'X,'2685B6E9'X,'2079B829'X,'3FA689A3'X,
     +'17595528'X,'19819658'X,'217DD6DA'X,'238A08A2'X,'2CAA89A4'X,
     +'3FC30BED'X,'2179C6E9'X,'29A689E4'X/
      DATA (IY16(I),I=1,50)/
     +'1D8239A8'X,'00FDB6DC'X,'1B8296EB'X,'1E8299A1'X,'00FDB6DC'X,
     +'289E4869'X,'239A8A69'X,'1B6DC760'X,'3FC2179C'X,'1E71B6EB'X,
     +'29A27921'X,'208E6A29'X,'00FDB71D'X,'1E8296EA'X,'00FDB6DC'X,
     +'1B6DD7EA'X,'299E479C'X,'1E8A6A29'X,'00000FDB'X,'227DD72B'X,
     +'29A689E5'X,'1D8239A8'X,'2685D6DB'X,'00000FF0'X,'2E75B6E9'X,
     +'1D6E0C30'X,'3FC2EAE0'X,'1F83052B'X,'1E71B6DD'X,'29A689A3'X,
     +'1B7A39A8'X,'0000003F'X,'227DC6EB'X,'28A69A25'X,'28961825'X,
     +'22968A69'X,'00FDB71F'X,'208266E8'X,'3F9A6820'X,'00FE56A2'X,
     +'18924627'X,'2871CA20'X,'0000003F'X,'1682A5A8'X,'1B69A82A'X,
     +'1A65969B'X,'208A179C'X,'248A075C'X,'249669A5'X,'3F9248E3'X/
      DATA (IY16(I), I=51,108)/
     +'1B8206E3'X,'24923820'X,'0003F8E3'X,'1A8256A6'X,'2079E825'X,
     +'0003F861'X,'3F9A06A8'X,'1C6DB725'X,'1F8207DE'X,'2492381E'X,
     +'0003F8E3'X,'176185E9'X,'1D698596'X,'178299E3'X,'289A3759'X,
     +'28A29AAA'X,'00000FE9'X,'1E7DF7A3'X,'2492381E'X,'0003F8E3'X,
     +'1E7DF7A3'X,'2392481E'X,'00FE7963'X,'3F9A06A8'X,'1682A5A5'X,
     +'2059682A'X,'0003FAAA'X,'1682A5A5'X,'2059682A'X,'0003FAAA'X,
     +'2085D668'X,'269A08A2'X,'0000003F'X,'1A6175A5'X,'1A5E079C'X,
     +'1881F720'X,'207DE71A'X,'289A48A1'X,'26824860'X,'26922829'X,
     +'00FEAA68'X,'1A6175A6'X,'1A5E079C'X,'1881F720'X,'207DE71A'X,
     +'289A48A1'X,'26824860'X,'26922829'X,'00FEAA68'X,'2095D769'X,
     +'2652099D'X,'0000003F'X,'145155EB'X,'26A205D5'X,'1865E8A4'X,
     +'1E6585D7'X,'20A26922'X,'29A20A28'X/
      DATA (IY17(I),I=1,50)/
     +'3FA29AAA'X,'218216E8'X,'20AA182A'X,'186E0AAA'X,'15620556'X,
     +'155986E0'X,'1B815620'X,'1A81B659'X,'196E06DA'X,'1A6A06D9'X,
     +'1D71B81B'X,'2075B820'X,'2075C6E0'X,'3F81D6E0'X,'1C8195E8'X,
     +'208E181E'X,'2A9E0AA7'X,'1582AAA0'X,'17560617'X,'185D8818'X,
     +'1C75C660'X,'1C75C660'X,'1D71D760'X,'2285E81D'X,'208A1822'X,
     +'208A285E'X,'228A08A1'X,'238228A1'X,'27A289E6'X,'238289E5'X,
     +'27A289E6'X,'288289E5'X,'3FA289E8'X,'2782A9E8'X,'20AAA82A'X,
     +'239A8A27'X,'1B7608A2'X,'155986DA'X,'1A6D8595'X,'228A075B'X,
     +'27A289A3'X,'0000003F'X,'23860826'X,'20863924'X,'1B6DC79F'X,
     +'248E179C'X,'00000FE4'X,'1D823765'X,'00000FE3'X,'218E6A2B'X/
      DATA (IY17(I), I=51,103)/
     +'1D71C75E'X,'238A17DE'X,'1F8A3924'X,'00FD869D'X,'238E282A'X,
     +'1C75E862'X,'2281F75C'X,'1E8628E3'X,'1F75C71D'X,'00000FE0'X,
     +'1F71A667'X,'279E6921'X,'1C7E1926'X,'00FD965A'X,'1A9A66A6'X,
     +'00000FDA'X,'18924627'X,'0000003F'X,'20AA05A6'X,'00000FD6'X,
     +'2175D5E8'X,'1D8678E7'X,'0003F5DD'X,'2281E769'X,'2281E823'X,
     +'00FE0820'X,'1E8266E5'X,'2079D69D'X,'00FDD6DD'X,'2281E769'X,
     +'2281E823'X,'00FE0820'X,'228256A5'X,'208A39A3'X,'00FE3963'X,
     +'1B6DC723'X,'0003F7DD'X,'239248E3'X,'00000FE3'X,'238E4923'X,
     +'0003F9E5'X,'00FE56A5'X,'2179C6A4'X,'0003F963'X,'2179C6A3'X,
     +'0003F963'X,'00FE0826'X,'20824726'X,'00000FE0'X,'2281E7A6'X,
     +'00000FE2'X,'1E823765'X,'3F89E822'X/
      DATA ISTART/
     +  1,  5,  7, 11, 15, 17, 21, 26, 28, 35, 40, 42, 47, 51, 55,
     + 58, 60, 65, 67, 68, 71, 73, 75, 78, 80, 85, 88, 94, 98,103,
     +105,108,110,113,115,117,119,121,126,128,130,133,135,137,143,
     +144,146,148,151,153,155,160,162,165,168,170,174,179,181,185,
     +189,191,192,195,204,206,209,210,215,222,225,229,230,233,236,
     +239,248,257,260,267,273,278,288,296,298,304,311,319,325,329,
     +333,338,341,344,347,350,352,354,356,357,360,363,364,366,368,
     +370,373,374,376,380,382,385,388,390,394,397,401,405,409,413,
     +417,419,424,427,429,432,434,435,439,442,446,450,454,456,460,
     +462,465,467,470,472,475,477,482,489,493,498,502,507,511,517,
     +519,523,525,530,533,539,543,546,550,554,556,560,565,568,573,
     +578,580,581,584,591,594,597,598,602,608,611,614,615,618,621,
     +624,632,640,643,650,663,682,691,696,698,703,709,713,715,717,
     +719,722,725,728,731,734,736,738,740,741,743,745,746,748,750/
*
      DATA NBIT,NBITCH,NBITMX/32,8,30/
#endif
#if defined(CERNLIB_CDC)
      DATA IX11/
     +O"41373432313132343726",O"00773741444647474644",
     +O"00000000774141363426",O"46454442363433323226",
     +O"00000000774731434546",O"46474746454340463326",
     +O"00000077313233364144",O"00007743437750314326",
     +O"47464441363332334526",O"00773132333641444647",
     +O"33323233354042454626",O"41444647474644414035",
     +O"00000000007732333540",O"00000077473177354726",
     +O"46444135333232333626",O"31313233364245464747",
     +O"36424546464543373432",O"00000000000000000077",
     +O"31313234374043454626",O"43454646454340373432",
     +O"00000000007732333640",O"77453377504077304027",
     +O"47474645423177313125",O"47474645423177424546",
     +O"00000000007731424546",O"31323335374345475026",
     +O"77504745433735333231",O"47464543403177313125",
     +O"00000077314043454647",O"77423277473277323226",
     +O"00000000000000774732",O"77423277473277323226",
     +O"31323335374345475026",O"50504745433735333231",
     +O"00000000000077504377",O"77473177474777313125"/
      DATA IX12/
     +O"00000000000077404034",O"32333436404243444430",
     +O"00000000000000007732",O"77473677314777313125",
     +O"00000077463277323226",O"77405077403077303024",
     +O"00000000000000775050",O"77474777473177313125",
     +O"34323130303132343625",O"44464750504746444236",
     +O"00000000000000773642",O"47474645423177313125",
     +O"00000000007731424546",O"34323130303132343625",
     +O"44464750504746444236",O"00000000774741773642",
     +O"47474645423177313125",O"00007747407731424546",
     +O"33323131333642454726",O"33364245474746454335",
     +O"00000000000000007731",O"00000077473177404030",
     +O"47464441373432313125",O"00000000000000007747",
     +O"00000077405077403027",O"77454077334077332624",
     +O"00000000000000774552",O"00000077314777473126",
     +O"00007740507740403027",O"77473177473177314726",
     +O"77453377504077304027",O"47474645423177313125",
     +O"47474645423177424546",O"00000000007731424546",
     +O"00000077463277323226",O"77503077504077304027"/
      DATA IX13/
     +O"77423277473277323226",O"00000000000000774732",
     +O"77473177473177314726",O"77473177474777313125",
     +O"34323130303132343625",O"44464750504746444236",
     +O"00000000774335773642",O"00000000000077404034",
     +O"77473677314777313125",O"00000077504077304027",
     +O"77405077403077303024",O"00000000000000775050",
     +O"77474777473177313125",O"77473177433577473127",
     +O"34323130303132343625",O"44464750504746444236",
     +O"00000000000000773642",O"77473177474777313125",
     +O"47474645423177313125",O"00000000007731424546",
     +O"47317747317731403127",O"00000000000000000077",
     +O"00000077473177404030",O"40403736353332313127",
     +O"77404142434546474777",O"32313132333677404026",
     +O"42454647474645423633",O"00000000000000007736",
     +O"00000077473177473126",O"34333231302777404025",
     +O"00775150474645444137",O"41373432313132353126",
     +O"00007747434647474644",O"77503077503077404024",
     +O"00000000000077404034",O"46424236363232363632"/
      DATA IX14/
     +O"00000000007736424246",O"46454677424277363626",
     +O"33323131333642454747",O"45433533317747454335",
     +O"32313133364245474746",O"00000000000000773233",
     +O"77404140374077404033",O"77503277404777324126",
     +O"00000000000000774731",O"00000000007730503024",
     +O"46454442363433323227",O"41403740774040444546",
     +O"00000000000000007740",O"43454751525251505124",
     +O"42434477343536404142",O"27262627313335363740",
     +O"00000000000000772730",O"40374077404140374033",
     +O"00000000000000774041",O"37404177404140374033",
     +O"00000000773740414140",O"00000000007750305024",
     +O"77443577363677353531",O"00000000000000774435",
     +O"77433477434377424231",O"00000000000000774334",
     +O"45337745337733453330",O"00000000000000000077",
     +O"41414037363637404231",O"41424241403737407737",
     +O"77403737404142424135",O"42403736363740414137",
     +O"00000000000000000077",O"37374041424241403631",
     +O"37363637404141407741",O"77404141403736363743"/
      DATA IX15/
     +O"36404142424140373741",O"00000000000000000077",
     +O"40607740267740272217",O"00000000000000000077",
     +O"37353331303031344024",O"43454750504744407740",
     +O"42414077363740774041",O"00000000000077423677",
     +O"31303031333436374024",O"47454442414077403432",
     +O"00000077404446475050",O"51464240772732364024",
     +O"40424651774036322777",O"00000000000000000077",
     +O"46505151504644424024",O"37414344444341774144",
     +O"30323437773735343435",O"37407740363432302727",
     +O"00774236774241407736",O"40424446475051525223",
     +O"40373027262627303236",O"43363433333436404141",
     +O"00000000775252514745",O"00000077314777473125",
     +O"32333536363577324630",O"42424377464441353332",
     +O"00000077434546464543",O"53535251474543424025",
     +O"31333536424345475152",O"36353331272625252627",
     +O"00000000000000007740",O"44434137353434353734",
     +O"36367735357737414344",O"77414177404077373777",
     +O"00000000774343774242",O"77353577344444343434"/
      DATA IX16/
     +O"41774040773737773636",O"00007743437742427741",
     +O"40773540774045334033",O"00007741407737407743",
     +O"40774340774033454033",O"00007737407741407735",
     +O"40407740443246344032",O"77444077344077324077",
     +O"00000000000000774640",O"27774350437746514623",
     +O"00000000000000007750",O"40774540337742403630",
     +O"00000000000000007740",O"30773530357732273223",
     +O"00000000000000007751",O"40774540337742403630",
     +O"00000000000000007740",O"00773740414140374033",
     +O"00000077404140374033",O"77374041414037404133",
     +O"00000000000077275125",O"42403635353640424431",
     +O"00000000000000007744",O"36404243434240363431",
     +O"00000000000000007734",O"00000000000077512723",
     +O"00000077512777404023",O"00000077512777512723",
     +O"77334577453377404030",O"43434240363535364033",
     +O"00000000000000774042",O"00000000007740403633",
     +O"77433542434341373533",O"41407741434341373533",
     +O"00000000773537414343",O"00007744344177414133"/
      DATA IX17/
     +O"37404243424037353633",O"00000000007742367735",
     +O"43424036353536404233",O"00000000007735364042",
     +O"00000077433577374333",O"37414343413735353733",
     +O"77414343413735353777",O"43424036353640424333",
     +O"00000000007736404243",O"33353742444677464627",
     +O"00774644423735333232",O"45434136343277323226",
     +O"00773234364143454646",O"33323233353742444627",
     +O"00000000774644423735",O"33353742444677464627",
     +O"00774644423735333232",O"33353742444546463227",
     +O"00774644423735333232",O"77443577404041434533",
     +O"46773537424445464627",O"37353332323335374244",
     +O"00000000000077464442",O"46454340363377333327",
     +O"00000000000000007746",O"77404077374041403734",
     +O"40414177404142414033",O"00000000000000773436",
     +O"77463777334577333327",O"00000000000077404034",
     +O"40373532302577252521",O"77535352504543407740",
     +O"46454340363377333327",O"00000000000000007746",
     +O"42373533323233353727",O"00773742444647474644"/
      DATA IX18/
     +O"45434136343277323226",O"00773234364143454646",
     +O"33353742444677464627",O"00774644423735333232",
     +O"77454240363577353531",O"43363433343742454630",
     +O"00773334374245464645",O"77443577454341404033",
     +O"46774643413634333327",O"00000000000000007746",
     +O"00000077404677403230",O"77444077344077343025",
     +O"00000000000000774450",O"00000077334677463330",
     +O"31323436404677403230",O"00000000000000000077",
     +O"77463377463377334630",O"36343231313233353726",
     +O"43424137775047454340",O"00000000007750474645",
     +O"77313233343537414327",O"40774043454647474543",
     +O"34353741434445454442",O"00000000000000007733",
     +O"40414140373534323027",O"00007735364046475077",
     +O"36343332323335374227",O"37374042444545444240",
     +O"00000000007746444240",O"77413635353742444530",
     +O"77454341363433333541",O"46774643403737404230",
     +O"42424136343333343742",O"00000000000077363741",
     +O"77323435353432302726",O"77424546464442403634"/
      DATA IX19/
     +O"34333334343331272625",O"43454646454443413735",
     +O"00007750454341404041",O"77434240363535364032",
     +O"35374345464777313527",O"77444342413736347734",
     +O"77324077463635333130",O"41373533333477273526",
     +O"51474544444547774543",O"00000000000000007752",
     +O"45464777323334353227",O"00000000007732354043",
     +O"43774643403737404230",O"36427744423735353640",
     +O"77364042424135333334",O"41373534333334364030",
     +O"00774042444546464543",O"27774645444377323625",
     +O"00000000000077513431",O"46454341373534333327",
     +O"77273334364042444546",O"36343332323335375127",
     +O"00774143444545444240",O"00775035323077364126",
     +O"35333335353432302726",O"00000077474746444237",
     +O"37343231303031333525",O"36404244465050474542",
     +O"00000000000000007733",O"47507747454335333127",
     +O"00000000007730313345",O"33333230262577344424",
     +O"51504644423735333232",O"00000000000000000077",
     +O"35333130272730323424",O"50474543414037407737"/
      DATA IX20/
     +O"00000000000077464750",O"77453377453377404030",
     +O"00000000000077404036",O"40314740774047314031",
     +O"00000000000000000077",O"44444577424277373731",
     +O"77454435343436434545",O"34353742444545443534",
     +O"00000000007734353534",O"41404077414177404036",
     +O"00000000000000774041",O"77443577414377364033",
     +O"00000000000000774435",O"00000000007733453330",
     +O"41414040434341403634",O"00007740414140407743",
     +O"40414244464747464627",O"36374041424377353637",
     +O"00000077323231313234",O"41404077404141404036",
     +O"00000000000000774041",O"40404177404141404036",
     +O"00000000000077404141",O"00000000007745334530",
     +O"77433677373777363633",O"00000000000000774336",
     +O"77423577424277414133",O"00000000000000774235",
     +O"45337745337745334530",O"00000000000000000077",
     +O"36377741403636374132",O"36404141373677404177",
     +O"36774140773637414140",O"00774137363640417737",
     +O"42417737404242413733",O"42403737414277403777"/
      DATA IX21/
     +O"42773740774241373740",O"00773741424240377741",
     +O"40517740317740322725",O"00000000000000000077",
     +O"26257742424137363625",O"46464543353332323130",
     +O"36377753257753525047",O"00000000007741424137",
     +O"77414077374077404030",O"34377734363740774137",
     +O"40774441774442414077",O"44407730323677303234",
     +O"35364077504642775046",O"43434240773536407735",
     +O"00000000007743424077",O"77404077404077404030",
     +O"40774137774140773740",O"42403677424140773637",
     +O"45444240773334364077",O"34364077444240363477",
     +O"47464442407732313132",O"40774442403634774647",
     +O"40773230303132333536",O"33774650504746454342",
     +O"00000000007745434035",O"77413777414077374030",
     +O"47504745475050464340",O"33353435374143444345",
     +O"40353230303133313031",O"00000000000000000077",
     +O"35343435404142434432",O"43413735353640414140",
     +O"00000000000000007744",O"00000077354377433533",
     +O"32354144465152535327",O"51464441353230272730"/
      DATA IX22/
     +O"00000000000077535352",O"34363741424445475026",
     +O"41373634333130303133",O"00000077505047454442",
     +O"41373432313132343731",O"00773741444647474644",
     +O"00000077324646323232",O"00000000774047314031",
     +O"00000077404640324032",O"50434540333530364030",
     +O"00000000000000774042",O"43454377424346434227",
     +O"00000000000077453277",O"77434240363577404033",
     +O"00000000000077424036",O"35333577363532353627",
     +O"00000000000077463377",O"77434240363577404033",
     +O"00000000000077424036",O"00007740414140404136",
     +O"00000077404141404036",O"00007740414140404136",
     +O"00000000000077344433",O"00007742403737404235",
     +O"00007736404141403634",O"00000000000077443432",
     +O"00000077443477404032",O"00000077443477443432",
     +O"77354377433577404033"/
      DATA IY11/
     +O"51515045403530252452",O"00772424253035404550",
     +O"00000000775124273052",O"30262524242526303152",
     +O"00000000775151373432",O"46434136353434242452",
     +O"00000077454750515150",O"00007751244042422452",
     +O"41363433333435242452",O"00774547505151504643",
     +O"46423530252424252752",O"34353742434650515150",
     +O"00000000007742373534",O"00000077242440512452",
     +O"40363534333127252452",O"42454750515150474542",
     +O"24242527313334353640",O"00000000000000000077",
     +O"32333640414140363352",O"50454033272524242527",
     +O"00000000007746505151",O"77424240512440512451",
     +O"32302625242440512452",O"45424037363640363534",
     +O"00000000007751515047",O"34312725242425273153",
     +O"77444650515150464441",O"34312725242440512452",
     +O"00000077515150464441",O"40363640242440512451",
     +O"00000000000000775151",O"77363640242440512450",
     +O"34312725242425273153",O"41444650515150464441",
     +O"00000000000077414140",O"77363640512440512453"/
      DATA IY12/
     +O"00000000000077512444",O"44475051515047442450",
     +O"00000000000000007742",O"77513540422440512452",
     +O"00000077515140512447",O"40512440512440512454",
     +O"00000000000000775124",O"77512440512440512453",
     +O"50464441343127252453",O"25273134414446505151",
     +O"00000000000000772424",O"33302625242440512452",
     +O"00000000007737373635",O"50464441343127252453",
     +O"25273134414446505151",O"00000000775345402424",
     +O"32302625242440512452",O"00007751364036363534",
     +O"34333127252424252752",O"50515150464341403735",
     +O"00000000000000007746",O"00000077242440512450",
     +O"43465051515046432453",O"00000000000000007724",
     +O"00000077512440512451",O"40512440512440512454",
     +O"00000000000000775124",O"00000077512440512452",
     +O"00007736244051362451",O"77515140242440512452",
     +O"77424240512440512451",O"32302625242440512452",
     +O"45424037363640363534",O"00000000007751515047",
     +O"00000077242440512447",O"77515140512440512451"/
      DATA IY13/
     +O"40363640242440512451",O"00000000000000775151",
     +O"77515140242440512452",O"77363640512440512453",
     +O"50464441343127252453",O"25273134414446505151",
     +O"00000000773636402424",O"00000000000077512444",
     +O"77513540422440512452",O"00000077512440512451",
     +O"40512440512440512454",O"00000000000000775124",
     +O"77512440512440512453",O"77515140363640242451",
     +O"50464441343127252453",O"25273134414446505151",
     +O"00000000000000772424",O"77242440512440512453",
     +O"33302625242440512452",O"00000000007737373635",
     +O"51514024244051362451",O"00000000000000000077",
     +O"00000077242440512450",O"51332725242425273151",
     +O"77332725242425273140",O"42403533323140512452",
     +O"31323335404243444443",O"00000000000000007731",
     +O"00000077245140512452",O"42413733323240512453",
     +O"00773232333741424343",O"24242527323642515152",
     +O"00007751514236322725",O"77515140404040513054",
     +O"00000000000077602044",O"42424646424236363246"/
      DATA IY14/
     +O"00000000007732323636",O"31302740552040552052",
     +O"34333127252424252730",O"37363433314042403735",
     +O"44454650515150464240",O"00000000000000774645",
     +O"77475051504740422445",O"40353540602040602053",
     +O"00000000000000774343",O"00000000007751402754",
     +O"30262524242526303151",O"50515047404237353432",
     +O"00000000000000007747",O"23212020212223222154",
     +O"30242240565450343025",O"55565760605755535044",
     +O"00000000000000775756",O"51504740333435343345",
     +O"00000000000000774750",O"50515040333435343345",
     +O"00000000775554525047",O"00000000007751402754",
     +O"40202040602040602047",O"00000000000000776060",
     +O"40202040602040602047",O"00000000000000776060",
     +O"46464042424041353150",O"00000000000000000077",
     +O"35333130262422212047",O"36343230272523214037",
     +O"40575553515046444240",O"60575654525047454341",
     +O"00000000000000000077",O"35333130262422212047",
     +O"36343230272523214037",O"40575553515046444240"/
      DATA IY15/
     +O"60575654525047454341",O"00000000000000000077",
     +O"51104051344047333360",O"00000000000000000077",
     +O"45464645434136322654",O"46464543413632264043",
     +O"52474340524743404345",O"00000000000077525240",
     +O"40353127262627313454",O"27262627313440524542",
     +O"00000077524542403531",O"40353025404035302554",
     +O"53504340405350434040",O"00000000000000000077",
     +O"36374143454646454254",O"26262731333537403736",
     +O"37363637403735333127",O"47424042454646454341",
     +O"00775252405247424052",O"50464336343333343555",
     +O"33344041434547505151",O"46373431272524252731",
     +O"00000000774750515150",O"00000077473140473153",
     +O"34353534323140463150",O"45434240313232313132",
     +O"00000077424243454646",O"37414344454544434053",
     +O"45454443353433333435",O"35343333343537414344",
     +O"00000000000000007740",O"41434444434137353444",
     +O"42364041374034343537",O"40433540433540433540",
     +O"00000000774137404236",O"40433540343444443444"/
      DATA IY16/
     +O"35404335404335404335",O"00007743354043354043",
     +O"35404235403243433245",O"00007742404042404042",
     +O"43403643404635354645",O"00007736404036404036",
     +O"32404032453636453246",O"40454040454040364040",
     +O"00000000000000773640",O"40404540334042403655",
     +O"00000000000000007740",O"30403530354032273250",
     +O"00000000000000007751",O"40404540334042403655",
     +O"00000000000000007740",O"27404350434046514650",
     +O"00000000000000007750",O"00773231272524252645",
     +O"00000077475051504745",O"77555452504750515045",
     +O"00000000000077602053",O"56534742363125222047",
     +O"00000000000000007760",O"56534742363125222047",
     +O"00000000000000007760",O"00000000000077404055",
     +O"00000077404040512755",O"00000077434340353555",
     +O"77433540433540463250",O"36414344434136343345",
     +O"00000000000000773334",O"00000000007744333545",
     +O"77444440363433333445",O"37374037363433333445",
     +O"00000000774344444340",O"00007741413340443345"/
      DATA IY17/
     +O"44444341373636373345",O"00000000007733334043",
     +O"41434443413634333345",O"00000000007741373637",
     +O"00000077333340443345",O"33333436373736343345",
     +O"77374043444443403740",O"36343334364041403645",
     +O"00000000007744444341",O"36343333343640513352",
     +O"00774650515150464341",O"36343333343640512451",
     +O"00774650515150464341",O"46434136343333343651",
     +O"00000000774650515150",O"36343333343640512452",
     +O"00774650515150464341",O"36343333343537414151",
     +O"00774650515150464341",O"77333340513025242447",
     +O"36405760605756533352",O"51504643413634333334",
     +O"00000000000077465051",O"37343333343740512452",
     +O"00000000000000007751",O"77513340242324252444",
     +O"57543340242324252445",O"00000000000000776060",
     +O"77514140453340512450",O"00000000000077512444",
     +O"37343333343740513357",O"77513734333334374051",
     +O"37343333343740513352",O"00000000000000007751",
     +O"51515046434136343352",O"00773333343641434650"/
      DATA IY18/
     +O"36343333343640603351",O"00774650515150464341",
     +O"36343333343640603352",O"00774650515150464341",
     +O"77333334364140513346",O"42414036343333343651",
     +O"00774650515150464543",O"77333340515150452447",
     +O"33404550515150453352",O"00000000000000007751",
     +O"00000077513340513350",O"40513340513340513353",
     +O"00000000000000775133",O"00000077513340513351",
     +O"60605755513340513350",O"00000000000000000077",
     +O"77515140333340513351",O"51515046434036343353",
     +O"36343333403336424550",O"00000000007751515046",
     +O"40605042363327252452",O"35403535343331262424",
     +O"47505151504745424036",O"00000000000000007744",
     +O"51444035343333343652",O"00007760555140363340",
     +O"51504744413634333351",O"25273133354043465051",
     +O"00000000007727252424",O"40414036343333343550",
     +O"77465051515046444241",O"31403131302726252447",
     +O"57555351474543403533",O"00000000000077566060",
     +O"40514236343333353752",O"77604540353333343642"/
      DATA IY19/
     +O"50464336343333353752",O"24253033404345505151",
     +O"00007742403633302624",O"77454751515046423345",
     +O"41403433333440513351",O"77505151504342414041",
     +O"77513340512625242450",O"50515147443740603353",
     +O"47515150464233404246",O"00000000000000007745",
     +O"40363340514641333351",O"00000000007751504643",
     +O"31403131302726252450",O"43424042424137353332",
     +O"77606057555452504644",O"51515047444136343351",
     +O"00773333343540434650",O"36405146413340513353",
     +O"00000000000077333334",O"43465051515047444151",
     +O"77604136343333343540",O"51504744413634333353",
     +O"00773334354043465051",O"00773333343640513352",
     +O"51474436343333353752",O"00000077333642465051",
     +O"51515047454237353453",O"46413533333540434650",
     +O"00000000000000007760",O"35334060605635333351",
     +O"00000000007760565340",O"36343333353740602453",
     +O"33364346505151504643",O"00000000000000000077",
     +O"50515150454237343353",O"42455051515045414045"/
      DATA IY20/
     +O"00000000000077333437",O"77464640404040463350",
     +O"00000000000077453242",O"50343450403044443047",
     +O"00000000000000000077",O"33323240522640522650",
     +O"40424136343231313233",O"44454646454442403534",
     +O"00000000007744444343",O"44444340403340403343",
     +O"00000000000000774343",O"40363640453240453246",
     +O"00000000000000774141",O"00000000007746403250",
     +O"37404037363433333445",O"00007743434444434036",
     +O"35323026262730302751",O"50464335312740514743",
     +O"00000077515050515252",O"44444340363637373643",
     +O"00000000000000774343",O"43444440363637373643",
     +O"00000000000077474543",O"00000000007746403250",
     +O"40262640522640522645",O"00000000000000775252",
     +O"40262640522640522645",O"00000000000000775252",
     +O"46464042424041353150",O"00000000000000000077",
     +O"32274036343230272645",O"40373634323040373440",
     +O"46404441405046444241",O"00775251504644424051",
     +O"32274036343230272646",O"40373634323040373440"/
      DATA IY21/
     +O"46404441405046444241",O"00775251504644424051",
     +O"46244046354045353551",O"00000000000000000077",
     +O"46504027252424252753",O"36313027273031364244",
     +O"51504050504050464442",O"00000000007750515252",
     +O"40524140524140413350",O"25304025263033405252",
     +O"33402530402526303340",O"31334033323240333131",
     +O"35343340333232403331",O"40353433404035334040",
     +O"00000000007740353340",O"40434140363440312750",
     +O"25405252405247405247",O"30273040302725403027",
     +O"34353431403435343140",O"42413640353534353540",
     +O"40424241364042414042",O"43404242414242404241",
     +O"43405047454750504746",O"50405047454750504746",
     +O"00000000007750504750",O"40525240524740524750",
     +O"33354042424346505047",O"32333026252526303332",
     +O"47505046434242403533",O"00000000000000000077",
     +O"40414344444341404046",O"44434136343333343637",
     +O"00000000000000007744",O"00000077433540433545",
     +O"35343435364143465053",O"37424344444342413736"/
      DATA IY22/
     +O"00000000000077303235",O"34353641424343424052",
     +O"36414243434240373534",O"00000077403735343435",
     +O"47474644413734323147",O"00773131323437414446",
     +O"00000077323246463246",O"00000000773044443047",
     +O"00000077264052402646",O"35414743474135352750",
     +O"00000000000000772735",O"42403640434240363551",
     +O"00000000000077404040",O"40363532353640463345",
     +O"00000000000077353335",O"42403640434240363551",
     +O"00000000000077404040",O"40424346434240453245",
     +O"00000000000077434543",O"00007737353333343443",
     +O"00000077434344444343",O"00007747454343444443",
     +O"00000000000077453245",O"00007745434136343244",
     +O"00007745434136343243",O"00000000000077404046",
     +O"00000077404040443446",O"00000077424240363646",
     +O"77423640423640433545"/
      DATA ISTART/
     +  1,  3,  4,  6,  8,  9, 11, 14, 15, 19, 22, 23, 26, 28, 30,
     + 32, 33, 36, 37, 38, 40, 41, 42, 44, 45, 48, 50, 53, 55, 58,
     + 59, 61, 62, 64, 65, 66, 67, 68, 71, 72, 73, 75, 76, 77, 80,
     + 81, 82, 83, 85, 86, 87, 90, 91, 93, 95, 96, 98,101,102,104,
     +106,107,108,110,115,116,118,119,122,126,128,130,131,133,135,
     +137,142,147,149,153,156,159,164,168,169,172,176,180,183,185,
     +187,190,192,194,196,198,199,200,201,202,204,206,207,208,209,
     +210,212,213,214,216,217,219,221,222,224,226,228,230,232,234,
     +236,237,240,242,243,245,246,247,249,251,253,255,257,258,260,
     +261,263,264,266,267,269,270,273,277,279,282,284,287,289,292,
     +293,295,296,299,301,304,306,308,310,312,313,315,318,320,323,
     +326,327,328,330,334,336,338,339,341,344,346,348,349,351,353,
     +355,359,363,365,369,376,386,391,394,395,398,401,403,404,405,
     +406,408,410,412,414,416,417,418,419,420,421,422,423,424,425/
*
      DATA NBIT,NBITCH,NBITMX/60,6,60/
#endif
#if defined(CERNLIB_IBM)||defined(CERNLIB_VAX)||defined(CERNLIB_AIX370)
      DATA IX11/
     +Z1969C7D6,Z217DC699,Z269E79A4,Z00FDF864,Z2185E716,Z0000003F,
     +Z1C6DA696,Z2696489E,Z27663966,Z0000003F,Z238266D6,Z269E79A5,
     +Z1A6DE864,Z00000FD9,Z3FA198D6,Z0003F8E3,Z1B69B956,Z279A485E,
     +Z1E8649A7,Z00FD969B,Z208A5996,Z1B69A6DD,Z2692181D,Z219269E7,
     +Z3F69B760,Z19FDD9D6,Z00000FE7,Z1A69B796,Z2692175B,Z229669E7,
     +Z1965A6DE,Z258DF71A,Z1E8A59A6,Z0000003F,Z208E5996,Z1965A71F,
     +Z2381F71A,Z239669A5,Z3F69B7A0,Z20FD8817,Z3F95BFE8,Z19FD9655,
     +Z279E6962,Z19FE2966,Z279E6962,Z3F662966,Z23967A16,Z1969B75F,
     +Z1F75B699,Z3FA27963,Z19FD9655,Z279A58E0,Z208E59A7,Z00000FD9,
     +Z1AFDA696,Z3F89AFE7,Z0003F9DA,Z1AFDA696,Z3F89AFE7,Z23967A16,
     +Z1969B75F,Z1F75B699,Z28A27963,Z00FE88FF,Z27FD9655,Z3F9D9FE7,
     +Z00FE081C,Z228E4918,Z1A6DC7A0,Z00000FDA,Z27FD9655,Z3F9DEFD9,
     +Z1AFDA696,Z00000FE6,Z18FD8614,Z3F828FE0,Z0003FA28,Z19FD9655,
     +Z3F9E7FE7,Z1969C795,Z1C699618,Z279A489E,Z249A7A28,Z0003F7A2,
     +Z19FD9655,Z279E6962,Z3F662966,Z1969C795,Z1C699618,Z279A489E,
     +Z249A7A28,Z2787F7A2,Z0000003F,Z19FD9655,Z279E6962,Z3F662966,
     +Z0003F9E0,Z1E8A59D6,Z1B69965B,Z279A58DD,Z1B7A2967,Z00000FD9,
     +Z19FE0818,Z00000FE7,Z1C699655,Z279A485F,Z00000FE7,Z28FE0617/
      DATA IX12/
     +Z00000FE0,Z20FDB594,Z3F960FDB,Z0003F96A,Z27FE7656,Z00000FD9,
     +Z3F820617,Z0003F828,Z19FD99D6,Z3F9D9FE7,Z20FD8817,Z3F95BFE8,
     +Z19FD9655,Z279E6962,Z19FE2966,Z279E6962,Z3F662966,Z1AFDA696,
     +Z00000FE6,Z20FD8817,Z3FA18FE8,Z1AFDA696,Z3F89AFE7,Z0003F9DA,
     +Z19FD99D6,Z3F9D9FE7,Z27FD9655,Z3F9D9FE7,Z1969C795,Z1C699618,
     +Z279A489E,Z249A7A28,Z2377F7A2,Z0000003F,Z00FE081C,Z27FD9655,
     +Z3F9DEFD9,Z20FD8817,Z00000FE8,Z18FD8614,Z3F828FE0,Z0003FA28,
     +Z19FD9655,Z3F9E7FE7,Z1DFE7657,Z3F9D9FE3,Z1969C795,Z1C699618,
     +Z279A489E,Z249A7A28,Z0003F7A2,Z27FD9655,Z3F9D9FE7,Z19FD9655,
     +Z279E6962,Z3F662966,Z3F660657,Z2767F9D9,Z0000003F,Z19FE0818,
     +Z00000FE7,Z1B699657,Z2081F79D,Z259A79FF,Z3F8218A3,Z1EFE0816,
     +Z1A65969B,Z2696279B,Z229669E7,Z00000FDE,Z19FE7656,Z00000FE7,
     +Z17FE0815,Z1C6DA658,Z2696485F,Z00FE9A27,Z1969D656,Z217DC699,
     +Z269E79A4,Z0003F9E3,Z18FE0814,Z3FA18FE8,Z00FE081C,Z1A69E79A,
     +Z268A279E,Z3F7A28A6,Z22FDE796,Z26966FE2,Z1E8A59E7,Z1B69965B,
     +Z3F9E58DD,Z258DD6D9,Z229679E6,Z1A6596DE,Z0003F69B,Z20FE081B,
     +Z3F82181F,Z27FDA856,Z3FA1AFE0,Z0003F9D9,Z3F628614,Z1C6DA697,
     +Z2696489E,Z20824966,Z2181F83F,Z00000FE0,Z2AA68A54,Z23967A6A/
      DATA IX13/
     +Z1D7A0862,Z228E4FDC,Z1B75E7E0,Z175965D9,Z0003F5D8,Z2181F81B,
     +Z207E0FE0,Z0003F821,Z2181F81B,Z1F821FE0,Z1F821860,Z0000003F,
     +Z3FA18A14,Z1EFDD759,Z3F91DFDE,Z0003F91D,Z23FE2899,Z3F8DCFE3,
     +Z0003F8DC,Z3F6E56D8,Z256FF95B,Z0000003F,Z1E7E0899,Z218607DE,
     +Z1F7E0FDF,Z218A2860,Z218A285D,Z3F81F7E0,Z1F82185F,Z2281F79E,
     +Z0000003F,Z22860799,Z1F7E0862,Z21860FE1,Z1F79E7E0,Z1F79E7E3,
     +Z3F821860,Z2181F7E1,Z1E8218A2,Z0000003F,Z3F81748F,Z20C3F816,
     +Z0000003F,Z1865C814,Z1F75B658,Z27920FE0,Z23967A28,Z1F83F821,
     +Z22860FDE,Z00FE27BF,Z1C79F814,Z1961865B,Z20FE071A,Z279648A1,
     +Z249A7A28,Z00000FE0,Z1769E814,Z299A283F,Z2079A5FF,Z208A6A7F,
     +Z0000003F,Z26922814,Z26A29A68,Z2387F864,Z1F863924,Z1F75C71D,
     +Z1869C7FF,Z1C6985D7,Z1F83F81E,Z22860FDE,Z00FE27BF,Z28A6AA93,
     +Z208A49A7,Z165D869E,Z207D85D6,Z1C7A0861,Z2379C6DB,Z2AAA99E5,
     +Z0000003F,Z27FE7655,Z00000FD9,Z1DFDA998,Z1A6DD79E,Z2485D6DA,
     +Z228A3FE6,Z259A6963,Z00000FE3,Z258E2815,Z2BAEAA67,Z23967A6A,
     +Z196DD7A2,Z16555597,Z1E75B657,Z00000FE0,Z1C71D7DC,Z248E17DD,
     +Z3F7E18E4,Z1E7BF75D,Z20FDF7FF,Z3F861FE0,Z238FF8A2,Z0000003F,
     +Z2491C71C,Z3F75DFDC,Z1F7FF79E,Z21FE083F,Z3F8A2FE1,Z0003F8E3/
      DATA IX14/
     +Z2095B81B,Z20FDD83F,Z3F7E0FE3,Z0003F860,Z206E581B,Z20FE383F,
     +Z3F860FDD,Z0003F7E0,Z1A99C81A,Z2083F824,Z20FDA83F,Z3F920FDC,
     +Z0003F9A0,Z3F9A9993,Z17FE3A23,Z00000FE8,Z3F8A0798,Z20FE581B,
     +Z00000FE0,Z3F697693,Z18FDD61D,Z00000FE9,Z3F8A0798,Z20FE581B,
     +Z00000FE0,Z2181F81B,Z00FDF821,Z2181F81B,Z00000FE0,Z207E085B,
     +Z3F7E0861,Z00FD7A55,Z1E822919,Z2281E75D,Z00000FE4,Z2281E719,
     +Z1E8228E3,Z00000FDC,Z00FE95D3,Z17FE0813,Z00000FE9,Z17FE95D3,
     +Z00000FE9,Z1BFE0818,Z3F6E5FE5,Z1D75E81B,Z238E281E,Z0003F822,
     +Z3F82079B,Z2385F75B,Z3F8DD8A3,Z2385F75B,Z2183F863,Z1D7E18E3,
     +Z0000003F,Z21FE185B,Z0003F91C,Z207DD79B,Z1F8228E2,Z3F89EFDD,
     +Z1D7A089B,Z238A079D,Z3F75E822,Z1DFDF8DB,Z00000FE3,Z1F75D7DB,
     +Z1F8638E1,Z1F75D7FF,Z3F8638E1,Z1E8228DB,Z238A079D,Z3F7A08A3,
     +Z26FE6997,Z1B75F8A4,Z1F75B69A,Z00FE6922,Z1AFDA696,Z258E179C,
     +Z218E59A6,Z00FDA71E,Z1F8A4997,Z1B69A6DD,Z269227DD,Z0000003F,
     +Z26FE6997,Z1B75F8A4,Z1F75B69A,Z00FE6922,Z259A6697,Z1B75F8A4,
     +Z1F75B69A,Z00FE6922,Z2086395B,Z3F91DFE0,Z24966997,Z26FDD7E2,
     +Z1B75F8A4,Z1F75B69A,Z00FE6922,Z1BFDB6D7,Z2696381E,Z00000FE6,
     +Z208607DC,Z3F820FDF,Z218A181B,Z20861FE0,Z0003F71E,Z25FDB6D7/
      DATA IX15/
     +Z3F99FFDB,Z00FE081C,Z15FD5551,Z207DD698,Z258E0FE0,Z3FAEBAA8,
     +Z1BFDB6D7,Z2696381E,Z00000FE6,Z1A6DD7D7,Z227DD6DA,Z269E79A4,
     +Z00FDF8A4,Z1AFDA696,Z258E179C,Z218E59A6,Z00FDA71E,Z26FE6997,
     +Z1B75F8A4,Z1F75B69A,Z00FE6922,Z1DFDD759,Z3F96281E,Z1F8A5998,
     +Z2379C6DC,Z229669A5,Z00FDB71F,Z2386081B,Z3F91DFE5,Z1E71B6D7,
     +Z26FE68E1,Z00000FE6,Z26FE0698,Z00000FE0,Z20FDC615,Z3F920FDC,
     +Z0003F928,Z26FE66D8,Z00000FDB,Z26FE0698,Z1969C7A0,Z0000003F,
     +Z1BFDB998,Z3F99BFE6,Z1A6DD7D6,Z1E71A659,Z289E58E0,Z238A17FF,
     +Z3FA279A5,Z1D7E18D7,Z3F65A6DC,Z269E7963,Z20FE08E5,Z24965922,
     +Z1C75F863,Z00000FDB,Z1D71A617,Z2086181F,Z209A7A3F,Z0003F75E,
     +Z1B75F897,Z1E71B69A,Z259648A0,Z1F7E08A4,Z3F9A48A0,Z1F8A4958,
     +Z3F85E75D,Z1C6DB761,Z3F96385E,Z1F7E0898,Z26FE68E0,Z1B6DC7E2,
     +Z228A179C,Z00FDE7E1,Z1C6985D6,Z3F69C75D,Z248A079C,Z3F8A59A6,
     +Z1B657595,Z1C6DB71C,Z248E17DD,Z239669A5,Z23860821,Z0003FA25,
     +Z1D75E81A,Z3F8E281E,Z27FD9757,Z1D7E3966,Z1F79CFDC,Z3F9238A1,
     +Z1E75B658,Z3F6A0FE6,Z1CFD7756,Z217DD6DB,Z259FF963,Z299E5924,
     +Z00000FEA,Z1B71D697,Z259A7FDA,Z3F69D823,Z1F7E0898,Z23FE68E0,
     +Z1F75D7A0,Z1E8BF922,Z2175B6DC,Z3F7A08A2,Z1B71E818,Z217DD71B/
      DATA IX16/
     +Z259A6963,Z00FE08A4,Z23FDA795,Z17FE6964,Z00FE9719,Z1D71B6D7,
     +Z2696385F,Z208A4966,Z3F5DB71E,Z1B75FA57,Z1E71B69A,Z259648A0,
     +Z00FE18E4,Z18FDE856,Z00FE875A,Z1C6985D6,Z1D6DB75D,Z279A489F,
     +Z00000FE7,Z1865B755,Z1F71A658,Z28A27962,Z1E822926,Z00000FDB,
     +Z2375B657,Z27A3F9E5,Z3F6196E5,Z15FDC914,Z1B6DA616,Z1F75B69A,
     +Z29A26922,Z0000003F,Z1761A714,Z1D6D9617,Z207E0FDF,Z289E58E1,
     +Z00FE69E8,Z1BFE0818,Z3F95BFE5,Z00FE081E,Z209D9819,Z2066783F,
     +Z0000003F,Z22FDF7D9,Z24925FE2,Z1C7A3965,Z3F96475C,Z2596475C,
     +Z1C75F8A4,Z3F71D75C,Z21FE081E,Z21820FE1,Z0003F821,Z23FDE81B,
     +Z3F91DFE1,Z0003F91D,Z3F6E56D8,Z2386079C,Z21860823,Z21820FE3,
     +Z0003F821,Z279E6997,Z20862926,Z23FDD79F,Z1E7E0862,Z1A65969C,
     +Z00000FDA,Z2186081E,Z21820FE0,Z0003F821,Z2186081E,Z20821FE0,
     +Z00FE0861,Z3F95B958,Z1FFDE79B,Z3F8DEFDF,Z0003F8DE,Z22FE185B,
     +Z3F89DFE2,Z0003F89D,Z3F95B958,Z256FF95B,Z0000003F,Z1E79F85A,
     +Z1E7FF860,Z1EFE087F,Z1E82185F,Z1E7E1860,Z1EFE183F,Z1E821FDF,
     +Z00FE17DE,Z228A17DB,Z2287F7E0,Z22FE07FF,Z2281F7E1,Z2285F7E0,
     +Z22FDF83F,Z2281FFE1,Z00FDF862,Z3F81A5D5,Z20A7F819,Z0000003F,
     +Z217DE795,Z1657F8A2,Z1B69A658,Z269A58DD,Z3FAEAA27,Z1E7FFAD5/
      DATA IX17/
     +Z3F86285F,Z20FE0818,Z3F860FDF,Z1F83F85F,Z1C7FF71E,Z248A183F,
     +Z20FE487F,Z1EFD869C,Z2483F61A,Z268BFA26,Z1D7A0FE8,Z1D7A0FDD,
     +Z238E283F,Z3F8E283F,Z20FE0818,Z3F820FE0,Z2183F7E0,Z20FE17FF,
     +Z2183F79F,Z2281EFE2,Z1B71E83F,Z2592283F,Z2281E73F,Z1C7A0FE4,
     +Z3F69965A,Z279A48A0,Z1E73F9A7,Z20FE48A0,Z1969B75E,Z20FDA618,
     +Z279A58E2,Z1BFE6A28,Z3F96381D,Z20FDF818,Z3F85FFE1,Z28A268E0,
     +Z27A27967,Z218E48E5,Z1B75C75F,Z196D9619,Z2075A618,Z0000003F,
     +Z218A391A,Z1D71C760,Z1E821860,Z2385F75D,Z00000FE4,Z23FE375B,
     +Z00000FDD,Z29AABAD7,Z1A761926,Z1A6175D8,Z299A485D,Z00FEBAEA,
     +Z24967A16,Z1C79F862,Z1961865B,Z217DE71B,Z289E5922,Z00000FE8,
     +Z1969C7D9,Z217DC699,Z269E79A4,Z00FDF864,Z2699A69A,Z00000FDA,
     +Z209D9819,Z0000003F,Z2681A81A,Z00000FE0,Z1D61E818,Z288E581B,
     +Z0003F822,Z239A3897,Z23963FE2,Z00FE56BF,Z1DFE081B,Z3F8E281E,
     +Z00FE281E,Z1D69D797,Z1D6DDFDE,Z00FE66FF,Z1DFE081B,Z3F8E281E,
     +Z00FE281E,Z2182085E,Z0003F821,Z2186081E,Z00000FE0,Z2182085E,
     +Z0003F821,Z00FDC91B,Z1F7E089D,Z0003F8A0,Z2186079C,Z0003F7A0,
     +Z00FE471A,Z1CFE081A,Z00000FE4,Z1CFE471A,Z00000FE4,Z1DFE081B,
     +Z3F763FE3/
      DATA IY11/
     +Z1D61552A,Z29A68960,Z18760968,Z00FD4515,Z2951762A,Z0000003F,
     +Z1559866A,Z18595514,Z29A5F71A,Z0000003F,Z1C71452A,Z268E179D,
     +Z27A29A68,Z00000FE5,Z208A252A,Z0003FA54,Z1C75452A,Z2179C6DB,
     +Z29A689A3,Z00FE59E8,Z145155EA,Z2689D615,Z26A29A68,Z1C75F8A3,
     +Z3F89F75C,Z1482952A,Z00000FD4,Z195D552A,Z2079D71B,Z29A27962,
     +Z22967A29,Z1B71D7A0,Z145155D9,Z0000003F,Z2181E6EA,Z1A6DE821,
     +Z15514557,Z289606D7,Z3F9A8A69,Z14829529,Z3F8A2829,Z1482952A,
     +Z1A616554,Z1E81E75C,Z258A07DE,Z3FA69A27,Z1455766B,Z1C657554,
     +Z29A26921,Z3F926A29,Z1482952A,Z1C657554,Z29A26921,Z00000FE9,
     +Z14829529,Z2079E814,Z0003FA69,Z14829528,Z3F79E814,Z1455766B,
     +Z1C657554,Z29A26921,Z21926A29,Z00FE1860,Z1482952B,Z3F79E829,
     +Z00FE9524,Z289E4528,Z249E8A69,Z00000FE2,Z1482952A,Z3FA5D822,
     +Z29829527,Z00000FE9,Z1482952C,Z20A54829,Z0003FA54,Z1482952B,
     +Z3FA54829,Z195D552B,Z289A485C,Z249A8A69,Z155D9721,Z0003F514,
     +Z1482952A,Z1B616554,Z3F7DF79D,Z195D552B,Z289A485C,Z249A8A69,
     +Z155D9721,Z2B960514,Z0000003F,Z1482952A,Z1A616554,Z2079E75C,
     +Z0003FA5E,Z145155EA,Z1C6D95D5,Z238607DD,Z28A69A26,Z00000FE6,
     +Z14829528,Z00000FD4,Z289A352B,Z239A8A69,Z00000FD4,Z14829529/
      DATA IY12/
     +Z00000FE9,Z1482952C,Z20A54829,Z0003FA54,Z1482952A,Z00000FE9,
     +Z20A5E529,Z0003F794,Z1482952A,Z3FA69814,Z14829529,Z3F8A2829,
     +Z1482952A,Z1A616554,Z1E81E75C,Z258A07DE,Z3FA69A27,Z14829527,
     +Z00000FD4,Z14829529,Z3FA69829,Z14829529,Z2079E814,Z0003FA69,
     +Z1482952A,Z3FA69814,Z1482952B,Z3F79E829,Z195D552B,Z289A485C,
     +Z249A8A69,Z155D9721,Z1E7A0514,Z0000003F,Z00FE9524,Z1482952A,
     +Z3FA5D822,Z14829529,Z00000FE9,Z1482952C,Z20A54829,Z0003FA54,
     +Z1482952B,Z3FA54829,Z1E814529,Z3FA6981E,Z195D552B,Z289A485C,
     +Z249A8A69,Z155D9721,Z0003F514,Z1482952B,Z3F514829,Z1482952A,
     +Z1B616554,Z3F7DF79D,Z20A5E529,Z29A60514,Z0000003F,Z14829528,
     +Z00000FD4,Z14557669,Z296D7554,Z14557660,Z3F6D7554,Z1982952A,
     +Z2281D6DA,Z228E4923,Z1969B760,Z00000FD9,Z2982952A,Z00000FD4,
     +Z1A82952B,Z2285F6DA,Z1F8628E3,Z00FDA69B,Z1E8A9A6A,Z145155DA,
     +Z2279A5D5,Z0003FA69,Z2082962C,Z3FA69820,Z00FF0424,Z2279E6A6,
     +Z228A69A2,Z3F69A79E,Z1082D42A,Z1961782D,Z145155D8,Z1C6D95D5,
     +Z208A07DD,Z1F79C6D9,Z29A268A0,Z24966A29,Z0003F9A5,Z27822525,
     +Z3F9E8A68,Z1083042B,Z2075D830,Z0003F8E3,Z3FA605EC,Z15598669,
     +Z18595514,Z227DD71A,Z28A689E0,Z00000FE7,Z124D246C,Z13450411/
      DATA IY13/
     +Z2CA1C615,Z1851282E,Z2FB6BA24,Z2DBAFC30,Z0003FBEE,Z1C75C6E5,
     +Z29A2781B,Z0003F9E8,Z1C75C6E5,Z28A6881B,Z2DB2AA27,Z0000003F,
     +Z3FA605EC,Z10830427,Z20410830,Z0003FC30,Z10830427,Z20410830,
     +Z0003FC30,Z2085D668,Z269A08A2,Z0000003F,Z14491427,Z1D6D9616,
     +Z154D181F,Z1E71A617,Z289A48A0,Z20BEDAE9,Z289E58E1,Z30BEEB2A,
     +Z0000003F,Z14491427,Z1D6D9616,Z154D181F,Z1E71A617,Z289A48A0,
     +Z20BEDAE9,Z289E58E1,Z30BEEB2A,Z0000003F,Z209DB6F0,Z29220A5C,
     +Z0000003F,Z2179A5AC,Z259A6963,Z1E696823,Z269A58E1,Z278E08E5,
     +Z2A9E382A,Z00FEAAA0,Z165D972C,Z207595D6,Z1C82A962,Z175965D9,
     +Z258A0759,Z00000FEA,Z2075856C,Z20758560,Z2BA23820,Z2BA23820,
     +Z0000003F,Z269A58AC,Z1E7E18E5,Z1D7E07DE,Z1659765B,Z1F75B657,
     +Z1F79E7E0,Z269A58E1,Z278A08A5,Z2A9E282A,Z00FEAAA0,Z1B6DC76D,
     +Z289A379C,Z259E8A69,Z1B720863,Z155155D9,Z267DC657,Z27A29A68,
     +Z0000003F,Z1982766B,Z00000FE7,Z19826668,Z1C75D71A,Z1A69965A,
     +Z258E2819,Z228E59A6,Z00000FE2,Z2592382B,Z1F863925,Z1C6DB71D,
     +Z259648DD,Z1D7E18E4,Z1D71B6DC,Z00000FE0,Z217DD724,Z218E4923,
     +Z2071C75F,Z227A085F,Z1D823760,Z208DD823,Z217E089E,Z0000003F,
     +Z1C924724,Z208DD81C,Z237608DD,Z1D823760,Z208DD823,Z0003F8DD/
      DATA IY14/
     +Z1A8E36A5,Z1D822760,Z208A0822,Z0003F8A0,Z2675D9A5,Z2381E8E0,
     +Z207A081E,Z0003F7A0,Z1E7A56A6,Z1A8206A5,Z2081E820,Z20960825,
     +Z0003F7A0,Z208A07AD,Z2082581B,Z00000FE0,Z206976A8,Z1881D61D,
     +Z00000FE9,Z208A07AD,Z2082581B,Z00000FE0,Z209A99A8,Z17823A23,
     +Z00000FE8,Z155155A5,Z00FDA657,Z28A689E5,Z00000FE7,Z27A29A25,
     +Z3FB6CAA8,Z00FF042B,Z19552427,Z2EAE789E,Z00000FF0,Z19552427,
     +Z2EAE789E,Z00000FF0,Z00FE082D,Z208295ED,Z00000FE0,Z2381D76D,
     +Z00000FE3,Z1D8266A8,Z3F8DD823,Z2179C6E5,Z1E863923,Z0003F6DC,
     +Z3F91B765,Z1C6DB725,Z3F92481E,Z1C6DB725,Z1F7E07DE,Z239248E0,
     +Z0000003F,Z1B8246E5,Z0003F861,Z1E79F6E5,Z2492385F,Z3F6DB823,
     +Z1E71B6E5,Z218E48E1,Z3F85F79F,Z1B8246E5,Z00000FDB,Z1F79C6E5,
     +Z1B6DC79F,Z248E07E0,Z3F7E08E4,Z208607A5,Z1E71B71E,Z3F9248E1,
     +Z1E8296EA,Z1E71B6DC,Z29A268E1,Z00FE6A29,Z1E829529,Z1E71B6DC,
     +Z29A268E1,Z00FE6A29,Z1B6DC7A9,Z268E179C,Z26A29A68,Z0000003F,
     +Z1E82952A,Z1E71B6DC,Z29A268E1,Z00FE6A29,Z1D7E1869,Z1E71B6DC,
     +Z29A268E1,Z00FE6A29,Z18554527,Z3F6DB829,Z2FBAB6EA,Z1E82FC30,
     +Z1E71B6DC,Z29A268E1,Z00FE6A29,Z1F82952A,Z1F71B6DC,Z00000FE9,
     +Z13515524,Z3FA5B814,Z13515525,Z2FB1B814,Z0003FC30,Z1B829528/
      DATA IY15/
     +Z3FA61825,Z00FE9524,Z1F8296EF,Z1F71B6DC,Z1B71F829,Z3FA5F71B,
     +Z1F8296EA,Z1F71B6DC,Z00000FE9,Z2179C6EA,Z29A689A3,Z1E8639A8,
     +Z00FDB6DC,Z1E8306E9,Z1E71B6DC,Z29A268E1,Z00FE6A29,Z1E8306EA,
     +Z1E71B6DC,Z29A268E1,Z00FE6A29,Z218296E6,Z3F6DB71E,Z1B6DC7A9,
     +Z2286079C,Z29A26963,Z00FE6A29,Z29A25527,Z3F6DB829,Z29A256EA,
     +Z1B825A29,Z00000FE9,Z1B8296E8,Z00000FE9,Z1B8296EB,Z20A5B829,
     +Z0003FA5B,Z1B8296E9,Z00000FE9,Z1B8296E8,Z30C2FB69,Z0000003F,
     +Z1B8296E9,Z3FA6981B,Z2079C6EB,Z29A689A3,Z1B7A2968,Z1E71B6E0,
     +Z3FA69A26,Z1B5D552A,Z20C2889E,Z1B656514,Z1D81D75C,Z2796281E,
     +Z27A29A68,Z00000FE4,Z1B6DC7AA,Z2992075C,Z2981E6E0,Z0003FC2D,
     +Z1E71B6E9,Z29A27921,Z208E6A29,Z155D96DD,Z3F5D5514,Z1B6DC768,
     +Z2086079C,Z289A48A1,Z3F9A8A69,Z17595527,Z19819658,Z258E075B,
     +Z2FB6BA67,Z00FEEC30,Z1B6DD7EA,Z20A6279C,Z1B6DC7A2,Z3FC2581D,
     +Z1B6DD7EA,Z289A379C,Z23968A69,Z145586E0,Z1E6D8594,Z0003F8A0,
     +Z289A26E5,Z3F967A69,Z1C8296E9,Z2181C6DB,Z238A1821,Z3FA29A68,
     +Z16554528,Z3FA5B829,Z1F8306EB,Z28A699E4,Z226E08A6,Z27A69A26,
     +Z00000FE5,Z2685B6E9,Z2079B829,Z3FA689A3,Z17595528,Z19819658,
     +Z217DD6DA,Z238A08A2,Z2CAA89A4,Z3FC30BED,Z2179C6E9,Z29A689E4/
      DATA IY16/
     +Z1D8239A8,Z00FDB6DC,Z1B8296EB,Z1E8299A1,Z00FDB6DC,Z289E4869,
     +Z239A8A69,Z1B6DC760,Z3FC2179C,Z1E71B6EB,Z29A27921,Z208E6A29,
     +Z00FDB71D,Z1E8296EA,Z00FDB6DC,Z1B6DD7EA,Z299E479C,Z1E8A6A29,
     +Z00000FDB,Z227DD72B,Z29A689E5,Z1D8239A8,Z2685D6DB,Z00000FF0,
     +Z2E75B6E9,Z1D6E0C30,Z3FC2EAE0,Z1F83052B,Z1E71B6DD,Z29A689A3,
     +Z1B7A39A8,Z0000003F,Z227DC6EB,Z28A69A25,Z28961825,Z22968A69,
     +Z00FDB71F,Z208266E8,Z3F9A6820,Z00FE56A2,Z18924627,Z2871CA20,
     +Z0000003F,Z1682A5A8,Z1B69A82A,Z1A65969B,Z208A179C,Z248A075C,
     +Z249669A5,Z3F9248E3,Z1B8206E3,Z24923820,Z0003F8E3,Z1A8256A6,
     +Z2079E825,Z0003F861,Z3F9A06A8,Z1C6DB725,Z1F8207DE,Z2492381E,
     +Z0003F8E3,Z176185E9,Z1D698596,Z178299E3,Z289A3759,Z28A29AAA,
     +Z00000FE9,Z1E7DF7A3,Z2492381E,Z0003F8E3,Z1E7DF7A3,Z2392481E,
     +Z00FE7963,Z3F9A06A8,Z1682A5A5,Z2059682A,Z0003FAAA,Z1682A5A5,
     +Z2059682A,Z0003FAAA,Z2085D668,Z269A08A2,Z0000003F,Z1A6175A5,
     +Z1A5E079C,Z1881F720,Z207DE71A,Z289A48A1,Z26824860,Z26922829,
     +Z00FEAA68,Z1A6175A6,Z1A5E079C,Z1881F720,Z207DE71A,Z289A48A1,
     +Z26824860,Z26922829,Z00FEAA68,Z2095D769,Z2652099D,Z0000003F,
     +Z145155EB,Z26A205D5,Z1865E8A4,Z1E6585D7,Z20A26922,Z29A20A28/
      DATA IY17/
     +Z3FA29AAA,Z218216E8,Z20AA182A,Z186E0AAA,Z15620556,Z155986E0,
     +Z1B815620,Z1A81B659,Z196E06DA,Z1A6A06D9,Z1D71B81B,Z2075B820,
     +Z2075C6E0,Z3F81D6E0,Z1C8195E8,Z208E181E,Z2A9E0AA7,Z1582AAA0,
     +Z17560617,Z185D8818,Z1C75C660,Z1C75C660,Z1D71D760,Z2285E81D,
     +Z208A1822,Z208A285E,Z228A08A1,Z238228A1,Z27A289E6,Z238289E5,
     +Z27A289E6,Z288289E5,Z3FA289E8,Z2782A9E8,Z20AAA82A,Z239A8A27,
     +Z1B7608A2,Z155986DA,Z1A6D8595,Z228A075B,Z27A289A3,Z0000003F,
     +Z23860826,Z20863924,Z1B6DC79F,Z248E179C,Z00000FE4,Z1D823765,
     +Z00000FE3,Z218E6A2B,Z1D71C75E,Z238A17DE,Z1F8A3924,Z00FD869D,
     +Z238E282A,Z1C75E862,Z2281F75C,Z1E8628E3,Z1F75C71D,Z00000FE0,
     +Z1F71A667,Z279E6921,Z1C7E1926,Z00FD965A,Z1A9A66A6,Z00000FDA,
     +Z18924627,Z0000003F,Z20AA05A6,Z00000FD6,Z2175D5E8,Z1D8678E7,
     +Z0003F5DD,Z2281E769,Z2281E823,Z00FE0820,Z1E8266E5,Z2079D69D,
     +Z00FDD6DD,Z2281E769,Z2281E823,Z00FE0820,Z228256A5,Z208A39A3,
     +Z00FE3963,Z1B6DC723,Z0003F7DD,Z239248E3,Z00000FE3,Z238E4923,
     +Z0003F9E5,Z00FE56A5,Z2179C6A4,Z0003F963,Z2179C6A3,Z0003F963,
     +Z00FE0826,Z20824726,Z00000FE0,Z2281E7A6,Z00000FE2,Z1E823765,
     +Z3F89E822/
      DATA ISTART/
     +  1,  5,  7, 11, 15, 17, 21, 26, 28, 35, 40, 42, 47, 51, 55,
     + 58, 60, 65, 67, 68, 71, 73, 75, 78, 80, 85, 88, 94, 98,103,
     +105,108,110,113,115,117,119,121,126,128,130,133,135,137,143,
     +144,146,148,151,153,155,160,162,165,168,170,174,179,181,185,
     +189,191,192,195,204,206,209,210,215,222,225,229,230,233,236,
     +239,248,257,260,267,273,278,288,296,298,304,311,319,325,329,
     +333,338,341,344,347,350,352,354,356,357,360,363,364,366,368,
     +370,373,374,376,380,382,385,388,390,394,397,401,405,409,413,
     +417,419,424,427,429,432,434,435,439,442,446,450,454,456,460,
     +462,465,467,470,472,475,477,482,489,493,498,502,507,511,517,
     +519,523,525,530,533,539,543,546,550,554,556,560,565,568,573,
     +578,580,581,584,591,594,597,598,602,608,611,614,615,618,621,
     +624,632,640,643,650,663,682,691,696,698,703,709,713,715,717,
     +719,722,725,728,731,734,736,738,740,741,743,745,746,748,750/
*
      DATA NBIT,NBITCH,NBITMX/32,8,30/
#endif
#if defined(CERNLIB_NORD)||defined(CERNLIB_HPUX)
      DATA IX11/
     +3132343726B,4137343231B,4647474644B,0077374144B,4141363426B,
     +0000000077B,3433323226B,4645444236B,4731434546B,0000000077B,
     +4340463326B,4647474645B,3233364144B,0000007731B,7750314326B,
     +0000774343B,3332334526B,4746444136B,3641444647B,0077313233B,
     +4042454626B,3332323335B,4644414035B,4144464747B,7732333540B,
     +3177354726B,0000007747B,3232333626B,4644413533B,4245464747B,
     +3131323336B,4543373432B,3642454646B,0000000077B,4043454626B,
     +3131323437B,4340373432B,4345464645B,7732333640B,4077304027B,
     +7745337750B,3177313125B,4747464542B,3177424546B,4747464542B,
     +7731424546B,4345475026B,3132333537B,3735333231B,7750474543B,
     +3177313125B,4746454340B,4043454647B,0000007731B,3277323226B,
     +7742327747B,0000774732B,3277323226B,7742327747B,4345475026B,
     +3132333537B,3735333231B,5050474543B,0077504377B,4777313125B,
     +7747317747B,0077404034B,4243444430B,3233343640B,0000007732B,
     +4777313125B,7747367731B,3277323226B,0000007746B,3077303024B,
     +7740507740B,0000775050B,3177313125B,7747477747B,3132343625B,
     +3432313030B,4746444236B,4446475050B,0000773642B,3177313125B,
     +4747464542B,7731424546B,3132343625B,3432313030B,4746444236B/
      DATA IX12/
     +4446475050B,4741773642B,0000000077B,3177313125B,4747464542B,
     +7731424546B,0000774740B,3642454726B,3332313133B,4746454335B,
     +3336424547B,0000007731B,3177404030B,0000007747B,3432313125B,
     +4746444137B,0000007747B,5077403027B,0000007740B,4077332624B,
     +7745407733B,0000774552B,4777473126B,0000007731B,7740403027B,
     +0000774050B,3177314726B,7747317747B,4077304027B,7745337750B,
     +3177313125B,4747464542B,3177424546B,4747464542B,7731424546B,
     +3277323226B,0000007746B,4077304027B,7750307750B,3277323226B,
     +7742327747B,0000774732B,3177314726B,7747317747B,4777313125B,
     +7747317747B,3132343625B,3432313030B,4746444236B,4446475050B,
     +4335773642B,0000000077B,0077404034B,4777313125B,7747367731B,
     +4077304027B,0000007750B,3077303024B,7740507740B,0000775050B,
     +3177313125B,7747477747B,3577473127B,7747317743B,3132343625B,
     +3432313030B,4746444236B,4446475050B,0000773642B,4777313125B,
     +7747317747B,3177313125B,4747464542B,7731424546B,7731403127B,
     +4731774731B,0000000077B,3177404030B,0000007747B,3332313127B,
     +4040373635B,4546474777B,7740414243B,3677404026B,3231313233B,
     +4645423633B,4245464747B,0000007736B,3177473126B,0000007747B/
      DATA IX13/
     +2777404025B,3433323130B,4645444137B,0077515047B,3132353126B,
     +4137343231B,4647474644B,0000774743B,3077404024B,7750307750B,
     +0077404034B,3232363632B,4642423636B,7736424246B,4277363626B,
     +4645467742B,3642454747B,3332313133B,7747454335B,4543353331B,
     +4245474746B,3231313336B,0000773233B,4077404033B,7740414037B,
     +4777324126B,7750327740B,0000774731B,7730503024B,3433323227B,
     +4645444236B,4040444546B,4140374077B,0000007740B,5251505124B,
     +4345475152B,3536404142B,4243447734B,3335363740B,2726262731B,
     +0000772730B,4140374033B,4037407740B,0000774041B,4140374033B,
     +3740417740B,3740414140B,0000000077B,7750305024B,3677353531B,
     +7744357736B,0000774435B,4377424231B,7743347743B,0000774334B,
     +7733453330B,4533774533B,0000000077B,3637404231B,4141403736B,
     +3737407737B,4142424140B,4142424135B,7740373740B,3740414137B,
     +4240373636B,0000000077B,4241403631B,3737404142B,4141407741B,
     +3736363740B,3736363743B,7740414140B,4140373741B,3640414242B,
     +0000000077B,7740272217B,4060774026B,0000000077B,3031344024B,
     +3735333130B,4744407740B,4345475050B,3740774041B,4241407736B,
     +0077423677B,3436374024B,3130303133B,4077403432B,4745444241B/
      DATA IX14/
     +4446475050B,0000007740B,2732364024B,5146424077B,4036322777B,
     +4042465177B,0000000077B,4644424024B,4650515150B,4341774144B,
     +3741434444B,3735343435B,3032343777B,3432302727B,3740774036B,
     +4241407736B,0077423677B,5051525223B,4042444647B,2627303236B,
     +4037302726B,3436404141B,4336343333B,5252514745B,0000000077B,
     +4777473125B,0000007731B,3577324630B,3233353636B,4441353332B,
     +4242437746B,4546464543B,0000007743B,4543424025B,5353525147B,
     +4345475152B,3133353642B,2625252627B,3635333127B,0000007740B,
     +3434353734B,4443413735B,7737414344B,3636773535B,4077373777B,
     +7741417740B,4343774242B,0000000077B,4444343434B,7735357734B,
     +3737773636B,4177404077B,7742427741B,0000774343B,4045334033B,
     +4077354077B,7737407743B,0000774140B,4033454033B,4077434077B,
     +7741407735B,0000773740B,3246344032B,4040774044B,4077324077B,
     +7744407734B,0000774640B,7746514623B,2777435043B,0000007750B,
     +7742403630B,4077454033B,0000007740B,7732273223B,3077353035B,
     +0000007751B,7742403630B,4077454033B,0000007740B,4140374033B,
     +0077374041B,4140374033B,0000007740B,4037404133B,7737404141B,
     +0077275125B,3640424431B,4240363535B,0000007744B,4240363431B/
      DATA IX15/
     +3640424343B,0000007734B,0077512723B,2777404023B,0000007751B,
     +2777512723B,0000007751B,3377404030B,7733457745B,3535364033B,
     +4343424036B,0000774042B,7740403633B,4341373533B,7743354243B,
     +4341373533B,4140774143B,3537414343B,0000000077B,4177414133B,
     +0000774434B,4037353633B,3740424342B,7742367735B,3536404233B,
     +4342403635B,7735364042B,3577374333B,0000007743B,3735353733B,
     +3741434341B,3735353777B,7741434341B,3640424333B,4342403635B,
     +7736404243B,4677464627B,3335374244B,3735333232B,0077464442B,
     +3277323226B,4543413634B,4143454646B,0077323436B,3742444627B,
     +3332323335B,4644423735B,0000000077B,4677464627B,3335374244B,
     +3735333232B,0077464442B,4546463227B,3335374244B,3735333232B,
     +0077464442B,4041434533B,7744357740B,4445464627B,4677353742B,
     +3335374244B,3735333232B,0077464442B,3377333327B,4645434036B,
     +0000007746B,4041403734B,7740407737B,4142414033B,4041417740B,
     +0000773436B,4577333327B,7746377733B,0077404034B,2577252521B,
     +4037353230B,4543407740B,7753535250B,3377333327B,4645434036B,
     +0000007746B,3233353727B,4237353332B,4647474644B,0077374244B,
     +3277323226B,4543413634B,4143454646B,0077323436B,4677464627B/
      DATA IX16/
     +3335374244B,3735333232B,0077464442B,3577353531B,7745424036B,
     +3742454630B,4336343334B,4245464645B,0077333437B,4341404033B,
     +7744357745B,3634333327B,4677464341B,0000007746B,4677403230B,
     +0000007740B,4077343025B,7744407734B,0000774450B,4677463330B,
     +0000007733B,4677403230B,3132343640B,0000000077B,3377334630B,
     +7746337746B,3233353726B,3634323131B,5047454340B,4342413777B,
     +7750474645B,3537414327B,7731323334B,4647474543B,4077404345B,
     +4445454442B,3435374143B,0000007733B,3534323027B,4041414037B,
     +4046475077B,0000773536B,3335374227B,3634333232B,4545444240B,
     +3737404244B,7746444240B,3742444530B,7741363535B,3433333541B,
     +7745434136B,3737404230B,4677464340B,3333343742B,4242413634B,
     +0077363741B,3432302726B,7732343535B,4442403634B,7742454646B,
     +3331272625B,3433333434B,4443413735B,4345464645B,4341404041B,
     +0000775045B,3535364032B,7743424036B,4777313527B,3537434546B,
     +3736347734B,7744434241B,3635333130B,7732407746B,3477273526B,
     +4137353333B,4547774543B,5147454444B,0000007752B,3334353227B,
     +4546477732B,7732354043B,3737404230B,4377464340B,3735353640B,
     +3642774442B,4135333334B,7736404242B,3334364030B,4137353433B/
      DATA IX17/
     +4546464543B,0077404244B,4377323625B,2777464544B,0077513431B,
     +3534333327B,4645434137B,4042444546B,7727333436B,3335375127B,
     +3634333232B,4545444240B,0077414344B,3077364126B,0077503532B,
     +3432302726B,3533333535B,4746444237B,0000007747B,3031333525B,
     +3734323130B,5050474542B,3640424446B,0000007733B,4335333127B,
     +4750774745B,7730313345B,2577344424B,3333323026B,3735333232B,
     +5150464442B,0000000077B,2730323424B,3533313027B,4037407737B,
     +5047454341B,0077464750B,3377404030B,7745337745B,0077404036B,
     +4047314031B,4031474077B,0000000077B,4277373731B,4444457742B,
     +3436434545B,7745443534B,4545443534B,3435374244B,7734353534B,
     +4177404036B,4140407741B,0000774041B,4377364033B,7744357741B,
     +0000774435B,7733453330B,4341403634B,4141404043B,4140407743B,
     +0000774041B,4747464627B,4041424446B,4377353637B,3637404142B,
     +3231313234B,0000007732B,4141404036B,4140407740B,0000774041B,
     +4141404036B,4040417740B,0077404141B,7745334530B,3777363633B,
     +7743367737B,0000774336B,4277414133B,7742357742B,0000774235B,
     +7745334530B,4533774533B,0000000077B,3636374132B,3637774140B,
     +3677404177B,3640414137B,3637414140B,3677414077B,3640417737B/
      DATA IX18/
     +0077413736B,4242413733B,4241773740B,4277403777B,4240373741B,
     +4241373740B,4277374077B,4240377741B,0077374142B,7740322725B,
     +4051774031B,0000000077B,4137363625B,2625774242B,3332323130B,
     +4646454335B,7753525047B,3637775325B,7741424137B,4077404030B,
     +7741407737B,3740774137B,3437773436B,4442414077B,4077444177B,
     +3677303234B,4440773032B,4642775046B,3536407750B,3536407735B,
     +4343424077B,7743424077B,4077404030B,7740407740B,4140773740B,
     +4077413777B,4140773637B,4240367742B,3334364077B,4544424077B,
     +4240363477B,3436407744B,7732313132B,4746444240B,3634774647B,
     +4077444240B,3132333536B,4077323030B,4746454342B,3377465050B,
     +7745434035B,4077374030B,7741377741B,5050464340B,4750474547B,
     +4143444345B,3335343537B,3133313031B,4035323030B,0000000077B,
     +4142434432B,3534343540B,3640414140B,4341373535B,0000007744B,
     +4377433533B,0000007735B,5152535327B,3235414446B,3230272730B,
     +5146444135B,0077535352B,4445475026B,3436374142B,3130303133B,
     +4137363433B,5047454442B,0000007750B,3132343731B,4137343231B,
     +4647474644B,0077374144B,4646323232B,0000007732B,4047314031B,
     +0000000077B,4640324032B,0000007740B,3530364030B,5043454033B/
      DATA IX19/
     +0000774042B,4346434227B,4345437742B,0077453277B,3577404033B,
     +7743424036B,0077424036B,3532353627B,3533357736B,0077463377B,
     +3577404033B,7743424036B,0077424036B,4140404136B,0000774041B,
     +4141404036B,0000007740B,4140404136B,0000774041B,0077344433B,
     +3737404235B,0000774240B,4141403634B,0000773640B,0077443432B,
     +3477404032B,0000007744B,3477443432B,0000007744B,3577404033B,
     +7735437743B/
      DATA IY11/
     +3530252452B,5151504540B,3035404550B,0077242425B,5124273052B,
     +0000000077B,2526303152B,3026252424B,5151373432B,0000000077B,
     +3434242452B,4643413635B,4750515150B,0000007745B,4042422452B,
     +0000775124B,3435242452B,4136343333B,5151504643B,0077454750B,
     +2424252752B,4642353025B,4650515150B,3435374243B,7742373534B,
     +2440512452B,0000007724B,3127252452B,4036353433B,5150474542B,
     +4245475051B,3334353640B,2424252731B,0000000077B,4140363352B,
     +3233364041B,2524242527B,5045403327B,7746505151B,2440512451B,
     +7742424051B,2440512452B,3230262524B,3640363534B,4542403736B,
     +7751515047B,2425273153B,3431272524B,5150464441B,7744465051B,
     +2440512452B,3431272524B,5150464441B,0000007751B,2440512451B,
     +4036364024B,0000775151B,2440512450B,7736364024B,2425273153B,
     +3431272524B,5150464441B,4144465051B,0077414140B,2440512453B,
     +7736364051B,0077512444B,5047442450B,4447505151B,0000007742B,
     +2440512452B,7751354042B,5140512447B,0000007751B,2440512454B,
     +4051244051B,0000775124B,2440512453B,7751244051B,3127252453B,
     +5046444134B,4446505151B,2527313441B,0000772424B,2440512452B,
     +3330262524B,7737373635B,3127252453B,5046444134B,4446505151B/
      DATA IY12/
     +2527313441B,5345402424B,0000000077B,2440512452B,3230262524B,
     +4036363534B,0000775136B,2424252752B,3433312725B,4341403735B,
     +5051515046B,0000007746B,2440512450B,0000007724B,5046432453B,
     +4346505151B,0000007724B,2440512451B,0000007751B,2440512454B,
     +4051244051B,0000775124B,2440512452B,0000007751B,4051362451B,
     +0000773624B,2440512452B,7751514024B,2440512451B,7742424051B,
     +2440512452B,3230262524B,3640363534B,4542403736B,7751515047B,
     +2440512447B,0000007724B,2440512451B,7751514051B,2440512451B,
     +4036364024B,0000775151B,2440512452B,7751514024B,2440512453B,
     +7736364051B,3127252453B,5046444134B,4446505151B,2527313441B,
     +3636402424B,0000000077B,0077512444B,2440512452B,7751354042B,
     +2440512451B,0000007751B,2440512454B,4051244051B,0000775124B,
     +2440512453B,7751244051B,3640242451B,7751514036B,3127252453B,
     +5046444134B,4446505151B,2527313441B,0000772424B,2440512453B,
     +7724244051B,2440512452B,3330262524B,7737373635B,4051362451B,
     +5151402424B,0000000077B,2440512450B,0000007724B,2425273151B,
     +5133272524B,2425273140B,7733272524B,3140512452B,4240353332B,
     +4243444443B,3132333540B,0000007731B,5140512452B,0000007724B/
      DATA IY13/
     +3240512453B,4241373332B,3741424343B,0077323233B,3642515152B,
     +2424252732B,4236322725B,0000775151B,4040513054B,7751514040B,
     +0077602044B,4236363246B,4242464642B,7732323636B,2040552052B,
     +3130274055B,2424252730B,3433312725B,4042403735B,3736343331B,
     +5150464240B,4445465051B,0000774645B,4740422445B,7747505150B,
     +2040602053B,4035354060B,0000774343B,7751402754B,2526303151B,
     +3026252424B,4237353432B,5051504740B,0000007747B,2223222154B,
     +2321202021B,5450343025B,3024224056B,5755535044B,5556576060B,
     +0000775756B,3435343345B,5150474033B,0000774750B,3435343345B,
     +5051504033B,5554525047B,0000000077B,7751402754B,2040602047B,
     +4020204060B,0000776060B,2040602047B,4020204060B,0000776060B,
     +4041353150B,4646404242B,0000000077B,2422212047B,3533313026B,
     +2523214037B,3634323027B,5046444240B,4057555351B,5047454341B,
     +6057565452B,0000000077B,2422212047B,3533313026B,2523214037B,
     +3634323027B,5046444240B,4057555351B,5047454341B,6057565452B,
     +0000000077B,4047333360B,5110405134B,0000000077B,4136322654B,
     +4546464543B,3632264043B,4646454341B,4743404345B,5247434052B,
     +0077525240B,2627313454B,4035312726B,3440524542B,2726262731B/
      DATA IY14/
     +4542403531B,0000007752B,4035302554B,4035302540B,5350434040B,
     +5350434040B,0000000077B,4646454254B,3637414345B,3537403736B,
     +2626273133B,3735333127B,3736363740B,4646454341B,4742404245B,
     +5247424052B,0077525240B,3333343555B,5046433634B,4547505151B,
     +3334404143B,2524252731B,4637343127B,4750515150B,0000000077B,
     +3140473153B,0000007747B,3140463150B,3435353432B,3232313132B,
     +4543424031B,4243454646B,0000007742B,4544434053B,3741434445B,
     +3433333435B,4545444335B,3537414344B,3534333334B,0000007740B,
     +4137353444B,4143444443B,4034343537B,4236404137B,3540433540B,
     +4043354043B,4137404236B,0000000077B,3444443444B,4043354034B,
     +4335404335B,3540433540B,4043354043B,0000774335B,3243433245B,
     +3540423540B,4042404042B,0000774240B,4635354645B,4340364340B,
     +4036404036B,0000773640B,3636453246B,3240403245B,4040364040B,
     +4045404045B,0000773640B,4042403655B,4040454033B,0000007740B,
     +4032273250B,3040353035B,0000007751B,4042403655B,4040454033B,
     +0000007740B,4046514650B,2740435043B,0000007750B,2524252645B,
     +0077323127B,5051504745B,0000007747B,4750515045B,7755545250B,
     +0077602053B,3125222047B,5653474236B,0000007760B,3125222047B/
      DATA IY15/
     +5653474236B,0000007760B,0077404055B,4040512755B,0000007740B,
     +4340353555B,0000007743B,3540463250B,7743354043B,4136343345B,
     +3641434443B,0000773334B,7744333545B,3433333445B,7744444036B,
     +3433333445B,3737403736B,4344444340B,0000000077B,3340443345B,
     +0000774141B,3636373345B,4444434137B,7733334043B,3634333345B,
     +4143444341B,7741373637B,3340443345B,0000007733B,3736343345B,
     +3333343637B,4443403740B,7737404344B,4041403645B,3634333436B,
     +7744444341B,3640513352B,3634333334B,5150464341B,0077465051B,
     +3640512451B,3634333334B,5150464341B,0077465051B,3333343651B,
     +4643413634B,4650515150B,0000000077B,3640512452B,3634333334B,
     +5150464341B,0077465051B,3537414151B,3634333334B,5150464341B,
     +0077465051B,3025242447B,7733334051B,5756533352B,3640576060B,
     +3634333334B,5150464341B,0077465051B,3740512452B,3734333334B,
     +0000007751B,2324252444B,7751334024B,2324252445B,5754334024B,
     +0000776060B,3340512450B,7751414045B,0077512444B,3740513357B,
     +3734333334B,3334374051B,7751373433B,3740513352B,3734333334B,
     +0000007751B,4136343352B,5151504643B,3641434650B,0077333334B,
     +3640603351B,3634333334B,5150464341B,0077465051B,3640603352B/
      DATA IY16/
     +3634333334B,5150464341B,0077465051B,4140513346B,7733333436B,
     +3333343651B,4241403634B,5150464543B,0077465051B,5150452447B,
     +7733334051B,5150453352B,3340455051B,0000007751B,3340513350B,
     +0000007751B,3340513353B,4051334051B,0000775133B,3340513351B,
     +0000007751B,3340513350B,6060575551B,0000000077B,3340513351B,
     +7751514033B,4036343353B,5151504643B,3336424550B,3634333340B,
     +7751515046B,3327252452B,4060504236B,3331262424B,3540353534B,
     +4745424036B,4750515150B,0000007744B,3333343652B,5144403534B,
     +5140363340B,0000776055B,3634333351B,5150474441B,4043465051B,
     +2527313335B,7727252424B,3333343550B,4041403634B,5046444241B,
     +7746505151B,2726252447B,3140313130B,4543403533B,5755535147B,
     +0077566060B,3333353752B,4051423634B,3333343642B,7760454035B,
     +3333353752B,5046433634B,4345505151B,2425303340B,3633302624B,
     +0000774240B,5046423345B,7745475151B,3440513351B,4140343333B,
     +4342414041B,7750515150B,2625242450B,7751334051B,3740603353B,
     +5051514744B,4233404246B,4751515046B,0000007745B,4641333351B,
     +4036334051B,7751504643B,2726252450B,3140313130B,4137353332B,
     +4342404242B,5452504644B,7760605755B,4136343351B,5151504744B/
      DATA IY17/
     +3540434650B,0077333334B,3340513353B,3640514641B,0077333334B,
     +5047444151B,4346505151B,3333343540B,7760413634B,3634333353B,
     +5150474441B,4043465051B,0077333435B,3640513352B,0077333334B,
     +3333353752B,5147443634B,3642465051B,0000007733B,4237353453B,
     +5151504745B,3540434650B,4641353333B,0000007760B,5635333351B,
     +3533406060B,7760565340B,3740602453B,3634333335B,5151504643B,
     +3336434650B,0000000077B,4237343353B,5051515045B,5045414045B,
     +4245505151B,0077333437B,4040463350B,7746464040B,0077453242B,
     +3044443047B,5034345040B,0000000077B,2640522650B,3332324052B,
     +3231313233B,4042413634B,4442403534B,4445464645B,7744444343B,
     +3340403343B,4444434040B,0000774343B,3240453246B,4036364045B,
     +0000774141B,7746403250B,3433333445B,3740403736B,4444434036B,
     +0000774343B,2730302751B,3532302626B,2740514743B,5046433531B,
     +5050515252B,0000007751B,3637373643B,4444434036B,0000774343B,
     +3637373643B,4344444036B,0077474543B,7746403250B,2640522645B,
     +4026264052B,0000775252B,2640522645B,4026264052B,0000775252B,
     +4041353150B,4646404242B,0000000077B,3230272645B,3227403634B,
     +3040373440B,4037363432B,5046444241B,4640444140B,4644424051B/
      DATA IY18/
     +0077525150B,3230272646B,3227403634B,3040373440B,4037363432B,
     +5046444241B,4640444140B,4644424051B,0077525150B,4045353551B,
     +4624404635B,0000000077B,2424252753B,4650402725B,3031364244B,
     +3631302727B,4050464442B,5150405050B,7750515252B,4140413350B,
     +4052414052B,3033405252B,2530402526B,2526303340B,3340253040B,
     +3240333131B,3133403332B,3232403331B,3534334033B,4035334040B,
     +4035343340B,7740353340B,3440312750B,4043414036B,5247405247B,
     +2540525240B,2725403027B,3027304030B,3435343140B,3435343140B,
     +3534353540B,4241364035B,4042414042B,4042424136B,4242404241B,
     +4340424241B,4750504746B,4340504745B,4750504746B,5040504745B,
     +7750504750B,4740524750B,4052524052B,4346505047B,3335404242B,
     +2526303332B,3233302625B,4242403533B,4750504643B,0000000077B,
     +4341404046B,4041434444B,3333343637B,4443413634B,0000007744B,
     +3540433545B,0000007743B,4143465053B,3534343536B,4342413736B,
     +3742434444B,0077303235B,4343424052B,3435364142B,4240373534B,
     +3641424343B,3735343435B,0000007740B,3734323147B,4747464441B,
     +3437414446B,0077313132B,3246463246B,0000007732B,3044443047B,
     +0000000077B,4052402646B,0000007726B,4135352750B,3541474347B/
      DATA IY19/
     +0000772735B,4240363551B,4240364043B,0077404040B,3640463345B,
     +4036353235B,0077353335B,4240363551B,4240364043B,0077404040B,
     +4240453245B,4042434643B,0077434543B,3333343443B,0000773735B,
     +4344444343B,0000007743B,4343444443B,0000774745B,0077453245B,
     +4136343244B,0000774543B,4136343243B,0000774543B,0077404046B,
     +4040443446B,0000007740B,4240363646B,0000007742B,3640433545B,
     +7742364042B/
      DATA ISTART/
     +  1,  5,  7, 11, 15, 17, 21, 26, 28, 35, 40, 42, 47, 51, 55,
     + 58, 60, 65, 67, 68, 71, 73, 75, 78, 80, 85, 88, 94, 98,103,
     +105,108,110,113,115,117,119,121,126,128,130,133,135,137,143,
     +144,146,148,151,153,155,160,162,165,168,170,174,179,181,185,
     +189,191,192,195,204,206,209,210,215,222,225,229,230,233,236,
     +239,248,257,260,267,273,278,288,296,298,304,311,319,325,329,
     +333,338,341,344,347,350,352,354,356,357,360,363,364,366,368,
     +370,373,374,376,380,382,385,388,390,394,397,401,405,409,413,
     +417,419,424,427,429,432,434,435,439,442,446,450,454,456,460,
     +462,465,467,470,472,475,477,482,489,493,498,502,507,511,517,
     +519,523,525,530,533,539,543,546,550,554,556,560,565,568,573,
     +578,580,581,584,591,594,597,598,602,608,611,614,615,618,621,
     +624,632,640,643,650,663,682,691,696,698,703,709,713,715,717,
     +719,722,725,728,731,734,736,738,740,741,743,745,746,748,750/
*
      DATA NBIT,NBITCH,NBITMX/32,8,30/
#endif
#if defined(CERNLIB_UNIVAC)
      DATA IX11/
     +"3132343726,"4137343231,"4647474644,"0077374144,"4141363426,
     +"0000000077,"3433323226,"4645444236,"4731434546,"0000000077,
     +"4340463326,"4647474645,"3233364144,"0000007731,"7750314326,
     +"0000774343,"3332334526,"4746444136,"3641444647,"0077313233,
     +"4042454626,"3332323335,"4644414035,"4144464747,"7732333540,
     +"3177354726,"0000007747,"3232333626,"4644413533,"4245464747,
     +"3131323336,"4543373432,"3642454646,"0000000077,"4043454626,
     +"3131323437,"4340373432,"4345464645,"7732333640,"4077304027,
     +"7745337750,"3177313125,"4747464542,"3177424546,"4747464542,
     +"7731424546,"4345475026,"3132333537,"3735333231,"7750474543,
     +"3177313125,"4746454340,"4043454647,"0000007731,"3277323226,
     +"7742327747,"0000774732,"3277323226,"7742327747,"4345475026,
     +"3132333537,"3735333231,"5050474543,"0077504377,"4777313125,
     +"7747317747,"0077404034,"4243444430,"3233343640,"0000007732,
     +"4777313125,"7747367731,"3277323226,"0000007746,"3077303024,
     +"7740507740,"0000775050,"3177313125,"7747477747,"3132343625,
     +"3432313030,"4746444236,"4446475050,"0000773642,"3177313125,
     +"4747464542,"7731424546,"3132343625,"3432313030,"4746444236/
      DATA IX12/
     +"4446475050,"4741773642,"0000000077,"3177313125,"4747464542,
     +"7731424546,"0000774740,"3642454726,"3332313133,"4746454335,
     +"3336424547,"0000007731,"3177404030,"0000007747,"3432313125,
     +"4746444137,"0000007747,"5077403027,"0000007740,"4077332624,
     +"7745407733,"0000774552,"4777473126,"0000007731,"7740403027,
     +"0000774050,"3177314726,"7747317747,"4077304027,"7745337750,
     +"3177313125,"4747464542,"3177424546,"4747464542,"7731424546,
     +"3277323226,"0000007746,"4077304027,"7750307750,"3277323226,
     +"7742327747,"0000774732,"3177314726,"7747317747,"4777313125,
     +"7747317747,"3132343625,"3432313030,"4746444236,"4446475050,
     +"4335773642,"0000000077,"0077404034,"4777313125,"7747367731,
     +"4077304027,"0000007750,"3077303024,"7740507740,"0000775050,
     +"3177313125,"7747477747,"3577473127,"7747317743,"3132343625,
     +"3432313030,"4746444236,"4446475050,"0000773642,"4777313125,
     +"7747317747,"3177313125,"4747464542,"7731424546,"7731403127,
     +"4731774731,"0000000077,"3177404030,"0000007747,"3332313127,
     +"4040373635,"4546474777,"7740414243,"3677404026,"3231313233,
     +"4645423633,"4245464747,"0000007736,"3177473126,"0000007747/
      DATA IX13/
     +"2777404025,"3433323130,"4645444137,"0077515047,"3132353126,
     +"4137343231,"4647474644,"0000774743,"3077404024,"7750307750,
     +"0077404034,"3232363632,"4642423636,"7736424246,"4277363626,
     +"4645467742,"3642454747,"3332313133,"7747454335,"4543353331,
     +"4245474746,"3231313336,"0000773233,"4077404033,"7740414037,
     +"4777324126,"7750327740,"0000774731,"7730503024,"3433323227,
     +"4645444236,"4040444546,"4140374077,"0000007740,"5251505124,
     +"4345475152,"3536404142,"4243447734,"3335363740,"2726262731,
     +"0000772730,"4140374033,"4037407740,"0000774041,"4140374033,
     +"3740417740,"3740414140,"0000000077,"7750305024,"3677353531,
     +"7744357736,"0000774435,"4377424231,"7743347743,"0000774334,
     +"7733453330,"4533774533,"0000000077,"3637404231,"4141403736,
     +"3737407737,"4142424140,"4142424135,"7740373740,"3740414137,
     +"4240373636,"0000000077,"4241403631,"3737404142,"4141407741,
     +"3736363740,"3736363743,"7740414140,"4140373741,"3640414242,
     +"0000000077,"7740272217,"4060774026,"0000000077,"3031344024,
     +"3735333130,"4744407740,"4345475050,"3740774041,"4241407736,
     +"0077423677,"3436374024,"3130303133,"4077403432,"4745444241/
      DATA IX14/
     +"4446475050,"0000007740,"2732364024,"5146424077,"4036322777,
     +"4042465177,"0000000077,"4644424024,"4650515150,"4341774144,
     +"3741434444,"3735343435,"3032343777,"3432302727,"3740774036,
     +"4241407736,"0077423677,"5051525223,"4042444647,"2627303236,
     +"4037302726,"3436404141,"4336343333,"5252514745,"0000000077,
     +"4777473125,"0000007731,"3577324630,"3233353636,"4441353332,
     +"4242437746,"4546464543,"0000007743,"4543424025,"5353525147,
     +"4345475152,"3133353642,"2625252627,"3635333127,"0000007740,
     +"3434353734,"4443413735,"7737414344,"3636773535,"4077373777,
     +"7741417740,"4343774242,"0000000077,"4444343434,"7735357734,
     +"3737773636,"4177404077,"7742427741,"0000774343,"4045334033,
     +"4077354077,"7737407743,"0000774140,"4033454033,"4077434077,
     +"7741407735,"0000773740,"3246344032,"4040774044,"4077324077,
     +"7744407734,"0000774640,"7746514623,"2777435043,"0000007750,
     +"7742403630,"4077454033,"0000007740,"7732273223,"3077353035,
     +"0000007751,"7742403630,"4077454033,"0000007740,"4140374033,
     +"0077374041,"4140374033,"0000007740,"4037404133,"7737404141,
     +"0077275125,"3640424431,"4240363535,"0000007744,"4240363431/
      DATA IX15/
     +"3640424343,"0000007734,"0077512723,"2777404023,"0000007751,
     +"2777512723,"0000007751,"3377404030,"7733457745,"3535364033,
     +"4343424036,"0000774042,"7740403633,"4341373533,"7743354243,
     +"4341373533,"4140774143,"3537414343,"0000000077,"4177414133,
     +"0000774434,"4037353633,"3740424342,"7742367735,"3536404233,
     +"4342403635,"7735364042,"3577374333,"0000007743,"3735353733,
     +"3741434341,"3735353777,"7741434341,"3640424333,"4342403635,
     +"7736404243,"4677464627,"3335374244,"3735333232,"0077464442,
     +"3277323226,"4543413634,"4143454646,"0077323436,"3742444627,
     +"3332323335,"4644423735,"0000000077,"4677464627,"3335374244,
     +"3735333232,"0077464442,"4546463227,"3335374244,"3735333232,
     +"0077464442,"4041434533,"7744357740,"4445464627,"4677353742,
     +"3335374244,"3735333232,"0077464442,"3377333327,"4645434036,
     +"0000007746,"4041403734,"7740407737,"4142414033,"4041417740,
     +"0000773436,"4577333327,"7746377733,"0077404034,"2577252521,
     +"4037353230,"4543407740,"7753535250,"3377333327,"4645434036,
     +"0000007746,"3233353727,"4237353332,"4647474644,"0077374244,
     +"3277323226,"4543413634,"4143454646,"0077323436,"4677464627/
      DATA IX16/
     +"3335374244,"3735333232,"0077464442,"3577353531,"7745424036,
     +"3742454630,"4336343334,"4245464645,"0077333437,"4341404033,
     +"7744357745,"3634333327,"4677464341,"0000007746,"4677403230,
     +"0000007740,"4077343025,"7744407734,"0000774450,"4677463330,
     +"0000007733,"4677403230,"3132343640,"0000000077,"3377334630,
     +"7746337746,"3233353726,"3634323131,"5047454340,"4342413777,
     +"7750474645,"3537414327,"7731323334,"4647474543,"4077404345,
     +"4445454442,"3435374143,"0000007733,"3534323027,"4041414037,
     +"4046475077,"0000773536,"3335374227,"3634333232,"4545444240,
     +"3737404244,"7746444240,"3742444530,"7741363535,"3433333541,
     +"7745434136,"3737404230,"4677464340,"3333343742,"4242413634,
     +"0077363741,"3432302726,"7732343535,"4442403634,"7742454646,
     +"3331272625,"3433333434,"4443413735,"4345464645,"4341404041,
     +"0000775045,"3535364032,"7743424036,"4777313527,"3537434546,
     +"3736347734,"7744434241,"3635333130,"7732407746,"3477273526,
     +"4137353333,"4547774543,"5147454444,"0000007752,"3334353227,
     +"4546477732,"7732354043,"3737404230,"4377464340,"3735353640,
     +"3642774442,"4135333334,"7736404242,"3334364030,"4137353433/
      DATA IX17/
     +"4546464543,"0077404244,"4377323625,"2777464544,"0077513431,
     +"3534333327,"4645434137,"4042444546,"7727333436,"3335375127,
     +"3634333232,"4545444240,"0077414344,"3077364126,"0077503532,
     +"3432302726,"3533333535,"4746444237,"0000007747,"3031333525,
     +"3734323130,"5050474542,"3640424446,"0000007733,"4335333127,
     +"4750774745,"7730313345,"2577344424,"3333323026,"3735333232,
     +"5150464442,"0000000077,"2730323424,"3533313027,"4037407737,
     +"5047454341,"0077464750,"3377404030,"7745337745,"0077404036,
     +"4047314031,"4031474077,"0000000077,"4277373731,"4444457742,
     +"3436434545,"7745443534,"4545443534,"3435374244,"7734353534,
     +"4177404036,"4140407741,"0000774041,"4377364033,"7744357741,
     +"0000774435,"7733453330,"4341403634,"4141404043,"4140407743,
     +"0000774041,"4747464627,"4041424446,"4377353637,"3637404142,
     +"3231313234,"0000007732,"4141404036,"4140407740,"0000774041,
     +"4141404036,"4040417740,"0077404141,"7745334530,"3777363633,
     +"7743367737,"0000774336,"4277414133,"7742357742,"0000774235,
     +"7745334530,"4533774533,"0000000077,"3636374132,"3637774140,
     +"3677404177,"3640414137,"3637414140,"3677414077,"3640417737/
      DATA IX18/
     +"0077413736,"4242413733,"4241773740,"4277403777,"4240373741,
     +"4241373740,"4277374077,"4240377741,"0077374142,"7740322725,
     +"4051774031,"0000000077,"4137363625,"2625774242,"3332323130,
     +"4646454335,"7753525047,"3637775325,"7741424137,"4077404030,
     +"7741407737,"3740774137,"3437773436,"4442414077,"4077444177,
     +"3677303234,"4440773032,"4642775046,"3536407750,"3536407735,
     +"4343424077,"7743424077,"4077404030,"7740407740,"4140773740,
     +"4077413777,"4140773637,"4240367742,"3334364077,"4544424077,
     +"4240363477,"3436407744,"7732313132,"4746444240,"3634774647,
     +"4077444240,"3132333536,"4077323030,"4746454342,"3377465050,
     +"7745434035,"4077374030,"7741377741,"5050464340,"4750474547,
     +"4143444345,"3335343537,"3133313031,"4035323030,"0000000077,
     +"4142434432,"3534343540,"3640414140,"4341373535,"0000007744,
     +"4377433533,"0000007735,"5152535327,"3235414446,"3230272730,
     +"5146444135,"0077535352,"4445475026,"3436374142,"3130303133,
     +"4137363433,"5047454442,"0000007750,"3132343731,"4137343231,
     +"4647474644,"0077374144,"4646323232,"0000007732,"4047314031,
     +"0000000077,"4640324032,"0000007740,"3530364030,"5043454033/
      DATA IX19/
     +"0000774042,"4346434227,"4345437742,"0077453277,"3577404033,
     +"7743424036,"0077424036,"3532353627,"3533357736,"0077463377,
     +"3577404033,"7743424036,"0077424036,"4140404136,"0000774041,
     +"4141404036,"0000007740,"4140404136,"0000774041,"0077344433,
     +"3737404235,"0000774240,"4141403634,"0000773640,"0077443432,
     +"3477404032,"0000007744,"3477443432,"0000007744,"3577404033,
     +"7735437743/
      DATA IY11/
     +"3530252452,"5151504540,"3035404550,"0077242425,"5124273052,
     +"0000000077,"2526303152,"3026252424,"5151373432,"0000000077,
     +"3434242452,"4643413635,"4750515150,"0000007745,"4042422452,
     +"0000775124,"3435242452,"4136343333,"5151504643,"0077454750,
     +"2424252752,"4642353025,"4650515150,"3435374243,"7742373534,
     +"2440512452,"0000007724,"3127252452,"4036353433,"5150474542,
     +"4245475051,"3334353640,"2424252731,"0000000077,"4140363352,
     +"3233364041,"2524242527,"5045403327,"7746505151,"2440512451,
     +"7742424051,"2440512452,"3230262524,"3640363534,"4542403736,
     +"7751515047,"2425273153,"3431272524,"5150464441,"7744465051,
     +"2440512452,"3431272524,"5150464441,"0000007751,"2440512451,
     +"4036364024,"0000775151,"2440512450,"7736364024,"2425273153,
     +"3431272524,"5150464441,"4144465051,"0077414140,"2440512453,
     +"7736364051,"0077512444,"5047442450,"4447505151,"0000007742,
     +"2440512452,"7751354042,"5140512447,"0000007751,"2440512454,
     +"4051244051,"0000775124,"2440512453,"7751244051,"3127252453,
     +"5046444134,"4446505151,"2527313441,"0000772424,"2440512452,
     +"3330262524,"7737373635,"3127252453,"5046444134,"4446505151/
      DATA IY12/
     +"2527313441,"5345402424,"0000000077,"2440512452,"3230262524,
     +"4036363534,"0000775136,"2424252752,"3433312725,"4341403735,
     +"5051515046,"0000007746,"2440512450,"0000007724,"5046432453,
     +"4346505151,"0000007724,"2440512451,"0000007751,"2440512454,
     +"4051244051,"0000775124,"2440512452,"0000007751,"4051362451,
     +"0000773624,"2440512452,"7751514024,"2440512451,"7742424051,
     +"2440512452,"3230262524,"3640363534,"4542403736,"7751515047,
     +"2440512447,"0000007724,"2440512451,"7751514051,"2440512451,
     +"4036364024,"0000775151,"2440512452,"7751514024,"2440512453,
     +"7736364051,"3127252453,"5046444134,"4446505151,"2527313441,
     +"3636402424,"0000000077,"0077512444,"2440512452,"7751354042,
     +"2440512451,"0000007751,"2440512454,"4051244051,"0000775124,
     +"2440512453,"7751244051,"3640242451,"7751514036,"3127252453,
     +"5046444134,"4446505151,"2527313441,"0000772424,"2440512453,
     +"7724244051,"2440512452,"3330262524,"7737373635,"4051362451,
     +"5151402424,"0000000077,"2440512450,"0000007724,"2425273151,
     +"5133272524,"2425273140,"7733272524,"3140512452,"4240353332,
     +"4243444443,"3132333540,"0000007731,"5140512452,"0000007724/
      DATA IY13/
     +"3240512453,"4241373332,"3741424343,"0077323233,"3642515152,
     +"2424252732,"4236322725,"0000775151,"4040513054,"7751514040,
     +"0077602044,"4236363246,"4242464642,"7732323636,"2040552052,
     +"3130274055,"2424252730,"3433312725,"4042403735,"3736343331,
     +"5150464240,"4445465051,"0000774645,"4740422445,"7747505150,
     +"2040602053,"4035354060,"0000774343,"7751402754,"2526303151,
     +"3026252424,"4237353432,"5051504740,"0000007747,"2223222154,
     +"2321202021,"5450343025,"3024224056,"5755535044,"5556576060,
     +"0000775756,"3435343345,"5150474033,"0000774750,"3435343345,
     +"5051504033,"5554525047,"0000000077,"7751402754,"2040602047,
     +"4020204060,"0000776060,"2040602047,"4020204060,"0000776060,
     +"4041353150,"4646404242,"0000000077,"2422212047,"3533313026,
     +"2523214037,"3634323027,"5046444240,"4057555351,"5047454341,
     +"6057565452,"0000000077,"2422212047,"3533313026,"2523214037,
     +"3634323027,"5046444240,"4057555351,"5047454341,"6057565452,
     +"0000000077,"4047333360,"5110405134,"0000000077,"4136322654,
     +"4546464543,"3632264043,"4646454341,"4743404345,"5247434052,
     +"0077525240,"2627313454,"4035312726,"3440524542,"2726262731/
      DATA IY14/
     +"4542403531,"0000007752,"4035302554,"4035302540,"5350434040,
     +"5350434040,"0000000077,"4646454254,"3637414345,"3537403736,
     +"2626273133,"3735333127,"3736363740,"4646454341,"4742404245,
     +"5247424052,"0077525240,"3333343555,"5046433634,"4547505151,
     +"3334404143,"2524252731,"4637343127,"4750515150,"0000000077,
     +"3140473153,"0000007747,"3140463150,"3435353432,"3232313132,
     +"4543424031,"4243454646,"0000007742,"4544434053,"3741434445,
     +"3433333435,"4545444335,"3537414344,"3534333334,"0000007740,
     +"4137353444,"4143444443,"4034343537,"4236404137,"3540433540,
     +"4043354043,"4137404236,"0000000077,"3444443444,"4043354034,
     +"4335404335,"3540433540,"4043354043,"0000774335,"3243433245,
     +"3540423540,"4042404042,"0000774240,"4635354645,"4340364340,
     +"4036404036,"0000773640,"3636453246,"3240403245,"4040364040,
     +"4045404045,"0000773640,"4042403655,"4040454033,"0000007740,
     +"4032273250,"3040353035,"0000007751,"4042403655,"4040454033,
     +"0000007740,"4046514650,"2740435043,"0000007750,"2524252645,
     +"0077323127,"5051504745,"0000007747,"4750515045,"7755545250,
     +"0077602053,"3125222047,"5653474236,"0000007760,"3125222047/
      DATA IY15/
     +"5653474236,"0000007760,"0077404055,"4040512755,"0000007740,
     +"4340353555,"0000007743,"3540463250,"7743354043,"4136343345,
     +"3641434443,"0000773334,"7744333545,"3433333445,"7744444036,
     +"3433333445,"3737403736,"4344444340,"0000000077,"3340443345,
     +"0000774141,"3636373345,"4444434137,"7733334043,"3634333345,
     +"4143444341,"7741373637,"3340443345,"0000007733,"3736343345,
     +"3333343637,"4443403740,"7737404344,"4041403645,"3634333436,
     +"7744444341,"3640513352,"3634333334,"5150464341,"0077465051,
     +"3640512451,"3634333334,"5150464341,"0077465051,"3333343651,
     +"4643413634,"4650515150,"0000000077,"3640512452,"3634333334,
     +"5150464341,"0077465051,"3537414151,"3634333334,"5150464341,
     +"0077465051,"3025242447,"7733334051,"5756533352,"3640576060,
     +"3634333334,"5150464341,"0077465051,"3740512452,"3734333334,
     +"0000007751,"2324252444,"7751334024,"2324252445,"5754334024,
     +"0000776060,"3340512450,"7751414045,"0077512444,"3740513357,
     +"3734333334,"3334374051,"7751373433,"3740513352,"3734333334,
     +"0000007751,"4136343352,"5151504643,"3641434650,"0077333334,
     +"3640603351,"3634333334,"5150464341,"0077465051,"3640603352/
      DATA IY16/
     +"3634333334,"5150464341,"0077465051,"4140513346,"7733333436,
     +"3333343651,"4241403634,"5150464543,"0077465051,"5150452447,
     +"7733334051,"5150453352,"3340455051,"0000007751,"3340513350,
     +"0000007751,"3340513353,"4051334051,"0000775133,"3340513351,
     +"0000007751,"3340513350,"6060575551,"0000000077,"3340513351,
     +"7751514033,"4036343353,"5151504643,"3336424550,"3634333340,
     +"7751515046,"3327252452,"4060504236,"3331262424,"3540353534,
     +"4745424036,"4750515150,"0000007744,"3333343652,"5144403534,
     +"5140363340,"0000776055,"3634333351,"5150474441,"4043465051,
     +"2527313335,"7727252424,"3333343550,"4041403634,"5046444241,
     +"7746505151,"2726252447,"3140313130,"4543403533,"5755535147,
     +"0077566060,"3333353752,"4051423634,"3333343642,"7760454035,
     +"3333353752,"5046433634,"4345505151,"2425303340,"3633302624,
     +"0000774240,"5046423345,"7745475151,"3440513351,"4140343333,
     +"4342414041,"7750515150,"2625242450,"7751334051,"3740603353,
     +"5051514744,"4233404246,"4751515046,"0000007745,"4641333351,
     +"4036334051,"7751504643,"2726252450,"3140313130,"4137353332,
     +"4342404242,"5452504644,"7760605755,"4136343351,"5151504744/
      DATA IY17/
     +"3540434650,"0077333334,"3340513353,"3640514641,"0077333334,
     +"5047444151,"4346505151,"3333343540,"7760413634,"3634333353,
     +"5150474441,"4043465051,"0077333435,"3640513352,"0077333334,
     +"3333353752,"5147443634,"3642465051,"0000007733,"4237353453,
     +"5151504745,"3540434650,"4641353333,"0000007760,"5635333351,
     +"3533406060,"7760565340,"3740602453,"3634333335,"5151504643,
     +"3336434650,"0000000077,"4237343353,"5051515045,"5045414045,
     +"4245505151,"0077333437,"4040463350,"7746464040,"0077453242,
     +"3044443047,"5034345040,"0000000077,"2640522650,"3332324052,
     +"3231313233,"4042413634,"4442403534,"4445464645,"7744444343,
     +"3340403343,"4444434040,"0000774343,"3240453246,"4036364045,
     +"0000774141,"7746403250,"3433333445,"3740403736,"4444434036,
     +"0000774343,"2730302751,"3532302626,"2740514743,"5046433531,
     +"5050515252,"0000007751,"3637373643,"4444434036,"0000774343,
     +"3637373643,"4344444036,"0077474543,"7746403250,"2640522645,
     +"4026264052,"0000775252,"2640522645,"4026264052,"0000775252,
     +"4041353150,"4646404242,"0000000077,"3230272645,"3227403634,
     +"3040373440,"4037363432,"5046444241,"4640444140,"4644424051/
      DATA IY18/
     +"0077525150,"3230272646,"3227403634,"3040373440,"4037363432,
     +"5046444241,"4640444140,"4644424051,"0077525150,"4045353551,
     +"4624404635,"0000000077,"2424252753,"4650402725,"3031364244,
     +"3631302727,"4050464442,"5150405050,"7750515252,"4140413350,
     +"4052414052,"3033405252,"2530402526,"2526303340,"3340253040,
     +"3240333131,"3133403332,"3232403331,"3534334033,"4035334040,
     +"4035343340,"7740353340,"3440312750,"4043414036,"5247405247,
     +"2540525240,"2725403027,"3027304030,"3435343140,"3435343140,
     +"3534353540,"4241364035,"4042414042,"4042424136,"4242404241,
     +"4340424241,"4750504746,"4340504745,"4750504746,"5040504745,
     +"7750504750,"4740524750,"4052524052,"4346505047,"3335404242,
     +"2526303332,"3233302625,"4242403533,"4750504643,"0000000077,
     +"4341404046,"4041434444,"3333343637,"4443413634,"0000007744,
     +"3540433545,"0000007743,"4143465053,"3534343536,"4342413736,
     +"3742434444,"0077303235,"4343424052,"3435364142,"4240373534,
     +"3641424343,"3735343435,"0000007740,"3734323147,"4747464441,
     +"3437414446,"0077313132,"3246463246,"0000007732,"3044443047,
     +"0000000077,"4052402646,"0000007726,"4135352750,"3541474347/
      DATA IY19/
     +"0000772735,"4240363551,"4240364043,"0077404040,"3640463345,
     +"4036353235,"0077353335,"4240363551,"4240364043,"0077404040,
     +"4240453245,"4042434643,"0077434543,"3333343443,"0000773735,
     +"4344444343,"0000007743,"4343444443,"0000774745,"0077453245,
     +"4136343244,"0000774543,"4136343243,"0000774543,"0077404046,
     +"4040443446,"0000007740,"4240363646,"0000007742,"3640433545,
     +"7742364042/
      DATA ISTART/
     +  1,  5,  7, 11, 15, 17, 21, 26, 28, 35, 40, 42, 47, 51, 55,
     + 58, 60, 65, 67, 68, 71, 73, 75, 78, 80, 85, 88, 94, 98,103,
     +105,108,110,113,115,117,119,121,126,128,130,133,135,137,143,
     +144,146,148,151,153,155,160,162,165,168,170,174,179,181,185,
     +189,191,192,195,204,206,209,210,215,222,225,229,230,233,236,
     +239,248,257,260,267,273,278,288,296,298,304,311,319,325,329,
     +333,338,341,344,347,350,352,354,356,357,360,363,364,366,368,
     +370,373,374,376,380,382,385,388,390,394,397,401,405,409,413,
     +417,419,424,427,429,432,434,435,439,442,446,450,454,456,460,
     +462,465,467,470,472,475,477,482,489,493,498,502,507,511,517,
     +519,523,525,530,533,539,543,546,550,554,556,560,565,568,573,
     +578,580,581,584,591,594,597,598,602,608,611,614,615,618,621,
     +624,632,640,643,650,663,682,691,696,698,703,709,713,715,717,
     +719,722,725,728,731,734,736,738,740,741,743,745,746,748,750/
*
      DATA NBIT,NBITCH,NBITMX/36,6,30/
#endif
#if defined(CERNLIB_SUN)||defined(CERNLIB_SGI)||defined(CERNLIB_IBMRT)||defined(CERNLIB_DECS)||defined(CERNLIB_MSDOS)||defined(CERNLIB_LINUX)||defined(CERNLIB_CVY)||defined(CERNLIB_WINNT)
      SAVE IA
# if defined(CERNLIB_F90) || defined(CERNLIB_QFEPC) || defined(CERNLIB_QFMSOFT)
      DATA (IX11(I),I=1,50)/
     +Z'1969C7D6',Z'217DC699',Z'269E79A4',Z'00FDF864',Z'2185E716',
     +Z'0000003F',Z'1C6DA696',Z'2696489E',Z'27663966',Z'0000003F',
     +Z'238266D6',Z'269E79A5',Z'1A6DE864',Z'00000FD9',Z'3FA198D6',
     +Z'0003F8E3',Z'1B69B956',Z'279A485E',Z'1E8649A7',Z'00FD969B',
     +Z'208A5996',Z'1B69A6DD',Z'2692181D',Z'219269E7',Z'3F69B760',
     +Z'19FDD9D6',Z'00000FE7',Z'1A69B796',Z'2692175B',Z'229669E7',
     +Z'1965A6DE',Z'258DF71A',Z'1E8A59A6',Z'0000003F',Z'208E5996',
     +Z'1965A71F',Z'2381F71A',Z'239669A5',Z'3F69B7A0',Z'20FD8817',
     +Z'3F95BFE8',Z'19FD9655',Z'279E6962',Z'19FE2966',Z'279E6962',
     +Z'3F662966',Z'23967A16',Z'1969B75F',Z'1F75B699',Z'3FA27963'/
      DATA (IX11(I), I=51,108)/
     +Z'19FD9655',Z'279A58E0',Z'208E59A7',Z'00000FD9',Z'1AFDA696',
     +Z'3F89AFE7',Z'0003F9DA',Z'1AFDA696',Z'3F89AFE7',Z'23967A16',
     +Z'1969B75F',Z'1F75B699',Z'28A27963',Z'00FE88FF',Z'27FD9655',
     +Z'3F9D9FE7',Z'00FE081C',Z'228E4918',Z'1A6DC7A0',Z'00000FDA',
     +Z'27FD9655',Z'3F9DEFD9',Z'1AFDA696',Z'00000FE6',Z'18FD8614',
     +Z'3F828FE0',Z'0003FA28',Z'19FD9655',Z'3F9E7FE7',Z'1969C795',
     +Z'1C699618',Z'279A489E',Z'249A7A28',Z'0003F7A2',Z'19FD9655',
     +Z'279E6962',Z'3F662966',Z'1969C795',Z'1C699618',Z'279A489E',
     +Z'249A7A28',Z'2787F7A2',Z'0000003F',Z'19FD9655',Z'279E6962',
     +Z'3F662966',Z'0003F9E0',Z'1E8A59D6',Z'1B69965B',Z'279A58DD',
     +Z'1B7A2967',Z'00000FD9',Z'19FE0818',Z'00000FE7',Z'1C699655',
     +Z'279A485F',Z'00000FE7',Z'28FE0617'/
      DATA (IX12(I),I=1,50)/
     +Z'00000FE0',Z'20FDB594',Z'3F960FDB',Z'0003F96A',Z'27FE7656',
     +Z'00000FD9',Z'3F820617',Z'0003F828',Z'19FD99D6',Z'3F9D9FE7',
     +Z'20FD8817',Z'3F95BFE8',Z'19FD9655',Z'279E6962',Z'19FE2966',
     +Z'279E6962',Z'3F662966',Z'1AFDA696',Z'00000FE6',Z'20FD8817',
     +Z'3FA18FE8',Z'1AFDA696',Z'3F89AFE7',Z'0003F9DA',Z'19FD99D6',
     +Z'3F9D9FE7',Z'27FD9655',Z'3F9D9FE7',Z'1969C795',Z'1C699618',
     +Z'279A489E',Z'249A7A28',Z'2377F7A2',Z'0000003F',Z'00FE081C',
     +Z'27FD9655',Z'3F9DEFD9',Z'20FD8817',Z'00000FE8',Z'18FD8614',
     +Z'3F828FE0',Z'0003FA28',Z'19FD9655',Z'3F9E7FE7',Z'1DFE7657',
     +Z'3F9D9FE3',Z'1969C795',Z'1C699618',Z'279A489E',Z'249A7A28'/
      DATA (IX12(I), I=51,108)/
     +Z'0003F7A2',Z'27FD9655',Z'3F9D9FE7',Z'19FD9655',Z'279E6962',
     +Z'3F662966',Z'3F660657',Z'2767F9D9',Z'0000003F',Z'19FE0818',
     +Z'00000FE7',Z'1B699657',Z'2081F79D',Z'259A79FF',Z'3F8218A3',
     +Z'1EFE0816',Z'1A65969B',Z'2696279B',Z'229669E7',Z'00000FDE',
     +Z'19FE7656',Z'00000FE7',Z'17FE0815',Z'1C6DA658',Z'2696485F',
     +Z'00FE9A27',Z'1969D656',Z'217DC699',Z'269E79A4',Z'0003F9E3',
     +Z'18FE0814',Z'3FA18FE8',Z'00FE081C',Z'1A69E79A',Z'268A279E',
     +Z'3F7A28A6',Z'22FDE796',Z'26966FE2',Z'1E8A59E7',Z'1B69965B',
     +Z'3F9E58DD',Z'258DD6D9',Z'229679E6',Z'1A6596DE',Z'0003F69B',
     +Z'20FE081B',Z'3F82181F',Z'27FDA856',Z'3FA1AFE0',Z'0003F9D9',
     +Z'3F628614',Z'1C6DA697',Z'2696489E',Z'20824966',Z'2181F83F',
     +Z'00000FE0',Z'2AA68A54',Z'23967A6A'/
      DATA (IX13(I),I=1,50)/
     +Z'1D7A0862',Z'228E4FDC',Z'1B75E7E0',Z'175965D9',Z'0003F5D8',
     +Z'2181F81B',Z'207E0FE0',Z'0003F821',Z'2181F81B',Z'1F821FE0',
     +Z'1F821860',Z'0000003F',Z'3FA18A14',Z'1EFDD759',Z'3F91DFDE',
     +Z'0003F91D',Z'23FE2899',Z'3F8DCFE3',Z'0003F8DC',Z'3F6E56D8',
     +Z'256FF95B',Z'0000003F',Z'1E7E0899',Z'218607DE',Z'1F7E0FDF',
     +Z'218A2860',Z'218A285D',Z'3F81F7E0',Z'1F82185F',Z'2281F79E',
     +Z'0000003F',Z'22860799',Z'1F7E0862',Z'21860FE1',Z'1F79E7E0',
     +Z'1F79E7E3',Z'3F821860',Z'2181F7E1',Z'1E8218A2',Z'0000003F',
     +Z'3F81748F',Z'20C3F816',Z'0000003F',Z'1865C814',Z'1F75B658',
     +Z'27920FE0',Z'23967A28',Z'1F83F821',Z'22860FDE',Z'00FE27BF'/
      DATA (IX13(I), I=51,108)/
     +Z'1C79F814',Z'1961865B',Z'20FE071A',Z'279648A1',Z'249A7A28',
     +Z'00000FE0',Z'1769E814',Z'299A283F',Z'2079A5FF',Z'208A6A7F',
     +Z'0000003F',Z'26922814',Z'26A29A68',Z'2387F864',Z'1F863924',
     +Z'1F75C71D',Z'1869C7FF',Z'1C6985D7',Z'1F83F81E',Z'22860FDE',
     +Z'00FE27BF',Z'28A6AA93',Z'208A49A7',Z'165D869E',Z'207D85D6',
     +Z'1C7A0861',Z'2379C6DB',Z'2AAA99E5',Z'0000003F',Z'27FE7655',
     +Z'00000FD9',Z'1DFDA998',Z'1A6DD79E',Z'2485D6DA',Z'228A3FE6',
     +Z'259A6963',Z'00000FE3',Z'258E2815',Z'2BAEAA67',Z'23967A6A',
     +Z'196DD7A2',Z'16555597',Z'1E75B657',Z'00000FE0',Z'1C71D7DC',
     +Z'248E17DD',Z'3F7E18E4',Z'1E7BF75D',Z'20FDF7FF',Z'3F861FE0',
     +Z'238FF8A2',Z'0000003F',Z'2491C71C',Z'3F75DFDC',Z'1F7FF79E',
     +Z'21FE083F',Z'3F8A2FE1',Z'0003F8E3'/
      DATA (IX14(I),I=1,50)/
     +Z'2095B81B',Z'20FDD83F',Z'3F7E0FE3',Z'0003F860',Z'206E581B',
     +Z'20FE383F',Z'3F860FDD',Z'0003F7E0',Z'1A99C81A',Z'2083F824',
     +Z'20FDA83F',Z'3F920FDC',Z'0003F9A0',Z'3F9A9993',Z'17FE3A23',
     +Z'00000FE8',Z'3F8A0798',Z'20FE581B',Z'00000FE0',Z'3F697693',
     +Z'18FDD61D',Z'00000FE9',Z'3F8A0798',Z'20FE581B',Z'00000FE0',
     +Z'2181F81B',Z'00FDF821',Z'2181F81B',Z'00000FE0',Z'207E085B',
     +Z'3F7E0861',Z'00FD7A55',Z'1E822919',Z'2281E75D',Z'00000FE4',
     +Z'2281E719',Z'1E8228E3',Z'00000FDC',Z'00FE95D3',Z'17FE0813',
     +Z'00000FE9',Z'17FE95D3',Z'00000FE9',Z'1BFE0818',Z'3F6E5FE5',
     +Z'1D75E81B',Z'238E281E',Z'0003F822',Z'3F82079B',Z'2385F75B'/
      DATA (IX14(I), I=51,108)/
     +Z'3F8DD8A3',Z'2385F75B',Z'2183F863',Z'1D7E18E3',Z'0000003F',
     +Z'21FE185B',Z'0003F91C',Z'207DD79B',Z'1F8228E2',Z'3F89EFDD',
     +Z'1D7A089B',Z'238A079D',Z'3F75E822',Z'1DFDF8DB',Z'00000FE3',
     +Z'1F75D7DB',Z'1F8638E1',Z'1F75D7FF',Z'3F8638E1',Z'1E8228DB',
     +Z'238A079D',Z'3F7A08A3',Z'26FE6997',Z'1B75F8A4',Z'1F75B69A',
     +Z'00FE6922',Z'1AFDA696',Z'258E179C',Z'218E59A6',Z'00FDA71E',
     +Z'1F8A4997',Z'1B69A6DD',Z'269227DD',Z'0000003F',Z'26FE6997',
     +Z'1B75F8A4',Z'1F75B69A',Z'00FE6922',Z'259A6697',Z'1B75F8A4',
     +Z'1F75B69A',Z'00FE6922',Z'2086395B',Z'3F91DFE0',Z'24966997',
     +Z'26FDD7E2',Z'1B75F8A4',Z'1F75B69A',Z'00FE6922',Z'1BFDB6D7',
     +Z'2696381E',Z'00000FE6',Z'208607DC',Z'3F820FDF',Z'218A181B',
     +Z'20861FE0',Z'0003F71E',Z'25FDB6D7'/
      DATA (IX15(I),I=1,50)/
     +Z'3F99FFDB',Z'00FE081C',Z'15FD5551',Z'207DD698',Z'258E0FE0',
     +Z'3FAEBAA8',Z'1BFDB6D7',Z'2696381E',Z'00000FE6',Z'1A6DD7D7',
     +Z'227DD6DA',Z'269E79A4',Z'00FDF8A4',Z'1AFDA696',Z'258E179C',
     +Z'218E59A6',Z'00FDA71E',Z'26FE6997',Z'1B75F8A4',Z'1F75B69A',
     +Z'00FE6922',Z'1DFDD759',Z'3F96281E',Z'1F8A5998',Z'2379C6DC',
     +Z'229669A5',Z'00FDB71F',Z'2386081B',Z'3F91DFE5',Z'1E71B6D7',
     +Z'26FE68E1',Z'00000FE6',Z'26FE0698',Z'00000FE0',Z'20FDC615',
     +Z'3F920FDC',Z'0003F928',Z'26FE66D8',Z'00000FDB',Z'26FE0698',
     +Z'1969C7A0',Z'0000003F',Z'1BFDB998',Z'3F99BFE6',Z'1A6DD7D6',
     +Z'1E71A659',Z'289E58E0',Z'238A17FF',Z'3FA279A5',Z'1D7E18D7'/
      DATA (IX15(I), I=51,108)/
     +Z'3F65A6DC',Z'269E7963',Z'20FE08E5',Z'24965922',Z'1C75F863',
     +Z'00000FDB',Z'1D71A617',Z'2086181F',Z'209A7A3F',Z'0003F75E',
     +Z'1B75F897',Z'1E71B69A',Z'259648A0',Z'1F7E08A4',Z'3F9A48A0',
     +Z'1F8A4958',Z'3F85E75D',Z'1C6DB761',Z'3F96385E',Z'1F7E0898',
     +Z'26FE68E0',Z'1B6DC7E2',Z'228A179C',Z'00FDE7E1',Z'1C6985D6',
     +Z'3F69C75D',Z'248A079C',Z'3F8A59A6',Z'1B657595',Z'1C6DB71C',
     +Z'248E17DD',Z'239669A5',Z'23860821',Z'0003FA25',Z'1D75E81A',
     +Z'3F8E281E',Z'27FD9757',Z'1D7E3966',Z'1F79CFDC',Z'3F9238A1',
     +Z'1E75B658',Z'3F6A0FE6',Z'1CFD7756',Z'217DD6DB',Z'259FF963',
     +Z'299E5924',Z'00000FEA',Z'1B71D697',Z'259A7FDA',Z'3F69D823',
     +Z'1F7E0898',Z'23FE68E0',Z'1F75D7A0',Z'1E8BF922',Z'2175B6DC',
     +Z'3F7A08A2',Z'1B71E818',Z'217DD71B'/
      DATA (IX16(I),I=1,50)/
     +Z'259A6963',Z'00FE08A4',Z'23FDA795',Z'17FE6964',Z'00FE9719',
     +Z'1D71B6D7',Z'2696385F',Z'208A4966',Z'3F5DB71E',Z'1B75FA57',
     +Z'1E71B69A',Z'259648A0',Z'00FE18E4',Z'18FDE856',Z'00FE875A',
     +Z'1C6985D6',Z'1D6DB75D',Z'279A489F',Z'00000FE7',Z'1865B755',
     +Z'1F71A658',Z'28A27962',Z'1E822926',Z'00000FDB',Z'2375B657',
     +Z'27A3F9E5',Z'3F6196E5',Z'15FDC914',Z'1B6DA616',Z'1F75B69A',
     +Z'29A26922',Z'0000003F',Z'1761A714',Z'1D6D9617',Z'207E0FDF',
     +Z'289E58E1',Z'00FE69E8',Z'1BFE0818',Z'3F95BFE5',Z'00FE081E',
     +Z'209D9819',Z'2066783F',Z'0000003F',Z'22FDF7D9',Z'24925FE2',
     +Z'1C7A3965',Z'3F96475C',Z'2596475C',Z'1C75F8A4',Z'3F71D75C'/
      DATA (IX16(I), I=51,108)/
     +Z'21FE081E',Z'21820FE1',Z'0003F821',Z'23FDE81B',Z'3F91DFE1',
     +Z'0003F91D',Z'3F6E56D8',Z'2386079C',Z'21860823',Z'21820FE3',
     +Z'0003F821',Z'279E6997',Z'20862926',Z'23FDD79F',Z'1E7E0862',
     +Z'1A65969C',Z'00000FDA',Z'2186081E',Z'21820FE0',Z'0003F821',
     +Z'2186081E',Z'20821FE0',Z'00FE0861',Z'3F95B958',Z'1FFDE79B',
     +Z'3F8DEFDF',Z'0003F8DE',Z'22FE185B',Z'3F89DFE2',Z'0003F89D',
     +Z'3F95B958',Z'256FF95B',Z'0000003F',Z'1E79F85A',Z'1E7FF860',
     +Z'1EFE087F',Z'1E82185F',Z'1E7E1860',Z'1EFE183F',Z'1E821FDF',
     +Z'00FE17DE',Z'228A17DB',Z'2287F7E0',Z'22FE07FF',Z'2281F7E1',
     +Z'2285F7E0',Z'22FDF83F',Z'2281FFE1',Z'00FDF862',Z'3F81A5D5',
     +Z'20A7F819',Z'0000003F',Z'217DE795',Z'1657F8A2',Z'1B69A658',
     +Z'269A58DD',Z'3FAEAA27',Z'1E7FFAD5'/
      DATA (IX17(I),I=1,50)/
     +Z'3F86285F',Z'20FE0818',Z'3F860FDF',Z'1F83F85F',Z'1C7FF71E',
     +Z'248A183F',Z'20FE487F',Z'1EFD869C',Z'2483F61A',Z'268BFA26',
     +Z'1D7A0FE8',Z'1D7A0FDD',Z'238E283F',Z'3F8E283F',Z'20FE0818',
     +Z'3F820FE0',Z'2183F7E0',Z'20FE17FF',Z'2183F79F',Z'2281EFE2',
     +Z'1B71E83F',Z'2592283F',Z'2281E73F',Z'1C7A0FE4',Z'3F69965A',
     +Z'279A48A0',Z'1E73F9A7',Z'20FE48A0',Z'1969B75E',Z'20FDA618',
     +Z'279A58E2',Z'1BFE6A28',Z'3F96381D',Z'20FDF818',Z'3F85FFE1',
     +Z'28A268E0',Z'27A27967',Z'218E48E5',Z'1B75C75F',Z'196D9619',
     +Z'2075A618',Z'0000003F',Z'218A391A',Z'1D71C760',Z'1E821860',
     +Z'2385F75D',Z'00000FE4',Z'23FE375B',Z'00000FDD',Z'29AABAD7'/
      DATA (IX17(I), I=51,103)/
     +Z'1A761926',Z'1A6175D8',Z'299A485D',Z'00FEBAEA',Z'24967A16',
     +Z'1C79F862',Z'1961865B',Z'217DE71B',Z'289E5922',Z'00000FE8',
     +Z'1969C7D9',Z'217DC699',Z'269E79A4',Z'00FDF864',Z'2699A69A',
     +Z'00000FDA',Z'209D9819',Z'0000003F',Z'2681A81A',Z'00000FE0',
     +Z'1D61E818',Z'288E581B',Z'0003F822',Z'239A3897',Z'23963FE2',
     +Z'00FE56BF',Z'1DFE081B',Z'3F8E281E',Z'00FE281E',Z'1D69D797',
     +Z'1D6DDFDE',Z'00FE66FF',Z'1DFE081B',Z'3F8E281E',Z'00FE281E',
     +Z'2182085E',Z'0003F821',Z'2186081E',Z'00000FE0',Z'2182085E',
     +Z'0003F821',Z'00FDC91B',Z'1F7E089D',Z'0003F8A0',Z'2186079C',
     +Z'0003F7A0',Z'00FE471A',Z'1CFE081A',Z'00000FE4',Z'1CFE471A',
     +Z'00000FE4',Z'1DFE081B',Z'3F763FE3'/
      DATA (IY11(I),I=1,50)/
     +Z'1D61552A',Z'29A68960',Z'18760968',Z'00FD4515',Z'2951762A',
     +Z'0000003F',Z'1559866A',Z'18595514',Z'29A5F71A',Z'0000003F',
     +Z'1C71452A',Z'268E179D',Z'27A29A68',Z'00000FE5',Z'208A252A',
     +Z'0003FA54',Z'1C75452A',Z'2179C6DB',Z'29A689A3',Z'00FE59E8',
     +Z'145155EA',Z'2689D615',Z'26A29A68',Z'1C75F8A3',Z'3F89F75C',
     +Z'1482952A',Z'00000FD4',Z'195D552A',Z'2079D71B',Z'29A27962',
     +Z'22967A29',Z'1B71D7A0',Z'145155D9',Z'0000003F',Z'2181E6EA',
     +Z'1A6DE821',Z'15514557',Z'289606D7',Z'3F9A8A69',Z'14829529',
     +Z'3F8A2829',Z'1482952A',Z'1A616554',Z'1E81E75C',Z'258A07DE',
     +Z'3FA69A27',Z'1455766B',Z'1C657554',Z'29A26921',Z'3F926A29'/
      DATA (IY11(I), I=51,108)/
     +Z'1482952A',Z'1C657554',Z'29A26921',Z'00000FE9',Z'14829529',
     +Z'2079E814',Z'0003FA69',Z'14829528',Z'3F79E814',Z'1455766B',
     +Z'1C657554',Z'29A26921',Z'21926A29',Z'00FE1860',Z'1482952B',
     +Z'3F79E829',Z'00FE9524',Z'289E4528',Z'249E8A69',Z'00000FE2',
     +Z'1482952A',Z'3FA5D822',Z'29829527',Z'00000FE9',Z'1482952C',
     +Z'20A54829',Z'0003FA54',Z'1482952B',Z'3FA54829',Z'195D552B',
     +Z'289A485C',Z'249A8A69',Z'155D9721',Z'0003F514',Z'1482952A',
     +Z'1B616554',Z'3F7DF79D',Z'195D552B',Z'289A485C',Z'249A8A69',
     +Z'155D9721',Z'2B960514',Z'0000003F',Z'1482952A',Z'1A616554',
     +Z'2079E75C',Z'0003FA5E',Z'145155EA',Z'1C6D95D5',Z'238607DD',
     +Z'28A69A26',Z'00000FE6',Z'14829528',Z'00000FD4',Z'289A352B',
     +Z'239A8A69',Z'00000FD4',Z'14829529'/
      DATA (IY12(I),I=1,50)/
     +Z'00000FE9',Z'1482952C',Z'20A54829',Z'0003FA54',Z'1482952A',
     +Z'00000FE9',Z'20A5E529',Z'0003F794',Z'1482952A',Z'3FA69814',
     +Z'14829529',Z'3F8A2829',Z'1482952A',Z'1A616554',Z'1E81E75C',
     +Z'258A07DE',Z'3FA69A27',Z'14829527',Z'00000FD4',Z'14829529',
     +Z'3FA69829',Z'14829529',Z'2079E814',Z'0003FA69',Z'1482952A',
     +Z'3FA69814',Z'1482952B',Z'3F79E829',Z'195D552B',Z'289A485C',
     +Z'249A8A69',Z'155D9721',Z'1E7A0514',Z'0000003F',Z'00FE9524',
     +Z'1482952A',Z'3FA5D822',Z'14829529',Z'00000FE9',Z'1482952C',
     +Z'20A54829',Z'0003FA54',Z'1482952B',Z'3FA54829',Z'1E814529',
     +Z'3FA6981E',Z'195D552B',Z'289A485C',Z'249A8A69',Z'155D9721'/
      DATA (IY12(I), I=51,108)/
     +Z'0003F514',Z'1482952B',Z'3F514829',Z'1482952A',Z'1B616554',
     +Z'3F7DF79D',Z'20A5E529',Z'29A60514',Z'0000003F',Z'14829528',
     +Z'00000FD4',Z'14557669',Z'296D7554',Z'14557660',Z'3F6D7554',
     +Z'1982952A',Z'2281D6DA',Z'228E4923',Z'1969B760',Z'00000FD9',
     +Z'2982952A',Z'00000FD4',Z'1A82952B',Z'2285F6DA',Z'1F8628E3',
     +Z'00FDA69B',Z'1E8A9A6A',Z'145155DA',Z'2279A5D5',Z'0003FA69',
     +Z'2082962C',Z'3FA69820',Z'00FF0424',Z'2279E6A6',Z'228A69A2',
     +Z'3F69A79E',Z'1082D42A',Z'1961782D',Z'145155D8',Z'1C6D95D5',
     +Z'208A07DD',Z'1F79C6D9',Z'29A268A0',Z'24966A29',Z'0003F9A5',
     +Z'27822525',Z'3F9E8A68',Z'1083042B',Z'2075D830',Z'0003F8E3',
     +Z'3FA605EC',Z'15598669',Z'18595514',Z'227DD71A',Z'28A689E0',
     +Z'00000FE7',Z'124D246C',Z'13450411'/
      DATA (IY13(I),I=1,50)/
     +Z'2CA1C615',Z'1851282E',Z'2FB6BA24',Z'2DBAFC30',Z'0003FBEE',
     +Z'1C75C6E5',Z'29A2781B',Z'0003F9E8',Z'1C75C6E5',Z'28A6881B',
     +Z'2DB2AA27',Z'0000003F',Z'3FA605EC',Z'10830427',Z'20410830',
     +Z'0003FC30',Z'10830427',Z'20410830',Z'0003FC30',Z'2085D668',
     +Z'269A08A2',Z'0000003F',Z'14491427',Z'1D6D9616',Z'154D181F',
     +Z'1E71A617',Z'289A48A0',Z'20BEDAE9',Z'289E58E1',Z'30BEEB2A',
     +Z'0000003F',Z'14491427',Z'1D6D9616',Z'154D181F',Z'1E71A617',
     +Z'289A48A0',Z'20BEDAE9',Z'289E58E1',Z'30BEEB2A',Z'0000003F',
     +Z'209DB6F0',Z'29220A5C',Z'0000003F',Z'2179A5AC',Z'259A6963',
     +Z'1E696823',Z'269A58E1',Z'278E08E5',Z'2A9E382A',Z'00FEAAA0'/
      DATA (IY13(I), I=51,108)/
     +Z'165D972C',Z'207595D6',Z'1C82A962',Z'175965D9',Z'258A0759',
     +Z'00000FEA',Z'2075856C',Z'20758560',Z'2BA23820',Z'2BA23820',
     +Z'0000003F',Z'269A58AC',Z'1E7E18E5',Z'1D7E07DE',Z'1659765B',
     +Z'1F75B657',Z'1F79E7E0',Z'269A58E1',Z'278A08A5',Z'2A9E282A',
     +Z'00FEAAA0',Z'1B6DC76D',Z'289A379C',Z'259E8A69',Z'1B720863',
     +Z'155155D9',Z'267DC657',Z'27A29A68',Z'0000003F',Z'1982766B',
     +Z'00000FE7',Z'19826668',Z'1C75D71A',Z'1A69965A',Z'258E2819',
     +Z'228E59A6',Z'00000FE2',Z'2592382B',Z'1F863925',Z'1C6DB71D',
     +Z'259648DD',Z'1D7E18E4',Z'1D71B6DC',Z'00000FE0',Z'217DD724',
     +Z'218E4923',Z'2071C75F',Z'227A085F',Z'1D823760',Z'208DD823',
     +Z'217E089E',Z'0000003F',Z'1C924724',Z'208DD81C',Z'237608DD',
     +Z'1D823760',Z'208DD823',Z'0003F8DD'/
      DATA (IY14(I),I=1,50)/
     +Z'1A8E36A5',Z'1D822760',Z'208A0822',Z'0003F8A0',Z'2675D9A5',
     +Z'2381E8E0',Z'207A081E',Z'0003F7A0',Z'1E7A56A6',Z'1A8206A5',
     +Z'2081E820',Z'20960825',Z'0003F7A0',Z'208A07AD',Z'2082581B',
     +Z'00000FE0',Z'206976A8',Z'1881D61D',Z'00000FE9',Z'208A07AD',
     +Z'2082581B',Z'00000FE0',Z'209A99A8',Z'17823A23',Z'00000FE8',
     +Z'155155A5',Z'00FDA657',Z'28A689E5',Z'00000FE7',Z'27A29A25',
     +Z'3FB6CAA8',Z'00FF042B',Z'19552427',Z'2EAE789E',Z'00000FF0',
     +Z'19552427',Z'2EAE789E',Z'00000FF0',Z'00FE082D',Z'208295ED',
     +Z'00000FE0',Z'2381D76D',Z'00000FE3',Z'1D8266A8',Z'3F8DD823',
     +Z'2179C6E5',Z'1E863923',Z'0003F6DC',Z'3F91B765',Z'1C6DB725'/
      DATA (IY14(I), I=51,108)/
     +Z'3F92481E',Z'1C6DB725',Z'1F7E07DE',Z'239248E0',Z'0000003F',
     +Z'1B8246E5',Z'0003F861',Z'1E79F6E5',Z'2492385F',Z'3F6DB823',
     +Z'1E71B6E5',Z'218E48E1',Z'3F85F79F',Z'1B8246E5',Z'00000FDB',
     +Z'1F79C6E5',Z'1B6DC79F',Z'248E07E0',Z'3F7E08E4',Z'208607A5',
     +Z'1E71B71E',Z'3F9248E1',Z'1E8296EA',Z'1E71B6DC',Z'29A268E1',
     +Z'00FE6A29',Z'1E829529',Z'1E71B6DC',Z'29A268E1',Z'00FE6A29',
     +Z'1B6DC7A9',Z'268E179C',Z'26A29A68',Z'0000003F',Z'1E82952A',
     +Z'1E71B6DC',Z'29A268E1',Z'00FE6A29',Z'1D7E1869',Z'1E71B6DC',
     +Z'29A268E1',Z'00FE6A29',Z'18554527',Z'3F6DB829',Z'2FBAB6EA',
     +Z'1E82FC30',Z'1E71B6DC',Z'29A268E1',Z'00FE6A29',Z'1F82952A',
     +Z'1F71B6DC',Z'00000FE9',Z'13515524',Z'3FA5B814',Z'13515525',
     +Z'2FB1B814',Z'0003FC30',Z'1B829528'/
      DATA (IY15(I),I=1,50)/
     +Z'3FA61825',Z'00FE9524',Z'1F8296EF',Z'1F71B6DC',Z'1B71F829',
     +Z'3FA5F71B',Z'1F8296EA',Z'1F71B6DC',Z'00000FE9',Z'2179C6EA',
     +Z'29A689A3',Z'1E8639A8',Z'00FDB6DC',Z'1E8306E9',Z'1E71B6DC',
     +Z'29A268E1',Z'00FE6A29',Z'1E8306EA',Z'1E71B6DC',Z'29A268E1',
     +Z'00FE6A29',Z'218296E6',Z'3F6DB71E',Z'1B6DC7A9',Z'2286079C',
     +Z'29A26963',Z'00FE6A29',Z'29A25527',Z'3F6DB829',Z'29A256EA',
     +Z'1B825A29',Z'00000FE9',Z'1B8296E8',Z'00000FE9',Z'1B8296EB',
     +Z'20A5B829',Z'0003FA5B',Z'1B8296E9',Z'00000FE9',Z'1B8296E8',
     +Z'30C2FB69',Z'0000003F',Z'1B8296E9',Z'3FA6981B',Z'2079C6EB',
     +Z'29A689A3',Z'1B7A2968',Z'1E71B6E0',Z'3FA69A26',Z'1B5D552A'/
      DATA (IY15(I), I=51,108)/
     +Z'20C2889E',Z'1B656514',Z'1D81D75C',Z'2796281E',Z'27A29A68',
     +Z'00000FE4',Z'1B6DC7AA',Z'2992075C',Z'2981E6E0',Z'0003FC2D',
     +Z'1E71B6E9',Z'29A27921',Z'208E6A29',Z'155D96DD',Z'3F5D5514',
     +Z'1B6DC768',Z'2086079C',Z'289A48A1',Z'3F9A8A69',Z'17595527',
     +Z'19819658',Z'258E075B',Z'2FB6BA67',Z'00FEEC30',Z'1B6DD7EA',
     +Z'20A6279C',Z'1B6DC7A2',Z'3FC2581D',Z'1B6DD7EA',Z'289A379C',
     +Z'23968A69',Z'145586E0',Z'1E6D8594',Z'0003F8A0',Z'289A26E5',
     +Z'3F967A69',Z'1C8296E9',Z'2181C6DB',Z'238A1821',Z'3FA29A68',
     +Z'16554528',Z'3FA5B829',Z'1F8306EB',Z'28A699E4',Z'226E08A6',
     +Z'27A69A26',Z'00000FE5',Z'2685B6E9',Z'2079B829',Z'3FA689A3',
     +Z'17595528',Z'19819658',Z'217DD6DA',Z'238A08A2',Z'2CAA89A4',
     +Z'3FC30BED',Z'2179C6E9',Z'29A689E4'/
      DATA (IY16(I),I=1,50)/
     +Z'1D8239A8',Z'00FDB6DC',Z'1B8296EB',Z'1E8299A1',Z'00FDB6DC',
     +Z'289E4869',Z'239A8A69',Z'1B6DC760',Z'3FC2179C',Z'1E71B6EB',
     +Z'29A27921',Z'208E6A29',Z'00FDB71D',Z'1E8296EA',Z'00FDB6DC',
     +Z'1B6DD7EA',Z'299E479C',Z'1E8A6A29',Z'00000FDB',Z'227DD72B',
     +Z'29A689E5',Z'1D8239A8',Z'2685D6DB',Z'00000FF0',Z'2E75B6E9',
     +Z'1D6E0C30',Z'3FC2EAE0',Z'1F83052B',Z'1E71B6DD',Z'29A689A3',
     +Z'1B7A39A8',Z'0000003F',Z'227DC6EB',Z'28A69A25',Z'28961825',
     +Z'22968A69',Z'00FDB71F',Z'208266E8',Z'3F9A6820',Z'00FE56A2',
     +Z'18924627',Z'2871CA20',Z'0000003F',Z'1682A5A8',Z'1B69A82A',
     +Z'1A65969B',Z'208A179C',Z'248A075C',Z'249669A5',Z'3F9248E3'/
      DATA (IY16(I), I=51,108)/
     +Z'1B8206E3',Z'24923820',Z'0003F8E3',Z'1A8256A6',Z'2079E825',
     +Z'0003F861',Z'3F9A06A8',Z'1C6DB725',Z'1F8207DE',Z'2492381E',
     +Z'0003F8E3',Z'176185E9',Z'1D698596',Z'178299E3',Z'289A3759',
     +Z'28A29AAA',Z'00000FE9',Z'1E7DF7A3',Z'2492381E',Z'0003F8E3',
     +Z'1E7DF7A3',Z'2392481E',Z'00FE7963',Z'3F9A06A8',Z'1682A5A5',
     +Z'2059682A',Z'0003FAAA',Z'1682A5A5',Z'2059682A',Z'0003FAAA',
     +Z'2085D668',Z'269A08A2',Z'0000003F',Z'1A6175A5',Z'1A5E079C',
     +Z'1881F720',Z'207DE71A',Z'289A48A1',Z'26824860',Z'26922829',
     +Z'00FEAA68',Z'1A6175A6',Z'1A5E079C',Z'1881F720',Z'207DE71A',
     +Z'289A48A1',Z'26824860',Z'26922829',Z'00FEAA68',Z'2095D769',
     +Z'2652099D',Z'0000003F',Z'145155EB',Z'26A205D5',Z'1865E8A4',
     +Z'1E6585D7',Z'20A26922',Z'29A20A28'/
      DATA (IY17(I),I=1,50)/
     +Z'3FA29AAA',Z'218216E8',Z'20AA182A',Z'186E0AAA',Z'15620556',
     +Z'155986E0',Z'1B815620',Z'1A81B659',Z'196E06DA',Z'1A6A06D9',
     +Z'1D71B81B',Z'2075B820',Z'2075C6E0',Z'3F81D6E0',Z'1C8195E8',
     +Z'208E181E',Z'2A9E0AA7',Z'1582AAA0',Z'17560617',Z'185D8818',
     +Z'1C75C660',Z'1C75C660',Z'1D71D760',Z'2285E81D',Z'208A1822',
     +Z'208A285E',Z'228A08A1',Z'238228A1',Z'27A289E6',Z'238289E5',
     +Z'27A289E6',Z'288289E5',Z'3FA289E8',Z'2782A9E8',Z'20AAA82A',
     +Z'239A8A27',Z'1B7608A2',Z'155986DA',Z'1A6D8595',Z'228A075B',
     +Z'27A289A3',Z'0000003F',Z'23860826',Z'20863924',Z'1B6DC79F',
     +Z'248E179C',Z'00000FE4',Z'1D823765',Z'00000FE3',Z'218E6A2B'/
      DATA (IY17(I), I=51,103)/
     +Z'1D71C75E',Z'238A17DE',Z'1F8A3924',Z'00FD869D',Z'238E282A',
     +Z'1C75E862',Z'2281F75C',Z'1E8628E3',Z'1F75C71D',Z'00000FE0',
     +Z'1F71A667',Z'279E6921',Z'1C7E1926',Z'00FD965A',Z'1A9A66A6',
     +Z'00000FDA',Z'18924627',Z'0000003F',Z'20AA05A6',Z'00000FD6',
     +Z'2175D5E8',Z'1D8678E7',Z'0003F5DD',Z'2281E769',Z'2281E823',
     +Z'00FE0820',Z'1E8266E5',Z'2079D69D',Z'00FDD6DD',Z'2281E769',
     +Z'2281E823',Z'00FE0820',Z'228256A5',Z'208A39A3',Z'00FE3963',
     +Z'1B6DC723',Z'0003F7DD',Z'239248E3',Z'00000FE3',Z'238E4923',
     +Z'0003F9E5',Z'00FE56A5',Z'2179C6A4',Z'0003F963',Z'2179C6A3',
     +Z'0003F963',Z'00FE0826',Z'20824726',Z'00000FE0',Z'2281E7A6',
     +Z'00000FE2',Z'1E823765',Z'3F89E822'/
# else
      DATA (IX11(I),I=1,50)/
     +X'1969C7D6',X'217DC699',X'269E79A4',X'00FDF864',X'2185E716',
     +X'0000003F',X'1C6DA696',X'2696489E',X'27663966',X'0000003F',
     +X'238266D6',X'269E79A5',X'1A6DE864',X'00000FD9',X'3FA198D6',
     +X'0003F8E3',X'1B69B956',X'279A485E',X'1E8649A7',X'00FD969B',
     +X'208A5996',X'1B69A6DD',X'2692181D',X'219269E7',X'3F69B760',
     +X'19FDD9D6',X'00000FE7',X'1A69B796',X'2692175B',X'229669E7',
     +X'1965A6DE',X'258DF71A',X'1E8A59A6',X'0000003F',X'208E5996',
     +X'1965A71F',X'2381F71A',X'239669A5',X'3F69B7A0',X'20FD8817',
     +X'3F95BFE8',X'19FD9655',X'279E6962',X'19FE2966',X'279E6962',
     +X'3F662966',X'23967A16',X'1969B75F',X'1F75B699',X'3FA27963'/
      DATA (IX11(I), I=51,108)/
     +X'19FD9655',X'279A58E0',X'208E59A7',X'00000FD9',X'1AFDA696',
     +X'3F89AFE7',X'0003F9DA',X'1AFDA696',X'3F89AFE7',X'23967A16',
     +X'1969B75F',X'1F75B699',X'28A27963',X'00FE88FF',X'27FD9655',
     +X'3F9D9FE7',X'00FE081C',X'228E4918',X'1A6DC7A0',X'00000FDA',
     +X'27FD9655',X'3F9DEFD9',X'1AFDA696',X'00000FE6',X'18FD8614',
     +X'3F828FE0',X'0003FA28',X'19FD9655',X'3F9E7FE7',X'1969C795',
     +X'1C699618',X'279A489E',X'249A7A28',X'0003F7A2',X'19FD9655',
     +X'279E6962',X'3F662966',X'1969C795',X'1C699618',X'279A489E',
     +X'249A7A28',X'2787F7A2',X'0000003F',X'19FD9655',X'279E6962',
     +X'3F662966',X'0003F9E0',X'1E8A59D6',X'1B69965B',X'279A58DD',
     +X'1B7A2967',X'00000FD9',X'19FE0818',X'00000FE7',X'1C699655',
     +X'279A485F',X'00000FE7',X'28FE0617'/
      DATA (IX12(I),I=1,50)/
     +X'00000FE0',X'20FDB594',X'3F960FDB',X'0003F96A',X'27FE7656',
     +X'00000FD9',X'3F820617',X'0003F828',X'19FD99D6',X'3F9D9FE7',
     +X'20FD8817',X'3F95BFE8',X'19FD9655',X'279E6962',X'19FE2966',
     +X'279E6962',X'3F662966',X'1AFDA696',X'00000FE6',X'20FD8817',
     +X'3FA18FE8',X'1AFDA696',X'3F89AFE7',X'0003F9DA',X'19FD99D6',
     +X'3F9D9FE7',X'27FD9655',X'3F9D9FE7',X'1969C795',X'1C699618',
     +X'279A489E',X'249A7A28',X'2377F7A2',X'0000003F',X'00FE081C',
     +X'27FD9655',X'3F9DEFD9',X'20FD8817',X'00000FE8',X'18FD8614',
     +X'3F828FE0',X'0003FA28',X'19FD9655',X'3F9E7FE7',X'1DFE7657',
     +X'3F9D9FE3',X'1969C795',X'1C699618',X'279A489E',X'249A7A28'/
      DATA (IX12(I), I=51,108)/
     +X'0003F7A2',X'27FD9655',X'3F9D9FE7',X'19FD9655',X'279E6962',
     +X'3F662966',X'3F660657',X'2767F9D9',X'0000003F',X'19FE0818',
     +X'00000FE7',X'1B699657',X'2081F79D',X'259A79FF',X'3F8218A3',
     +X'1EFE0816',X'1A65969B',X'2696279B',X'229669E7',X'00000FDE',
     +X'19FE7656',X'00000FE7',X'17FE0815',X'1C6DA658',X'2696485F',
     +X'00FE9A27',X'1969D656',X'217DC699',X'269E79A4',X'0003F9E3',
     +X'18FE0814',X'3FA18FE8',X'00FE081C',X'1A69E79A',X'268A279E',
     +X'3F7A28A6',X'22FDE796',X'26966FE2',X'1E8A59E7',X'1B69965B',
     +X'3F9E58DD',X'258DD6D9',X'229679E6',X'1A6596DE',X'0003F69B',
     +X'20FE081B',X'3F82181F',X'27FDA856',X'3FA1AFE0',X'0003F9D9',
     +X'3F628614',X'1C6DA697',X'2696489E',X'20824966',X'2181F83F',
     +X'00000FE0',X'2AA68A54',X'23967A6A'/
      DATA (IX13(I),I=1,50)/
     +X'1D7A0862',X'228E4FDC',X'1B75E7E0',X'175965D9',X'0003F5D8',
     +X'2181F81B',X'207E0FE0',X'0003F821',X'2181F81B',X'1F821FE0',
     +X'1F821860',X'0000003F',X'3FA18A14',X'1EFDD759',X'3F91DFDE',
     +X'0003F91D',X'23FE2899',X'3F8DCFE3',X'0003F8DC',X'3F6E56D8',
     +X'256FF95B',X'0000003F',X'1E7E0899',X'218607DE',X'1F7E0FDF',
     +X'218A2860',X'218A285D',X'3F81F7E0',X'1F82185F',X'2281F79E',
     +X'0000003F',X'22860799',X'1F7E0862',X'21860FE1',X'1F79E7E0',
     +X'1F79E7E3',X'3F821860',X'2181F7E1',X'1E8218A2',X'0000003F',
     +X'3F81748F',X'20C3F816',X'0000003F',X'1865C814',X'1F75B658',
     +X'27920FE0',X'23967A28',X'1F83F821',X'22860FDE',X'00FE27BF'/
      DATA (IX13(I), I=51,108)/
     +X'1C79F814',X'1961865B',X'20FE071A',X'279648A1',X'249A7A28',
     +X'00000FE0',X'1769E814',X'299A283F',X'2079A5FF',X'208A6A7F',
     +X'0000003F',X'26922814',X'26A29A68',X'2387F864',X'1F863924',
     +X'1F75C71D',X'1869C7FF',X'1C6985D7',X'1F83F81E',X'22860FDE',
     +X'00FE27BF',X'28A6AA93',X'208A49A7',X'165D869E',X'207D85D6',
     +X'1C7A0861',X'2379C6DB',X'2AAA99E5',X'0000003F',X'27FE7655',
     +X'00000FD9',X'1DFDA998',X'1A6DD79E',X'2485D6DA',X'228A3FE6',
     +X'259A6963',X'00000FE3',X'258E2815',X'2BAEAA67',X'23967A6A',
     +X'196DD7A2',X'16555597',X'1E75B657',X'00000FE0',X'1C71D7DC',
     +X'248E17DD',X'3F7E18E4',X'1E7BF75D',X'20FDF7FF',X'3F861FE0',
     +X'238FF8A2',X'0000003F',X'2491C71C',X'3F75DFDC',X'1F7FF79E',
     +X'21FE083F',X'3F8A2FE1',X'0003F8E3'/
      DATA (IX14(I),I=1,50)/
     +X'2095B81B',X'20FDD83F',X'3F7E0FE3',X'0003F860',X'206E581B',
     +X'20FE383F',X'3F860FDD',X'0003F7E0',X'1A99C81A',X'2083F824',
     +X'20FDA83F',X'3F920FDC',X'0003F9A0',X'3F9A9993',X'17FE3A23',
     +X'00000FE8',X'3F8A0798',X'20FE581B',X'00000FE0',X'3F697693',
     +X'18FDD61D',X'00000FE9',X'3F8A0798',X'20FE581B',X'00000FE0',
     +X'2181F81B',X'00FDF821',X'2181F81B',X'00000FE0',X'207E085B',
     +X'3F7E0861',X'00FD7A55',X'1E822919',X'2281E75D',X'00000FE4',
     +X'2281E719',X'1E8228E3',X'00000FDC',X'00FE95D3',X'17FE0813',
     +X'00000FE9',X'17FE95D3',X'00000FE9',X'1BFE0818',X'3F6E5FE5',
     +X'1D75E81B',X'238E281E',X'0003F822',X'3F82079B',X'2385F75B'/
      DATA (IX14(I), I=51,108)/
     +X'3F8DD8A3',X'2385F75B',X'2183F863',X'1D7E18E3',X'0000003F',
     +X'21FE185B',X'0003F91C',X'207DD79B',X'1F8228E2',X'3F89EFDD',
     +X'1D7A089B',X'238A079D',X'3F75E822',X'1DFDF8DB',X'00000FE3',
     +X'1F75D7DB',X'1F8638E1',X'1F75D7FF',X'3F8638E1',X'1E8228DB',
     +X'238A079D',X'3F7A08A3',X'26FE6997',X'1B75F8A4',X'1F75B69A',
     +X'00FE6922',X'1AFDA696',X'258E179C',X'218E59A6',X'00FDA71E',
     +X'1F8A4997',X'1B69A6DD',X'269227DD',X'0000003F',X'26FE6997',
     +X'1B75F8A4',X'1F75B69A',X'00FE6922',X'259A6697',X'1B75F8A4',
     +X'1F75B69A',X'00FE6922',X'2086395B',X'3F91DFE0',X'24966997',
     +X'26FDD7E2',X'1B75F8A4',X'1F75B69A',X'00FE6922',X'1BFDB6D7',
     +X'2696381E',X'00000FE6',X'208607DC',X'3F820FDF',X'218A181B',
     +X'20861FE0',X'0003F71E',X'25FDB6D7'/
      DATA (IX15(I),I=1,50)/
     +X'3F99FFDB',X'00FE081C',X'15FD5551',X'207DD698',X'258E0FE0',
     +X'3FAEBAA8',X'1BFDB6D7',X'2696381E',X'00000FE6',X'1A6DD7D7',
     +X'227DD6DA',X'269E79A4',X'00FDF8A4',X'1AFDA696',X'258E179C',
     +X'218E59A6',X'00FDA71E',X'26FE6997',X'1B75F8A4',X'1F75B69A',
     +X'00FE6922',X'1DFDD759',X'3F96281E',X'1F8A5998',X'2379C6DC',
     +X'229669A5',X'00FDB71F',X'2386081B',X'3F91DFE5',X'1E71B6D7',
     +X'26FE68E1',X'00000FE6',X'26FE0698',X'00000FE0',X'20FDC615',
     +X'3F920FDC',X'0003F928',X'26FE66D8',X'00000FDB',X'26FE0698',
     +X'1969C7A0',X'0000003F',X'1BFDB998',X'3F99BFE6',X'1A6DD7D6',
     +X'1E71A659',X'289E58E0',X'238A17FF',X'3FA279A5',X'1D7E18D7'/
      DATA (IX15(I), I=51,108)/
     +X'3F65A6DC',X'269E7963',X'20FE08E5',X'24965922',X'1C75F863',
     +X'00000FDB',X'1D71A617',X'2086181F',X'209A7A3F',X'0003F75E',
     +X'1B75F897',X'1E71B69A',X'259648A0',X'1F7E08A4',X'3F9A48A0',
     +X'1F8A4958',X'3F85E75D',X'1C6DB761',X'3F96385E',X'1F7E0898',
     +X'26FE68E0',X'1B6DC7E2',X'228A179C',X'00FDE7E1',X'1C6985D6',
     +X'3F69C75D',X'248A079C',X'3F8A59A6',X'1B657595',X'1C6DB71C',
     +X'248E17DD',X'239669A5',X'23860821',X'0003FA25',X'1D75E81A',
     +X'3F8E281E',X'27FD9757',X'1D7E3966',X'1F79CFDC',X'3F9238A1',
     +X'1E75B658',X'3F6A0FE6',X'1CFD7756',X'217DD6DB',X'259FF963',
     +X'299E5924',X'00000FEA',X'1B71D697',X'259A7FDA',X'3F69D823',
     +X'1F7E0898',X'23FE68E0',X'1F75D7A0',X'1E8BF922',X'2175B6DC',
     +X'3F7A08A2',X'1B71E818',X'217DD71B'/
      DATA (IX16(I),I=1,50)/
     +X'259A6963',X'00FE08A4',X'23FDA795',X'17FE6964',X'00FE9719',
     +X'1D71B6D7',X'2696385F',X'208A4966',X'3F5DB71E',X'1B75FA57',
     +X'1E71B69A',X'259648A0',X'00FE18E4',X'18FDE856',X'00FE875A',
     +X'1C6985D6',X'1D6DB75D',X'279A489F',X'00000FE7',X'1865B755',
     +X'1F71A658',X'28A27962',X'1E822926',X'00000FDB',X'2375B657',
     +X'27A3F9E5',X'3F6196E5',X'15FDC914',X'1B6DA616',X'1F75B69A',
     +X'29A26922',X'0000003F',X'1761A714',X'1D6D9617',X'207E0FDF',
     +X'289E58E1',X'00FE69E8',X'1BFE0818',X'3F95BFE5',X'00FE081E',
     +X'209D9819',X'2066783F',X'0000003F',X'22FDF7D9',X'24925FE2',
     +X'1C7A3965',X'3F96475C',X'2596475C',X'1C75F8A4',X'3F71D75C'/
      DATA (IX16(I), I=51,108)/
     +X'21FE081E',X'21820FE1',X'0003F821',X'23FDE81B',X'3F91DFE1',
     +X'0003F91D',X'3F6E56D8',X'2386079C',X'21860823',X'21820FE3',
     +X'0003F821',X'279E6997',X'20862926',X'23FDD79F',X'1E7E0862',
     +X'1A65969C',X'00000FDA',X'2186081E',X'21820FE0',X'0003F821',
     +X'2186081E',X'20821FE0',X'00FE0861',X'3F95B958',X'1FFDE79B',
     +X'3F8DEFDF',X'0003F8DE',X'22FE185B',X'3F89DFE2',X'0003F89D',
     +X'3F95B958',X'256FF95B',X'0000003F',X'1E79F85A',X'1E7FF860',
     +X'1EFE087F',X'1E82185F',X'1E7E1860',X'1EFE183F',X'1E821FDF',
     +X'00FE17DE',X'228A17DB',X'2287F7E0',X'22FE07FF',X'2281F7E1',
     +X'2285F7E0',X'22FDF83F',X'2281FFE1',X'00FDF862',X'3F81A5D5',
     +X'20A7F819',X'0000003F',X'217DE795',X'1657F8A2',X'1B69A658',
     +X'269A58DD',X'3FAEAA27',X'1E7FFAD5'/
      DATA (IX17(I),I=1,50)/
     +X'3F86285F',X'20FE0818',X'3F860FDF',X'1F83F85F',X'1C7FF71E',
     +X'248A183F',X'20FE487F',X'1EFD869C',X'2483F61A',X'268BFA26',
     +X'1D7A0FE8',X'1D7A0FDD',X'238E283F',X'3F8E283F',X'20FE0818',
     +X'3F820FE0',X'2183F7E0',X'20FE17FF',X'2183F79F',X'2281EFE2',
     +X'1B71E83F',X'2592283F',X'2281E73F',X'1C7A0FE4',X'3F69965A',
     +X'279A48A0',X'1E73F9A7',X'20FE48A0',X'1969B75E',X'20FDA618',
     +X'279A58E2',X'1BFE6A28',X'3F96381D',X'20FDF818',X'3F85FFE1',
     +X'28A268E0',X'27A27967',X'218E48E5',X'1B75C75F',X'196D9619',
     +X'2075A618',X'0000003F',X'218A391A',X'1D71C760',X'1E821860',
     +X'2385F75D',X'00000FE4',X'23FE375B',X'00000FDD',X'29AABAD7'/
      DATA (IX17(I), I=51,103)/
     +X'1A761926',X'1A6175D8',X'299A485D',X'00FEBAEA',X'24967A16',
     +X'1C79F862',X'1961865B',X'217DE71B',X'289E5922',X'00000FE8',
     +X'1969C7D9',X'217DC699',X'269E79A4',X'00FDF864',X'2699A69A',
     +X'00000FDA',X'209D9819',X'0000003F',X'2681A81A',X'00000FE0',
     +X'1D61E818',X'288E581B',X'0003F822',X'239A3897',X'23963FE2',
     +X'00FE56BF',X'1DFE081B',X'3F8E281E',X'00FE281E',X'1D69D797',
     +X'1D6DDFDE',X'00FE66FF',X'1DFE081B',X'3F8E281E',X'00FE281E',
     +X'2182085E',X'0003F821',X'2186081E',X'00000FE0',X'2182085E',
     +X'0003F821',X'00FDC91B',X'1F7E089D',X'0003F8A0',X'2186079C',
     +X'0003F7A0',X'00FE471A',X'1CFE081A',X'00000FE4',X'1CFE471A',
     +X'00000FE4',X'1DFE081B',X'3F763FE3'/
      DATA (IY11(I),I=1,50)/
     +X'1D61552A',X'29A68960',X'18760968',X'00FD4515',X'2951762A',
     +X'0000003F',X'1559866A',X'18595514',X'29A5F71A',X'0000003F',
     +X'1C71452A',X'268E179D',X'27A29A68',X'00000FE5',X'208A252A',
     +X'0003FA54',X'1C75452A',X'2179C6DB',X'29A689A3',X'00FE59E8',
     +X'145155EA',X'2689D615',X'26A29A68',X'1C75F8A3',X'3F89F75C',
     +X'1482952A',X'00000FD4',X'195D552A',X'2079D71B',X'29A27962',
     +X'22967A29',X'1B71D7A0',X'145155D9',X'0000003F',X'2181E6EA',
     +X'1A6DE821',X'15514557',X'289606D7',X'3F9A8A69',X'14829529',
     +X'3F8A2829',X'1482952A',X'1A616554',X'1E81E75C',X'258A07DE',
     +X'3FA69A27',X'1455766B',X'1C657554',X'29A26921',X'3F926A29'/
      DATA (IY11(I), I=51,108)/
     +X'1482952A',X'1C657554',X'29A26921',X'00000FE9',X'14829529',
     +X'2079E814',X'0003FA69',X'14829528',X'3F79E814',X'1455766B',
     +X'1C657554',X'29A26921',X'21926A29',X'00FE1860',X'1482952B',
     +X'3F79E829',X'00FE9524',X'289E4528',X'249E8A69',X'00000FE2',
     +X'1482952A',X'3FA5D822',X'29829527',X'00000FE9',X'1482952C',
     +X'20A54829',X'0003FA54',X'1482952B',X'3FA54829',X'195D552B',
     +X'289A485C',X'249A8A69',X'155D9721',X'0003F514',X'1482952A',
     +X'1B616554',X'3F7DF79D',X'195D552B',X'289A485C',X'249A8A69',
     +X'155D9721',X'2B960514',X'0000003F',X'1482952A',X'1A616554',
     +X'2079E75C',X'0003FA5E',X'145155EA',X'1C6D95D5',X'238607DD',
     +X'28A69A26',X'00000FE6',X'14829528',X'00000FD4',X'289A352B',
     +X'239A8A69',X'00000FD4',X'14829529'/
      DATA (IY12(I),I=1,50)/
     +X'00000FE9',X'1482952C',X'20A54829',X'0003FA54',X'1482952A',
     +X'00000FE9',X'20A5E529',X'0003F794',X'1482952A',X'3FA69814',
     +X'14829529',X'3F8A2829',X'1482952A',X'1A616554',X'1E81E75C',
     +X'258A07DE',X'3FA69A27',X'14829527',X'00000FD4',X'14829529',
     +X'3FA69829',X'14829529',X'2079E814',X'0003FA69',X'1482952A',
     +X'3FA69814',X'1482952B',X'3F79E829',X'195D552B',X'289A485C',
     +X'249A8A69',X'155D9721',X'1E7A0514',X'0000003F',X'00FE9524',
     +X'1482952A',X'3FA5D822',X'14829529',X'00000FE9',X'1482952C',
     +X'20A54829',X'0003FA54',X'1482952B',X'3FA54829',X'1E814529',
     +X'3FA6981E',X'195D552B',X'289A485C',X'249A8A69',X'155D9721'/
      DATA (IY12(I), I=51,108)/
     +X'0003F514',X'1482952B',X'3F514829',X'1482952A',X'1B616554',
     +X'3F7DF79D',X'20A5E529',X'29A60514',X'0000003F',X'14829528',
     +X'00000FD4',X'14557669',X'296D7554',X'14557660',X'3F6D7554',
     +X'1982952A',X'2281D6DA',X'228E4923',X'1969B760',X'00000FD9',
     +X'2982952A',X'00000FD4',X'1A82952B',X'2285F6DA',X'1F8628E3',
     +X'00FDA69B',X'1E8A9A6A',X'145155DA',X'2279A5D5',X'0003FA69',
     +X'2082962C',X'3FA69820',X'00FF0424',X'2279E6A6',X'228A69A2',
     +X'3F69A79E',X'1082D42A',X'1961782D',X'145155D8',X'1C6D95D5',
     +X'208A07DD',X'1F79C6D9',X'29A268A0',X'24966A29',X'0003F9A5',
     +X'27822525',X'3F9E8A68',X'1083042B',X'2075D830',X'0003F8E3',
     +X'3FA605EC',X'15598669',X'18595514',X'227DD71A',X'28A689E0',
     +X'00000FE7',X'124D246C',X'13450411'/
      DATA (IY13(I),I=1,50)/
     +X'2CA1C615',X'1851282E',X'2FB6BA24',X'2DBAFC30',X'0003FBEE',
     +X'1C75C6E5',X'29A2781B',X'0003F9E8',X'1C75C6E5',X'28A6881B',
     +X'2DB2AA27',X'0000003F',X'3FA605EC',X'10830427',X'20410830',
     +X'0003FC30',X'10830427',X'20410830',X'0003FC30',X'2085D668',
     +X'269A08A2',X'0000003F',X'14491427',X'1D6D9616',X'154D181F',
     +X'1E71A617',X'289A48A0',X'20BEDAE9',X'289E58E1',X'30BEEB2A',
     +X'0000003F',X'14491427',X'1D6D9616',X'154D181F',X'1E71A617',
     +X'289A48A0',X'20BEDAE9',X'289E58E1',X'30BEEB2A',X'0000003F',
     +X'209DB6F0',X'29220A5C',X'0000003F',X'2179A5AC',X'259A6963',
     +X'1E696823',X'269A58E1',X'278E08E5',X'2A9E382A',X'00FEAAA0'/
      DATA (IY13(I), I=51,108)/
     +X'165D972C',X'207595D6',X'1C82A962',X'175965D9',X'258A0759',
     +X'00000FEA',X'2075856C',X'20758560',X'2BA23820',X'2BA23820',
     +X'0000003F',X'269A58AC',X'1E7E18E5',X'1D7E07DE',X'1659765B',
     +X'1F75B657',X'1F79E7E0',X'269A58E1',X'278A08A5',X'2A9E282A',
     +X'00FEAAA0',X'1B6DC76D',X'289A379C',X'259E8A69',X'1B720863',
     +X'155155D9',X'267DC657',X'27A29A68',X'0000003F',X'1982766B',
     +X'00000FE7',X'19826668',X'1C75D71A',X'1A69965A',X'258E2819',
     +X'228E59A6',X'00000FE2',X'2592382B',X'1F863925',X'1C6DB71D',
     +X'259648DD',X'1D7E18E4',X'1D71B6DC',X'00000FE0',X'217DD724',
     +X'218E4923',X'2071C75F',X'227A085F',X'1D823760',X'208DD823',
     +X'217E089E',X'0000003F',X'1C924724',X'208DD81C',X'237608DD',
     +X'1D823760',X'208DD823',X'0003F8DD'/
      DATA (IY14(I),I=1,50)/
     +X'1A8E36A5',X'1D822760',X'208A0822',X'0003F8A0',X'2675D9A5',
     +X'2381E8E0',X'207A081E',X'0003F7A0',X'1E7A56A6',X'1A8206A5',
     +X'2081E820',X'20960825',X'0003F7A0',X'208A07AD',X'2082581B',
     +X'00000FE0',X'206976A8',X'1881D61D',X'00000FE9',X'208A07AD',
     +X'2082581B',X'00000FE0',X'209A99A8',X'17823A23',X'00000FE8',
     +X'155155A5',X'00FDA657',X'28A689E5',X'00000FE7',X'27A29A25',
     +X'3FB6CAA8',X'00FF042B',X'19552427',X'2EAE789E',X'00000FF0',
     +X'19552427',X'2EAE789E',X'00000FF0',X'00FE082D',X'208295ED',
     +X'00000FE0',X'2381D76D',X'00000FE3',X'1D8266A8',X'3F8DD823',
     +X'2179C6E5',X'1E863923',X'0003F6DC',X'3F91B765',X'1C6DB725'/
      DATA (IY14(I), I=51,108)/
     +X'3F92481E',X'1C6DB725',X'1F7E07DE',X'239248E0',X'0000003F',
     +X'1B8246E5',X'0003F861',X'1E79F6E5',X'2492385F',X'3F6DB823',
     +X'1E71B6E5',X'218E48E1',X'3F85F79F',X'1B8246E5',X'00000FDB',
     +X'1F79C6E5',X'1B6DC79F',X'248E07E0',X'3F7E08E4',X'208607A5',
     +X'1E71B71E',X'3F9248E1',X'1E8296EA',X'1E71B6DC',X'29A268E1',
     +X'00FE6A29',X'1E829529',X'1E71B6DC',X'29A268E1',X'00FE6A29',
     +X'1B6DC7A9',X'268E179C',X'26A29A68',X'0000003F',X'1E82952A',
     +X'1E71B6DC',X'29A268E1',X'00FE6A29',X'1D7E1869',X'1E71B6DC',
     +X'29A268E1',X'00FE6A29',X'18554527',X'3F6DB829',X'2FBAB6EA',
     +X'1E82FC30',X'1E71B6DC',X'29A268E1',X'00FE6A29',X'1F82952A',
     +X'1F71B6DC',X'00000FE9',X'13515524',X'3FA5B814',X'13515525',
     +X'2FB1B814',X'0003FC30',X'1B829528'/
      DATA (IY15(I),I=1,50)/
     +X'3FA61825',X'00FE9524',X'1F8296EF',X'1F71B6DC',X'1B71F829',
     +X'3FA5F71B',X'1F8296EA',X'1F71B6DC',X'00000FE9',X'2179C6EA',
     +X'29A689A3',X'1E8639A8',X'00FDB6DC',X'1E8306E9',X'1E71B6DC',
     +X'29A268E1',X'00FE6A29',X'1E8306EA',X'1E71B6DC',X'29A268E1',
     +X'00FE6A29',X'218296E6',X'3F6DB71E',X'1B6DC7A9',X'2286079C',
     +X'29A26963',X'00FE6A29',X'29A25527',X'3F6DB829',X'29A256EA',
     +X'1B825A29',X'00000FE9',X'1B8296E8',X'00000FE9',X'1B8296EB',
     +X'20A5B829',X'0003FA5B',X'1B8296E9',X'00000FE9',X'1B8296E8',
     +X'30C2FB69',X'0000003F',X'1B8296E9',X'3FA6981B',X'2079C6EB',
     +X'29A689A3',X'1B7A2968',X'1E71B6E0',X'3FA69A26',X'1B5D552A'/
      DATA (IY15(I), I=51,108)/
     +X'20C2889E',X'1B656514',X'1D81D75C',X'2796281E',X'27A29A68',
     +X'00000FE4',X'1B6DC7AA',X'2992075C',X'2981E6E0',X'0003FC2D',
     +X'1E71B6E9',X'29A27921',X'208E6A29',X'155D96DD',X'3F5D5514',
     +X'1B6DC768',X'2086079C',X'289A48A1',X'3F9A8A69',X'17595527',
     +X'19819658',X'258E075B',X'2FB6BA67',X'00FEEC30',X'1B6DD7EA',
     +X'20A6279C',X'1B6DC7A2',X'3FC2581D',X'1B6DD7EA',X'289A379C',
     +X'23968A69',X'145586E0',X'1E6D8594',X'0003F8A0',X'289A26E5',
     +X'3F967A69',X'1C8296E9',X'2181C6DB',X'238A1821',X'3FA29A68',
     +X'16554528',X'3FA5B829',X'1F8306EB',X'28A699E4',X'226E08A6',
     +X'27A69A26',X'00000FE5',X'2685B6E9',X'2079B829',X'3FA689A3',
     +X'17595528',X'19819658',X'217DD6DA',X'238A08A2',X'2CAA89A4',
     +X'3FC30BED',X'2179C6E9',X'29A689E4'/
      DATA (IY16(I),I=1,50)/
     +X'1D8239A8',X'00FDB6DC',X'1B8296EB',X'1E8299A1',X'00FDB6DC',
     +X'289E4869',X'239A8A69',X'1B6DC760',X'3FC2179C',X'1E71B6EB',
     +X'29A27921',X'208E6A29',X'00FDB71D',X'1E8296EA',X'00FDB6DC',
     +X'1B6DD7EA',X'299E479C',X'1E8A6A29',X'00000FDB',X'227DD72B',
     +X'29A689E5',X'1D8239A8',X'2685D6DB',X'00000FF0',X'2E75B6E9',
     +X'1D6E0C30',X'3FC2EAE0',X'1F83052B',X'1E71B6DD',X'29A689A3',
     +X'1B7A39A8',X'0000003F',X'227DC6EB',X'28A69A25',X'28961825',
     +X'22968A69',X'00FDB71F',X'208266E8',X'3F9A6820',X'00FE56A2',
     +X'18924627',X'2871CA20',X'0000003F',X'1682A5A8',X'1B69A82A',
     +X'1A65969B',X'208A179C',X'248A075C',X'249669A5',X'3F9248E3'/
      DATA (IY16(I), I=51,108)/
     +X'1B8206E3',X'24923820',X'0003F8E3',X'1A8256A6',X'2079E825',
     +X'0003F861',X'3F9A06A8',X'1C6DB725',X'1F8207DE',X'2492381E',
     +X'0003F8E3',X'176185E9',X'1D698596',X'178299E3',X'289A3759',
     +X'28A29AAA',X'00000FE9',X'1E7DF7A3',X'2492381E',X'0003F8E3',
     +X'1E7DF7A3',X'2392481E',X'00FE7963',X'3F9A06A8',X'1682A5A5',
     +X'2059682A',X'0003FAAA',X'1682A5A5',X'2059682A',X'0003FAAA',
     +X'2085D668',X'269A08A2',X'0000003F',X'1A6175A5',X'1A5E079C',
     +X'1881F720',X'207DE71A',X'289A48A1',X'26824860',X'26922829',
     +X'00FEAA68',X'1A6175A6',X'1A5E079C',X'1881F720',X'207DE71A',
     +X'289A48A1',X'26824860',X'26922829',X'00FEAA68',X'2095D769',
     +X'2652099D',X'0000003F',X'145155EB',X'26A205D5',X'1865E8A4',
     +X'1E6585D7',X'20A26922',X'29A20A28'/
      DATA (IY17(I),I=1,50)/
     +X'3FA29AAA',X'218216E8',X'20AA182A',X'186E0AAA',X'15620556',
     +X'155986E0',X'1B815620',X'1A81B659',X'196E06DA',X'1A6A06D9',
     +X'1D71B81B',X'2075B820',X'2075C6E0',X'3F81D6E0',X'1C8195E8',
     +X'208E181E',X'2A9E0AA7',X'1582AAA0',X'17560617',X'185D8818',
     +X'1C75C660',X'1C75C660',X'1D71D760',X'2285E81D',X'208A1822',
     +X'208A285E',X'228A08A1',X'238228A1',X'27A289E6',X'238289E5',
     +X'27A289E6',X'288289E5',X'3FA289E8',X'2782A9E8',X'20AAA82A',
     +X'239A8A27',X'1B7608A2',X'155986DA',X'1A6D8595',X'228A075B',
     +X'27A289A3',X'0000003F',X'23860826',X'20863924',X'1B6DC79F',
     +X'248E179C',X'00000FE4',X'1D823765',X'00000FE3',X'218E6A2B'/
      DATA (IY17(I), I=51,103)/
     +X'1D71C75E',X'238A17DE',X'1F8A3924',X'00FD869D',X'238E282A',
     +X'1C75E862',X'2281F75C',X'1E8628E3',X'1F75C71D',X'00000FE0',
     +X'1F71A667',X'279E6921',X'1C7E1926',X'00FD965A',X'1A9A66A6',
     +X'00000FDA',X'18924627',X'0000003F',X'20AA05A6',X'00000FD6',
     +X'2175D5E8',X'1D8678E7',X'0003F5DD',X'2281E769',X'2281E823',
     +X'00FE0820',X'1E8266E5',X'2079D69D',X'00FDD6DD',X'2281E769',
     +X'2281E823',X'00FE0820',X'228256A5',X'208A39A3',X'00FE3963',
     +X'1B6DC723',X'0003F7DD',X'239248E3',X'00000FE3',X'238E4923',
     +X'0003F9E5',X'00FE56A5',X'2179C6A4',X'0003F963',X'2179C6A3',
     +X'0003F963',X'00FE0826',X'20824726',X'00000FE0',X'2281E7A6',
     +X'00000FE2',X'1E823765',X'3F89E822'/
# endif
      DATA ISTART/
     +  1,  5,  7, 11, 15, 17, 21, 26, 28, 35, 40, 42, 47, 51, 55,
     + 58, 60, 65, 67, 68, 71, 73, 75, 78, 80, 85, 88, 94, 98,103,
     +105,108,110,113,115,117,119,121,126,128,130,133,135,137,143,
     +144,146,148,151,153,155,160,162,165,168,170,174,179,181,185,
     +189,191,192,195,204,206,209,210,215,222,225,229,230,233,236,
     +239,248,257,260,267,273,278,288,296,298,304,311,319,325,329,
     +333,338,341,344,347,350,352,354,356,357,360,363,364,366,368,
     +370,373,374,376,380,382,385,388,390,394,397,401,405,409,413,
     +417,419,424,427,429,432,434,435,439,442,446,450,454,456,460,
     +462,465,467,470,472,475,477,482,489,493,498,502,507,511,517,
     +519,523,525,530,533,539,543,546,550,554,556,560,565,568,573,
     +578,580,581,584,591,594,597,598,602,608,611,614,615,618,621,
     +624,632,640,643,650,663,682,691,696,698,703,709,713,715,717,
     +719,722,725,728,731,734,736,738,740,741,743,745,746,748,750/
*
      DATA NBIT,NBITCH,NBITMX/32,8,30/
#endif
#if defined(CERNLIB_CVX)
      DATA IX11/
     +'217DC6991969C7D6'X,'00FDF864269E79A4'X,'0000003F2185E716'X,
     +'2696489E1C6DA696'X,'0000003F27663966'X,'269E79A5238266D6'X,
     +'00000FD91A6DE864'X,'0003F8E33FA198D6'X,'279A485E1B69B956'X,
     +'00FD969B1E8649A7'X,'1B69A6DD208A5996'X,'219269E72692181D'X,
     +'000000003F69B760'X,'00000FE719FDD9D6'X,'2692175B1A69B796'X,
     +'1965A6DE229669E7'X,'1E8A59A6258DF71A'X,'000000000000003F'X,
     +'1965A71F208E5996'X,'239669A52381F71A'X,'000000003F69B7A0'X,
     +'3F95BFE820FD8817'X,'279E696219FD9655'X,'279E696219FE2966'X,
     +'000000003F662966'X,'1969B75F23967A16'X,'3FA279631F75B699'X,
     +'279A58E019FD9655'X,'00000FD9208E59A7'X,'3F89AFE71AFDA696'X,
     +'000000000003F9DA'X,'3F89AFE71AFDA696'X,'1969B75F23967A16'X,
     +'28A279631F75B699'X,'0000000000FE88FF'X,'3F9D9FE727FD9655'X,
     +'0000000000FE081C'X,'1A6DC7A0228E4918'X,'0000000000000FDA'X,
     +'3F9DEFD927FD9655'X,'00000FE61AFDA696'X,'3F828FE018FD8614'X,
     +'000000000003FA28'X,'3F9E7FE719FD9655'X,'1C6996181969C795'X,
     +'249A7A28279A489E'X,'000000000003F7A2'X,'279E696219FD9655'X,
     +'000000003F662966'X,'1C6996181969C795'X,'249A7A28279A489E'X,
     +'0000003F2787F7A2'X,'279E696219FD9655'X,'0003F9E03F662966'X/
      DATA IX12/
     +'1B69965B1E8A59D6'X,'1B7A2967279A58DD'X,'0000000000000FD9'X,
     +'00000FE719FE0818'X,'279A485F1C699655'X,'0000000000000FE7'X,
     +'00000FE028FE0617'X,'3F960FDB20FDB594'X,'000000000003F96A'X,
     +'00000FD927FE7656'X,'0003F8283F820617'X,'3F9D9FE719FD99D6'X,
     +'3F95BFE820FD8817'X,'279E696219FD9655'X,'279E696219FE2966'X,
     +'000000003F662966'X,'00000FE61AFDA696'X,'3FA18FE820FD8817'X,
     +'3F89AFE71AFDA696'X,'000000000003F9DA'X,'3F9D9FE719FD99D6'X,
     +'3F9D9FE727FD9655'X,'1C6996181969C795'X,'249A7A28279A489E'X,
     +'0000003F2377F7A2'X,'0000000000FE081C'X,'3F9DEFD927FD9655'X,
     +'00000FE820FD8817'X,'3F828FE018FD8614'X,'000000000003FA28'X,
     +'3F9E7FE719FD9655'X,'3F9D9FE31DFE7657'X,'1C6996181969C795'X,
     +'249A7A28279A489E'X,'000000000003F7A2'X,'3F9D9FE727FD9655'X,
     +'279E696219FD9655'X,'000000003F662966'X,'2767F9D93F660657'X,
     +'000000000000003F'X,'00000FE719FE0818'X,'2081F79D1B699657'X,
     +'3F8218A3259A79FF'X,'1A65969B1EFE0816'X,'229669E72696279B'X,
     +'0000000000000FDE'X,'00000FE719FE7656'X,'1C6DA65817FE0815'X,
     +'00FE9A272696485F'X,'217DC6991969D656'X,'0003F9E3269E79A4'X,
     +'3FA18FE818FE0814'X,'0000000000FE081C'X,'268A279E1A69E79A'X/
      DATA IX13/
     +'000000003F7A28A6'X,'26966FE222FDE796'X,'1B69965B1E8A59E7'X,
     +'258DD6D93F9E58DD'X,'1A6596DE229679E6'X,'000000000003F69B'X,
     +'3F82181F20FE081B'X,'3FA1AFE027FDA856'X,'000000000003F9D9'X,
     +'000000003F628614'X,'2696489E1C6DA697'X,'2181F83F20824966'X,
     +'0000000000000FE0'X,'23967A6A2AA68A54'X,'228E4FDC1D7A0862'X,
     +'175965D91B75E7E0'X,'000000000003F5D8'X,'207E0FE02181F81B'X,
     +'000000000003F821'X,'1F821FE02181F81B'X,'0000003F1F821860'X,
     +'000000003FA18A14'X,'3F91DFDE1EFDD759'X,'000000000003F91D'X,
     +'3F8DCFE323FE2899'X,'000000000003F8DC'X,'256FF95B3F6E56D8'X,
     +'000000000000003F'X,'218607DE1E7E0899'X,'218A28601F7E0FDF'X,
     +'3F81F7E0218A285D'X,'2281F79E1F82185F'X,'000000000000003F'X,
     +'1F7E086222860799'X,'1F79E7E021860FE1'X,'3F8218601F79E7E3'X,
     +'1E8218A22181F7E1'X,'000000000000003F'X,'20C3F8163F81748F'X,
     +'000000000000003F'X,'1F75B6581865C814'X,'23967A2827920FE0'X,
     +'22860FDE1F83F821'X,'0000000000FE27BF'X,'1961865B1C79F814'X,
     +'279648A120FE071A'X,'00000FE0249A7A28'X,'299A283F1769E814'X,
     +'208A6A7F2079A5FF'X,'000000000000003F'X,'26A29A6826922814'X,
     +'1F8639242387F864'X,'1869C7FF1F75C71D'X,'1F83F81E1C6985D7'X/
      DATA IX14/
     +'00FE27BF22860FDE'X,'208A49A728A6AA93'X,'207D85D6165D869E'X,
     +'2379C6DB1C7A0861'X,'0000003F2AAA99E5'X,'00000FD927FE7655'X,
     +'1A6DD79E1DFDA998'X,'228A3FE62485D6DA'X,'00000FE3259A6963'X,
     +'2BAEAA67258E2815'X,'196DD7A223967A6A'X,'1E75B65716555597'X,
     +'0000000000000FE0'X,'248E17DD1C71D7DC'X,'1E7BF75D3F7E18E4'X,
     +'3F861FE020FDF7FF'X,'0000003F238FF8A2'X,'3F75DFDC2491C71C'X,
     +'21FE083F1F7FF79E'X,'0003F8E33F8A2FE1'X,'20FDD83F2095B81B'X,
     +'0003F8603F7E0FE3'X,'20FE383F206E581B'X,'0003F7E03F860FDD'X,
     +'2083F8241A99C81A'X,'3F920FDC20FDA83F'X,'000000000003F9A0'X,
     +'17FE3A233F9A9993'X,'0000000000000FE8'X,'20FE581B3F8A0798'X,
     +'0000000000000FE0'X,'18FDD61D3F697693'X,'0000000000000FE9'X,
     +'20FE581B3F8A0798'X,'0000000000000FE0'X,'00FDF8212181F81B'X,
     +'00000FE02181F81B'X,'3F7E0861207E085B'X,'0000000000FD7A55'X,
     +'2281E75D1E822919'X,'0000000000000FE4'X,'1E8228E32281E719'X,
     +'0000000000000FDC'X,'0000000000FE95D3'X,'00000FE917FE0813'X,
     +'00000FE917FE95D3'X,'3F6E5FE51BFE0818'X,'238E281E1D75E81B'X,
     +'000000000003F822'X,'000000003F82079B'X,'3F8DD8A32385F75B'X,
     +'2183F8632385F75B'X,'0000003F1D7E18E3'X,'0003F91C21FE185B'X/
      DATA IX15/
     +'1F8228E2207DD79B'X,'000000003F89EFDD'X,'238A079D1D7A089B'X,
     +'000000003F75E822'X,'00000FE31DFDF8DB'X,'1F8638E11F75D7DB'X,
     +'3F8638E11F75D7FF'X,'238A079D1E8228DB'X,'000000003F7A08A3'X,
     +'1B75F8A426FE6997'X,'00FE69221F75B69A'X,'258E179C1AFDA696'X,
     +'00FDA71E218E59A6'X,'1B69A6DD1F8A4997'X,'0000003F269227DD'X,
     +'1B75F8A426FE6997'X,'00FE69221F75B69A'X,'1B75F8A4259A6697'X,
     +'00FE69221F75B69A'X,'3F91DFE02086395B'X,'26FDD7E224966997'X,
     +'1F75B69A1B75F8A4'X,'0000000000FE6922'X,'2696381E1BFDB6D7'X,
     +'0000000000000FE6'X,'3F820FDF208607DC'X,'20861FE0218A181B'X,
     +'000000000003F71E'X,'3F99FFDB25FDB6D7'X,'0000000000FE081C'X,
     +'207DD69815FD5551'X,'3FAEBAA8258E0FE0'X,'2696381E1BFDB6D7'X,
     +'0000000000000FE6'X,'227DD6DA1A6DD7D7'X,'00FDF8A4269E79A4'X,
     +'258E179C1AFDA696'X,'00FDA71E218E59A6'X,'1B75F8A426FE6997'X,
     +'00FE69221F75B69A'X,'3F96281E1DFDD759'X,'2379C6DC1F8A5998'X,
     +'00FDB71F229669A5'X,'3F91DFE52386081B'X,'26FE68E11E71B6D7'X,
     +'0000000000000FE6'X,'00000FE026FE0698'X,'3F920FDC20FDC615'X,
     +'000000000003F928'X,'00000FDB26FE66D8'X,'1969C7A026FE0698'X,
     +'000000000000003F'X,'3F99BFE61BFDB998'X,'1E71A6591A6DD7D6'X/
      DATA IX16/
     +'238A17FF289E58E0'X,'000000003FA279A5'X,'3F65A6DC1D7E18D7'X,
     +'20FE08E5269E7963'X,'1C75F86324965922'X,'0000000000000FDB'X,
     +'2086181F1D71A617'X,'0003F75E209A7A3F'X,'1E71B69A1B75F897'X,
     +'1F7E08A4259648A0'X,'000000003F9A48A0'X,'3F85E75D1F8A4958'X,
     +'3F96385E1C6DB761'X,'26FE68E01F7E0898'X,'228A179C1B6DC7E2'X,
     +'0000000000FDE7E1'X,'3F69C75D1C6985D6'X,'3F8A59A6248A079C'X,
     +'1C6DB71C1B657595'X,'239669A5248E17DD'X,'0003FA2523860821'X,
     +'3F8E281E1D75E81A'X,'1D7E396627FD9757'X,'3F9238A11F79CFDC'X,
     +'3F6A0FE61E75B658'X,'217DD6DB1CFD7756'X,'299E5924259FF963'X,
     +'0000000000000FEA'X,'259A7FDA1B71D697'X,'000000003F69D823'X,
     +'23FE68E01F7E0898'X,'1E8BF9221F75D7A0'X,'3F7A08A22175B6DC'X,
     +'217DD71B1B71E818'X,'00FE08A4259A6963'X,'17FE696423FDA795'X,
     +'0000000000FE9719'X,'2696385F1D71B6D7'X,'3F5DB71E208A4966'X,
     +'1E71B69A1B75FA57'X,'00FE18E4259648A0'X,'00FE875A18FDE856'X,
     +'1D6DB75D1C6985D6'X,'00000FE7279A489F'X,'1F71A6581865B755'X,
     +'1E82292628A27962'X,'0000000000000FDB'X,'27A3F9E52375B657'X,
     +'000000003F6196E5'X,'1B6DA61615FDC914'X,'29A269221F75B69A'X,
     +'000000000000003F'X,'1D6D96171761A714'X,'289E58E1207E0FDF'X/
      DATA IX17/
     +'0000000000FE69E8'X,'3F95BFE51BFE0818'X,'0000000000FE081E'X,
     +'2066783F209D9819'X,'000000000000003F'X,'24925FE222FDF7D9'X,
     +'3F96475C1C7A3965'X,'1C75F8A42596475C'X,'000000003F71D75C'X,
     +'21820FE121FE081E'X,'000000000003F821'X,'3F91DFE123FDE81B'X,
     +'000000000003F91D'X,'000000003F6E56D8'X,'218608232386079C'X,
     +'0003F82121820FE3'X,'20862926279E6997'X,'1E7E086223FDD79F'X,
     +'00000FDA1A65969C'X,'21820FE02186081E'X,'000000000003F821'X,
     +'20821FE02186081E'X,'0000000000FE0861'X,'000000003F95B958'X,
     +'3F8DEFDF1FFDE79B'X,'000000000003F8DE'X,'3F89DFE222FE185B'X,
     +'000000000003F89D'X,'256FF95B3F95B958'X,'000000000000003F'X,
     +'1E7FF8601E79F85A'X,'1E82185F1EFE087F'X,'1EFE183F1E7E1860'X,
     +'00FE17DE1E821FDF'X,'2287F7E0228A17DB'X,'2281F7E122FE07FF'X,
     +'22FDF83F2285F7E0'X,'00FDF8622281FFE1'X,'20A7F8193F81A5D5'X,
     +'000000000000003F'X,'1657F8A2217DE795'X,'269A58DD1B69A658'X,
     +'1E7FFAD53FAEAA27'X,'000000003F86285F'X,'3F860FDF20FE0818'X,
     +'1C7FF71E1F83F85F'X,'20FE487F248A183F'X,'2483F61A1EFD869C'X,
     +'1D7A0FE8268BFA26'X,'238E283F1D7A0FDD'X,'000000003F8E283F'X,
     +'3F820FE020FE0818'X,'20FE17FF2183F7E0'X,'2281EFE22183F79F'X/
      DATA IX18/
     +'2592283F1B71E83F'X,'1C7A0FE42281E73F'X,'279A48A03F69965A'X,
     +'20FE48A01E73F9A7'X,'20FDA6181969B75E'X,'1BFE6A28279A58E2'X,
     +'000000003F96381D'X,'3F85FFE120FDF818'X,'27A2796728A268E0'X,
     +'1B75C75F218E48E5'X,'2075A618196D9619'X,'000000000000003F'X,
     +'1D71C760218A391A'X,'2385F75D1E821860'X,'0000000000000FE4'X,
     +'00000FDD23FE375B'X,'1A76192629AABAD7'X,'299A485D1A6175D8'X,
     +'0000000000FEBAEA'X,'1C79F86224967A16'X,'217DE71B1961865B'X,
     +'00000FE8289E5922'X,'217DC6991969C7D9'X,'00FDF864269E79A4'X,
     +'00000FDA2699A69A'X,'0000003F209D9819'X,'00000FE02681A81A'X,
     +'288E581B1D61E818'X,'000000000003F822'X,'23963FE2239A3897'X,
     +'0000000000FE56BF'X,'3F8E281E1DFE081B'X,'0000000000FE281E'X,
     +'1D6DDFDE1D69D797'X,'0000000000FE66FF'X,'3F8E281E1DFE081B'X,
     +'0000000000FE281E'X,'0003F8212182085E'X,'00000FE02186081E'X,
     +'0003F8212182085E'X,'0000000000FDC91B'X,'0003F8A01F7E089D'X,
     +'0003F7A02186079C'X,'0000000000FE471A'X,'00000FE41CFE081A'X,
     +'00000FE41CFE471A'X,'3F763FE31DFE081B'X/
      DATA IY11/
     +'29A689601D61552A'X,'00FD451518760968'X,'0000003F2951762A'X,
     +'185955141559866A'X,'0000003F29A5F71A'X,'268E179D1C71452A'X,
     +'00000FE527A29A68'X,'0003FA54208A252A'X,'2179C6DB1C75452A'X,
     +'00FE59E829A689A3'X,'2689D615145155EA'X,'1C75F8A326A29A68'X,
     +'000000003F89F75C'X,'00000FD41482952A'X,'2079D71B195D552A'X,
     +'22967A2929A27962'X,'145155D91B71D7A0'X,'000000000000003F'X,
     +'1A6DE8212181E6EA'X,'289606D715514557'X,'000000003F9A8A69'X,
     +'3F8A282914829529'X,'1A6165541482952A'X,'258A07DE1E81E75C'X,
     +'000000003FA69A27'X,'1C6575541455766B'X,'3F926A2929A26921'X,
     +'1C6575541482952A'X,'00000FE929A26921'X,'2079E81414829529'X,
     +'000000000003FA69'X,'3F79E81414829528'X,'1C6575541455766B'X,
     +'21926A2929A26921'X,'0000000000FE1860'X,'3F79E8291482952B'X,
     +'0000000000FE9524'X,'249E8A69289E4528'X,'0000000000000FE2'X,
     +'3FA5D8221482952A'X,'00000FE929829527'X,'20A548291482952C'X,
     +'000000000003FA54'X,'3FA548291482952B'X,'289A485C195D552B'X,
     +'155D9721249A8A69'X,'000000000003F514'X,'1B6165541482952A'X,
     +'000000003F7DF79D'X,'289A485C195D552B'X,'155D9721249A8A69'X,
     +'0000003F2B960514'X,'1A6165541482952A'X,'0003FA5E2079E75C'X/
      DATA IY12/
     +'1C6D95D5145155EA'X,'28A69A26238607DD'X,'0000000000000FE6'X,
     +'00000FD414829528'X,'239A8A69289A352B'X,'0000000000000FD4'X,
     +'00000FE914829529'X,'20A548291482952C'X,'000000000003FA54'X,
     +'00000FE91482952A'X,'0003F79420A5E529'X,'3FA698141482952A'X,
     +'3F8A282914829529'X,'1A6165541482952A'X,'258A07DE1E81E75C'X,
     +'000000003FA69A27'X,'00000FD414829527'X,'3FA6982914829529'X,
     +'2079E81414829529'X,'000000000003FA69'X,'3FA698141482952A'X,
     +'3F79E8291482952B'X,'289A485C195D552B'X,'155D9721249A8A69'X,
     +'0000003F1E7A0514'X,'0000000000FE9524'X,'3FA5D8221482952A'X,
     +'00000FE914829529'X,'20A548291482952C'X,'000000000003FA54'X,
     +'3FA548291482952B'X,'3FA6981E1E814529'X,'289A485C195D552B'X,
     +'155D9721249A8A69'X,'000000000003F514'X,'3F5148291482952B'X,
     +'1B6165541482952A'X,'000000003F7DF79D'X,'29A6051420A5E529'X,
     +'000000000000003F'X,'00000FD414829528'X,'296D755414557669'X,
     +'3F6D755414557660'X,'2281D6DA1982952A'X,'1969B760228E4923'X,
     +'0000000000000FD9'X,'00000FD42982952A'X,'2285F6DA1A82952B'X,
     +'00FDA69B1F8628E3'X,'145155DA1E8A9A6A'X,'0003FA692279A5D5'X,
     +'3FA698202082962C'X,'0000000000FF0424'X,'228A69A22279E6A6'X/
      DATA IY13/
     +'000000003F69A79E'X,'1961782D1082D42A'X,'1C6D95D5145155D8'X,
     +'1F79C6D9208A07DD'X,'24966A2929A268A0'X,'000000000003F9A5'X,
     +'3F9E8A6827822525'X,'2075D8301083042B'X,'000000000003F8E3'X,
     +'000000003FA605EC'X,'1859551415598669'X,'28A689E0227DD71A'X,
     +'0000000000000FE7'X,'13450411124D246C'X,'1851282E2CA1C615'X,
     +'2DBAFC302FB6BA24'X,'000000000003FBEE'X,'29A2781B1C75C6E5'X,
     +'000000000003F9E8'X,'28A6881B1C75C6E5'X,'0000003F2DB2AA27'X,
     +'000000003FA605EC'X,'2041083010830427'X,'000000000003FC30'X,
     +'2041083010830427'X,'000000000003FC30'X,'269A08A22085D668'X,
     +'000000000000003F'X,'1D6D961614491427'X,'1E71A617154D181F'X,
     +'20BEDAE9289A48A0'X,'30BEEB2A289E58E1'X,'000000000000003F'X,
     +'1D6D961614491427'X,'1E71A617154D181F'X,'20BEDAE9289A48A0'X,
     +'30BEEB2A289E58E1'X,'000000000000003F'X,'29220A5C209DB6F0'X,
     +'000000000000003F'X,'259A69632179A5AC'X,'269A58E11E696823'X,
     +'2A9E382A278E08E5'X,'0000000000FEAAA0'X,'207595D6165D972C'X,
     +'175965D91C82A962'X,'00000FEA258A0759'X,'207585602075856C'X,
     +'2BA238202BA23820'X,'000000000000003F'X,'1E7E18E5269A58AC'X,
     +'1659765B1D7E07DE'X,'1F79E7E01F75B657'X,'278A08A5269A58E1'X/
      DATA IY14/
     +'00FEAAA02A9E282A'X,'289A379C1B6DC76D'X,'1B720863259E8A69'X,
     +'267DC657155155D9'X,'0000003F27A29A68'X,'00000FE71982766B'X,
     +'1C75D71A19826668'X,'258E28191A69965A'X,'00000FE2228E59A6'X,
     +'1F8639252592382B'X,'259648DD1C6DB71D'X,'1D71B6DC1D7E18E4'X,
     +'0000000000000FE0'X,'218E4923217DD724'X,'227A085F2071C75F'X,
     +'208DD8231D823760'X,'0000003F217E089E'X,'208DD81C1C924724'X,
     +'1D823760237608DD'X,'0003F8DD208DD823'X,'1D8227601A8E36A5'X,
     +'0003F8A0208A0822'X,'2381E8E02675D9A5'X,'0003F7A0207A081E'X,
     +'1A8206A51E7A56A6'X,'209608252081E820'X,'000000000003F7A0'X,
     +'2082581B208A07AD'X,'0000000000000FE0'X,'1881D61D206976A8'X,
     +'0000000000000FE9'X,'2082581B208A07AD'X,'0000000000000FE0'X,
     +'17823A23209A99A8'X,'0000000000000FE8'X,'00FDA657155155A5'X,
     +'00000FE728A689E5'X,'3FB6CAA827A29A25'X,'0000000000FF042B'X,
     +'2EAE789E19552427'X,'0000000000000FF0'X,'2EAE789E19552427'X,
     +'0000000000000FF0'X,'0000000000FE082D'X,'00000FE0208295ED'X,
     +'00000FE32381D76D'X,'3F8DD8231D8266A8'X,'1E8639232179C6E5'X,
     +'000000000003F6DC'X,'000000003F91B765'X,'3F92481E1C6DB725'X,
     +'1F7E07DE1C6DB725'X,'0000003F239248E0'X,'0003F8611B8246E5'X/
      DATA IY15/
     +'2492385F1E79F6E5'X,'000000003F6DB823'X,'218E48E11E71B6E5'X,
     +'000000003F85F79F'X,'00000FDB1B8246E5'X,'1B6DC79F1F79C6E5'X,
     +'3F7E08E4248E07E0'X,'1E71B71E208607A5'X,'000000003F9248E1'X,
     +'1E71B6DC1E8296EA'X,'00FE6A2929A268E1'X,'1E71B6DC1E829529'X,
     +'00FE6A2929A268E1'X,'268E179C1B6DC7A9'X,'0000003F26A29A68'X,
     +'1E71B6DC1E82952A'X,'00FE6A2929A268E1'X,'1E71B6DC1D7E1869'X,
     +'00FE6A2929A268E1'X,'3F6DB82918554527'X,'1E82FC302FBAB6EA'X,
     +'29A268E11E71B6DC'X,'0000000000FE6A29'X,'1F71B6DC1F82952A'X,
     +'0000000000000FE9'X,'3FA5B81413515524'X,'2FB1B81413515525'X,
     +'000000000003FC30'X,'3FA618251B829528'X,'0000000000FE9524'X,
     +'1F71B6DC1F8296EF'X,'3FA5F71B1B71F829'X,'1F71B6DC1F8296EA'X,
     +'0000000000000FE9'X,'29A689A32179C6EA'X,'00FDB6DC1E8639A8'X,
     +'1E71B6DC1E8306E9'X,'00FE6A2929A268E1'X,'1E71B6DC1E8306EA'X,
     +'00FE6A2929A268E1'X,'3F6DB71E218296E6'X,'2286079C1B6DC7A9'X,
     +'00FE6A2929A26963'X,'3F6DB82929A25527'X,'1B825A2929A256EA'X,
     +'0000000000000FE9'X,'00000FE91B8296E8'X,'20A5B8291B8296EB'X,
     +'000000000003FA5B'X,'00000FE91B8296E9'X,'30C2FB691B8296E8'X,
     +'000000000000003F'X,'3FA6981B1B8296E9'X,'29A689A32079C6EB'X/
      DATA IY16/
     +'1E71B6E01B7A2968'X,'000000003FA69A26'X,'20C2889E1B5D552A'X,
     +'1D81D75C1B656514'X,'27A29A682796281E'X,'0000000000000FE4'X,
     +'2992075C1B6DC7AA'X,'0003FC2D2981E6E0'X,'29A279211E71B6E9'X,
     +'155D96DD208E6A29'X,'000000003F5D5514'X,'2086079C1B6DC768'X,
     +'3F9A8A69289A48A1'X,'1981965817595527'X,'2FB6BA67258E075B'X,
     +'0000000000FEEC30'X,'20A6279C1B6DD7EA'X,'3FC2581D1B6DC7A2'X,
     +'289A379C1B6DD7EA'X,'145586E023968A69'X,'0003F8A01E6D8594'X,
     +'3F967A69289A26E5'X,'2181C6DB1C8296E9'X,'3FA29A68238A1821'X,
     +'3FA5B82916554528'X,'28A699E41F8306EB'X,'27A69A26226E08A6'X,
     +'0000000000000FE5'X,'2079B8292685B6E9'X,'000000003FA689A3'X,
     +'1981965817595528'X,'238A08A2217DD6DA'X,'3FC30BED2CAA89A4'X,
     +'29A689E42179C6E9'X,'00FDB6DC1D8239A8'X,'1E8299A11B8296EB'X,
     +'0000000000FDB6DC'X,'239A8A69289E4869'X,'3FC2179C1B6DC760'X,
     +'29A279211E71B6EB'X,'00FDB71D208E6A29'X,'00FDB6DC1E8296EA'X,
     +'299E479C1B6DD7EA'X,'00000FDB1E8A6A29'X,'29A689E5227DD72B'X,
     +'2685D6DB1D8239A8'X,'0000000000000FF0'X,'1D6E0C302E75B6E9'X,
     +'000000003FC2EAE0'X,'1E71B6DD1F83052B'X,'1B7A39A829A689A3'X,
     +'000000000000003F'X,'28A69A25227DC6EB'X,'22968A6928961825'X/
      DATA IY17/
     +'0000000000FDB71F'X,'3F9A6820208266E8'X,'0000000000FE56A2'X,
     +'2871CA2018924627'X,'000000000000003F'X,'1B69A82A1682A5A8'X,
     +'208A179C1A65969B'X,'249669A5248A075C'X,'000000003F9248E3'X,
     +'249238201B8206E3'X,'000000000003F8E3'X,'2079E8251A8256A6'X,
     +'000000000003F861'X,'000000003F9A06A8'X,'1F8207DE1C6DB725'X,
     +'0003F8E32492381E'X,'1D698596176185E9'X,'289A3759178299E3'X,
     +'00000FE928A29AAA'X,'2492381E1E7DF7A3'X,'000000000003F8E3'X,
     +'2392481E1E7DF7A3'X,'0000000000FE7963'X,'000000003F9A06A8'X,
     +'2059682A1682A5A5'X,'000000000003FAAA'X,'2059682A1682A5A5'X,
     +'000000000003FAAA'X,'269A08A22085D668'X,'000000000000003F'X,
     +'1A5E079C1A6175A5'X,'207DE71A1881F720'X,'26824860289A48A1'X,
     +'00FEAA6826922829'X,'1A5E079C1A6175A6'X,'207DE71A1881F720'X,
     +'26824860289A48A1'X,'00FEAA6826922829'X,'2652099D2095D769'X,
     +'000000000000003F'X,'26A205D5145155EB'X,'1E6585D71865E8A4'X,
     +'29A20A2820A26922'X,'000000003FA29AAA'X,'20AA182A218216E8'X,
     +'15620556186E0AAA'X,'1B815620155986E0'X,'196E06DA1A81B659'X,
     +'1D71B81B1A6A06D9'X,'2075C6E02075B820'X,'000000003F81D6E0'X,
     +'208E181E1C8195E8'X,'1582AAA02A9E0AA7'X,'185D881817560617'X/
      DATA IY18/
     +'1C75C6601C75C660'X,'2285E81D1D71D760'X,'208A285E208A1822'X,
     +'238228A1228A08A1'X,'238289E527A289E6'X,'288289E527A289E6'X,
     +'000000003FA289E8'X,'20AAA82A2782A9E8'X,'1B7608A2239A8A27'X,
     +'1A6D8595155986DA'X,'27A289A3228A075B'X,'000000000000003F'X,
     +'2086392423860826'X,'248E179C1B6DC79F'X,'0000000000000FE4'X,
     +'00000FE31D823765'X,'1D71C75E218E6A2B'X,'1F8A3924238A17DE'X,
     +'0000000000FD869D'X,'1C75E862238E282A'X,'1E8628E32281F75C'X,
     +'00000FE01F75C71D'X,'279E69211F71A667'X,'00FD965A1C7E1926'X,
     +'00000FDA1A9A66A6'X,'0000003F18924627'X,'00000FD620AA05A6'X,
     +'1D8678E72175D5E8'X,'000000000003F5DD'X,'2281E8232281E769'X,
     +'0000000000FE0820'X,'2079D69D1E8266E5'X,'0000000000FDD6DD'X,
     +'2281E8232281E769'X,'0000000000FE0820'X,'208A39A3228256A5'X,
     +'0000000000FE3963'X,'0003F7DD1B6DC723'X,'00000FE3239248E3'X,
     +'0003F9E5238E4923'X,'0000000000FE56A5'X,'0003F9632179C6A4'X,
     +'0003F9632179C6A3'X,'0000000000FE0826'X,'00000FE020824726'X,
     +'00000FE22281E7A6'X,'3F89E8221E823765'X/
      DATA ISTART/
     +  1,  3,  4,  6,  8,  9, 11, 14, 15, 19, 22, 23, 26, 28, 30,
     + 32, 33, 36, 37, 38, 40, 41, 42, 44, 45, 48, 50, 53, 55, 58,
     + 59, 61, 62, 64, 65, 66, 67, 68, 71, 72, 73, 75, 76, 77, 80,
     + 81, 82, 83, 85, 86, 87, 90, 91, 93, 95, 96, 98,101,102,104,
     +106,107,108,110,115,116,118,119,122,126,128,130,131,133,135,
     +137,142,147,149,153,156,159,164,168,169,172,176,180,183,185,
     +187,190,192,194,196,198,199,200,201,202,204,206,207,208,209,
     +210,212,213,214,216,217,219,221,222,224,226,228,230,232,234,
     +236,237,240,242,243,245,246,247,249,251,253,255,257,258,260,
     +261,263,264,266,267,269,270,273,277,279,282,284,287,289,292,
     +293,295,296,299,301,304,306,308,310,312,313,315,318,320,323,
     +326,327,328,330,334,336,338,339,341,344,346,348,349,351,353,
     +355,359,363,365,369,376,386,391,394,395,398,401,403,404,405,
     +406,408,410,412,414,416,417,418,419,420,421,422,423,424,425/
*
      DATA NBIT,NBITCH,NBITMX/64,8,60/
#endif
#if defined(CERNLIB_CRAY)
      DATA IX11/
     +41373432313132343726B,00773741444647474644B,00000000774141363426B,
     +46454442363433323226B,00000000774731434546B,46474746454340463326B,
     +00000077313233364144B,00007743437750314326B,47464441363332334526B,
     +00773132333641444647B,33323233354042454626B,41444647474644414035B,
     +00000000007732333540B,00000077473177354726B,46444135333232333626B,
     +31313233364245464747B,36424546464543373432B,00000000000000000077B,
     +31313234374043454626B,43454646454340373432B,00000000007732333640B,
     +77453377504077304027B,47474645423177313125B,47474645423177424546B,
     +00000000007731424546B,31323335374345475026B,77504745433735333231B,
     +47464543403177313125B,00000077314043454647B,77423277473277323226B,
     +00000000000000774732B,77423277473277323226B,31323335374345475026B,
     +50504745433735333231B,00000000000077504377B,77473177474777313125B,
     +00000000000077404034B,32333436404243444430B,00000000000000007732B,
     +77473677314777313125B,00000077463277323226B,77405077403077303024B,
     +00000000000000775050B,77474777473177313125B,34323130303132343625B,
     +44464750504746444236B,00000000000000773642B,47474645423177313125B,
     +00000000007731424546B,34323130303132343625B,44464750504746444236B,
     +00000000774741773642B,47474645423177313125B,00007747407731424546B/
      DATA IX12/
     +33323131333642454726B,33364245474746454335B,00000000000000007731B,
     +00000077473177404030B,47464441373432313125B,00000000000000007747B,
     +00000077405077403027B,77454077334077332624B,00000000000000774552B,
     +00000077314777473126B,00007740507740403027B,77473177473177314726B,
     +77453377504077304027B,47474645423177313125B,47474645423177424546B,
     +00000000007731424546B,00000077463277323226B,77503077504077304027B,
     +77423277473277323226B,00000000000000774732B,77473177473177314726B,
     +77473177474777313125B,34323130303132343625B,44464750504746444236B,
     +00000000774335773642B,00000000000077404034B,77473677314777313125B,
     +00000077504077304027B,77405077403077303024B,00000000000000775050B,
     +77474777473177313125B,77473177433577473127B,34323130303132343625B,
     +44464750504746444236B,00000000000000773642B,77473177474777313125B,
     +47474645423177313125B,00000000007731424546B,47317747317731403127B,
     +00000000000000000077B,00000077473177404030B,40403736353332313127B,
     +77404142434546474777B,32313132333677404026B,42454647474645423633B,
     +00000000000000007736B,00000077473177473126B,34333231302777404025B,
     +00775150474645444137B,41373432313132353126B,00007747434647474644B,
     +77503077503077404024B,00000000000077404034B,46424236363232363632B/
      DATA IX13/
     +00000000007736424246B,46454677424277363626B,33323131333642454747B,
     +45433533317747454335B,32313133364245474746B,00000000000000773233B,
     +77404140374077404033B,77503277404777324126B,00000000000000774731B,
     +00000000007730503024B,46454442363433323227B,41403740774040444546B,
     +00000000000000007740B,43454751525251505124B,42434477343536404142B,
     +27262627313335363740B,00000000000000772730B,40374077404140374033B,
     +00000000000000774041B,37404177404140374033B,00000000773740414140B,
     +00000000007750305024B,77443577363677353531B,00000000000000774435B,
     +77433477434377424231B,00000000000000774334B,45337745337733453330B,
     +00000000000000000077B,41414037363637404231B,41424241403737407737B,
     +77403737404142424135B,42403736363740414137B,00000000000000000077B,
     +37374041424241403631B,37363637404141407741B,77404141403736363743B,
     +36404142424140373741B,00000000000000000077B,40607740267740272217B,
     +00000000000000000077B,37353331303031344024B,43454750504744407740B,
     +42414077363740774041B,00000000000077423677B,31303031333436374024B,
     +47454442414077403432B,00000077404446475050B,51464240772732364024B,
     +40424651774036322777B,00000000000000000077B,46505151504644424024B,
     +37414344444341774144B,30323437773735343435B,37407740363432302727B/
      DATA IX14/
     +00774236774241407736B,40424446475051525223B,40373027262627303236B,
     +43363433333436404141B,00000000775252514745B,00000077314777473125B,
     +32333536363577324630B,42424377464441353332B,00000077434546464543B,
     +53535251474543424025B,31333536424345475152B,36353331272625252627B,
     +00000000000000007740B,44434137353434353734B,36367735357737414344B,
     +77414177404077373777B,00000000774343774242B,77353577344444343434B,
     +41774040773737773636B,00007743437742427741B,40773540774045334033B,
     +00007741407737407743B,40774340774033454033B,00007737407741407735B,
     +40407740443246344032B,77444077344077324077B,00000000000000774640B,
     +27774350437746514623B,00000000000000007750B,40774540337742403630B,
     +00000000000000007740B,30773530357732273223B,00000000000000007751B,
     +40774540337742403630B,00000000000000007740B,00773740414140374033B,
     +00000077404140374033B,77374041414037404133B,00000000000077275125B,
     +42403635353640424431B,00000000000000007744B,36404243434240363431B,
     +00000000000000007734B,00000000000077512723B,00000077512777404023B,
     +00000077512777512723B,77334577453377404030B,43434240363535364033B,
     +00000000000000774042B,00000000007740403633B,77433542434341373533B,
     +41407741434341373533B,00000000773537414343B,00007744344177414133B/
      DATA IX15/
     +37404243424037353633B,00000000007742367735B,43424036353536404233B,
     +00000000007735364042B,00000077433577374333B,37414343413735353733B,
     +77414343413735353777B,43424036353640424333B,00000000007736404243B,
     +33353742444677464627B,00774644423735333232B,45434136343277323226B,
     +00773234364143454646B,33323233353742444627B,00000000774644423735B,
     +33353742444677464627B,00774644423735333232B,33353742444546463227B,
     +00774644423735333232B,77443577404041434533B,46773537424445464627B,
     +37353332323335374244B,00000000000077464442B,46454340363377333327B,
     +00000000000000007746B,77404077374041403734B,40414177404142414033B,
     +00000000000000773436B,77463777334577333327B,00000000000077404034B,
     +40373532302577252521B,77535352504543407740B,46454340363377333327B,
     +00000000000000007746B,42373533323233353727B,00773742444647474644B,
     +45434136343277323226B,00773234364143454646B,33353742444677464627B,
     +00774644423735333232B,77454240363577353531B,43363433343742454630B,
     +00773334374245464645B,77443577454341404033B,46774643413634333327B,
     +00000000000000007746B,00000077404677403230B,77444077344077343025B,
     +00000000000000774450B,00000077334677463330B,31323436404677403230B,
     +00000000000000000077B,77463377463377334630B,36343231313233353726B/
      DATA IX16/
     +43424137775047454340B,00000000007750474645B,77313233343537414327B,
     +40774043454647474543B,34353741434445454442B,00000000000000007733B,
     +40414140373534323027B,00007735364046475077B,36343332323335374227B,
     +37374042444545444240B,00000000007746444240B,77413635353742444530B,
     +77454341363433333541B,46774643403737404230B,42424136343333343742B,
     +00000000000077363741B,77323435353432302726B,77424546464442403634B,
     +34333334343331272625B,43454646454443413735B,00007750454341404041B,
     +77434240363535364032B,35374345464777313527B,77444342413736347734B,
     +77324077463635333130B,41373533333477273526B,51474544444547774543B,
     +00000000000000007752B,45464777323334353227B,00000000007732354043B,
     +43774643403737404230B,36427744423735353640B,77364042424135333334B,
     +41373534333334364030B,00774042444546464543B,27774645444377323625B,
     +00000000000077513431B,46454341373534333327B,77273334364042444546B,
     +36343332323335375127B,00774143444545444240B,00775035323077364126B,
     +35333335353432302726B,00000077474746444237B,37343231303031333525B,
     +36404244465050474542B,00000000000000007733B,47507747454335333127B,
     +00000000007730313345B,33333230262577344424B,51504644423735333232B,
     +00000000000000000077B,35333130272730323424B,50474543414037407737B/
      DATA IX17/
     +00000000000077464750B,77453377453377404030B,00000000000077404036B,
     +40314740774047314031B,00000000000000000077B,44444577424277373731B,
     +77454435343436434545B,34353742444545443534B,00000000007734353534B,
     +41404077414177404036B,00000000000000774041B,77443577414377364033B,
     +00000000000000774435B,00000000007733453330B,41414040434341403634B,
     +00007740414140407743B,40414244464747464627B,36374041424377353637B,
     +00000077323231313234B,41404077404141404036B,00000000000000774041B,
     +40404177404141404036B,00000000000077404141B,00000000007745334530B,
     +77433677373777363633B,00000000000000774336B,77423577424277414133B,
     +00000000000000774235B,45337745337745334530B,00000000000000000077B,
     +36377741403636374132B,36404141373677404177B,36774140773637414140B,
     +00774137363640417737B,42417737404242413733B,42403737414277403777B,
     +42773740774241373740B,00773741424240377741B,40517740317740322725B,
     +00000000000000000077B,26257742424137363625B,46464543353332323130B,
     +36377753257753525047B,00000000007741424137B,77414077374077404030B,
     +34377734363740774137B,40774441774442414077B,44407730323677303234B,
     +35364077504642775046B,43434240773536407735B,00000000007743424077B,
     +77404077404077404030B,40774137774140773740B,42403677424140773637B/
      DATA IX18/
     +45444240773334364077B,34364077444240363477B,47464442407732313132B,
     +40774442403634774647B,40773230303132333536B,33774650504746454342B,
     +00000000007745434035B,77413777414077374030B,47504745475050464340B,
     +33353435374143444345B,40353230303133313031B,00000000000000000077B,
     +35343435404142434432B,43413735353640414140B,00000000000000007744B,
     +00000077354377433533B,32354144465152535327B,51464441353230272730B,
     +00000000000077535352B,34363741424445475026B,41373634333130303133B,
     +00000077505047454442B,41373432313132343731B,00773741444647474644B,
     +00000077324646323232B,00000000774047314031B,00000077404640324032B,
     +50434540333530364030B,00000000000000774042B,43454377424346434227B,
     +00000000000077453277B,77434240363577404033B,00000000000077424036B,
     +35333577363532353627B,00000000000077463377B,77434240363577404033B,
     +00000000000077424036B,00007740414140404136B,00000077404141404036B,
     +00007740414140404136B,00000000000077344433B,00007742403737404235B,
     +00007736404141403634B,00000000000077443432B,00000077443477404032B,
     +00000077443477443432B,77354377433577404033B/
      DATA IY11/
     +51515045403530252452B,00772424253035404550B,00000000775124273052B,
     +30262524242526303152B,00000000775151373432B,46434136353434242452B,
     +00000077454750515150B,00007751244042422452B,41363433333435242452B,
     +00774547505151504643B,46423530252424252752B,34353742434650515150B,
     +00000000007742373534B,00000077242440512452B,40363534333127252452B,
     +42454750515150474542B,24242527313334353640B,00000000000000000077B,
     +32333640414140363352B,50454033272524242527B,00000000007746505151B,
     +77424240512440512451B,32302625242440512452B,45424037363640363534B,
     +00000000007751515047B,34312725242425273153B,77444650515150464441B,
     +34312725242440512452B,00000077515150464441B,40363640242440512451B,
     +00000000000000775151B,77363640242440512450B,34312725242425273153B,
     +41444650515150464441B,00000000000077414140B,77363640512440512453B,
     +00000000000077512444B,44475051515047442450B,00000000000000007742B,
     +77513540422440512452B,00000077515140512447B,40512440512440512454B,
     +00000000000000775124B,77512440512440512453B,50464441343127252453B,
     +25273134414446505151B,00000000000000772424B,33302625242440512452B,
     +00000000007737373635B,50464441343127252453B,25273134414446505151B,
     +00000000775345402424B,32302625242440512452B,00007751364036363534B/
      DATA IY12/
     +34333127252424252752B,50515150464341403735B,00000000000000007746B,
     +00000077242440512450B,43465051515046432453B,00000000000000007724B,
     +00000077512440512451B,40512440512440512454B,00000000000000775124B,
     +00000077512440512452B,00007736244051362451B,77515140242440512452B,
     +77424240512440512451B,32302625242440512452B,45424037363640363534B,
     +00000000007751515047B,00000077242440512447B,77515140512440512451B,
     +40363640242440512451B,00000000000000775151B,77515140242440512452B,
     +77363640512440512453B,50464441343127252453B,25273134414446505151B,
     +00000000773636402424B,00000000000077512444B,77513540422440512452B,
     +00000077512440512451B,40512440512440512454B,00000000000000775124B,
     +77512440512440512453B,77515140363640242451B,50464441343127252453B,
     +25273134414446505151B,00000000000000772424B,77242440512440512453B,
     +33302625242440512452B,00000000007737373635B,51514024244051362451B,
     +00000000000000000077B,00000077242440512450B,51332725242425273151B,
     +77332725242425273140B,42403533323140512452B,31323335404243444443B,
     +00000000000000007731B,00000077245140512452B,42413733323240512453B,
     +00773232333741424343B,24242527323642515152B,00007751514236322725B,
     +77515140404040513054B,00000000000077602044B,42424646424236363246B/
      DATA IY13/
     +00000000007732323636B,31302740552040552052B,34333127252424252730B,
     +37363433314042403735B,44454650515150464240B,00000000000000774645B,
     +77475051504740422445B,40353540602040602053B,00000000000000774343B,
     +00000000007751402754B,30262524242526303151B,50515047404237353432B,
     +00000000000000007747B,23212020212223222154B,30242240565450343025B,
     +55565760605755535044B,00000000000000775756B,51504740333435343345B,
     +00000000000000774750B,50515040333435343345B,00000000775554525047B,
     +00000000007751402754B,40202040602040602047B,00000000000000776060B,
     +40202040602040602047B,00000000000000776060B,46464042424041353150B,
     +00000000000000000077B,35333130262422212047B,36343230272523214037B,
     +40575553515046444240B,60575654525047454341B,00000000000000000077B,
     +35333130262422212047B,36343230272523214037B,40575553515046444240B,
     +60575654525047454341B,00000000000000000077B,51104051344047333360B,
     +00000000000000000077B,45464645434136322654B,46464543413632264043B,
     +52474340524743404345B,00000000000077525240B,40353127262627313454B,
     +27262627313440524542B,00000077524542403531B,40353025404035302554B,
     +53504340405350434040B,00000000000000000077B,36374143454646454254B,
     +26262731333537403736B,37363637403735333127B,47424042454646454341B/
      DATA IY14/
     +00775252405247424052B,50464336343333343555B,33344041434547505151B,
     +46373431272524252731B,00000000774750515150B,00000077473140473153B,
     +34353534323140463150B,45434240313232313132B,00000077424243454646B,
     +37414344454544434053B,45454443353433333435B,35343333343537414344B,
     +00000000000000007740B,41434444434137353444B,42364041374034343537B,
     +40433540433540433540B,00000000774137404236B,40433540343444443444B,
     +35404335404335404335B,00007743354043354043B,35404235403243433245B,
     +00007742404042404042B,43403643404635354645B,00007736404036404036B,
     +32404032453636453246B,40454040454040364040B,00000000000000773640B,
     +40404540334042403655B,00000000000000007740B,30403530354032273250B,
     +00000000000000007751B,40404540334042403655B,00000000000000007740B,
     +27404350434046514650B,00000000000000007750B,00773231272524252645B,
     +00000077475051504745B,77555452504750515045B,00000000000077602053B,
     +56534742363125222047B,00000000000000007760B,56534742363125222047B,
     +00000000000000007760B,00000000000077404055B,00000077404040512755B,
     +00000077434340353555B,77433540433540463250B,36414344434136343345B,
     +00000000000000773334B,00000000007744333545B,77444440363433333445B,
     +37374037363433333445B,00000000774344444340B,00007741413340443345B/
      DATA IY15/
     +44444341373636373345B,00000000007733334043B,41434443413634333345B,
     +00000000007741373637B,00000077333340443345B,33333436373736343345B,
     +77374043444443403740B,36343334364041403645B,00000000007744444341B,
     +36343333343640513352B,00774650515150464341B,36343333343640512451B,
     +00774650515150464341B,46434136343333343651B,00000000774650515150B,
     +36343333343640512452B,00774650515150464341B,36343333343537414151B,
     +00774650515150464341B,77333340513025242447B,36405760605756533352B,
     +51504643413634333334B,00000000000077465051B,37343333343740512452B,
     +00000000000000007751B,77513340242324252444B,57543340242324252445B,
     +00000000000000776060B,77514140453340512450B,00000000000077512444B,
     +37343333343740513357B,77513734333334374051B,37343333343740513352B,
     +00000000000000007751B,51515046434136343352B,00773333343641434650B,
     +36343333343640603351B,00774650515150464341B,36343333343640603352B,
     +00774650515150464341B,77333334364140513346B,42414036343333343651B,
     +00774650515150464543B,77333340515150452447B,33404550515150453352B,
     +00000000000000007751B,00000077513340513350B,40513340513340513353B,
     +00000000000000775133B,00000077513340513351B,60605755513340513350B,
     +00000000000000000077B,77515140333340513351B,51515046434036343353B/
      DATA IY16/
     +36343333403336424550B,00000000007751515046B,40605042363327252452B,
     +35403535343331262424B,47505151504745424036B,00000000000000007744B,
     +51444035343333343652B,00007760555140363340B,51504744413634333351B,
     +25273133354043465051B,00000000007727252424B,40414036343333343550B,
     +77465051515046444241B,31403131302726252447B,57555351474543403533B,
     +00000000000077566060B,40514236343333353752B,77604540353333343642B,
     +50464336343333353752B,24253033404345505151B,00007742403633302624B,
     +77454751515046423345B,41403433333440513351B,77505151504342414041B,
     +77513340512625242450B,50515147443740603353B,47515150464233404246B,
     +00000000000000007745B,40363340514641333351B,00000000007751504643B,
     +31403131302726252450B,43424042424137353332B,77606057555452504644B,
     +51515047444136343351B,00773333343540434650B,36405146413340513353B,
     +00000000000077333334B,43465051515047444151B,77604136343333343540B,
     +51504744413634333353B,00773334354043465051B,00773333343640513352B,
     +51474436343333353752B,00000077333642465051B,51515047454237353453B,
     +46413533333540434650B,00000000000000007760B,35334060605635333351B,
     +00000000007760565340B,36343333353740602453B,33364346505151504643B,
     +00000000000000000077B,50515150454237343353B,42455051515045414045B/
      DATA IY17/
     +00000000000077333437B,77464640404040463350B,00000000000077453242B,
     +50343450403044443047B,00000000000000000077B,33323240522640522650B,
     +40424136343231313233B,44454646454442403534B,00000000007744444343B,
     +44444340403340403343B,00000000000000774343B,40363640453240453246B,
     +00000000000000774141B,00000000007746403250B,37404037363433333445B,
     +00007743434444434036B,35323026262730302751B,50464335312740514743B,
     +00000077515050515252B,44444340363637373643B,00000000000000774343B,
     +43444440363637373643B,00000000000077474543B,00000000007746403250B,
     +40262640522640522645B,00000000000000775252B,40262640522640522645B,
     +00000000000000775252B,46464042424041353150B,00000000000000000077B,
     +32274036343230272645B,40373634323040373440B,46404441405046444241B,
     +00775251504644424051B,32274036343230272646B,40373634323040373440B,
     +46404441405046444241B,00775251504644424051B,46244046354045353551B,
     +00000000000000000077B,46504027252424252753B,36313027273031364244B,
     +51504050504050464442B,00000000007750515252B,40524140524140413350B,
     +25304025263033405252B,33402530402526303340B,31334033323240333131B,
     +35343340333232403331B,40353433404035334040B,00000000007740353340B,
     +40434140363440312750B,25405252405247405247B,30273040302725403027B/
      DATA IY18/
     +34353431403435343140B,42413640353534353540B,40424241364042414042B,
     +43404242414242404241B,43405047454750504746B,50405047454750504746B,
     +00000000007750504750B,40525240524740524750B,33354042424346505047B,
     +32333026252526303332B,47505046434242403533B,00000000000000000077B,
     +40414344444341404046B,44434136343333343637B,00000000000000007744B,
     +00000077433540433545B,35343435364143465053B,37424344444342413736B,
     +00000000000077303235B,34353641424343424052B,36414243434240373534B,
     +00000077403735343435B,47474644413734323147B,00773131323437414446B,
     +00000077323246463246B,00000000773044443047B,00000077264052402646B,
     +35414743474135352750B,00000000000000772735B,42403640434240363551B,
     +00000000000077404040B,40363532353640463345B,00000000000077353335B,
     +42403640434240363551B,00000000000077404040B,40424346434240453245B,
     +00000000000077434543B,00007737353333343443B,00000077434344444343B,
     +00007747454343444443B,00000000000077453245B,00007745434136343244B,
     +00007745434136343243B,00000000000077404046B,00000077404040443446B,
     +00000077424240363646B,77423640423640433545B/
      DATA ISTART/
     +  1,  3,  4,  6,  8,  9, 11, 14, 15, 19, 22, 23, 26, 28, 30,
     + 32, 33, 36, 37, 38, 40, 41, 42, 44, 45, 48, 50, 53, 55, 58,
     + 59, 61, 62, 64, 65, 66, 67, 68, 71, 72, 73, 75, 76, 77, 80,
     + 81, 82, 83, 85, 86, 87, 90, 91, 93, 95, 96, 98,101,102,104,
     +106,107,108,110,115,116,118,119,122,126,128,130,131,133,135,
     +137,142,147,149,153,156,159,164,168,169,172,176,180,183,185,
     +187,190,192,194,196,198,199,200,201,202,204,206,207,208,209,
     +210,212,213,214,216,217,219,221,222,224,226,228,230,232,234,
     +236,237,240,242,243,245,246,247,249,251,253,255,257,258,260,
     +261,263,264,266,267,269,270,273,277,279,282,284,287,289,292,
     +293,295,296,299,301,304,306,308,310,312,313,315,318,320,323,
     +326,327,328,330,334,336,338,339,341,344,346,348,349,351,353,
     +355,359,363,365,369,376,386,391,394,395,398,401,403,404,405,
     +406,408,410,412,414,416,417,418,419,420,421,422,423,424,425/
*
      DATA NBIT,NBITCH,NBITMX/64,8,60/
#endif
      DATA IPASS/0/
*
*       SET OF FORTRAN CHARACTERS (ON ANY KEYBOARD)
*
*     DATA IFORT/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN
*    +  ,1HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,1HX,1HY,1HZ
*    +  ,1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9
*    +  ,1H.,1H,,1H/,1H(,1H),1H-,1H+,1H=,1H*,1H$,1H /
*
*       SET OF CONTROL CHARACTERS (MAY BE KEYBOARD DEPENDENT)
*
*       ISPEC(1)= !   GOTO NORMAL SCRIPT LEVEL( EXCLAMATION MARK)
*       ISPEC(2)= ?   GOTO SUBSCRIPT (QUESTION MARK)
*       ISPEC(3)  ^   GOTO SUPERSCRIPT (CIRCOMFLEX)
*       ISPEC(4)  >   GOTO UPPER CASE (GREATER THAN)
*       ISPEC(5)  <   GOTO LOWER CASE  (LESS THAN)
*       ISPEC(6)  [   GOTO GREEK (OPEN SQUARE BRACKET)
*       ISPEC(7)  ]   GOTO ROMAN (CLOSE SQUARE BRACKET)
*       ISPEC(8)  &   BACKSPACE ONE CHARACTER (AND)
*       ISPEC(9)  "   GOTO SPECIAL SYMBOLS (QUOTES)
*       ISPEC(10) #   END OF SPECIAL SYMBOLS (NUMBER)
*       ISPEC(11) $   END OF SCAN CHARACTER (DOLLAR)
*
*     DATA ISPEC/1H!,1H?,1H^,1H>,1H<,1H[,1H],1H&,1H",1H#,1H$/
*
*       CORRESPONDENCE BETWEEN GREEK ALPHABET AND ROMAN ALPHABET
*
      DATA LGREEK/1,2,7,4,5,21,3,22,9,9,10,11,12,13,15,16,8,17,18
     +  ,19,20,22,24,14,23,6/
      DATA IFIRST/0/
*.______________________________________
*
#include "higz/hibit.inc"
      CALL UOPTC(CHOPT,'LCRS',IOPT)
      IF(IOPTL.NE.0)IGO=-1
      IF(IOPTC.NE.0)IGO=0
      IF(IOPTR.NE.0)IGO=1
      IF(IOPTS.NE.0)THEN
         IGO=2
         GOTO 10
      ENDIF
*
#if defined(CERNLIB_MAIL)
      CHOPTM=CHOPT
#endif
#if defined(CERNLIB_ZEBRA)||defined(CERNLIB_MAIL)
      IF(GLFLAG)CALL IZTEXT(X,Y,KTEXT,SSIZE,ANGLE,IOPT)
#endif
      IF((.NOT.GFLAG).AND.(.NOT.PFLAG))RETURN
*
      ZFSAV=ZFLAG
      ZFLAG=.FALSE.
      GLFLAG=(ZFLAG.OR.PFLAG.OR.MFLAG)
      IPLCIS=IPLCI
      ILNS=ILN
      RLWSAV=RLWSC
      CALL ISPLCI(ITXCI)
      CALL ISLN(1)
      CALL ISLWSC(1.)
*
   10 XMAX=99999.
      XLMAX=FLOARG(XMAX)
*
      IF(IPASS.EQ.0)THEN
         IF(IFIRST.EQ.0)THEN
            CALL UCTOH('abcdefghijklmnopqrstuvwxyz',IFORT,1,26)
            CALL UCTOH('ABCDEFGHIJKLMNOPQRSTUVWXYZ',IFORT(27),1,26)
            CALL UCTOH('0123456789.,/()-+=*$ ',IFORT(53),1,21)
            CALL UCTOH('!?^><[]&"#$',ISPEC,1,11)
            IFIRST=1
         ENDIF
         IPASS=1
         DO 20 I=1,84
#if (!defined(CERNLIB_VAX))&&(!defined(CERNLIB_DECS))&&(!defined(CERNLIB_MSDOS))&&(!(defined(CERNLIB_LINUX) && !defined(CERNLIB_PPC)))&&(!defined(CERNLIB_WINNT))
            LL=JBYT(ITEXT(I),NBIT-NBITCH+1,NBITCH)
#endif
#if defined(CERNLIB_VAX)||defined(CERNLIB_DECS)||defined(CERNLIB_MSDOS)||(defined(CERNLIB_LINUX) && !defined(CERNLIB_PPC))||defined(CERNLIB_WINNT)
            LL=MOD(ITEXT(I),256)
#endif
            IA(LL+1)=I-26
   20    CONTINUE
      ENDIF
*
      ISPEC(11)=IFORT(46)
      SIZE=FLOARG(SSIZE)
*
*             Unpacks text ,prepare angles and size
*
      IGOP=IGO
      ILEN=LENOCC(KTEXT)
      IF(KTEXT(ILEN:ILEN).EQ.'$')ILEN=ILEN-1
      CALL UCTOH(KTEXT,ITEXT,1,ILEN)
      IF(ANGLE.EQ.0.)THEN
         SI=0.
         CO=1.
      ELSE
         THE=FLOARG(ANGLE)*3.141592/180.
         IF(IGO.GE.2)THE=0.
         SI=SIN(THE)
         CO=COS(THE)
      ENDIF
      XPP=FLOARG(X)
      YPP=FLOARG(Y)
*
*             Set default values
*
   30 NDRAW  = 0
      KL     = 1
      KGREEK = 0
      KSPEC  = 0
      SCALE  = SIZE/21.
      RSCALE = SCALE
      IY0    = 9
      YOFF   = 0.
      WTOT   = 0.
      XW     = 0.
      YW     = 0.
      WDTH   = 0.
*
*             Start loop for each character to be drawn
*
      DO 270 ICHAR=1,ILEN
#if (!defined(CERNLIB_VAX))&&(!defined(CERNLIB_DECS))&&(!defined(CERNLIB_MSDOS))&&(!(defined(CERNLIB_LINUX) && !defined(CERNLIB_PPC)))&&(!defined(CERNLIB_WINNT))
         IG=JBYT(ITEXT(ICHAR),NBIT-NBITCH+1,NBITCH)
#endif
#if defined(CERNLIB_VAX)||defined(CERNLIB_DECS)||defined(CERNLIB_MSDOS)||(defined(CERNLIB_LINUX) && !defined(CERNLIB_PPC))||defined(CERNLIB_WINNT)
         IG=MOD(ITEXT(ICHAR),256)
#endif
         IC=IA(IG+1)
         IBIT=1
         IDIF=1
*
         IF(IC.GT.58)GOTO 260
         IF(IC.EQ.58)GOTO 280
         IF(IC.GT.47)GOTO 150
         IF(IC.EQ.47)GOTO 260
         IF(IC.EQ.46)GOTO 280
         IF(KSPEC.NE.0)GOTO 70
         IF(IC.GT.36)GOTO 50
         IF(IC.GT.26)GOTO 60
         IF(KGREEK.NE.0)GOTO 40
*
*             Roman alphabet
*
         IF(KL.LT.0)THEN
            IF(IC.LE.0)THEN
               ICHR=IC+141
            ELSE
               ICHR=IC+115
            ENDIF
         ELSE
            IF(IC.LE.0)THEN
               ICHR=IC+141
            ELSE
               ICHR=IC+10
            ENDIF
         ENDIF
         GOTO 80
*
*             Greek alphabet
*
   40    IF(KL.LT.0)THEN
            IF(IC.LE.0)THEN
               ICHR=LGREEK(IC+26)+141
            ELSE
               ICHR=LGREEK(IC)+141
            ENDIF
         ELSE
            IF(IC.LE.0)THEN
               ICHR=LGREEK(IC+26)+141
            ELSE
               ICHR=LGREEK(IC)+36
            ENDIF
         ENDIF
         GOTO 80
*
*             Mathematical symbols
*
   50    IF(KL.LT.0)THEN
            IF(IC.LE.0)THEN
               ICHR=191+IC
            ELSE
               ICHR=165+IC
            ENDIF
         ELSE
            IF(IC.LE.0)THEN
               ICHR=86+IC
            ELSE
               ICHR=60+IC
            ENDIF
         ENDIF
         GOTO 80
*
*             Digits  0--->9
*
   60    IF(KL.LT.0)THEN
            IF(IC.LE.0)THEN
               ICHR=IC+105
            ELSE
               ICHR=IC+79
            ENDIF
         ELSE
            IF(IC.LE.0)THEN
               ICHR=IC
            ELSE
               ICHR=IC-26
            ENDIF
         ENDIF
         GOTO 80
*
*             Special symbols
*
   70    IF(KL.LT.0)THEN
            IF(IC.LE.0)THEN
               ICHR=191+IC
            ELSE
               ICHR=165+IC
            ENDIF
         ELSE
            IF(IC.LE.0)THEN
               ICHR=191+IC
            ELSE
               ICHR=60+IC
            ENDIF
         ENDIF
*
*             Define scale and prepare absolute coordinates of vectors
*
   80    IF(ICHR.LE.0)GOTO 260
         IF(ICHR.GT.210)GOTO 260
         IF(KSPEC.EQ.0)GOTO 100
         IF(ICHR.EQ.9.OR.ICHR.EQ.18)GOTO 100
*
*             Redefine scale for special symbols
*
         IW=ISTART(ICHR)
         KYMIN=100
         KYMAX=-100
   90    IBIT=IBIT+6
         IF(IBIT.GE.NBITMX)THEN
            IBIT=1
            IW=IW+1
         ENDIF
*
         KX=JBYT(IX(IW),IBIT,6)-32
         KY=JBYT(IY(IW),IBIT,6)-32
         IF(KX.NE.31)THEN
            IF(KY.GT.KYMAX)KYMAX=KY
            IF(KY.LT.KYMIN)KYMIN=KY
            GOTO 90
         ENDIF
*
         IF(KY.NE.31)GOTO 90
         IY0=KYMAX
         DKY=KYMAX-KYMIN
         IF(DKY.EQ.0)DKY=21
         SCALE=SIZE/DKY
         RSCALE=SCALE
         IBIT=1
*
  100    IW=ISTART(ICHR)
#if defined(CERNLIB_CDC)||defined(CERNLIB_CRAY)
         KX=JBYT(IX(IW),1,6)-32
         KY=JBYT(IY(IW),1,6)-32
#endif
#if (!defined(CERNLIB_CDC))&&(!defined(CERNLIB_CRAY))
         KX=MOD(IX(IW),64)-32
         KY=MOD(IY(IW),64)-32
#endif
         WDTH=RSCALE*(KY-KX)
         IF(WTOT+WDTH.GT.XLMAX)GOTO 280
         WTOT=WTOT+WDTH
         IF(IGOP.NE.-1)NDRAW=1
         IF(IGOP.NE.-1)GOTO 270
         XW=WDTH*CO
         YW=WDTH*SI
         IX0=KX
         IF((KSPEC.NE.0).AND.(YOFF.NE.0))IY0=KY
         K=0
*
  110    IBIT=IBIT+6
         IDIF=IDIF*64
         IF(IBIT.GE.NBITMX)THEN
            IBIT=1
            IDIF=1
            IW=IW+1
         ENDIF
#if defined(CERNLIB_CDC)||defined(CERNLIB_CRAY)
         KX=JBYT(IX(IW),IBIT,6)-32
         KY=JBYT(IY(IW),IBIT,6)-32
#endif
#if (!defined(CERNLIB_CDC))&&(!defined(CERNLIB_CRAY))
         KX=MOD(IX(IW)/IDIF,64)-32
         KY=MOD(IY(IW)/IDIF,64)-32
#endif
         IF(KX.NE.31)THEN
            K=K+1
            KX=KX-IX0
            KY=IY0-KY
            XP(K)=KX*RSCALE*CO-(KY*RSCALE+YOFF)*SI+XPP
            YP(K)=KX*RSCALE*SI+(KY*RSCALE+YOFF)*CO+YPP
            GOTO 110
         ENDIF
*
*             Draw part of symbol
*
         IF(INPASS.LE.0)INPASS=1
         IF(MOD(INPASS,2).NE.0)THEN
            CALL IPL(K,XP,YP)
            III=(INPASS-1)/2
         ELSE
            III=INPASS/2
         ENDIF
         DO 140 IPASS=1,III
            DELTA=FLOAT(IPASS)*RCSHIF*SIZE
            DO 120 I=1,K
               XXP(I)=XP(I)-DELTA
               YYP(I)=YP(I)-DELTA
  120       CONTINUE
            CALL IPL(K,XXP,YYP)
            DO 130 I=1,K
               XXP(I)=XP(I)+DELTA
               YYP(I)=YP(I)+DELTA
  130       CONTINUE
            CALL IPL(K,XXP,YYP)
  140    CONTINUE
         NDRAW=NDRAW+1
         IF(KY.NE.31)THEN
            K=0
            GOTO 110
         ENDIF
*
*             Position cursor for next character
*
         XPP=XPP+XW
         YPP=YPP+YW
         GOTO 270
*
*             Control characters
*
  150    L1=IC-47
         GOTO (160,170,180,190,200,210,220,230,240,250),L1
*
*             Normal level of script
*
  160    YOFF=0.
         RSCALE=SCALE
         GOTO 270
*
*             Subscript
*
  170    YOFF=-0.25*SIZE
         RSCALE=0.5*SCALE
         GOTO 270
*
*             Superscript
*
  180    YOFF=0.75*SIZE
         RSCALE=0.5*SCALE
         GOTO 270
*
*             Upper case
*
  190    KL=1
         GOTO 270
*
*             Lower case
*
  200    KL=-1
         GOTO 270
*
*             Greek alphabet
*
  210    KGREEK=1
         GOTO 270
*
*             End of greek alphabet
*
  220    KGREEK=0
         GOTO 270
*
*             Backspace one character
*
  230    IF(NDRAW.LE.0)GOTO 270
         WTOT=WTOT-WDTH
         XPP=XPP-XW
         YPP=YPP-YW
         GOTO 270
*
*             GOTO special symbols
*
  240    KSPEC=1
         GOTO 270
*
*             End of special symbols
*
  250    KSPEC=0
         IY0=9
         SCALE=SIZE/21.
         RSCALE=SCALE
         IF(YOFF.NE.0)RSCALE=0.5*SCALE
         GOTO 270
*
*              Blank space
*
  260    IF(NDRAW.LE.0)GOTO 270
         WDTH=10.*RSCALE
         XW=WDTH*CO
         YW=WDTH*SI
         IF(WTOT+WDTH.GT.XLMAX)GOTO 280
         WTOT=WTOT+WDTH
         XPP=XPP+XW
         YPP=YPP+YW
*
  270 CONTINUE
*
*             Prepare parameters for a second pass if IGO.NE.-1
*
  280 IF(IGOP.EQ.-1)GOTO 310
      IF(IGOP.EQ.0)GOTO 290
      IF(IGOP.EQ.1)GOTO 300
*
*             Return text length in angle
*
      ANGLE=WTOT
      RETURN
*
*             Text is centered on x,y
*
  290 XPP=X-0.5*WTOT*CO
      YPP=Y-0.5*WTOT*SI
      IGOP=-1
      GOTO 30
*
*             Text is rigth adjusted on x,y
*
  300 XPP=X-WTOT*CO
      YPP=Y-WTOT*SI
      IGOP=-1
      GOTO 30
*
  310 CALL ISPLCI(IPLCIS)
      CALL ISLN(ILNS)
      CALL ISLWSC(RLWSAV)
      ZFLAG=ZFSAV
      GLFLAG=(ZFLAG.OR.PFLAG.OR.MFLAG)
      END