      SUBROUTINE SIZER5                                                 00238620
      REAL*8 A                                                          00238630
      REAL*8 NPAR                                                       00238640
      INTEGER*2 NDCS(7)                                                 00238650
      COMMON /ELPAR/ NPAR(14),NUMNP,MBAND,NELTYP,N1,N2,N3,N4,N5,MTOT,NEQ00238660
     $ ,N2P,N3P,NMRI,NTRI,N1P,NUMEL,NUMEL2,KZ(20,2),NEMN                00238670
      COMMON A(16010)                                                   R0238680
      MTOT=16000                                                        00238690
      RETURN                                                            00238830
      END                                                               00238840
