绮惧搧鏂囨。
銆?/p>
1
娆㈣繋涓嬭浇
绋嬪簭缁撴瀯鍔涘澶т綔涓?/p>
缁?/p>
81
瀛欑帀杩?/p>
璇ョ▼搴忓彲璁＄畻浠绘剰骞抽潰缁撴瀯浠绘剰闃堕鐜囷紙鍖呮嫭閲嶉锛?/p>
锛屼互鍙婁换鎰忛樁鎸瀷锛堝寘鎷噸棰戝搴?/p>
姝ｄ氦鎸瀷锛?/p>
銆傝绠楁椂锛屾尟鍨嬩笉鍖呮嫭涓嶅寘鎷崟鍏冨浐绔瀷鎸瀷銆?/p>
!****************************
module NumKind
!***************
implicit none
integer (kind(1)),parameter :: ikind = kind(1), rkind = kind(0.D0)
real (rkind),parameter :: Zero = 0._rkind, One = 1._rkind, Two = 2._rkind, &
Three= 3._rkind, Four = 4._rkind, Five = 5._rkind, &
Six = 6._rkind, Seven= 7._rkind, Eight = 8._rkind, &
Nine = 9._rkind, Ten =10._rkind, Twelve=12._rkind
end module NumKind
!**************
module TypeDef
!**************
use NumKind
implicit none
type :: typ_Joint
real (rkind) :: x,y
integer (ikind) :: GDOF(3)
end type typ_Joint
type :: typ_Element
integer (ikind) :: JointNo(2),GlbDOF(6)
real (rkind) :: Length,CosA,SinA,EI,EA,mass
end type typ_Element
type :: typ_JointLoad
integer (ikind) :: JointNo,LodDOF
real (rkind) :: LodVal
end type typ_JointLoad
type :: typ_ElemLoad
integer (ikind) ::ElemNo,Indx
real (rkind) :: Pos,LodVal
end type typ_ElemLoad
contains
!===================================
subroutine SetElemProp (Elem, Joint)
!===================================
type (typ_Element),intent(in out) :: Elem(:)