Finite Element Method with Applications in Engineering

         COMMON/BLK2/ISWICH

         COMMON/BLK3/MA,IELB,IELG,NST,NXSJ,MST

         LOGICAL ISWICH

         DIMENSION XL(NDM,1),SL(NST,1),DL(1),RL(1),UL(1),EPS(3),SIG(3),

       1                         A(3),B(3)

         ISWICH=.FALSE.

C

         GO TO (1,2,3,4),ICN

C

C…. READ & WRITE MATERIAL PROPERTIES

C

  1     READ(5,10) E,ANU,TH,KODE

  10   FORMAT(3E10.0,I5)

         WRITE(6,11) E,ANU,TH,KODE

  11   FORMAT (′ YOUNGS MODULAS ………………………. = ′,E13.4/

       *                   ′ POISSONS RATIO ………………………. =′,E13.4/

       *                   ′ THICKNESS …………………………… =′,E13.4/

       *                   ′ KODE (1 FOR PL  STRESS, ZERO FOR PL STRAIN) =′,I13/)

          DL(1)=E

          DL(2)=ANU

          DL(3)=TH

          DL(4)=KODE

          RETURN ...