text:
C  *********************************************************
C  *                                                       *
C  *    TEST NUMBER: 02.01.03.01/01                        *
C  *    TEST TITLE : Changing a structure identifier       *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************

      COMMON /GLOBNU/ CTLHND, ERRSIG, ERRFIL, IERRCT, UNERR,
     1        TESTCT, IFLERR, PASSSW, ERRSW, MAXLIN,
     2        CONID, MEMUN, WKID, WTYPE, GLBLUN, INDLUN,
     3        DUMINT, DUMRL
      INTEGER         CTLHND, ERRSIG, ERRFIL, IERRCT, UNERR,
     1        TESTCT, IFLERR, PASSSW, ERRSW, MAXLIN,
     2        CONID, MEMUN, WKID, WTYPE, GLBLUN, INDLUN,
     3        DUMINT(20), ERRIND
      REAL    DUMRL(20)

      COMMON /GLOBCH/ PIDENT,    GLBERR,    TSTMSG,     FUNCID,
     1                DUMCH
      CHARACTER       PIDENT*40, GLBERR*60, TSTMSG*900, FUNCID*80,
     1                DUMCH(20)*20

C Enumeration values for subroutine parameters:
C   structure state: non-existent   opened       closed
      INTEGER        NOEXE,         NOPEN,       NCLOS
      PARAMETER     (NOEXE = -1,    NOPEN = 0,   NCLOS = 1)

C   structure posted state:
C                    structure posted     structure not posted
      INTEGER         NPST,                NNPT
      PARAMETER      (NPST = 0,            NNPT = 1)

C   structure reference status:
C                    referenced  not referenced
      INTEGER        NREF,       NNRF
      PARAMETER     (NREF = 2,   NNRF = 3)

C   structure contents:
C                    empty     original
      INTEGER        NEMP,     NORG
      PARAMETER     (NEMP = 0, NORG = 1)

      CHARACTER SRSTR*10, TCNUM*10 , EXCSS*700

      CALL INITGL ('02.01.03.01/01')

C open PHIGS
      CALL XPOPPH (ERRFIL, MEMUN)
C open workstation
      CALL POPWK  (WKID, CONID, WTYPE)
      SRSTR = '1'

C *** *** *** *** *** test case 1 *** *** *** *** ***

      TCNUM = '1'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '350,0/'

      CALL TSTCID (300, 350,  NOEXE, NOEXE, NOEXE,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NEMP,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 2 *** *** *** *** ***

      TCNUM = '2'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '130,0/'

      CALL TSTCID (300, 130,  NOEXE, NOEXE, NOEXE,
     1                        NCLOS, NNRF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NEMP,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 3 *** *** *** *** ***

      TCNUM = '3'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '130,0/'

      CALL TSTCID (300, 130,  NOEXE, NOEXE, NOEXE,
     1                        NCLOS, NNRF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NEMP,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 4 *** *** *** *** ***

      TCNUM = '4'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '111,1, 114,0/'                                                //
     8 '111,3, 115,0/'                                                //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (300, 108,  NOEXE, NOEXE, NOEXE,
     1                        NCLOS, NREF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NEMP,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 5 *** *** *** *** ***

      TCNUM = '5'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '111,1, 114,0/'                                                //
     8 '111,3, 115,0/'                                                //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (300, 108,  NOEXE, NOEXE, NOEXE,
     1                        NCLOS, NREF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NEMP,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 6 *** *** *** *** ***

      TCNUM = '6'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '130,0/'

      CALL TSTCID (300, 130,  NOEXE, NOEXE, NOEXE,
     1                        NOPEN, NNRF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NEMP,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 7 *** *** *** *** ***

      TCNUM = '7'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '130,0/'

      CALL TSTCID (300, 130,  NOEXE, NOEXE, NOEXE,
     1                        NOPEN, NNRF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NEMP,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 8 *** *** *** *** ***

      TCNUM = '8'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '111,1, 114,0/'                                                //
     8 '111,3, 115,0/'                                                //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (300, 108,  NOEXE, NOEXE, NOEXE,
     1                        NOPEN, NREF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NEMP,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 9 *** *** *** *** ***

      TCNUM = '9'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '111,1, 114,0/'                                                //
     8 '111,3, 115,0/'                                                //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (300, 108,  NOEXE, NOEXE, NOEXE,
     1                        NOPEN, NREF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NEMP,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 10 *** *** *** *** ***

      TCNUM = '10'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '350,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '350,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'

      CALL TSTCID (120, 350,  NCLOS, NNRF,  NNPT,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 11 *** *** *** *** ***

      TCNUM = '11'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NNPT,
     1                        NCLOS, NNRF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 12 *** *** *** *** ***

      TCNUM = '12'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NNPT,
     1                        NCLOS, NNRF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 13 *** *** *** *** ***

      TCNUM = '13'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     2 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     3 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     4 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     5 '100,2, 102,2, 105,1, 110,0/'                                  //
     6 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     7 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     8 '100,2, 102,2, 105,3, 114,0/'                                  //
     9 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     O '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'

      CALL TSTCID (120, 109,  NCLOS, NNRF,  NNPT,
     1                        NCLOS, NREF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 14 *** *** *** *** ***

      TCNUM = '14'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     2 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     3 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     4 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     5 '100,2, 102,2, 105,1, 110,0/'                                  //
     6 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     7 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     8 '100,2, 102,2, 105,3, 114,0/'                                  //
     9 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     O '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'

      CALL TSTCID (120, 109,  NCLOS, NNRF,  NNPT,
     1                        NCLOS, NREF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 15 *** *** *** *** ***

      TCNUM = '15'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NNPT,
     1                        NOPEN, NNRF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 16 *** *** *** *** ***

      TCNUM = '16'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NNPT,
     1                        NOPEN, NNRF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 17 *** *** *** *** ***

      TCNUM = '17'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     2 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     3 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     4 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     5 '100,2, 102,2, 105,1, 110,0/'                                  //
     6 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     7 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     8 '100,2, 102,2, 105,3, 114,0/'                                  //
     9 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     O '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'

      CALL TSTCID (120, 109,  NCLOS, NNRF,  NNPT,
     1                        NOPEN, NREF,  NNPT,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 18 *** *** *** *** ***

      TCNUM = '18'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     2 '100,2, 102,1, 104,2, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     3 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,1, 114,0/'      //
     4 '100,2, 102,1, 104,5, 109,2, 106,1, 108,2, 111,3, 115,0/'      //
     5 '100,2, 102,2, 105,1, 110,0/'                                  //
     6 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     7 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     8 '100,2, 102,2, 105,3, 114,0/'                                  //
     9 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     O '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'

      CALL TSTCID (120, 109,  NCLOS, NNRF,  NNPT,
     1                        NOPEN, NREF,  NPST,
     2                        NOEXE, NOEXE, NOEXE,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 19 *** *** *** *** ***

      TCNUM = '19'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '350,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '350,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 350,  NCLOS, NNRF,  NPST,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 20 *** *** *** *** ***

      TCNUM = '20'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '120,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NPST,
     1                        NCLOS, NNRF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 21 *** *** *** *** ***

      TCNUM = '21'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '120,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NPST,
     1                        NCLOS, NNRF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 22 *** *** *** *** ***

      TCNUM = '22'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,2, 106,1, 108,2, 111,1, 114,0/'             //
     4 '100,2, 102,2, 105,2, 106,1, 108,2, 111,3, 115,0/'             //
     5 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     6 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     7 '110,0/'                                                       //
     8 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     9 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     O '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     1 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     2 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     3 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     4 '130,5, 107,5, 113,0/'                                         //
     5 '140,1, 142,0/'                                                //
     6 '120,0/'

      CALL TSTCID (120, 105,  NCLOS, NNRF,  NPST,
     1                        NCLOS, NREF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 23 *** *** *** *** ***

      TCNUM = '23'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,2, 106,1, 108,2, 111,1, 114,0/'             //
     4 '100,2, 102,2, 105,2, 106,1, 108,2, 111,3, 115,0/'             //
     5 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     6 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     7 '110,0/'                                                       //
     8 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     9 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     O '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     1 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     2 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     3 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     4 '130,5, 107,5, 113,0/'                                         //
     5 '140,1, 142,0/'                                                //
     6 '120,0/'

      CALL TSTCID (120, 105,  NCLOS, NNRF,  NPST,
     1                        NCLOS, NREF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 24 *** *** *** *** ***

      TCNUM = '24'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '120,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NPST,
     1                        NOPEN, NNRF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 25 *** *** *** *** ***

      TCNUM = '25'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '107,1, 108,2, 111,1, 114,0/'                                  //
     O '107,1, 108,2, 111,3, 115,0/'                                  //
     1 '107,4, 108,2, 111,1, 114,0/'                                  //
     2 '107,4, 108,2, 111,3, 115,0/'                                  //
     3 '107,5, 113,0/'                                                //
     4 '130,2, 106,1, 108,2, 111,1, 114,0/'                           //
     5 '130,2, 106,1, 108,2, 111,3, 115,0/'                           //
     6 '140,1, 142,0/'                                                //
     7 '120,0/'

      CALL TSTCID (120, 130,  NCLOS, NNRF,  NPST,
     1                        NOPEN, NNRF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 26 *** *** *** *** ***

      TCNUM = '26'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '113,0/'                                                       //
     O '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     1 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     2 '130,5, 107,2, 106,1, 108,2, 111,1, 114,0/'                    //
     3 '130,5, 107,2, 106,1, 108,2, 111,3, 115,0/'                    //
     4 '140,1, 142,0/'                                                //
     5 '120,0/'

      CALL TSTCID (120, 107,  NCLOS, NNRF,  NPST,
     1                        NOPEN, NREF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 27 *** *** *** *** ***

      TCNUM = '27'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '113,0/'                                                       //
     O '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     1 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     2 '130,5, 107,2, 106,1, 108,2, 111,1, 114,0/'                    //
     3 '130,5, 107,2, 106,1, 108,2, 111,3, 115,0/'                    //
     4 '140,1, 142,0/'                                                //
     5 '120,0/'

      CALL TSTCID (120, 107,  NCLOS, NNRF,  NPST,
     1                        NOPEN, NREF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 28 *** *** *** *** ***

      TCNUM = '28'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '350,2, 111,1, 114,0/'                                         //
     8 '350,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 350,  NCLOS, NREF,  NNPT,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NCLOS, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 29 *** *** *** *** ***

      TCNUM = '29'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NNPT,
     1                        NCLOS, NNRF,  NNPT,
     2                        NCLOS, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 30 *** *** *** *** ***

      TCNUM = '30'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NNPT,
     1                        NCLOS, NNRF,  NPST,
     2                        NCLOS, NEMP,  NNPT,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 31 *** *** *** *** ***

      TCNUM = '31'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NNPT,
     1                        NCLOS, NREF,  NNPT,
     2                        NCLOS, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 32 *** *** *** *** ***

      TCNUM = '32'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NNPT,
     1                        NCLOS, NREF,  NPST,
     2                        NCLOS, NEMP,  NNPT,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 33 *** *** *** *** ***

      TCNUM = '33'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NNPT,
     1                        NOPEN, NNRF,  NNPT,
     2                        NCLOS, NEMP,  NNPT,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 34 *** *** *** *** ***

      TCNUM = '34'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NNPT,
     1                        NOPEN, NNRF,  NPST,
     2                        NCLOS, NEMP,  NNPT,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 35 *** *** *** *** ***

      TCNUM = '35'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NNPT,
     1                        NOPEN, NREF,  NNPT,
     2                        NCLOS, NEMP,  NNPT,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 36 *** *** *** *** ***

      TCNUM = '36'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NNPT,
     1                        NOPEN, NREF,  NPST,
     2                        NCLOS, NEMP,  NNPT,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 37 *** *** *** *** ***

      TCNUM = '37'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '350,2, 111,1, 114,0/'                                         //
     8 '350,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 350,  NCLOS, NREF,  NPST,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 38 *** *** *** *** ***

      TCNUM = '38'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NPST,
     1                        NCLOS, NNRF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 39 *** *** *** *** ***

      TCNUM = '39'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NPST,
     1                        NCLOS, NNRF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 40 *** *** *** *** ***

      TCNUM = '40'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NPST,
     1                        NCLOS, NREF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 41 *** *** *** *** ***

      TCNUM = '41'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NPST,
     1                        NCLOS, NREF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 42 *** *** *** *** ***

      TCNUM = '42'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NPST,
     1                        NOPEN, NNRF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 43 *** *** *** *** ***

      TCNUM = '43'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NCLOS, NREF,  NPST,
     1                        NOPEN, NNRF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 44 *** *** *** *** ***

      TCNUM = '44'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NPST,
     1                        NOPEN, NREF,  NNPT,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 45 *** *** *** *** ***

      TCNUM = '45'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NCLOS, NREF,  NPST,
     1                        NOPEN, NREF,  NPST,
     2                        NCLOS, NEMP,  NPST,
     3                        NOPEN, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 46 *** *** *** *** ***

      TCNUM = '46'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '350,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '350,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 350,  NOPEN, NNRF,  NNPT,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 47 *** *** *** *** ***

      TCNUM = '47'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,2, 111,1, 114,0/'                           //
     5 '102,2, 105,2, 108,2, 111,3, 115,0/'                           //
     6 '102,2, 105,3, 114,0/'                                         //
     7 '102,5, 106,1, 108,2, 111,1, 114,0/'                           //
     8 '102,5, 106,1, 108,2, 111,3, 115,0/'                           //
     9 '100,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '100,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 100,  NOPEN, NNRF,  NNPT,
     1                        NCLOS, NNRF,  NNPT,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 48 *** *** *** *** ***

      TCNUM = '48'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,2, 111,1, 114,0/'                           //
     5 '102,2, 105,2, 108,2, 111,3, 115,0/'                           //
     6 '102,2, 105,3, 114,0/'                                         //
     7 '102,5, 106,1, 108,2, 111,1, 114,0/'                           //
     8 '102,5, 106,1, 108,2, 111,3, 115,0/'                           //
     9 '100,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '100,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 100,  NOPEN, NNRF,  NNPT,
     1                        NCLOS, NNRF,  NPST,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 49 *** *** *** *** ***

      TCNUM = '49'

      EXCSS = '113,0/'                                                //
     1 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     4 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,1, 101,2, 103,0/'                                  //
     6 '130,5, 107,2, 102,1, 104,2, 109,0/'                           //
     7 '130,5, 107,2, 102,1, 104,5, 109,0/'                           //
     8 '130,5, 107,2, 102,2, 105,1, 110,0/'                           //
     9 '130,5, 107,2, 102,2, 105,2, 108,2, 111,1, 114,0/'             //
     O '130,5, 107,2, 102,2, 105,2, 108,2, 111,3, 115,0/'             //
     1 '130,5, 107,2, 102,2, 105,3, 114,0/'                           //
     2 '130,5, 107,2, 102,5, 106,1, 108,2, 111,1, 114,0/'             //
     3 '130,5, 107,2, 102,5, 106,1, 108,2, 111,3, 115,0/'             //
     4 '140,1, 142,0/'                                                //
     5 '100,0/'

      CALL TSTCID (100, 107,  NOPEN, NNRF,  NNPT,
     1                        NCLOS, NREF,  NNPT,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 50 *** *** *** *** ***

      TCNUM = '50'

      EXCSS = '113,0/'                                                //
     1 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     4 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,1, 101,2, 103,0/'                                  //
     6 '130,5, 107,2, 102,1, 104,2, 109,0/'                           //
     7 '130,5, 107,2, 102,1, 104,5, 109,0/'                           //
     8 '130,5, 107,2, 102,2, 105,1, 110,0/'                           //
     9 '130,5, 107,2, 102,2, 105,2, 108,2, 111,1, 114,0/'             //
     O '130,5, 107,2, 102,2, 105,2, 108,2, 111,3, 115,0/'             //
     1 '130,5, 107,2, 102,2, 105,3, 114,0/'                           //
     2 '130,5, 107,2, 102,5, 106,1, 108,2, 111,1, 114,0/'             //
     3 '130,5, 107,2, 102,5, 106,1, 108,2, 111,3, 115,0/'             //
     4 '140,1, 142,0/'                                                //
     5 '100,0/'

      CALL TSTCID (100, 107,  NOPEN, NNRF,  NNPT,
     1                        NCLOS, NREF,  NPST,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 51 *** *** *** *** ***

      TCNUM = '51'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,2, 111,1, 114,0/'                    //
     5 '100,2, 102,2, 105,2, 108,2, 111,3, 115,0/'                    //
     6 '100,2, 102,2, 105,3, 114,0/'                                  //
     7 '100,2, 102,5, 106,1, 108,2, 111,1, 114,0/'                    //
     8 '100,2, 102,5, 106,1, 108,2, 111,3, 115,0/'                    //
     9 '350,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '350,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 350,  NOPEN, NNRF,  NPST,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 52 *** *** *** *** ***

      TCNUM = '52'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,2, 111,1, 114,0/'                           //
     5 '102,2, 105,2, 108,2, 111,3, 115,0/'                           //
     6 '102,2, 105,3, 114,0/'                                         //
     7 '102,5, 106,1, 108,2, 111,1, 114,0/'                           //
     8 '102,5, 106,1, 108,2, 111,3, 115,0/'                           //
     9 '100,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '100,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 100,  NOPEN, NNRF,  NPST,
     1                        NCLOS, NNRF,  NNPT,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 53 *** *** *** *** ***

      TCNUM = '53'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,2, 111,1, 114,0/'                           //
     5 '102,2, 105,2, 108,2, 111,3, 115,0/'                           //
     6 '102,2, 105,3, 114,0/'                                         //
     7 '102,5, 106,1, 108,2, 111,1, 114,0/'                           //
     8 '102,5, 106,1, 108,2, 111,3, 115,0/'                           //
     9 '100,2, 106,1, 108,2, 111,1, 114,0/'                           //
     O '100,2, 106,1, 108,2, 111,3, 115,0/'                           //
     1 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,5, 107,1, 108,2, 111,1, 114,0/'                           //
     4 '130,5, 107,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,4, 108,2, 111,1, 114,0/'                           //
     6 '130,5, 107,4, 108,2, 111,3, 115,0/'                           //
     7 '130,5, 107,5, 113,0/'                                         //
     8 '140,1, 142,0/'                                                //
     9 '120,0/'

      CALL TSTCID (120, 100,  NOPEN, NNRF,  NPST,
     1                        NCLOS, NNRF,  NPST,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 54 *** *** *** *** ***

      TCNUM = '54'

      EXCSS = '113,0/'                                                //
     1 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     4 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,1, 101,2, 103,0/'                                  //
     6 '130,5, 107,2, 102,1, 104,2, 109,0/'                           //
     7 '130,5, 107,2, 102,1, 104,5, 109,0/'                           //
     8 '130,5, 107,2, 102,2, 105,1, 110,0/'                           //
     9 '130,5, 107,2, 102,2, 105,2, 108,2, 111,1, 114,0/'             //
     O '130,5, 107,2, 102,2, 105,2, 108,2, 111,3, 115,0/'             //
     1 '130,5, 107,2, 102,2, 105,3, 114,0/'                           //
     2 '130,5, 107,2, 102,5, 106,1, 108,2, 111,1, 114,0/'             //
     3 '130,5, 107,2, 102,5, 106,1, 108,2, 111,3, 115,0/'             //
     4 '140,1, 142,0/'                                                //
     5 '100,0/'

      CALL TSTCID (100, 107,  NOPEN, NNRF,  NPST,
     1                        NCLOS, NREF,  NNPT,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 55 *** *** *** *** ***

      TCNUM = '55'

      EXCSS = '113,0/'                                                //
     1 '120,2, 106,1, 108,2, 111,1, 114,0/'                           //
     2 '120,2, 106,1, 108,2, 111,3, 115,0/'                           //
     3 '130,3, 106,1, 108,2, 111,1, 114,0/'                           //
     4 '130,3, 106,1, 108,2, 111,3, 115,0/'                           //
     5 '130,5, 107,1, 101,2, 103,0/'                                  //
     6 '130,5, 107,2, 102,1, 104,2, 109,0/'                           //
     7 '130,5, 107,2, 102,1, 104,5, 109,0/'                           //
     8 '130,5, 107,2, 102,2, 105,1, 110,0/'                           //
     9 '130,5, 107,2, 102,2, 105,2, 108,2, 111,1, 114,0/'             //
     O '130,5, 107,2, 102,2, 105,2, 108,2, 111,3, 115,0/'             //
     1 '130,5, 107,2, 102,2, 105,3, 114,0/'                           //
     2 '130,5, 107,2, 102,5, 106,1, 108,2, 111,1, 114,0/'             //
     3 '130,5, 107,2, 102,5, 106,1, 108,2, 111,3, 115,0/'             //
     4 '140,1, 142,0/'                                                //
     5 '100,0/'

      CALL TSTCID (100, 107,  NOPEN, NNRF,  NPST,
     1                        NCLOS, NREF,  NPST,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 56 *** *** *** *** ***

      TCNUM = '56'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '350,2, 111,1, 114,0/'                                         //
     8 '350,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 350,  NOPEN, NREF,  NNPT,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 57 *** *** *** *** ***

      TCNUM = '57'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NOPEN, NREF,  NNPT,
     1                        NCLOS, NNRF,  NNPT,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 58 *** *** *** ***

      TCNUM = '58'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NOPEN, NREF,  NNPT,
     1                        NCLOS, NNRF,  NPST,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 59 *** *** *** ***

      TCNUM = '59'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NOPEN, NREF,  NNPT,
     1                        NCLOS, NREF,  NNPT,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 60 *** *** *** ***

      TCNUM = '60'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NOPEN, NREF,  NNPT,
     1                        NCLOS, NREF,  NPST,
     2                        NOPEN, NEMP,  NNPT,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 61 *** *** *** *** ***

      TCNUM = '61'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '350,2, 111,1, 114,0/'                                         //
     8 '350,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 350,  NOPEN, NREF,  NPST,
     1                        NOEXE, NOEXE, NOEXE,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 62 *** *** *** *** ***

      TCNUM = '62'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NOPEN, NREF,  NPST,
     1                        NCLOS, NNRF,  NNPT,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 63 *** *** *** *** ***

      TCNUM = '63'

      EXCSS = '101,2, 103,0/'                                         //
     1 '102,1, 104,2, 109,0/'                                         //
     2 '102,1, 104,5, 109,0/'                                         //
     3 '102,2, 105,1, 110,0/'                                         //
     4 '102,2, 105,2, 108,0/'                                         //
     5 '102,2, 105,3, 114,0/'                                         //
     6 '102,5, 106,1, 108,0/'                                         //
     7 '100,2, 111,1, 114,0/'                                         //
     8 '100,2, 111,3, 115,0/'                                         //
     9 '120,2, 106,1, 108,0/'                                         //
     O '130,3, 106,1, 108,0/'                                         //
     1 '130,5, 107,1, 108,0/'                                         //
     2 '130,5, 107,4, 108,0/'                                         //
     3 '130,5, 107,5, 113,0/'                                         //
     4 '140,1, 142,0/'

      CALL TSTCID (108, 100,  NOPEN, NREF,  NPST,
     1                        NCLOS, NNRF,  NPST,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 64 *** *** *** *** ***

      TCNUM = '64'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NOPEN, NREF,  NPST,
     1                        NCLOS, NREF,  NNPT,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NNPT,
     4                        SRSTR, TCNUM, EXCSS)

C *** *** *** *** *** test case 65 *** *** *** *** ***

      TCNUM = '65'

      EXCSS = '100,1, 101,2, 103,0/'                                  //
     1 '100,2, 102,1, 104,2, 109,0/'                                  //
     2 '100,2, 102,1, 104,5, 109,0/'                                  //
     3 '100,2, 102,2, 105,1, 110,0/'                                  //
     4 '100,2, 102,2, 105,2, 108,0/'                                  //
     5 '100,2, 102,2, 105,3, 114,0/'                                  //
     6 '100,2, 102,5, 106,1, 108,0/'                                  //
     7 '120,2, 106,1, 108,0/'                                         //
     8 '130,3, 106,1, 108,0/'                                         //
     9 '130,5, 107,1, 108,0/'                                         //
     O '130,5, 107,4, 108,0/'                                         //
     1 '130,5, 107,5, 113,2, 111,1, 114,0/'                           //
     2 '130,5, 107,5, 113,2, 111,3, 115,0/'                           //
     3 '140,1, 142,0/'

      CALL TSTCID (108, 113,  NOPEN, NREF,  NPST,
     1                        NCLOS, NREF,  NPST,
     2                        NOPEN, NEMP,  NPST,
     3                        NCLOS, NORG,  NPST,
     4                        SRSTR, TCNUM, EXCSS)

666   CONTINUE

      CALL ENDIT
      END