74c7d26258
git-svn-id: http://svn.sintef.no/trondheim/IFEM/trunk@917 e10b68d5-8a6e-419e-a041-bce267b0401d
43 lines
1.2 KiB
Fortran
43 lines
1.2 KiB
Fortran
subroutine cons2d (ipsw,iter,iwr,lfirst,mTYP,mVER,
|
|
& nsig,ndf,detF,F,pMAT,U,Sig,Cst,ierr)
|
|
C
|
|
C CONS2D: A 2D wrapper on the 3D material routines of FENRIS.
|
|
C
|
|
implicit none
|
|
C
|
|
integer ipsw, iter, iwr, lfirst, mTYP, mVER, nsig, ndf, ierr
|
|
real*8 detF, F(*), pMAT(*), U, Sig(4), Cst(3,3)
|
|
real*8 F3D(3,3), S3D(6), C3D(6,6)
|
|
C
|
|
if (ndf .eq. 2) then
|
|
F3D = 0.0D0
|
|
F3D(1,1) = F(1)
|
|
F3D(2,1) = F(2)
|
|
F3D(1,2) = F(3)
|
|
F3D(2,2) = F(4)
|
|
F3D(3,3) = 1.0D0
|
|
call cons3d (ipsw,iter,iwr,lfirst,mTYP,mVER,0,6,0,
|
|
& detF,F3D,pMAT,U,U,S3D,C3D,ierr)
|
|
else if (ndf .eq. 3) then
|
|
call cons3d (ipsw,iter,iwr,lfirst,mTYP,mVER,0,6,0,
|
|
& detF,F,pMAT,U,U,S3D,C3D,ierr)
|
|
else
|
|
write(iwr,"(' *** CONS2D: ndf must be 2 or 3, not',I3)") ndf
|
|
ierr = -1
|
|
return
|
|
end if
|
|
C
|
|
Cst(1:2,1:2) = C3D(1:2,1:2)
|
|
Cst(1:2,3) = C3D(1:2,4)
|
|
Cst(3,1:2) = C3D(4,1:2)
|
|
Cst(3,3) = C3D(4,4)
|
|
if (nsig .eq. 4) then
|
|
Sig(1:4) = S3D(1:4)
|
|
else
|
|
Sig(1:2) = S3D(1:2)
|
|
Sig(3) = S3D(4)
|
|
end if
|
|
C
|
|
return
|
|
end
|