home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e003 / 3.ddi / SIZER1.FOR < prev   
Encoding:
Text File  |  1987-06-23  |  2.2 KB  |  37 lines
  1.       SUBROUTINE SIZER1                                                 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(16000)                                                   00238680
  8.       MTOT=16000                                                        00238690
  9.         WRITE(6,11)
  10.         DO 1 I=1,3
  11. 1       WRITE(6,10)                                                     00238710
  12. 10      FORMAT(1X,10(1H*),60(1HA),10(1H*),/,1X,10(1H*),60(1HT),10(1H*))
  13.         WRITE(6,11)
  14.         WRITE(6,20)                                                     00238730
  15. 11      FORMAT(1X,80(1H*),/,80(1H*))
  16.        WRITE(6,50)                                                      00238740
  17.    50 FORMAT(/25X,'IBM PC/AT VERSION 1.0'//)
  18. 20      FORMAT(//   25X,16HSAP6/AT     REV://
  19.      &              25X,16HAPRIL 20 ,  1987//)
  20.         WRITE(6,30)MTOT                                                 00238780
  21.       ISET=1742                                                         00238790
  22. 30      FORMAT(   25X,5HMTOT=,I7//)                                     00238800
  23.         WRITE(6,11)
  24.         DO 2 I=1,3
  25. 2       WRITE(6,10)                                                     00238820
  26.        WRITE(6,11)
  27.         WRITE(6,12)
  28. 12      FORMAT(10X,'** NOTICE: THE SAP6/AT IS REFORMED AND MODIFIED BY '
  29.      1,'INSTITUTE OF COMPUTER'/21X,' APPLICATION TECHNOLOGY OF STATE M',
  30.      2'ACHINE INDUSTRY COMMISION.',/,21X,'IF YOU HAVE ANY QUESTION PLEA'
  31.      3,'SE CONSULT P.O.BOX 2418-26,BEIJING',/,21X,'ADDR: 10 CHEDAOGO BE'
  32.      4,'IJING'/,21X,'** THIS SAP6/AT VERSION BELONG TO OUR INSTITUTE.'
  33.      5,'ANY FORM COPY'/21X,' AND DISTRIBUTION IS PROHIBITED. ALL COPYRIG
  34.      6T RESERVE.',//)
  35.       RETURN                                                            00238830
  36.       END                                                               00238840
  37.