home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e003 / 10.ddi / SIZER5.FOR < prev    next >
Encoding:
Text File  |  1980-01-05  |  821 b   |  11 lines
  1.       SUBROUTINE SIZER5                                                 00238620
  2.       REAL*8 A                                                          00238630
  3.       REAL*8 NPAR                                                       00238640
  4.       INTEGER*2 NDCS(7)                                                 00238650
  5.       COMMON /ELPAR/ NPAR(14),NUMNP,MBAND,NELTYP,N1,N2,N3,N4,N5,MTOT,NEQ00238660
  6.      $ ,N2P,N3P,NMRI,NTRI,N1P,NUMEL,NUMEL2,KZ(20,2),NEMN                00238670
  7.       COMMON A(16010)                                                   R0238680
  8.       MTOT=16000                                                        00238690
  9.       RETURN                                                            00238830
  10.       END                                                               00238840
  11.