FTN66,Y,J,E  ***************************************************************   * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *   * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE-  *   * REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- *   * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.   *   ***************************************************************  *  NAME:   SETUP                      * *  SOURCE: 92091-18004                * *  RELOC:  92091-16004                * *  PGMR:   C. GEBER                   * *************************************** $PAGE $ALIAS CODGEN='CODGEN_NOTUSED'$EMA /BLANK/$CDS ON       SUBROUTINE CODGEN      + ,92091-16004 REV.5000 <890418.1140>      IMPLICIT REAL*8 (A-H,O-Z) C $C     THIS ROUTINE GENERATES MACHINE INSTRUCTIONS (FOR THE CDC 6400) TO $C LU-FACTOR AND SOLVE THE SET OF CIRCUIT EQUATIONS. C $      COMMON /TABINF/ IELMNT,ISBCKT,NSBCKT,IUNSAT,NUNSAT,ITEMPS,NUMTEM, $"     1   ISENS,NSENS,IFOUR,NFOUR,IFIELD,ICODE,IDELIM,ICOLUM,INSIZE, "$     2   JUNODE,LSBKPT,NUMBKP,IORDER,JMNODE,IUR,IUC,ILC,ILR,NUMOFF,ISR, $$     3   NMOFFC,ISEQ,ISEQ1,NEQN,NODEVS,NDIAG,ISWAP,IEQUA,MACINS,LVNIM1, $#     4   LX0,LVN,LYNL,LYU,LYL,LX1,LX2,LX3,LX4,LX5,LX6,LX7,LD0,LD1,LTD,#     5   IMYNL,IMVN,LCVN,NSNOD,NSMAT,NSVAL,ICNOD,ICMAT,ICVAL,       6   LOUTPT,LPOL,LZER,IRSWPF,IRSWPR,ICSWPF,ICSWPR,IRPT,JCPT,      7   IROWNO,JCOLNO,NTTBR,NTTAR,LVNTMP $      COMMON /CIRDAT/ LOCATE(50),JELCNT(50),NUNODS,NCNODS,NUMNOD,NSTOP, $     1   NUT,NLT,NXTRM,NDIST,NTLIN,IBR,NUMVS#      COMMON /FLAGS/ IPRNTA,IPRNTL,IPRNTM,IPRNTN,IPRNTO,LIMTIM,LIMPTS,#      1   LVLCOD,LVLTIM,ITL1,ITL2,ITL3,ITL4,ITL5,IGOOF,NOGO,KEOF  #      COMMON /KNSTNT/ TWOPI,XLOG2,XLOG10,ROOT2,RAD,BOLTZ,CHARGE,CTOK, #!     1   GMIN,RELTOL,ABSTOL,VNTOL,TRTOL,CHGTOL,EPS0,EPSSIL,EPSOX, !     2   PIVTOL,PIVREL#      COMMON /MISCEL/ ATIME,APROG(3),ADATE,ATITLE(10),DEFL,DEFW,DEFAD,#     1  DEFAS,RSTATS(50),IWIDTH,LWIDTH,NOPAGE       COMMON /BLANK/ VALUE(64)      INTEGER NODPLC(64)      COMPLEX CVALUE(32)      EQUIVALENCE (VALUE(1),NODPLC(1),CVALUE(1))
      LOGICAL MEMPTR
C C  INITIALIZE C       RSTATS(47)=RSTATS(47)+1.0D0       CALL SECOND(T1)       IF (MEMPTR(MACINS)) CALL CLRMEM(MACINS) C "C     MEMSPC IS USED TO ACCOUNT FOR HALFWORDS OF THE CODE SPACE, SO "C     SINCE GETM4 AND EXTMEM EXPECT FULLWORDS AS ARGUMENT, ALL C     ADDITIONS TO MEMSPC ARE DONE WITH TWICE THE VALUE USED FOR "C     GETM4 OR EXTMEM.  MEMSPC IS A LOCAL VARIABLE AND IS USED ONLY "!C     DURING CODE GENERATION TO COMPENSATE FOR THE VARIABLE LENGTH!!C     CODE SEGMENTS PRODUCED BY THE IBM CODE GENERATION FUNCTIONS.!C       CALL GETM4(MACINS,100)      MEMSPC=200	      CALL CRUNCH 		      LV1=MACINS+1	      CALL PTRMEM(LVN,LVNT)       LVN=0       MEMSPC=MEMSPC-MINS0(PIVTOL,IGOOF,NODPLC(LV1)) $PAGE C 
C  LU DECOMPOSITION 
C       N=1    10 N=N+1       NXTI=N      NXTJ=NC C     CALCULATE CONTRIBUTION FROM (NXTI,NXTJ) C       IF (N.GE.NSTOP) GO TO 100       N1=NODPLC(IRSWPF+NXTI)      N2=NODPLC(ICSWPF+NXTJ)      LOCNN=INDXX(N1,N2)      IF (MEMSPC.GT.20) GO TO 12      CALL EXTMEM(MACINS,100)       MEMSPC=MEMSPC+200    12 MEMSPC=MEMSPC-MINS1(LOCNN)C C     DOWN COLC    20 LOCR=NODPLC(IRPT+LOCNN)    25 IF (LOCR.EQ.0) GO TO 10       I=NODPLC(IROWNO+LOCR)       IF (MEMSPC.GT.14)GO TO 14       CALL EXTMEM(MACINS,100)       MEMSPC=MEMSPC+200    14 MEMSPC=MEMSPC-MINS2(LOCR,LOCNN)       LOCC=NODPLC(JCPT+LOCNN) C C     FOR EACH ELEMENT LOOK UP ROW NXTI C    30 IF (LOCC.EQ.0) GO TO 70       J=NODPLC(JCOLNO+LOCC) C C     LOCATE ELEMENT  (I,J) C 
   35 IF (J.LT.I) GO TO 45
      LOCIJ=LOCC   40 LOCIJ=NODPLC(IRPT+LOCIJ)      IF (NODPLC(IROWNO+LOCIJ).EQ.I) GO TO 55       GO TO 40   45 LOCIJ=LOCR   50 LOCIJ=NODPLC(JCPT+LOCIJ)      IF (NODPLC(JCOLNO+LOCIJ).EQ.J) GO TO 55       GO TO 50   55 IF (MEMSPC.GT.16)GO TO 57       CALL EXTMEM(MACINS,100)       MEMSPC=MEMSPC+200    57 MEMSPC=MEMSPC-MINS3A(LOCIJ,LOCC)      LOCC=NODPLC(JCPT+LOCC)      GO TO 30   70 LOCR=NODPLC(IRPT+LOCR)      GO TO 25$PAGE C 
C     FORWARD SUBSTITUTION
C   100 DO 120 I=2,NSTOP      LOC=I       IORD=NODPLC(IRSWPF+I) 
  110 LOC=NODPLC(JCPT+LOC)
      IF (NODPLC(JCOLNO+LOC).GE.I) GO TO 120
      J=NODPLC(JCOLNO+LOC)
      JORD=NODPLC(IRSWPF+J)       IF (MEMSPC.GT.21)GOTO 118       CALL EXTMEM(MACINS,100)       MEMSPC=MEMSPC+200   118 MEMSPC=MEMSPC-MINS3(IORD,LOC,JORD)      GO TO 110   120 CONTINUEC C     BACK SUBSTITUTION C       I=NSTOP       IORD=NODPLC(IRSWPF+I)       JORD=NODPLC(ICSWPF+I)       LOCNN=INDXX(IORD,JORD)  130 IF (MEMSPC.GT.14)GOTO 132       CALL EXTMEM(MACINS,100)       MEMSPC=MEMSPC+200   132 MEMSPC=MEMSPC-MINS2(IORD,LOCNN)       I=I-1       IF (I.LE.1) GO TO 300       IORD=NODPLC(IRSWPF+I)       LOC=I 
  135 LOC=NODPLC(JCPT+LOC)
  140 IF (NODPLC(JCOLNO+LOC).NE.I) GO TO 135      LOCNN=LOC 
  150 LOC=NODPLC(JCPT+LOC)
      IF (LOC.EQ.0) GO TO 130 
      J=NODPLC(JCOLNO+LOC)
      JORD=NODPLC(IRSWPF+J)       IF (MEMSPC.GT.21)GO TO 155      CALL EXTMEM(MACINS,100)       MEMSPC=MEMSPC+200   155 MEMSPC=MEMSPC-MINS3(IORD,LOC,JORD)      GO TO 150 C C     FINISHEDC   300 IF (MEMSPC.GT.22)GOTO 303       CALL EXTMEM(MACINS,11)      MEMSPC=MEMSPC+22  303 MEMSPC=MEMSPC-MINS4(DUMMY)      CALL PTRMEM(LVNT,LVN) $PAGE C C     FINISHEDC       CALL SECOND(T2)       RSTATS(48)=RSTATS(48)+T2-T1       RETURN      END $EMA /BLANK/      INTEGER FUNCTION INDXX( NODE1 , NODE2 )      + ,92091-16004 REV.5000 <890418.1140>      IMPLICIT REAL*8 (A-H,O-Z) C #C     THIS ROUTINE MAPS A (ROW, COLUMN) MATRIX TERM SPECIFICATION INTO#$C THE OFFSET FROM THE ORIGIN OF THE MATRIX STORAGE AT WHICH THE TERM IS $
C ACTUALLY LOCATED. 
C $      COMMON /TABINF/ IELMNT,ISBCKT,NSBCKT,IUNSAT,NUNSAT,ITEMPS,NUMTEM, $"     1   ISENS,NSENS,IFOUR,NFOUR,IFIELD,ICODE,IDELIM,ICOLUM,INSIZE, "$     2   JUNODE,LSBKPT,NUMBKP,IORDER,JMNODE,IUR,IUC,ILC,ILR,NUMOFF,ISR, $$     3   NMOFFC,ISEQ,ISEQ1,NEQN,NODEVS,NDIAG,ISWAP,IEQUA,MACINS,LVNIM1, $#     4   LX0,LVN,LYNL,LYU,LYL,LX1,LX2,LX3,LX4,LX5,LX6,LX7,LD0,LD1,LTD,#     5   IMYNL,IMVN,LCVN,NSNOD,NSMAT,NSVAL,ICNOD,ICMAT,ICVAL,       6   LOUTPT,LPOL,LZER,IRSWPF,IRSWPR,ICSWPF,ICSWPR,IRPT,JCPT,      7   IROWNO,JCOLNO,NTTBR,NTTAR,LVNTMP $      COMMON /CIRDAT/ LOCATE(50),JELCNT(50),NUNODS,NCNODS,NUMNOD,NSTOP, $     1   NUT,NLT,NXTRM,NDIST,NTLIN,IBR,NUMVS      COMMON /BLANK/ VALUE(64)      INTEGER NODPLC(64)      COMPLEX CVALUE(32)      EQUIVALENCE (VALUE(1),NODPLC(1),CVALUE(1))C       IF (NODE1.EQ.1) GO TO 100       IF (NODE2.EQ.1) GO TO 100 C       N1=NODPLC(IRSWPR+NODE1)       N2=NODPLC(ICSWPR+NODE2) 
      IF (N1-N2) 10,10,30 
C 
C     SEARCH COL N2 
C    10 LOC=N2
   15 LOC=NODPLC(IRPT+LOC)
      IF (LOC.EQ.0) GO TO 100       IF (NODPLC(IROWNO+LOC)-N1) 15,20,15    20 INDXX=LOC       RETURNC 
C     SEARCH ROW N1 
C    30 LOC=N1
   35 LOC=NODPLC(JCPT+LOC)
      IF (LOC.EQ.0) GO TO 100       IF (NODPLC(JCOLNO+LOC)-N2) 35,40,35    40 INDXX=LOC       RETURNC C     UNUSED LOCATION C   100 INDXX=1       RETURN      END $EMA /BLANK/                                  SUBROUTINE MATLOC      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C #C     THIS ROUTINE STORES THE LOCATIONS OF THE VARIOUS MATRIX TERMS TO#C WHICH THE DIFFERENT CIRCUIT ELEMENTS CONTRIBUTE.C $      COMMON /TABINF/ IELMNT,ISBCKT,NSBCKT,IUNSAT,NUNSAT,ITEMPS,NUMTEM, $"     1   ISENS,NSENS,IFOUR,NFOUR,IFIELD,ICODE,IDELIM,ICOLUM,INSIZE, "$     2   JUNODE,LSBKPT,NUMBKP,IORDER,JMNODE,IUR,IUC,ILC,ILR,NUMOFF,ISR, $$     3   NMOFFC,ISEQ,ISEQ1,NEQN,NODEVS,NDIAG,ISWAP,IEQUA,MACINS,LVNIM1, $#     4   LX0,LVN,LYNL,LYU,LYL,LX1,LX2,LX3,LX4,LX5,LX6,LX7,LD0,LD1,LTD,#     5   IMYNL,IMVN,LCVN,NSNOD,NSMAT,NSVAL,ICNOD,ICMAT,ICVAL,       6   LOUTPT,LPOL,LZER,IRSWPF,IRSWPR,ICSWPF,ICSWPR,IRPT,JCPT,      7   IROWNO,JCOLNO,NTTBR,NTTAR,LVNTMP $      COMMON /CIRDAT/ LOCATE(50),JELCNT(50),NUNODS,NCNODS,NUMNOD,NSTOP, $     1   NUT,NLT,NXTRM,NDIST,NTLIN,IBR,NUMVS"      COMMON /STATUS/ OMEGA,TIME,DELTA,DELOLD(7),AG(7),VT,XNI,EGFET,"#     1   XMU,MODE,MODEDC,ICALC,INITF,METHOD,IORD,MAXORD,NONCON,ITERNO,#     2   ITEMNO,NOSOLV,MODAC,IPIV,IVMFLG,IPOSTP,ISCRCH,IOFILE "      COMMON /AC/ FSTART,FSTOP,FINCR,SKW2,REFPRL,SPW2,JACFLG,IDFREQ,"     1   INOISE,NOSPRT,NOSOUT,NOSIN,IDIST,IDPRT       COMMON /BLANK/ VALUE(64)      INTEGER NODPLC(64)      COMPLEX CVALUE(32)      EQUIVALENCE (VALUE(1),NODPLC(1),CVALUE(1))C C  RESISTORSC 
      LOC=LOCATE(1) 
  690 IF (LOC.EQ.0) GO TO 700 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      NODPLC(LOC+4)=INDXX(NODE1,NODE2)      NODPLC(LOC+5)=INDXX(NODE2,NODE1)      NODPLC(LOC+6)=INDXX(NODE1,NODE1)      NODPLC(LOC+7)=INDXX(NODE2,NODE2)      LOC=NODPLC(LOC)       GO TO 690 C C  CAPACITORS C 
  700 LOC=LOCATE(2) 
  710 IF (LOC.EQ.0) GO TO 720 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      NODPLC(LOC+5)=INDXX(NODE1,NODE2)      NODPLC(LOC+6)=INDXX(NODE2,NODE1)      NODPLC(LOC+10)=INDXX(NODE1,NODE1)       NODPLC(LOC+11)=INDXX(NODE2,NODE2)       LOC=NODPLC(LOC)       GO TO 710 $PAGE C C  INDUCTORSC 
  720 LOC=LOCATE(3) 
  730 IF (LOC.EQ.0) GO TO 740 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      IBR=NODPLC(LOC+5)       NODPLC(LOC+6)=INDXX(NODE1,IBR)      NODPLC(LOC+7)=INDXX(NODE2,IBR)      NODPLC(LOC+8)=INDXX(IBR,NODE1)      NODPLC(LOC+9)=INDXX(IBR,NODE2)      NODPLC(LOC+13)=INDXX(IBR,IBR)       LOC=NODPLC(LOC)       GO TO 730 C C  MUTUAL INDUCTANCES C 
  740 LOC=LOCATE(4) 
  750 IF (LOC.EQ.0) GO TO 760       NL1=NODPLC(LOC+2)       NL2=NODPLC(LOC+3)       IBR1=NODPLC(NL1+5)      IBR2=NODPLC(NL2+5)      NODPLC(LOC+4)=INDXX(IBR1,IBR2)      NODPLC(LOC+5)=INDXX(IBR2,IBR1)      LOC=NODPLC(LOC)       GO TO 750 C C  NONLINEAR VOLTAGE CONTROLLED CURRENT SOURCES C 
  760 LOC=LOCATE(5) 
  762 IF (LOC.EQ.0) GO TO 764 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      NDIM=NODPLC(LOC+4)      LNOD=NODPLC(LOC+6)      LMAT=NODPLC(LOC+7)      DO 763 I=1,NDIM 
      NODE3=NODPLC(LNOD+1)

      NODE4=NODPLC(LNOD+2)
	      LNOD=LNOD+2 	      NODPLC(LMAT+1)=INDXX(NODE1,NODE3)       NODPLC(LMAT+2)=INDXX(NODE1,NODE4)       NODPLC(LMAT+3)=INDXX(NODE2,NODE3)       NODPLC(LMAT+4)=INDXX(NODE2,NODE4) 	      LMAT=LMAT+4 	  763 CONTINUE      LOC=NODPLC(LOC)       GO TO 762 $PAGE C C  NONLINEAR VOLTAGE CONTROLLED VOLTAGE SOURCES C 
  764 LOC=LOCATE(6) 
  766 IF (LOC.EQ.0) GO TO 768 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      NDIM=NODPLC(LOC+4)      IBR=NODPLC(LOC+6)       LNOD=NODPLC(LOC+7)      LMAT=NODPLC(LOC+8)      NODPLC(LMAT+1)=INDXX(NODE1,IBR)       NODPLC(LMAT+2)=INDXX(NODE2,IBR)       NODPLC(LMAT+3)=INDXX(IBR,NODE1)       NODPLC(LMAT+4)=INDXX(IBR,NODE2) 	      LMAT=LMAT+4 	      DO 767 I=1,NDIM 
      NODE3=NODPLC(LNOD+1)

      NODE4=NODPLC(LNOD+2)
	      LNOD=LNOD+2 	      NODPLC(LMAT+1)=INDXX(IBR,NODE3)       NODPLC(LMAT+2)=INDXX(IBR,NODE4) 	      LMAT=LMAT+2 	  767 CONTINUE      LOC=NODPLC(LOC)       GO TO 766 C C  NONLINEAR CURRENT CONTROLLED CURRENT SOURCES C 
  768 LOC=LOCATE(7) 
  770 IF (LOC.EQ.0) GO TO 772 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      NDIM=NODPLC(LOC+4)
      LOCVS=NODPLC(LOC+6) 
      LMAT=NODPLC(LOC+7)      DO 771 I=1,NDIM       LOCVST=NODPLC(LOCVS+I)
      IBR=NODPLC(LOCVST+6)
      NODPLC(LMAT+1)=INDXX(NODE1,IBR)       NODPLC(LMAT+2)=INDXX(NODE2,IBR) 	      LMAT=LMAT+2 	  771 CONTINUE      LOC=NODPLC(LOC)       GO TO 770 $PAGE C C  NONLINEAR CURRENT CONTROLLED VOLTAGE SOURCES C 
  772 LOC=LOCATE(8) 
  774 IF (LOC.EQ.0) GO TO 780 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      NDIM=NODPLC(LOC+4)      IBR=NODPLC(LOC+6) 
      LOCVS=NODPLC(LOC+7) 
      LMAT=NODPLC(LOC+8)      NODPLC(LMAT+1)=INDXX(NODE1,IBR)       NODPLC(LMAT+2)=INDXX(NODE2,IBR)       NODPLC(LMAT+3)=INDXX(IBR,NODE1)       NODPLC(LMAT+4)=INDXX(IBR,NODE2) 	      LMAT=LMAT+4 	      DO 775 I=1,NDIM       LOCVST=NODPLC(LOCVS+I)
      KBR=NODPLC(LOCVST+6)
      NODPLC(LMAT+I)=INDXX(IBR,KBR)   775 CONTINUE      LOC=NODPLC(LOC)       GO TO 774 C 	C  VOLTAGE SOURCES	C 
  780 LOC=LOCATE(9) 
  790 IF (LOC.EQ.0) GO TO 800 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 
      IPTR=NODPLC(LOC+6)      NODPLC(LOC+7)=INDXX(NODE1,IPTR)       NODPLC(LOC+8)=INDXX(NODE2,IPTR)       NODPLC(LOC+9)=INDXX(IPTR,NODE1)       NODPLC(LOC+10)=INDXX(IPTR,NODE2)      LOC=NODPLC(LOC)       GO TO 790 C C  DIODES C 
  800 LOC=LOCATE(11)
  810 IF (LOC.EQ.0) GO TO 820 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 

      NODE3=NODPLC(LOC+4) 
      NODPLC(LOC+7)=INDXX(NODE1,NODE3)      NODPLC(LOC+8)=INDXX(NODE2,NODE3)      NODPLC(LOC+9)=INDXX(NODE3,NODE1)      NODPLC(LOC+10)=INDXX(NODE3,NODE2)       NODPLC(LOC+13)=INDXX(NODE1,NODE1)       NODPLC(LOC+14)=INDXX(NODE2,NODE2)       NODPLC(LOC+15)=INDXX(NODE3,NODE3)       LOC=NODPLC(LOC)       GO TO 810 $PAGE C C  TRANSISTORSC 
  820 LOC=LOCATE(12)
  830 IF (LOC.EQ.0) GO TO 840 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 

      NODE3=NODPLC(LOC+4) 

      NODE4=NODPLC(LOC+5) 

      NODE5=NODPLC(LOC+6) 

      NODE6=NODPLC(LOC+7) 

      NODE7=NODPLC(LOC+30)
      NODPLC(LOC+10)=INDXX(NODE1,NODE4)       NODPLC(LOC+11)=INDXX(NODE2,NODE5)       NODPLC(LOC+12)=INDXX(NODE3,NODE6)       NODPLC(LOC+13)=INDXX(NODE4,NODE1)       NODPLC(LOC+14)=INDXX(NODE4,NODE5)       NODPLC(LOC+15)=INDXX(NODE4,NODE6)       NODPLC(LOC+16)=INDXX(NODE5,NODE2)       NODPLC(LOC+17)=INDXX(NODE5,NODE4)       NODPLC(LOC+18)=INDXX(NODE5,NODE6)       NODPLC(LOC+19)=INDXX(NODE6,NODE3)       NODPLC(LOC+20)=INDXX(NODE6,NODE4)       NODPLC(LOC+21)=INDXX(NODE6,NODE5)       NODPLC(LOC+24)=INDXX(NODE1,NODE1)       NODPLC(LOC+25)=INDXX(NODE2,NODE2)       NODPLC(LOC+26)=INDXX(NODE3,NODE3)       NODPLC(LOC+27)=INDXX(NODE4,NODE4)       NODPLC(LOC+28)=INDXX(NODE5,NODE5)       NODPLC(LOC+29)=INDXX(NODE6,NODE6)       NODPLC(LOC+31)=INDXX(NODE7,NODE7)       NODPLC(LOC+32)=INDXX(NODE4,NODE7)       NODPLC(LOC+33)=INDXX(NODE7,NODE4)       NODPLC(LOC+34)=INDXX(NODE2,NODE4)       NODPLC(LOC+35)=INDXX(NODE4,NODE2)       LOC=NODPLC(LOC)       GO TO 830 C C  JFETSC 
  840 LOC=LOCATE(13)
  850 IF (LOC.EQ.0) GO TO 860 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 

      NODE3=NODPLC(LOC+4) 

      NODE4=NODPLC(LOC+5) 

      NODE5=NODPLC(LOC+6) 
      NODPLC(LOC+9)=INDXX(NODE1,NODE4)      NODPLC(LOC+10)=INDXX(NODE2,NODE4)       NODPLC(LOC+11)=INDXX(NODE2,NODE5)       NODPLC(LOC+12)=INDXX(NODE3,NODE5)       NODPLC(LOC+13)=INDXX(NODE4,NODE1)       NODPLC(LOC+14)=INDXX(NODE4,NODE2)       NODPLC(LOC+15)=INDXX(NODE4,NODE5)       NODPLC(LOC+16)=INDXX(NODE5,NODE2)       NODPLC(LOC+17)=INDXX(NODE5,NODE3)       NODPLC(LOC+18)=INDXX(NODE5,NODE4)       NODPLC(LOC+20)=INDXX(NODE1,NODE1)       NODPLC(LOC+21)=INDXX(NODE2,NODE2)       NODPLC(LOC+22)=INDXX(NODE3,NODE3)       NODPLC(LOC+23)=INDXX(NODE4,NODE4)       NODPLC(LOC+24)=INDXX(NODE5,NODE5)       LOC=NODPLC(LOC)       GO TO 850 C C  MOSFETSC 
  860 LOC=LOCATE(14)
  870 IF (LOC.EQ.0) GO TO 900 
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 

      NODE3=NODPLC(LOC+4) 

      NODE4=NODPLC(LOC+5) 

      NODE5=NODPLC(LOC+6) 

      NODE6=NODPLC(LOC+7) 
      NODPLC(LOC+10)=INDXX(NODE1,NODE5)       NODPLC(LOC+11)=INDXX(NODE2,NODE4)       NODPLC(LOC+12)=INDXX(NODE2,NODE5)       NODPLC(LOC+13)=INDXX(NODE2,NODE6)       NODPLC(LOC+14)=INDXX(NODE3,NODE6)       NODPLC(LOC+15)=INDXX(NODE4,NODE2)       NODPLC(LOC+16)=INDXX(NODE4,NODE5)       NODPLC(LOC+17)=INDXX(NODE4,NODE6)       NODPLC(LOC+18)=INDXX(NODE5,NODE1)       NODPLC(LOC+19)=INDXX(NODE5,NODE2)       NODPLC(LOC+20)=INDXX(NODE5,NODE4)       NODPLC(LOC+21)=INDXX(NODE5,NODE6)       NODPLC(LOC+22)=INDXX(NODE6,NODE2)       NODPLC(LOC+23)=INDXX(NODE6,NODE3)       NODPLC(LOC+24)=INDXX(NODE6,NODE4)       NODPLC(LOC+25)=INDXX(NODE6,NODE5)       NODPLC(LOC+27)=INDXX(NODE1,NODE1)       NODPLC(LOC+28)=INDXX(NODE2,NODE2)       NODPLC(LOC+29)=INDXX(NODE3,NODE3)       NODPLC(LOC+30)=INDXX(NODE4,NODE4)       NODPLC(LOC+31)=INDXX(NODE5,NODE5)       NODPLC(LOC+32)=INDXX(NODE6,NODE6)       LOC=NODPLC(LOC)       GO TO 870 $PAGE C C  TRANSMISSION LINES C 
  900 LOC=LOCATE(17)
  910 IF (LOC.EQ.0) GO TO 1000
      NODE1=NODPLC(LOC+2) 

      NODE2=NODPLC(LOC+3) 

      NODE3=NODPLC(LOC+4) 

      NODE4=NODPLC(LOC+5) 
      NI1=NODPLC(LOC+6)       NI2=NODPLC(LOC+7)       IBR1=NODPLC(LOC+8)      IBR2=NODPLC(LOC+9)      NODPLC(LOC+10)=INDXX(NODE1,NODE1)       NODPLC(LOC+11)=INDXX(NODE1,NI1)       NODPLC(LOC+12)=INDXX(NODE2,IBR1)      NODPLC(LOC+13)=INDXX(NODE3,NODE3)       NODPLC(LOC+14)=INDXX(NODE4,IBR2)      NODPLC(LOC+15)=INDXX(NI1,NODE1)       NODPLC(LOC+16)=INDXX(NI1,NI1)       NODPLC(LOC+17)=INDXX(NI1,IBR1)      NODPLC(LOC+18)=INDXX(NI2,NI2)       NODPLC(LOC+19)=INDXX(NI2,IBR2)      NODPLC(LOC+20)=INDXX(IBR1,NODE2)      NODPLC(LOC+21)=INDXX(IBR1,NODE3)      NODPLC(LOC+22)=INDXX(IBR1,NODE4)      NODPLC(LOC+23)=INDXX(IBR1,NI1)      NODPLC(LOC+24)=INDXX(IBR1,IBR2)       NODPLC(LOC+25)=INDXX(IBR2,NODE1)      NODPLC(LOC+26)=INDXX(IBR2,NODE2)      NODPLC(LOC+27)=INDXX(IBR2,NODE4)      NODPLC(LOC+28)=INDXX(IBR2,NI2)      NODPLC(LOC+29)=INDXX(IBR2,IBR1)       NODPLC(LOC+31)=INDXX(NODE3,NI2)       NODPLC(LOC+32)=INDXX(NI2,NODE3)       LOC=NODPLC(LOC)       GO TO 910 C C  FINISHED C  1000 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE0 RETURN      END $EMA /BLANK/                                  SUBROUTINE MATPTR      + ,92091-16004 REV.5000 <890418.1140>        IMPLICIT REAL*8 (A-H,O-Z) C "C     THIS ROUTINE (BY CALLS TO THE ROUTINE RESERVE) ESTABLISHES THE