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
