O'Reilly logo

Finite Element Method with Applications in Engineering by T. L. Eldho, Y. M. Desai

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

         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 ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required