这是一个采用平面四边形八节点等参单元的平面有限元分析程序。 PROGRAM PLANEFEM IMPLICIT REAL*8(A-H,O-Z) CHARACTER*80 LINECHAR,NEWLINECHAR COMMON A(30000),L(4000) COMMON /SOL/NPOIN,NELEM,NTYPE,NMATS OPEN(5,FILE= FEMDATA ,STATUS= OLD ) OPEN(6,FILE= FEMOUT ,STATUS= UNKNOWN ) C 以下进行的是从数据文件FEMDATA中读入数据文件主标题信息。 READ(5,5000) LINECHAR LOCATECHAR=INDEX(LINECHAR, 输入 ) IF(LOCATECHAR.NE.0) THEN LINECHAR(LOCATECHAR:LOCATECHAR+3)= 输出

8节点等参单元Fortran2\八节点平面等参元Fortran 源程序2
.....................\...............................\FEMDATA
.....................\...............................\PLANEFEM.FOR
8节点等参单元Fortran2

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．