SUBROUTINE STIFFMATS(STIFFMATRIXS,DELTAV,DELTAH) SUBROUTINE MASSMATS(MASSMATRIXS,DELTAV,DELTAH,DENSITY) SUBROUTINE MASSMAT(MASSMATRIX,DELTAV,DELTAH,THICK,DENSITY) &GMM(NTOTALNODE*5,NTOTALNODE*5),AA(MK,MK),BB(MK,MK)ĬALL STIFFMAT(STIFFMATRIX,DELTAV,DELTAH,THICK,EMODULE)ĬALL MASSMAT(MASSMATRIX,DELTAV,DELTAH,THICK,DENSITY)ĬALL STIFFMATS(STIFFMATRIXS,DELTAV,DELTAH)ĬALL MASSMATS(MASSMATRIXS,DELTAV,DELTAH,DENSITY)Ģ - The Subroutins are starts as following: SUBROUTINE STIFFMAT(STIFFMATRIX,DELTAV,DELTAH,THICK,EMODULE) REAL*8 GSM(NTOTALNODE*5,NTOTALNODE*5),NCARRIER(MK), PARAMETER (NHNODE=NHELE+1,NVNODE=NVELE+1) PARAMETER (NTOTALNODE=(NHELE+1)*(NVELE+1)) It is a very long Finite element method code.ġ Main Program starts with PARAMETER (HLENGTH=600.0,VLENGTH=600.0,NHELE=6,NVELE=6,NTYPE=1) I am using Fortran Power Station 4.0 on Windows.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |