ELFLOW4444kkkcom

Appendix:FortranCodesofCS-ScPROGRAMCS-S.
fC-CTHISPROGRAMANALYSEGENERALFINITEDEFORMATION,FINITESTRAINCINELASTICTIMEINDEPENDENTPROBLEMSUSINGUPDATEDLAGRANGIANCREFERENCEFRAME.
C-CBackupiscone8.
fCORIGINALLYCODEDBYS.
M.
SivakumarCModifidbyMURADABU-FARSAKHforCPTwithmodifiedCamClaymodelCMODIFIEDBYCHUNGR.
SONG(1/26/98)foranisotrophy&plasticspinCModifiedbyChungR.
Song(4/27/00)formultiplebackstressCLastmodifiedbyChungR.
Song(8/20/03)CLastaccessedbyChungR.
Song(8/12/03)CNOTEBYCHUNGR.
SONG(4/27/00)CFINITESTRAIN:considerPLASTICSPIN.
CCOUPLEDTHEORYOFMIXTURE:PREVOST(1980,1981)CTIMEINDEPENDENT:ACTUALLYSEMITIMEDEPENDENTBYCONSIDERINGCTHEDISSIPATIONOFPOREWATERDURINGCEACHPENETRATIONSTEP.
--NOTVISCOELASTO-PLASTICCUPDATEDLAGRANGIAN:INCREMENTALAPPROACHFORLARGESTRAINPROBLEMCSOILMODEL:Anisotropic-MODIFIEDCAMCLAYMODELWITHGENERALHARDENINGANDYIELDCSURFACECORRECTIONCThisprogramalsoconsidersthemicro-mechanicalbehaviorofsoilbycplasticspin.
CRateDependency08/07/03cDamage08/08/03cGradient08/12/03C-----INITIALSETUPIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'CHARACTER*60208Appendix:FortranCodesofCS-SINFILE,OUTFILE1,OUTFILE2,OUTFILE3,OUTFILE4,OUTFILE5COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWDIMENSIONXYZ(3,MNODES),NCONN(NTPE,MEL),LTYP(MEL),MAT(MEL)DIMENSIONNQ(MNODES),NW(MNODES+1),NLST(NTPE)C-----OPENINPUT&OUTPUTFILECWRITE(*,*)'ENTERINPUTFILENAME>'CREAD(*,'(A)')INFILEINFILE='Chung21.
TXT'CWRITE(*,*)'ENTERMAINOUTPUTFILENAME>'CREAD(*,'(A)')OUTFILE1OUTFILE1='SONG2'CWRITE(*,*)'ENTEREQUILOUTPUTFILENAME>'CREAD(*,'(A)')OUTFILE2OUTFILE2='SONG3'CWRITE(*,*)'ENTERSTRESSOUTPUTFILENAME>'CREAD(*,'(A)')OUTFILE3OUTFILE3='SONG4'CWRITE(*,*)'ENTERCAM-PAROUTPUTFILENAME>'cREAD(*,'(A)')OUTFILE4OUTFILE4='SONG5'OUTFILE5='SONG6'OPEN(1,FILE=INFILE,FORM='FORMATTED',STATUS='UNKNOWN')OPEN(2,FILE=OUTFILE1,FORM='FORMATTED',STATUS='UNKNOWN')OPEN(3,FILE=OUTFILE2,FORM='FORMATTED',STATUS='UNKNOWN')OPEN(4,FILE=OUTFILE3,FORM='FORMATTED',STATUS='UNKNOWN')OPEN(5,FILE=OUTFILE4,FORM='FORMATTED',STATUS='UNKNOWN')OPEN(10,FILE='CONSOLV',FORM='UNFORMATTED',STATUS='UNKNOWN')cOPEN(8,FILE=OUTFILE5,FORM='FORMATTED',STATUS='UNKNOWN')LINP=1LOUT1=2LOUT2=3LOUT3=4LOUT4=5cLOUT5=8LSOLV=10C-----CALCULATIONSEQUENCYCCINPUTNODECOORDINATE&ELEMENTDATACALLINPUT(XYZ,NCONN,MAT,LTYP,NLST)Appendix:FortranCodesofCS-S209CCALCULATENOOFD.
O.
FFOREACHNODECALLMAKENZ(NEL,NNODES,NCONN,LTYP,NQ,INXL)CGENERATEGLOPALNUMBERSFORALLD.
O.
FCALLCALDOF(NNODES,NNOD1,NDF,NW,NQ)CPRINTOUTARRAYSCALLGPOUT(LOUT1,NEL,NNODES,NDF,NCONN,MAT,LTYP,NLST)CCALLTHEMAINSUMROUTINECALLMINT(XYZ,NCONN,MAT,LTYP,NW)CC---MAJORSUBROUTINESAREATTATCHEDBYITSORDERRIGHTAFTERTHECONTROLPROGRAM.
C---MINORSUBROUTINESAREATTATCHEDBYITSORDERAFTERTHEMAJORSUBROUTINESSTOPENDC-----ENDOFCONTROLPROGRAMC-----MAJORSUBROUTINE-----C*SUBROUTINEINPUT(XYZ,NCONN,MAT,LTYP,NLST)C*CTHISSUBPROGRAMGETSALLTHEVALUESNEEDEDASINPUTFORTHEPROGRAMIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'CHARACTER*80TITLECHARACTER*80HEADER1CHARACTER*80HEADER2CHARACTER*80HEADER3CHARACTER*80HEADER4COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/ELINF/LINFO(50,15)COMMON/SKBC/ISPB(20),DIRCOS(20,3)DIMENSIONDUMMY(6),NLST(NTPE),M(20)DIMENSIONXYZ(3,MNODES),NCONN(NTPE,MEL),MAT(MEL),1LTYP(MEL),TEMP(3)210Appendix:FortranCodesofCS-SC-----INITIALIZEARRAYSCALLZEROR2(XYZ,3,MNODES)CALLZEROR2(DIRCOS,20,3)CALLZEROI2(NCONN,NTPE,MEL)CALLZEROI1(LTYP,MEL)CALLZEROI1(MAT,MEL)CALLZEROI1(NLST,NTPE)CALLZEROI1(ISPB,20)C-----SETSOMECONSTANTSPYI=4.
0D0*ATAN(1.
0D0)ASMVL=1.
0D-20ZERO=0.
0D0CASMVL=ASSIGNEDMINIMUMVALUEC-----READTHETITLEREAD(LINP,101)TITLEWRITE(LOUT1,101)TITLE101FORMAT(A80)C-----READPL.
STR-AXI.
SYMINDEXNPLAX&THELINEARITYINDIXLINRREAD(LINP,101)HEADER1READ(LINP,*)NPLAX,LINR,NDIMWRITE(LOUT1,*)'LINEARITY=',LINRC-----SETSOMEVARIABLESCINXL-INDEXTONO.
OFD.
O.
FOFFIRSTNODEOFELEMENTCNSP-ONEDIMENSIONALINTEGRATIONNUMBEROFSAMPLINGPOINTSCNS-SIZEOFD-MATRIXCNPT-MAXMNUMBEROFDISPLACEMENTNODESALONGELEMENTEDGECMXEN,MXLD-SIZEOFARRAYSINCOMMONBLOCKSPRSLD,PRLDICMXLD-MAXIMUMNUMBEROFELEMENTEDGESWITHPRESSURELOADINGCMXEN-MAXIMUMNUMBEROFDISPLACEMENTNODESALONGANEDGEX2CMXFXT-MAXIMUMNUMBEROFFIXITIES(SIZEOFARRAYSMF,NFIX,DXYT)C-----INXL=20NSP=5IF(NDIM.
EQ.
2)NS=4IF(NDIM.
EQ.
3)NS=6NPT=LVMXEN=10MXLD=100MXFXT=200Appendix:FortranCodesofCS-S211C-----READANDGENERATETHENODALCOORDINATESI=0READ(LINP,*)NNODES,NSKEWWRITE(LOUT1,*)'NUMBEROFNODES=',NNODESREAD(LINP,101)HEADER2NNOD1=NNODES+1310READ(LINP,*)K,(DUMMY(IDIR),IDIR=1,NDIM),INCRDOIDIR=1,NDIMXYZ(IDIR,K)=DUMMY(IDIR)ENDDOI=I+1C-----InterpolationofthenodalcoordinateIF(INCR.
NE.
0)THENN=(K-K1)/INCRDX=(XYZ(1,K)-XYZ(1,K1))/NDY=(XYZ(2,K)-XYZ(2,K1))/NDZ=(XYZ(3,K)-XYZ(3,K1))/NK2=K-INCRDOJ=K1,K2,INCRN1=(J-K1)/INCRXYZ(1,J)=XYZ(1,K1)+N1*DXXYZ(2,J)=XYZ(2,K1)+N1*DYXYZ(3,J)=XYZ(3,K1)+N1*DZI=I+1ENDDOI=I-1ENDIFK1=KIF(I.
LT.
NNODES)GOTO310CWRITE(LOUT1,20)DOK1=1,NNODESWRITE(LOUT1,10)K1,(XYZ(IDIR,K1),IDIR=1,NDIM)ENDDOC----READSKEWBOUNDARYNODES&ITSDIRECTIONCOSINESREAD(LINP,101)HEADER3IF(NSKEW.
GT.
0)THENDOK=1,NSKEWREAD(LINP,*)INODEC,(TEMP(IDIR),IDIR=1,2)TEMP(1)=5.
640D0TEMP(2)=9.
780D0C---Abovevaluesarefor60degreeconetip.
ISPB(K)=INODETEMP3=SQRT(TEMP(1)**2+TEMP(2)**2)212Appendix:FortranCodesofCS-SDIRCOS(K,1)=TEMP(2)/TEMP3DIRCOS(K,2)=TEMP(1)/TEMP3IF(NDIM.
EQ.
3)DIRCOS(K,3)=TEMP(3)ENDDOENDIFC-----READ,WRITEANDGENERATETHEELEMENTSREAD(LINP,101)HEADER4I=0READ(LINP,*)NEL,NELNODWRITE(LOUT1,*)'NUMBEROFELEMENTS=',NEL410READ(LINP,*)K,ITYP,IMAT,INCR,(NLST(IK),IK=1,NELNOD)CNDN=LINFO(1,ITYP)LTYP(K)=ITYPMAT(K)=IMATCDOIK=1,NDNNUM=NLST(IK)NCONN(IK,K)=NUMENDDOCI=I+1IF(INCR.
EQ.
0)THENK1=KCELSEK2=(K-K1)/INCRDONODE=1,NDNM(NODE)=(NCONN(NODE,K)-NCONN(NODE,K1))/K2ENDDOCDOIELEM=K1+INCR,K-INCR,INCRLTYP(IELEM)=LTYP(K)MAT(IELEM)=MAT(K)I=I+1IELEM1=IELEM-INCRDONODE=1,NDNNCONN(NODE,IELEM)=NCONN(NODE,IELEM1)+M(NODE)ENDDOENDDOENDIFIF(I.
LT.
NEL)GOTO410CDOI=1,NELAppendix:FortranCodesofCS-S213LT=LTYP(I)NDN=LINFO(1,LT)CWRITE(LOUT1,*)I,(NCONN(J,I),J=1,NDN)ENDDORETURN10FORMAT(I5,4X,3F12.
4)20FORMAT(/,12X,'COORDINATESOFTHENODES'/,45(1H-),/,3X,'NODE',111X,'X',11X,'Y',11X,'Z',/,45(1H-))ENDC*BLOCKDATAC*IMPLICITREAL*8(A-H,O-Z)C-CDATAPRESENTEDBYLIN(FIRSTINDEX)C1-TOTALNUMBEROFNODES(DISPLACEMENT+POREPRESSURE).
.
.
.
.
.
NDPTC2-TOTALNUMBEROFVERTEXNODES.
NVNC3-TOTALNUMBEROFELEMENTEDGES.
NEDGC4-TOTALNUMEROFELEMENTFACES(3D)NFACC5-TOTALNUMBEROFDISPLACEMENTNODES.
NDNC6-TOTALNUMBEROFPOREPRESSURENODES.
NPNC7-NO.
OFDISPLACEMENTNODESPEREDGE(EXCLUDINGENDNODES).
NDSDC8-NO.
OFPOREPRESSURENODESPEREDGE(EXCLUDINGENDNODES).
NPSDC9-NUMBEROFINNERDISPLACEMENTNODES.
NINDC10-NUMBEROFINNERPOREPRESSURENODES.
NINPC11-NUMBEROFINTEGRATIONPOINTS(=GAUSSPOINT)NGPC12-INDEXTOWEIGHTSANDINTEGRATIONPOINTCOORDINATES.
.
.
.
.
.
.
INDXC13-INDEXTOVERTEXNODESOFELEMENTS(ARRAYNFC)INXC14-INDEXTONODESALONGEDGE(ARRAYSNP1,NP2)INDEDC15-NUMBEROFLOCALORAREACOORDINATES.
NLC16-TOTALNUMBEROFDEGREESOFFREEDOM(D.
O.
F.
)INELEMENT.
.
.
MDFEC17-CENTROIDINTEGRATIONPOINTNUMBER.
NCGPC21-ONWARDSTHENUMBEROFD.
O.
F.
OFEACHNODEOFELEMENT.
.
.
.
.
NDFNCCELEMENTTYPES(SECONDINDEX)C1-3-NODEDBAR2-D)**C2-6-NODEDLSTTRIANGLE.
2-D)C3-6-NODEDLSTTRIANGLE.
2-DCONSOLIDATION)C4-8-NODEDQUADRILATERAL.
2-D)C5-8-NODEDQUADRILATERAL.
2-DCONSOLIDATION)C6-15-NODEDCUSTTRIANGLE.
2-D)C7-22-NODEDCUSTTRIANGLE.
2-DCONSOLIDATION)214Appendix:FortranCodesofCS-SC8-20-NODEDBRICK.
3-D)C9-20-NODEDBRICK.
3-DCONSOLIDATION)C10-10-NODEDTETRA-HEDRA.
3-D)**C11-10-NODEDTETRA-HEDRA.
3-DCONSOLIDATION)**CC**ELEMENTTYPESNOTIMPLEMENTEDINTHISVERSIONC*COMMON/ELINF/LIN(50,15)COMMON/DATL/SL(4,100)COMMON/DATW/W(100)COMMON/SAMP/POSSP(5),WEIGP(5)DATALIN(1,1),LIN(2,1),LIN(3,1),LIN(4,1),LIN(5,1),LIN(6,1),1LIN(7,1),LIN(8,1),LIN(9,1),LIN(10,1),LIN(11,1),LIN(12,1),2LIN(13,1),LIN(14,1),LIN(15,1),LIN(16,1),LIN(17,1),3LIN(21,1),LIN(22,1),LIN(23,1)/33,2,1,1,3,0,1,0,0,0,5,0,0,0,1,6,3,2,2,2/DATALIN(1,2),LIN(2,2),LIN(3,2),LIN(4,2),LIN(5,2),LIN(6,2),1LIN(7,2),LIN(8,2),LIN(9,2),LIN(10,2),LIN(11,2),LIN(12,2),2LIN(13,2),LIN(14,2),LIN(15,2),LIN(16,2),LIN(17,2),3LIN(21,2),LIN(22,2),LIN(23,2),LIN(24,2),LIN(25,2),LIN(26,2)/46,3,3,1,6,0,1,0,0,0,7,5,0,0,3,12,7,2,2,2,2,2,2/DATALIN(1,3),LIN(2,3),LIN(3,3),LIN(4,3),LIN(5,3),LIN(6,3),1LIN(7,3),LIN(8,3),LIN(9,3),LIN(10,3),LIN(11,3),LIN(12,3),2LIN(13,3),LIN(14,3),LIN(15,3),LIN(16,3),LIN(17,3),LIN(21,3),3LIN(22,3),LIN(23,3),LIN(24,3),LIN(25,3),LIN(26,3)/46,3,3,1,6,3,1,0,0,0,7,5,0,0,3,15,7,3,3,3,2,2,2/DATALIN(1,4),LIN(2,4),LIN(3,4),LIN(4,4),LIN(5,4),LIN(6,4),1LIN(7,4),LIN(8,4),LIN(9,4),LIN(10,4),LIN(11,4),LIN(12,4),2LIN(13,4),LIN(14,4),LIN(15,4),LIN(16,4),LIN(17,4),3LIN(21,4),LIN(22,4),LIN(23,4),LIN(24,4),LIN(25,4),4LIN(26,4),LIN(27,4),LIN(28,4)/48,4,4,1,8,0,1,0,0,0,4,12,4,3,2,16,9,2,2,2,2,2,2,2,2/DATALIN(1,5),LIN(2,5),LIN(3,5),LIN(4,5),LIN(5,5),LIN(6,5),1LIN(7,5),LIN(8,5),LIN(9,5),LIN(10,5),LIN(11,5),LIN(12,5),2LIN(13,5),LIN(14,5),LIN(15,5),LIN(16,5),LIN(17,5),3LIN(21,5),LIN(22,5),LIN(23,5),LIN(24,5),LIN(25,5),4LIN(26,5),LIN(27,5),LIN(28,5)/48,4,4,1,8,4,1,0,0,0,4,12,4,3,2,20,9,3,3,3,3,2,2,2,2/DATALIN(1,6),LIN(2,6),LIN(3,6),LIN(4,6),LIN(5,6),LIN(6,6),1LIN(7,6),LIN(8,6),LIN(9,6),LIN(10,6),LIN(11,6),LIN(12,6),2LIN(13,6),LIN(14,6),LIN(15,6),LIN(16,6),LIN(17,6),3LIN(21,6),LIN(22,6),LIN(23,6),4LIN(24,6),LIN(25,6),LIN(26,6),LIN(27,6),LIN(28,6),LIN(29,6),5LIN(30,6),LIN(31,6),LIN(32,6),LIN(33,6),LIN(34,6),LIN(35,6)/515,3,3,1,15,0,3,0,3,0,16,21,0,0,3,30,16,62,2,2,2,2,2,2,2,2,2,2,2,2,2,2/Appendix:FortranCodesofCS-S215DATALIN(1,7),LIN(2,7),LIN(3,7),LIN(4,7),LIN(5,7),1LIN(6,7),LIN(7,7),LIN(8,7),LIN(9,7),LIN(10,7),LIN(11,7),2LIN(12,7),LIN(13,7),LIN(14,7),LIN(15,7),LIN(16,7),LIN(17,7),3LIN(21,7),LIN(22,7),LIN(23,7),LIN(24,7),LIN(25,7),4LIN(26,7),LIN(27,7),LIN(28,7),LIN(29,7),LIN(30,7),5LIN(31,7),LIN(32,7),LIN(33,7),LIN(34,7),LIN(35,7),LIN(36,7),6LIN(37,7),LIN(38,7),LIN(39,7),LIN(40,7),LIN(41,7),LIN(42,7)/722,3,3,1,15,10,3,2,3,1,16,21,0,0,3,40,16,3,3,3,2,2,2,2,2,2,2,2,2,82,2,2,1,1,1,1,1,1,1/DATALIN(1,8),LIN(2,8),LIN(3,8),LIN(4,8),LIN(5,8),LIN(6,8),1LIN(7,8),LIN(8,8),LIN(9,8),LIN(10,8),LIN(11,8),LIN(12,8),2LIN(13,8),LIN(14,8),LIN(15,8),LIN(16,8),LIN(17,8),3LIN(21,8),LIN(22,8),LIN(23,8),LIN(24,8),LIN(25,8),4LIN(26,8),LIN(27,8),LIN(28,8),4LIN(29,8),LIN(30,8),LIN(31,8),LIN(32,8),LIN(33,8),LIN(34,8),5LIN(35,8),LIN(36,8),LIN(37,8),LIN(38,8),LIN(39,8),LIN(40,8)/620,8,12,6,20,0,1,0,0,0,8,37,4,3,3,60,27,3,3,3,3,3,3,3,3,3,3,3,73,3,3,3,3,3,3,3,3/DATALIN(1,9),LIN(2,9),LIN(3,9),LIN(4,9),LIN(5,9),1LIN(6,9),LIN(7,9),LIN(8,9),LIN(9,9),LIN(10,9),2LIN(11,9),LIN(12,9),LIN(13,9),LIN(14,9),LIN(15,9),LIN(16,9),3LIN(17,9),LIN(21,9),LIN(22,9),LIN(23,9),LIN(24,9),LIN(25,9),4LIN(26,9),LIN(27,9),LIN(28,9),LIN(29,9),LIN(30,9),LIN(31,9),5LIN(32,9),LIN(33,9),LIN(34,9),LIN(35,9),LIN(36,9),LIN(37,9),6LIN(38,9),LIN(39,9),LIN(40,9)/720,8,12,6,20,8,1,0,0,0,8,37,4,3,3,68,27,4,4,4,4,4,4,4,4,83,3,3,3,3,3,3,3,3,3,3,3/DATALIN(1,10),LIN(2,10),LIN(3,10),LIN(4,10),LIN(5,10),1LIN(6,10),LIN(7,10),LIN(8,10),LIN(9,10),LIN(10,10),2LIN(11,10),LIN(12,10),LIN(13,10),LIN(14,10),LIN(15,10),3LIN(16,10),LIN(17,10),LIN(21,10),LIN(22,10),LIN(23,10),4LIN(24,10),LIN(25,10),LIN(26,10),LIN(27,10),LIN(28,10),5LIN(29,10),LIN(30,10)/510,4,6,4,10,0,1,0,0,0,4,64,28,15,4,30,0,3,3,3,3,3,3,3,3,3,3/DATALIN(1,11),LIN(2,11),LIN(3,11),LIN(4,11),LIN(5,11),1LIN(6,11),LIN(7,11),LIN(8,11),LIN(9,11),LIN(10,11),2LIN(11,11),LIN(12,11),LIN(13,11),LIN(14,11),LIN(15,11),3LIN(16,11),LIN(17,11),LIN(21,11),LIN(22,11),LIN(23,11),4LIN(24,11),LIN(25,11),LIN(26,11),LIN(27,11),LIN(28,11),5LIN(29,11),LIN(30,11)/510,4,6,4,10,4,1,0,0,0,4,64,28,15,4,34,0,4,4,4,4,3,3,3,3,3,3/C-CAREACOORDINATES-LINEARSTRAINTRIANGLE-ELEMENTTYPE2,3C-DATASL(1,6),SL(2,6),SL(3,6),SL(1,7),SL(2,7),SL(3,7),SL(1,8),1SL(2,8),SL(3,8),SL(1,9),SL(2,9),SL(3,9),SL(1,10),SL(2,10),1SL(3,10),SL(1,11),SL(2,11),SL(3,11),SL(1,12),SL(2,12),SL(3,12)/1.
797426985353087245,.
101286507323456343,.
101286507323456343216Appendix:FortranCodesofCS-S1,.
101286507323456343,.
797426985353087245,.
1012865073234563431,.
101286507323456343,.
101286507323456343,.
7974269853530872451,.
597158717897698279E-01,.
470142064105115082,.
4701420641051150821,.
470142064105115082,.
597158717897698279E-01,.
4701420641051150821,.
470142064105115082,.
470142064105115082,.
597158717897698279E-011,.
333333333333333329,.
333333333333333329,.
333333333333333329/C-CLOCALCOORDINATES-LINEARSTRAINQUADRILATERAL-ELEMTYPE4,5C-DATASL(1,13),SL(2,13),SL(1,14),SL(2,14),SL(1,15),SL(2,15),1SL(1,16),SL(2,16),SL(1,17),SL(2,17),SL(1,18),SL(2,18),1SL(1,19),SL(2,19),SL(1,20),SL(2,20),SL(1,21),SL(2,21)/1-0.
577350269189626,-0.
577350269189626,10.
577350269189626,-0.
577350269189626,10.
577350269189626,0.
577350269189626,1-0.
577350269189626,0.
577350269189626,10.
0D0,0.
0D0,10.
0D0,0.
0D0,10.
0D0,0.
0D0,10.
0D0,0.
0D0,10.
0D0,0.
0D0/C-CAREACOORDINATES-CUBICSTRAINTRIANGLE-ELEMENTTYPE6,7C-DATASL(1,22),SL(2,22),SL(3,22),SL(1,23),SL(2,23),SL(3,23),1SL(1,24),SL(2,24),SL(3,24),SL(1,25),SL(2,25),SL(3,25),1SL(1,26),SL(2,26),SL(3,26),SL(1,27),SL(2,27),SL(3,27),1SL(1,28),SL(2,28),SL(3,28),SL(1,29),SL(2,29),SL(3,29)/10.
898905543365938,0.
050547228317031,0.
050547228317031,10.
050547228317031,0.
898905543365938,0.
050547228317031,10.
050547228317031,0.
050547228317031,0.
898905543365938,10.
658861384496478,0.
170569307751761,0.
170569307751761,10.
170569307751761,0.
658861384496478,0.
170569307751761,10.
170569307751761,0.
170569307751761,0.
658861384496478,10.
081414823414554,0.
459292588292723,0.
459292588292723,10.
459292588292723,0.
081414823414554,0.
459292588292723/DATASL(1,30),SL(2,30),SL(3,30),SL(1,31),SL(2,31),SL(3,31),1SL(1,32),SL(2,32),SL(3,32),SL(1,33),SL(2,33),SL(3,33),1SL(1,34),SL(2,34),SL(3,34),SL(1,35),SL(2,35),SL(3,35),1SL(1,36),SL(2,36),SL(3,36),SL(1,37),SL(2,37),SL(3,37)/10.
459292588292723,0.
459292588292723,0.
081414823414554,10.
008394777409958,0.
728492392955404,0.
263112829634638,10.
008394777409958,0.
263112829634638,0.
728492392955404,10.
263112829634638,0.
008394777409958,0.
728492392955404,10.
728492392955404,0.
008394777409958,0.
263112829634638,10.
728492392955404,0.
263112829634638,0.
008394777409958,10.
263112829634638,0.
728492392955404,0.
008394777409958,10.
333333333333333,0.
333333333333333,0.
333333333333333/Appendix:FortranCodesofCS-S217C-CLOCALCOORDINATES-20-NODEDBRICK-ELEMTYPE8,9C-DATASL(1,38),SL(2,38),SL(3,38),SL(1,39),SL(2,39),SL(3,39),1SL(1,40),SL(2,40),SL(3,40),SL(1,41),SL(2,41),SL(3,41),1SL(1,42),SL(2,42),SL(3,42),SL(1,43),SL(2,43),SL(3,43),1SL(1,44),SL(2,44),SL(3,44),SL(1,45),SL(2,45),SL(3,45)/1-0.
577350269189626,-0.
577350269189626,0.
577350269189626,10.
577350269189626,-0.
577350269189626,0.
577350269189626,10.
577350269189626,0.
577350269189626,0.
577350269189626,1-0.
577350269189626,0.
577350269189626,0.
577350269189626,1-0.
577350269189626,-0.
577350269189626,-0.
577350269189626,10.
577350269189626,-0.
577350269189626,-0.
577350269189626,10.
577350269189626,0.
577350269189626,-0.
577350269189626,1-0.
577350269189626,0.
577350269189626,-0.
577350269189626/C1SL(1,46),SL(2,46),SL(3,46),SL(1,47),SL(2,47),SL(3,47),C1SL(1,48),SL(2,48),SL(3,48),SL(1,49),SL(2,49),SL(3,49),C1SL(1,50),SL(2,50),SL(3,50),SL(1,51),SL(2,51),SL(3,51),C1SL(1,52),SL(2,52),SL(3,52),SL(1,53),SL(2,53),SL(3,53),C1SL(1,54),SL(2,54),SL(3,54),SL(1,55),SL(2,55),SL(3,55),C1SL(1,56),SL(2,56),SL(3,56),SL(1,57),SL(2,57),SL(3,57),C1SL(1,58),SL(2,58),SL(3,58),SL(1,59),SL(2,59),SL(3,59),C1SL(1,60),SL(2,60),SL(3,60),SL(1,61),SL(2,61),SL(3,61),C1SL(1,62),SL(2,62),SL(3,62),SL(1,63),SL(2,63),SL(3,63),C1SL(1,64),SL(2,64),SL(3,64)/C10.
0D0,0.
0D0/C-CWEIGHTS-LINEARSTRAINTRIANGLE-ELEMENTTYPE2,3C-DATAW(6),W(7),W(8),W(9),W(10),W(11),W(12)/1.
062969590272413570,.
062969590272413570,.
062969590272413570,1.
066197076394253089,.
066197076394253089,.
066197076394253089,1.
112499999999999996/C-CWEIGHTS-LINEARSTRAINQUADRILATERAL-ELEMENTTYPE4,5C-DATAW(13),W(14),W(15),W(16),W(17),W(18),W(19),W(20),W(21)/11.
00000000000000,1.
00000000000000,11.
00000000000000,1.
00000000000000,10.
0D0,0.
0D0,10.
0D0,0.
0D0,10.
0D0/C-CWEIGHTS-CUBICSTRAINTRIANGLE-ELEMENTTYPE6,7C-DATAW(22),W(23),W(24),W(25),W(26),W(27),W(28),W(29),1W(30),W(31),W(32),W(33),W(34),W(35),W(36),W(37)/218Appendix:FortranCodesofCS-S1.
016229248811599,.
016229248811599,.
016229248811599,1.
051608685267359,.
051608685267359,.
051608685267359,1.
047545817133642,.
047545817133642,.
047545817133642,1.
013615157087217,.
013615157087217,.
013615157087217,1.
013615157087217,.
013615157087217,.
013615157087217,1.
072157803838893/C-CWEIGHTS-20-NODEDBRICK-ELEMENTTYPE8,9C-DATAW(38),W(39),W(40),W(41),W(42),W(43),W(44),W(45)/11.
000000000000000,1.
000000000000000,11.
000000000000000,1.
000000000000000,11.
000000000000000,1.
000000000000000,11.
000000000000000,1.
000000000000000/C-CONE-DIMENSIONALINTEGRATIONC-DATAPOSSP(1),POSSP(2),POSSP(3),POSSP(4),POSSP(5)/1-0.
906179845938664,-0.
538469310105683,0.
0D0,10.
538469310105683,0.
906179845938664/DATAWEIGP(1),WEIGP(2),WEIGP(3),WEIGP(4),WEIGP(5)/10.
236926885056189,0.
478628670499366,0.
568888888888889,10.
478628670499366,0.
236926885056189/ENDC*SUBROUTINEMAKENZ(NEL,NN,NCONN,LTYP,NQ,INXL)C*CSETSUPTHENQARRAYWHICHCONTAINSTHENUMBERCOFDEGREESOFFREEDOMASSOCIATEDWITHEACHNODECFORELEMENTSINTHISASSEMBLY.
C1CALLEDBYINSITU.
IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),LTYP(MEL),NQ(MNODES)COMMON/ELINF/LINFO(50,15)C-CINXL-INDEXTONO.
OFDEGREESOFFREEDOMOFFIRSTNODEOFELEMENTC(SEEBLOCKDATAROUTINESBDATA1,MAIN2)C-DO8J=1,NN8NQ(J)=0CDO20J=1,NELIF(LTYP(J).
LT.
0)GOTO20LT=LTYP(J)Appendix:FortranCodesofCS-S219NDPT=LINFO(1,LT)CDO10I=1,NDPTNDFN=LINFO(I+INXL,LT)NOD=NCONN(I,J)IF(NDFN.
GT.
NQ(NOD))NQ(NOD)=NDFN10CONTINUE20CONTINUECRETURNENDC*SUBROUTINECALDOF(NN,NN1,NDF,NW,NQ)C*CROUTINETOCALCULATEGLOBALNUMBERFORD.
O.
F.
INCLUDE'PARM.
FOR'DIMENSIONNW(MNODES+1),NQ(MNODES)CNC=1NW(1)=1CDO10I=1,NNNC=NC+NQ(I)10NW(I+1)=NCCNDF=NW(NN1)-1CRETURNENDCC*SUBROUTINEGPOUT(LOUT1,NEL,NN,NDF,NCONN,1MAT,LTYP,NLST)C*CROUTINETOPRINTOUTARRAYSSET-UPINGEOMETRYPARTOFPROGRAMIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL),NLST(NTPE)COMMON/ELINF/LINFO(50,15)CWRITE(LOUT1,902)220Appendix:FortranCodesofCS-SCDO20JU=1,NELIF(NEL.
EQ.
0)GOTO20MPR=JULT=LTYP(MPR)NDPT=LINFO(1,LT)CDO10IN=1,NDPTNP=NCONN(IN,MPR)10NLST(IN)=NPCWRITE(LOUT1,906)JU,LT,MAT(MPR),(NLST(IN),IN=1,NDPT)20CONTINUECCWRITE(LOUT1,908)(NQ(IN),IN=1,NN)CCWRITE(LOUT1,910)(NW(IN),IN=1,NN1)CWRITE(LOUT1,911)NNWRITE(LOUT1,912)NDFCRETURN902FORMAT(//10X,30HELEMENTMATERIALTYPEAND,115HNODENUMBERS//1X,7HELEMENT,1X,4HTYPE,2X,3HMAT,219H1234,355H56789101112131415,435H16171819202122/)906FORMAT(I5,2I6,22I5)911FORMAT(//25HTOTALNUMBEROFNODES=,I8)912FORMAT(/40HTOTALDEGREESOFFREEDOMINSOLUTION=,I8)ENDC*SUBROUTINEMINT(XYZ,NCONN,MAT,LTYP,NW)C*CThisisthemaincalculationsubroutineIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLEDCOMMON/PRLDI/PRSLDI(10,100),LEDI(100),NDI1(100),NDI2(100),ILODAppendix:FortranCodesofCS-S221CDIMENSIONNW(MNODES+1),NP1(NPL),NP2(NPL)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONSTRESS(NVRS,NIP,MEL),XYZ(3,MNODES)DIMENSIONPR(NPR,NMT),NTY(NMT),PCONI(MDOF),PEQT(MDOF)cwrite(*,*)pr(1,1)C-----CALLSUBROUTINESETUPNPCALLSETNP(NP1,NP2,NPL)C-----CALCULATEINITIALINSITUSTRESSESLINK1=1CALLINITIAL(LINK1,XYZ,STRESS,PCONI,PEQT,NCONN,MAT,LTYP,NW,1NP1,NP2,PR,NTY,INCS,INCF)C-----DEFINEINITIALSTRESSSTATUSFORTHEMODELCALLINMODST(STRESS,MAT,PR,NTY,LTYP,NEL,NS,NDIM)C-----MajorcalculationCALLTOTSOL(XYZ,STRESS,PCONI,PEQT,NCONN,MAT,LTYP,NW,PR,NTY,1NP1,NP2,INCS,INCF)CRETURNENDC-----FROMHERE,MINORSUBROUTINESBEGINCCC-----MINORSUBROUTINESFORSUBROUTINEINPUT(.
.
.
)CSUBROUTINEZEROR2(V,L1,L2)C*CROUTINETOINITIALISEA2-DIMENSIONALREALARRAYC*c1CALLEDBYINPUTC2CALLEDBYTOTSOLC3CALLEDBYTOTSOLIMPLICITREAL*8(A-H,O-Z)DIMENSIONV(L1,L2)CDO10I=1,L1DO10J=1,L210V(I,J)=0.
0D0RETURNEND222Appendix:FortranCodesofCS-SSUBROUTINEZEROI2(N,L1,L2)C*CROUTINETOINITIALISEA2-DIMENSIONALINTEGERARRAYC*C1CALLEDBYINPUTC2CALLEDBYINMODSTC3CALLEDBYTOTSOLDIMENSIONN(L1,L2)CDO10J=1,L2DO10I=1,L110N(I,J)=0RETURNENDSUBROUTINEZEROI1(N,LN)C*CROUTINETOINITIALISEA1-DIMENSIONALINTEGERARRAYC*C1CALLEDBYINPUTDIMENSIONN(LN)CDO10I=1,LN10N(I)=0RETURNENDC-----MINORSUBROUTINESFORSUBROUTINEMINT(.
.
.
)CSUBROUTINESETNP(NP1,NP2,NPL)C*CSETUPARRAYSNP1ANDNP2WHICHGIVETHEINDEXTOARRAYCNCONNFORNODESATEITHERENDOFEACHELEMENTEDGEC*C1CALLEDBYMINTSETNP(NP1,NP2,NPL)DIMENSIONNPL1(21),NPL2(21),NP1(NPL),NP2(NPL)C-CINDEXESOFARRAYSNPL1,NPL2,NP1,NP2CINDEXELEMENTTYPEC1-31,2,3,6,7C4-74,5C4-158,9C16-2110,11C-Appendix:FortranCodesofCS-S223DATANPL1(1),NPL1(2),NPL1(3),NPL1(4),NPL1(5),NPL1(6),NPL1(7),1NPL1(8),NPL1(9),NPL1(10),NPL1(11),NPL1(12),NPL1(13),NPL1(14),2NPL1(15),NPL1(16),NPL1(17),NPL1(18),NPL1(19),NPL1(20),NPL1(21)/31,2,3,1,2,3,4,5,6,7,8,1,2,3,4,1,2,3,1,2,3/DATANPL2(1),NPL2(2),NPL2(3),NPL2(4),NPL2(5),NPL2(6),NPL2(7),1NPL2(8),NPL2(9),NPL2(10),NPL2(11),NPL2(12),NPL2(13),NPL2(14),2NPL2(15),NPL2(16),NPL2(17),NPL2(18),NPL2(19),NPL2(20),NPL2(21)/32,3,1,2,3,4,1,6,7,8,5,5,6,7,8,2,3,1,4,4,4/CDO10I=1,NPLNP1(I)=NPL1(I)10NP2(I)=NPL2(I)CRETURNENDSUBROUTINEINITIAL(LINK1,XYZ,STRESS,PCONI,PEQT,NCONN,MAT,LTYP,NW,+NP1,NP2,PR,NTY,INCS,INCF)C*CMAINCONTROLLINGROUTINE-INSITUSTRESSESC*C1CalledbyMINTINITIAL(LINK1,XYZ,STRESS,PCONI,PEQT,NCONN,MAT,LTYP,NW,NP1,NP2,PR,NTY)IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'CHARACTER*80HEADER5DIMENSIONXYZ(3,MNODES),STRESS(NVRS,NIP,MEL),P(MDOF),1PT(MDOF),PCOR(MDOF),PEQT(MDOF),XYFT(MDOF),PCONI(MDOF)DIMENSIONNW(MNODES+1),IDFX(MDOF),NP1(NPL),NP2(NPL)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONNTY(NMT),PR(NPR,NMT)COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/DATL/SL(4,100)COMMON/DATW/W(100)COMMON/ELINF/LINFO(50,15)COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLED224Appendix:FortranCodesofCS-SCOMMON/PRLDI/PRSLDI(10,100),LEDI(100),NDI1(100),NDI2(100),ILODCOMMON/ANLYS/TTIME,DTIMEI,TGRAV,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDSC-----LINK2=1TTIME=ZEROTGRAV=ZEROREAD(LINP,101)HEADER5READ(LINP,*)IDCHKWRITE(LOUT1,922)IDCHKIF(IDCHK.
EQ.
0)WRITE(LOUT1,930)IF(IDCHK.
EQ.
1)WRITE(LOUT1,935)IF(IDCHK.
EQ.
2)WRITE(LOUT1,940)C-----IFONLYTOTESTGEOMETRYDATASTOPHEREIF(IDCHK.
EQ.
1)STOPIF(LINK1.
EQ.
LINK2)GOTO1WRITE(LOUT1,904)LINK1,LINK2STOPC-----ROUTINETOREADCONTROLOPTIONSANDMATERIALPROPERTIES1CALLRDPROP(NPLAX,NDIM,NMAT,NOIB,INCS,INCF,INCT,1ICOR,PR,NTY)C-----READ&SETUPIN-SITUSTRESSESANDCHECKFOREQUILIBRIUMIF(INCS.
EQ.
1)CALLINSITU(XYZ,STRESS,P,PT,PCOR,PEQT,+XYFT,PCONI,NCONN,MAT,LTYP,NW,IDFX,NP1,NP2,PR,NTY)RETURN101FORMAT(A80)904FORMAT(//10X,32HERROR----LINKCODEMISMATCH,2I5)922FORMAT(/1X,20HDATACHECKOPTION=,I5/)930FORMAT(1X,32HCOMPLETEANALYSISISCARRIEDOUT/)935FORMAT(1X,30HONLYGEOMETRYDATAARECHECKED/)940FORMAT(1X,42HGEOMETRYDATAANDIN-SITUSTRESSESCHECKED/)ENDSUBROUTINEINMODST(STRESS,MAT,PR,NTY,LTYP,NEL,NS,NDIM)C*CThissubroutinedefineinitialstressstatusforthemodel.
C*C1CALLEDBYMINTIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'Appendix:FortranCodesofCS-S225COMMON/ELINF/LINFO(50,15)COMMON/MODEL/PQMOD(NIP,MEL,2),MCODE(NIP,MEL)DIMENSIONSTRESS(NVRS,NIP,MEL),MAT(MEL),PR(NPR,NMT),NTY(NMT),1LTYP(MEL),TEMP(6)C-----InitializingCALLZEROI2(MCODE,NIP,MEL)CALLZEROR3(PQMOD,NIP,MEL,2)CALLZEROR1(TEMP,6)CDOMR=1,NELKM=MAT(MR)KGO=NTY(KM)IF(KGO.
NE.
3.
AND.
KGO.
NE.
4)GOTO100PRM=PR(4,KM)LT=LTYP(MR)NGP=LINFO(11,LT)DOIP=1,NGPPC=STRESS(NS+3,IP,MR)PQMOD(IP,MR,1)=PCP=(STRESS(1,IP,MR)+STRESS(2,IP,MR)+STRESS(3,IP,MR))/3.
0D0DOIS=1,NSTEMP(IS)=STRESS(IS,IP,MR)ENDDOQE=Q(TEMP,NS,NDIM)PQMOD(IP,MR,2)=QE/PCIF(KGO.
EQ.
3)THENPCS=PC/2.
0D0PY=P+QE*QE/(P*PRM*PRM)ELSEIF(KGO.
EQ.
4)THENPCS=PC/EXP(1.
0d0)PY=P*EXP(QE/(PRM*P))ENDIFCIF(P.
GE.
PCS)THEN!
NCIF(PY.
GE.
0.
9950D0*PC)THENMCODE(IP,MR)=2!
IitialpointatPcELSEMCODE(IP,MR)=1!
Roscoesurface&insideENDIFELSEIF(P.
LT.
PCS)THEN!
OCIF(PY.
GE.
0.
9950D0*PC)THENMCODE(IP,MR)=4!
OC+hardening(expansion)ELSEMCODE(IP,MR)=3!
OC,Hvoslevsurface&insideENDIF226Appendix:FortranCodesofCS-SENDIFCENDDO100CONTINUEENDDORETURNENDSUBROUTINETOTSOL(XYZ,STRESS,PCONI,PEQT,NCONN,MAT,LTYP,NW,PR,NTY,1NP1,NP2,INCS,INCF)C*CThisisamaincontrollingroutine.
C*C1CalledbyMINT.
IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/DATL/SL(4,100)COMMON/DATW/W(100)COMMON/ELINF/LINFO(50,15)COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/LOADS/FB(2,15)COMMON/OUT/IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFCOMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLEDCOMMON/PRLDI/PRSLDI(10,100),LEDI(100),NDI1(100),NDI2(100),ILODCOMMON/PTLOAD/PT1(MDOF),INDPTCOMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/ANLYS/TTIME,DTIMEI,TGRAV,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDSCOMMON/BSTRESS/PREP,PREQ,PREETA,PREALPH!
backstressvariableCDIMENSIONNQ(MNODES),NW(MNODES+1),IDFX(MDOF)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONSTRESS(NVRS,NIP,MEL),XYZ(3,MNODES)DIMENSIONPR(NPR,NMT),NTY(NMT),NP1(NPL),NP2(NPL)DIMENSIONPINC(MDOF),PCOR(MDOF),PREV(MDOF),PT(MDOF),PEQT(MDOF),1PCONI(MDOF),PITER(MDOF)DIMENSIONDINC(MDOF),DITER(MDOF),DIPR(MDOF),DA(MDOF)DIMENSIONPDISLD(3,LV),PRES(3,LV)DIMENSIONSTRAIN(NVRN,NIP,MEL)DIMENSIONAppendix:FortranCodesofCS-S227XYFIB(MDOF),PIB(MDOF),PEXIB(MDOF),PEXI(MDOF),XYFT(MDOF)DIMENSIONJEL(MEL),FXYZ(3),DXYT1(4,200)DIMENSIONRINCC(2500),DTM(2500),IOPT(2500)DIMENSIONVARC(9,NIP,MEL),MCS(MEL),MNGP(MEL),NELCM(MEL)DIMENSIONLCS(NIP,MEL),LNGP(NIP,MEL)DIMENSIONNCHAIN(100,2),NUMD(MDOF,2),DD(4,200),DD1(4,200)DIMENSIONPNOD(MDOF),DP(MDOF),DP1(MDOF)DIMENSIONFRICT(MDOF),FRICT1(MDOF),FRICTPR(MDOF),XMUFR(2)C-----MAXIMUMNUMBEROFINCREMENTSINAINCREMENTBLOCKINCZ=2500ILINR=0IBCAL=0FRMAX0=0.
0D0FRMAX3=0.
0D0TOTPEN=0.
0D0NDIM1=NDIM+1IF(IDCHK.
EQ.
0)GOTO10!
=0formeWRITE(LOUT1,907)STOPC-----INITIALIZESOMEARRAYS10CALLZEROR3(STRAIN,NVRN,NIP,MEL)CALLZEROR2(DD,4,200)CALLZEROI2(NUMD,MDOF,2)CALLZEROR1(XMUFR,2)DOIDF=1,MDOFXYFT(IDF)=0.
0D0PEXI(IDF)=0.
0D0PCOR(IDF)=0.
0D0DP(IDF)=0.
0D0DP1(IDF)=0.
0D0PNOD(IDF)=0.
0D0FRICT(IDF)=0.
0D0FRICT1(IDF)=0.
0D0FRICTPR(IDF)=0.
0D0DA(IDF)=0.
0D0ENDDOC-----STARTOFINCREMENTBLOCKLOOPINDPT=0CALLZEROR1(PT1,MDOF)!
InitializingDO250JINCB=1,NOIB!
StartofbigDoloop,NOIB=1forme.
INCR1=0228Appendix:FortranCodesofCS-SWRITE(LOUT1,908)JINCBWRITE(LOUT2,908)JINCBWRITE(LOUT3,908)JINCBWRITE(LOUT4,908)JINCBC-----INITIALISELOADVECTORSDOIDF=1,MDOFXYFIB(IDF)=0.
0D0PIB(IDF)=0.
0D0PEXIB(IDF)=0.
0D0PINC(IDF)=0.
0D0PITER(IDF)=0.
0D0DINC(IDF)=0.
0D0DIPR(IDF)=0.
0D0ENDDOCALLZEROR2(DXYT1,4,200)!
InitializingCALLZEROR2(PRSLDI,10,100)!
InitializingCILOD=0CALLZEROI1(JEL,MEL)!
InitializingCALLZEROI1(IOPT,2500)!
InitializingCALLZEROR1(DTM,2500)!
InitializingCALLZEROR1(RINCC,2500)!
InitializingFRACT=0C-----READINCREMENTCONTROLOPTIONSREAD(LINP,101)HEADER15READ(LINP,*)IBNO,NLOD,ILDF,NFXEL,NFXNOD,IOUTS,1IOCD,DTIME,ITMF,DGRAVINC1=INCSINC2=INCFIDUMMY=1IF(IBNO.
EQ.
2)INC2=2CWRITE(*,*)IBNO,INC1,INC2,IDUMMY,NLOD,ILDF,NFXEL,NFXNOD,IOUTS,C2IOCD,DTIME,ITMF!
,DGRAVWRITE(LOUT1,912)IBNO,INC1,INC2,IDUMMY,NLOD,ILDF,NFXEL,NFXNOD,IOUTS,2IOCD!
,!
DTIME,ITMF!
,DGRAVNOINC=INC2+1-INC1IF(NOINC.
LE.
INCZ)GOTO70!
NOINC=10INCZ=2500--MAXIMUMVALUEOFNOINCWRITE(LOUT1,950)NOINCSTOP70IF(IBNO.
EQ.
JINCB)GOTO76!
IBNO=1JINCB=1WRITE(LOUT1,913)IBNO,JINCBAppendix:FortranCodesofCS-S229STOP101FORMAT(A80)C-----CALCULATEBODYFORCELOADVECTORC-----FORSELF-WEIGHTLOADINGANDGRAVITYLOADING76CALLSEL1(LOUT1,NDIM,NEL,XYZ,PIB,NCONN,MAT,1LTYP,NW,PR,DGRAV)C-----READLOADFACTORS,TIMEFACTORSANDOUTPUTOPTIONSCALLFACTOR(LINP,LOUT1,NOINC,ILDF,IOCD,ITMF,IOUTS,1RINCC,DTM,IOPT,DTIME)IF(NLOD.
EQ.
0)GOTO95!
NLOD=0IF(NLOD.
GT.
0)GOTO82C-----Skipfromhereto95C-----PRESSURELOADINGALONGELEMENTEDGEWRITE(LOUT1,1000)NLDS=IABS(NLOD)IF(NDIM.
EQ.
2)GOTO78WRITE(LOUT1,955)955FORMAT(/1X,'NOOPTIONTOCALCULATENODALLOADS',1X,1'FROMPRESSURELOADINGIN3-DPROBLEM(ROUTINETOTSOL)')STOPC78DO80KLOD=1,NLDS!
NLDS=No.
ofloadedelement.
(guess)READ(LINP,*)LNE,ND1,ND2,((PDISLD(ID,IV),ID=1,NDIM),IV=1,NPT)WRITE(LOUT1,1002)LNE,ND1,ND2,((PDISLD(ID,IV),ID=1,NDIM),IV=1,NPT)CCALLZEROR2(FB,2,15)DO100IV=1,NPTDO100ID=1,NDIMIDR=NDIM+1-ID100PRES(ID,IV)=PDISLD(IDR,IV)CDO110IV=1,NPTDO110ID=1,NDIM110PDISLD(ID,IV)=PRES(ID,IV)CCALLEDGLD(LOUT1,NDIM,NCONN,LTYP,LNE,ND1,ND2,NP1,NP2,1PDISLD,PRES,KLOD,NPT,0,MXLD)CCALLDISTLD(LOUT1,XYZ,PIB,NCONN,LTYP,NW,NP1,1NP2,PRES,LNE,ND1,ND2,1,1,1.
0D0)80CONTINUEGOTO95C-----READINCREMENTALPOINTLOADS230Appendix:FortranCodesofCS-S82WRITE(LOUT1,916)CDO90JJ=1,NLODREAD(LINP,*)KK,(FXYZ(ID),ID=1,NDIM)WRITE(LOUT1,940)KK,(FXYZ(ID),ID=1,NDIM)C-----NOPROVISIONFORPOREPRESSURETERMSIN'APPLIED'NODALLOADSFTT=ZEROKJ=KKN1=NW(KJ)-1IDF=NW(KJ+1)-NW(KJ)IF(IDF.
EQ.
1)GOTO84CDO83ID=1,NDIM83XYFIB(N1+ID)=FXYZ(ID)IF(IDF.
EQ.
NDIM1)XYFIB(N1+NDIM1)=FTTGOTO9084XYFIB(N1+1)=FTT90CONTINUEC95IF(NFXEL.
EQ.
0.
AND.
NFXNOD.
EQ.
0)GOTO137!
NFXEL=8,NFXNOD=0C-----READCHANGETONODALFIXITIESWRITE(LOUT1,931)CIF(NDIM.
EQ.
2)THENREAD(LINP,101)HEADER16CALLFIXX2(LINP,LOUT1,NDIM,NCONN,LTYP,NP1,NP2,NFXEL,1NFXNOD)ENDIFIF(NDIM.
EQ.
3)THENREAD(LINP,101)HEADER16CALLFIXX3(LINP,LOUT1,NDIM,NCONN,LTYP,NFXEL,NFXNOD)ENDIF137CONTINUEC-----FIND{NQ}CALLMAKENZ(NEL,NN,NCONN,LTYP,NQ,INXL)C-----READDATAFORPENETRATIONPROBLEMREAD(LINP,101)HEADER17READ(LINP,*)NPEN,IPENIF(NPEN.
GE.
1)THEN!
IF(IPEN.
EQ.
1)CALLINPENT(LINP,NPEN,XREF,YREF,DYREF,DXPEN,!
IPEN=11XCOS,XSIN,XMUFR,NCHAIN,KSLID0,KSLID3)Appendix:FortranCodesofCS-S231IF(KSLID3.
EQ.
0)THENNSKEW1=NSKEWNSKEW=0ENDIFENDIFC-----InitializingincrementalvariablesforbackstressbySong2/22/98PREP=1PREQ=0PREETA=0PREALPH=0C-----STARTOFINCREMENTLOOPINCT=0!
ADDEDBYSONG9/2/98DO200JS=INC1,INC2!
***INCREMENTALLOOPSTARTS***INCT=INCT+1INCR1=INCR1+1IF(JS.
EQ.
INCT)GOTO138WRITE(LOUT1,933)JS,INCTSTOP138JC=JS+1-INC1FRACLD=RINCC(JC)!
FRACLD=RINCC=FSTD=1/No.
ofIncCFRACLD=Fragment!
SongFRACT=FRACT+FRACLD!
AccumulatEDtotaldisplforunitpen.
leng.
DTIMEI1=DTM(JC)TTIME=TTIME+DTIMEI1DTIMEI=DTIMEI1DGRAVI=FRACLD*DGRAV!
DGRAV=incrementingravityfield=0TGRAV=TGRAV+DGRAVIIOUT=IOPT(JC)C-----ASSIGNTHEAPPROPRIATEPOINTERSTOTHEDOFANDSTIFFNESSMATRIXCALLLOCINIT(LTYP,NCONN,NQ,NW,NDF,NDIM)CIWL=0IF(JINCB.
EQ.
NOIB.
AND.
JS.
EQ.
INC2)IWL=1C-CBOUNDARYCONDITIONS(LOADSANDDISPLACEMENTS)AREPRINTEDCEVERYIBCINCREMENTSCIBC=0NOTPRINTEDINANYINCREMENTCIBC=1PRINTEDINEACHINCREMENTCIBC=NPRINTEDINEVERYNTHINCREMENTC-IOUTP=0IF(IBC.
EQ.
0)GOTO130NJS=IBC*(JS/IBC)232Appendix:FortranCodesofCS-SIF(NJS.
EQ.
JS)IOUTP=1CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCIF(INCT.
LE.
5.
OR.
INCT.
EQ.
8)IOUTP=1IF(INCT.
EQ.
10.
OR.
INCT.
EQ.
15)IOUTP=1IF(INCT.
EQ.
20.
OR.
INCT.
EQ.
30)IOUTP=1IF(INCT.
EQ.
40.
OR.
INCT.
EQ.
50)IOUTP=1IF(INCT.
EQ.
75.
OR.
INCT.
EQ.
100)IOUTP=1IF(INCT.
EQ.
150)IOUTP=1IF(IBNO.
GE.
2)IOUTP=1CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCWRITE(*,*)'INCR=',INCTIF(IOUTP.
EQ.
1)THENWRITE(LOUT1,919)DTIMEI,TTIMEWRITE(LOUT2,919)DTIMEI,TTIMEWRITE(LOUT3,919)DTIMEI,TTIMEWRITE(LOUT4,919)DTIMEI,TTIMEENDIFC130DO140IM=1,NDFCXYFT(IM)=XYFT(IM)+XYFIB(IM)*FRACLD+FRICT(IM)C140PINC(IM)=FRACLD*PIB(IM)+FRACLD*XYFIB(IM)+DP(IM)+FRICT(IM)XYFT(IM)=XYFT(IM)+XYFIB(IM)*FRACLD+DP1(IM)+FRICT(IM)+FRICT1(IM)140PINC(IM)=FRACLD*PIB(IM)+FRACLD*XYFIB(IM)+DP(IM)+DP1(IM)+FRICT1(IM)CALLZEROR1(FRICT,MDOF)CALLZEROR1(FRICT1,MDOF)CDO145IM=1,NDF145PEXI(IM)=(1.
0D0-FRACT)*PEXIB(IM)+PNOD(IM)C-----UPDATELISTOFPRESSURELOADINGALONGELEMENTEDGESIF(NLOD.
GE.
0)GOTO162CDO160ISD=1,NLDSLNE=LEDI(ISD)ND1=NDI1(ISD)ND2=NDI2(ISD)ICT=0C***N2D=2FORTWODIMENSIONALPROBLEMSN2D=2DO150IK=1,NPTDO150IJ=1,N2DICT=ICT+1150PRES(IJ,IK)=FRACLD*PRSLDI(ICT,ISD)CALLLODLST(LOUT1,NDIM,LNE,ND1,ND2,PRES,NPT,0,MXLD)160CONTINUE162CONTINUEC-----INITIALISEINCREMENTALDISPLACEMENTSAppendix:FortranCodesofCS-S233ICONV=0ITER=1MAXITER=10TOL=0.
080D0CDOI10=1,NDFPITER(I10)=PINC(I10)+PCOR(I10)cPITER(I10)=PINC(I10)ENDDODOIDF=1,MDOFDINC(IDF)=0.
0D0DIPR(IDF)=0.
0D0DITER(IDF)=0.
0D0PREV(IDF)=0.
0D0PINC(IDF)=0.
0D0ENDDOC-cIF(INCR1.
EQ.
1.
AND.
LINR.
GE.
1)THENcILINR=LINRcLINR=0cELSEIF(INCR1.
GT.
1.
AND.
ILINR.
GE.
1)THENcLINR=ILINRcILINR=0cENDIFcwrite(2,*)'linr=',linrC-C-----STARTOFITERATIONLOOP******ITERATIONSTARTS******DOWHILE(ICONV.
EQ.
0.
AND.
ITER.
LE.
MAXITER)C-----CONVERTPITERTOCOUNTFORSKEWBOUNDARIESIF(NSKEW.
GT.
0)CALLROTBC(PITER,NW,NDIM,NSKEW,1)C-----SOLVEEQUATIONSUSINGSKYLINECALLSKSOLV(XYZ,DA,DITER,DIPR,DD,STRESS,PITER,NQ,NW,LTYP,1NTY,MAT,NCONN,PR,IOUTP,ITER)!
jsREMOVEDTENTATIVELYIF(ITER.
EQ.
1)THENDOIJ=1,NFDOID=1,NDIMDXYT1(ID,IJ)=DXYT(ID,IJ)DXYT(ID,IJ)=0.
0D0DD1(ID,IJ)=DD(ID,IJ)DD(ID,IJ)=0.
0D0ENDDOENDDOENDIFC-----ROTATEBACKDISPL&LOADSATSKEWBOUNDARIESTOORIGINAL234Appendix:FortranCodesofCS-SCOORD.
IF(NSKEW.
GT.
0)THENCALLROTBC(DITER,NW,NDIM,NSKEW,-1)CALLROTBC(PITER,NW,NDIM,NSKEW,-1)ENDIFC-----FINDTHEOUT-OF-BALANCELOADPCORCALLEQUIBLOD(XYZ,NCONN,MAT,LTYP,NQ,NW,NP1,NP2,PR,NTY,DITER,1DIPR,STRESS,STRAIN,PEXI,IDFX,PITER,PT,PCOR,PEQT,XYFT,PCONI,2LCS,LNGP,NELCM,MCS,MNGP,NCAM,ITER,IOUTP,JS)C-----ROTATEBACKPCORATSKEWBOUNDARIESTOORIGINALCOORD.
IF(NSKEW.
GT.
0)CALLROTBC(PCOR,NW,NDIM,NSKEW,-1)CDOI10=1,NDFDINC(I10)=DINC(I10)+DITER(I10)ENDDOC-----CHECKCONVERGENCECALLCONVCH(NDF,NN,NDIM,TOL,ICONV,2,NW,DITER,DINC,PREV,PCOR,1ITER,RNRM1)CDOI10=1,NDFPINC(I10)=PINC(I10)+PITER(I10)PITER(I10)=PCOR(I10)PREV(I10)=PCOR(I10)DIPR(I10)=DITER(I10)ENDDOCALLZEROR1(DITER,MDOF)cDTIMEI=0.
0001D0DTIMEI=DTIMEI1/100.
0D0WRITE(*,*)"Iter.
No.
",ITERITER=ITER+1ENDDO!
*****ENDOFITERATIONLOOP(iterationuntilconverge)CNITER=ITER-1IF(IOUTP.
EQ.
1)WRITE(LOUT1,*)'ICONV=',ICONV,1'NO.
OFITERATIONS=',NITERCDOIJ=1,NFDOID=1,NDIMDXYT(ID,IJ)=DXYT1(ID,IJ)DXYT1(ID,IJ)=0.
0D0Appendix:FortranCodesofCS-S235DD(ID,IJ)=DD1(ID,IJ)DD1(ID,IJ)=0.
0D0ENDDOENDDOC-----UPDATEANDOUTPUTCALCULATIONSCALLUPOUT(XYZ,DINC,DA,STRESS,STRAIN,PINC,PT,PCOR,PEQT,NCONN,1MAT,NTY,PR,LTYP,NW,NQ,IDFX,VARC,YREF,IOUTP)C-----ADJUSTB.
CFORTHEPENETRATIONPROBLEMIF(NPEN.
GE.
1)THENYREF=YREF-DYREF*FRACLD!
FRACLD=FSTD=RINCC=1/NOINCTOTPEN=TOTPEN+DYREF*FRACLDIF(KSLID3.
NE.
0)THENcCALLBCADJST(NPEN,NDIM,NSKEW,XREF,YREF,DXPEN,XSIN,XCOS,1NCHAIN,XYZ,NW,PEQT,PT,FRICT1,FRICTPR,XMUFR,PNOD,DD,DP,DP1,2INCT,NUMD,IOUTP,TOTPEN,IBCAL,FRMAX0,FRMAX3)cENDIFIF(KSLID0.
EQ.
0.
OR.
KSLID3.
EQ.
0)THENCALLCHSLIDE(NPEN,NSKEW,NSKEW1,DXPEN,KSLID0,KSLID3,XSIN,XCOS,1XMUFR,NCHAIN,NW,PEQT,PT,FRICT,FRICTPR,INCT,FRMAX0,FRMAX3)ENDIFENDIF200CONTINUE!
***ENDOFINCREMENTALLOOP(forincrementalpenet.
)C-----ZEROALLNON-ZEROPRESCRIBEDVALUESIF(NF.
EQ.
0)GOTO240CDOJJ=1,MXFXTDOII=1,4DD(II,JJ)=0.
0d0DXYT(II,JJ)=0.
0d0ENDDOENDDOCDOJJ=1,NDFFRICT1(JJ)=0.
0D0DP1(JJ)=0.
0D0PNOD(JJ)=PNOD(JJ)+DP(JJ)DP(JJ)=0.
0D0ENDDO240CONTINUEC250CONTINUE!
***ENDOFINCREMENTALLOOP(fortheincrementalblocknumber)236Appendix:FortranCodesofCS-S907FORMAT(/1X,24HANALYSISNOTCARRIEDOUT/)908FORMAT(//120(1H=)//11X,43HSTARTOFLOADINCREMENTBLOCKNUMBER,I5/1X,48(1H-))912FORMAT(/11X,23HINCRBLOCKNUMBER.
.
.
.
.
=,I5,4X,23HSTARTINGINCRNUMBER.
.
=,I8/21X,23HFINISHINGINCRNUMBER.
=,I5,4X,23HNO.
OFELEMENTCHANGES=,I8/31X,23HNUMBEROFLOADS.
I5,4X,23HLOADRATIOOPTION.
.
.
.
.
=,I8/41X,23HNUMOFELEMFIXITIES.
.
=,I5,4X,23HNUMOFNODEFIXITIES.
.
=,I5/51X,23HSTDOUTPUTCODE.
I8/!
i861X,23HOUTPUTOPTION.
I8/)C74X,23HTIMEINCREMENT.
F10.
1/C71X,23HTIMERATIOOPTION.
.
.
.
.
=,I5/)C84X,23HINCRINGRAVITYFIELD.
=,F10.
1/)!
tempkill913FORMAT(//1X,26HERRORININCRBLOCKNUMBER,2I6)914FORMAT(//28HLISTOFELEMENTALTERATIONS/1X,27(1H-)/)916FORMAT(//,3X,32HLISTOFINCREMENTALNODALLOADS/3X,33(1H-),/,13X,4HNODE,6X,1HX,9X,1HY,9X,1HZ,/,3X,33(1H-),/)920FORMAT(1X,10I8)931FORMAT(/1X,29HPRESCRIBEDBOUNDARYCONDITONS/1X,29(1H-)/)933FORMAT(//1X,'ERRORININCREMENTNUMBER',2I6,2X,'(ROUTINETOTSOL)')940FORMAT(1X,I5,3F10.
3)950FORMAT(/1X,46HINCREASESIZEOFARRAYSRINCC,DTMANDIOPTTO,1I5,2X,'ALSOSETINCZINROUTINETOTSOL')1000FORMAT(39HSPECIFIEDNODALVALUESOFSHEAR/NORMAL,136HSTRESSESANDEQUIVALENTNODALLOADS/1X,74(1H-)/5H0ELEM,21X,4HNDE1,2X,4HNDE2,2X,4HSHR1,8X,4HNOR1,8X,4HSHR2,8X,4HNOR2,38X,4HSHR3,8X,4HNOR3,8X,4HSHR4,8X,4HNOR4,8X,4HSHR5,8X,4HNOR5/11X,16H(LOADDIRECTION),2X,3H(X),9X,3H(Y),9X,3H(X),9X,3H(Y),29X,3H(X),9X,3H(Y),9X,3H(X),9X,3H(Y),9X,3H(X),9X,3H(Y)/)1002FORMAT(1X,3I4,10E12.
4)C915FORMAT(//120(1H=)//C11X,32HSTARTOFLOADINCREMENTNUMBER,I5,C24X,22HINCREMENTBLOCKNUMBER,I5,4X,13HLOADRATIO=,F5.
2/C31X,90(1H-))C917FORMAT(/22HINCRGRAVITYLEVEL=,E12.
4,C124HTOTALGRAVITYLEVEL=,E12.
4)919FORMAT(/80(1H=),/18HTIMEINCREMENT=,G12.
4,/,114HTOTALTIME=,G12.
4)RETURNENDC-----MINOROFMINORSUBROUTINESCCSUBROUTINEAppendix:FortranCodesofCS-S237RDPROP(NPLAX,NDIM,NMAT,NOIB,INCS,INCF,INCT,ICOR,PR,NTY)C*CREADCONTROLOPTIONSANDMATERIALPROPERTIESC*C1CALLEDBYINITIALIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'CHARACTER*80HEADER6DIMENSIONPR(NPR,NMT),NTY(NMT)COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/OUT/IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFCOMMON/MATPROP/C,XC-CICOR-OPTIONTOAPPLYOUT-OF-BALANCELOADSASCORRECTINGCLOADSINTHENEXTINCREMENTCICOR=0-CORRECTINGLOADSARENOTAPPLIEDCICOR=1-CORRECTINGLOADSAREAPPLIEDC-ICOR=0CREAD(LINP,101)HEADER6READ(LINP,*)NMAT,NOIB,INCS,INCFWRITE(LOUT1,922)NMAT,NOIB,INCS,INCFNOINC=INCF-INCS+1IF(NOINC.
GT.
0)GOTO5WRITE(LOUT1,925)NOINC,INCS,INCFSTOPC5CONTINUEC-CINCT-COUNTEROFINCREMENTNUMBERC-INCT=INCS-1IF(NDIM.
NE.
3)GOTO8WRITE(LOUT1,928)GOTO108IF(NPLAX.
EQ.
0)WRITE(LOUT1,930)IF(NPLAX.
EQ.
1)WRITE(LOUT1,931)10CONTINUEC-----READOUTPUTREDUCINGOPTIONS.
THISOPERATESONREREAD(LINP,101)HEADER7READ(LINP,*)IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFWRITE(LOUT1,945)IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFC-----READMATERIALPROPERTIES238Appendix:FortranCodesofCS-SCALLZEROR2(PR,NPR,NMT)WRITE(LOUT1,932)READ(LINP,101)HEADER8DO20I=1,NMATREAD(LINP,*)II,NTY(II),(PR(JJ,II),JJ=1,NPR)WRITE(LOUT1,936)II,NTY(II),(PR(JJ,II),JJ=1,NPR)20CONTINUEREAD(LINP,101)HEADER81!
backstressparameterREAD(LINP,*)pr(6,2),pr(7,2)!
C,Xread(LINP,101)HEADER82!
VISCOSITYHEADERread(linp,*)pr(1,2),pr(2,2)!
VISCOSITYDATAread(linp,101)header83!
Damageheaderread(linp,*)pr(3,2),pr(4,2)!
A1&A2read(linp,101)header84!
GradientHeaderread(linp,*)pr(5,2)!
gradconcwrite(*,*)pr(5,2)RETURN101FORMAT(A80)922FORMAT(/110X,46HNUMBEROFMATERIALS.
I5/210X,46HNUMBEROFINCREMENTBLOCKS.
I5/310X,46HSTARTINGINCRNUMBEROFANALYSIS.
I5/410X,46HFINISHINGINCRNUMBEROFANALYSIS.
I5/5/120(1H*)/)C610X,46HNUMBEROFPRIMARYELEMENTCHANGES.
I5/C710X,46HOPTIONTOUPDATECOORDINATES.
I5/C810X,46HOPTIONTOSTOP/RESTARTANALYSIS.
I5/C9/120(1H*)/)925FORMAT(/1X,29HERRORINNO.
OFINCREMENTS=,I5,14X,7HINCS=,I5,4X,7HINCF=,I5,2X,16H(ROUTINERDPROP))928FORMAT(//1X,22H3-DIMENSIONALANALYSIS)930FORMAT(//1X,21HPLANESTRAINANALYSIS)931FORMAT(//1X,22HAXI-SYMMETRICANALYSIS)932FORMAT(//24HMATERIALPROPERTYTABLE1/1X,23(1H-)2//2X,8HMATTYPE,7X,1H1,11X,1H2,11X,1H3,11X,1H4,11X,1H5,311X,1H6,11X,1H7,11X,1H8,11X,1H9,11X,2H10/)936FORMAT(1X,2I5,(10E12.
4/))945FORMAT(//120(1H*)/110X,46HOPTIONTOPRINTBOUNDARYCONDITIONS.
I5/210X,46HOPTIONTOPRINTREACTIONS.
I5/310X,46HSTARTINGVERTEXNODENUMBERFOROUTPUT.
I5/410X,46HFINISHINGVERTEXNODENUMBERFOROUTPUT.
.
.
.
.
.
=,I5/510X,46HSTARTINGMIDSIDENODENUMBERFOROUTPUT.
.
.
.
.
.
=,I5/610X,46HFINISHINGMIDSIDENODENUMBERFOROUTPUT.
.
.
.
.
=,I5/710X,46HSTARTINGELEMENTNUMBERFOROUTPUT.
I5/Appendix:FortranCodesofCS-S239810X,46HFINISHINGELEMENTNUMBERFOROUTPUT.
I5/9/120(1H*)/)ENDSUBROUTINELODLST(LOUT1,NDIM,LNE,ND1,ND2,PRES,NPT,ILST,MXLD)C*CROUTINETOSTORECUMULATIVELISTOFAPPLIEDCPRESSURELOADINGALONGELEMENTEDGESC*C1CalledbyEDGLDIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONPRES(3,LV)COMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLEDC-----SKIPIFNEWLISTIF(NLED.
EQ.
0.
OR.
ILST.
EQ.
1)GOTO22C-----SEARCHFORLNEINEXISTINGLISTDO20J=1,NLEDIF(LNE.
NE.
LEDG(J))GOTO20N1=NDE1(J)N2=NDE2(J)IF(N1.
EQ.
ND1.
AND.
N2.
EQ.
ND2)GOTO2520CONTINUEC-----ADDNEWEDGETOTHELIST22NLED=NLED+1IF(NLED.
LE.
MXLD)GOTO23WRITE(LOUT1,900)900FORMAT(/27HINCREASESIZEOFARRAYSIN,151HCOMMONBLOCKPRSLDALSOSETMXLDINROUTINEMAXVAL/225X,16H(ROUTINELODLST))STOP23JE=NLEDGOTO30C-----UPDATEEXISTINGLIST25JE=JGOTO35C30LEDG(JE)=LNENDE1(JE)=ND1NDE2(JE)=ND2C35IC=0240Appendix:FortranCodesofCS-SDO40IPT=1,NPTDO40IK=1,NDIMIC=IC+140PRESLD(IC,JE)=PRESLD(IC,JE)+PRES(IK,IPT)RETURNENDSUBROUTINEZEROR1(A,LA)C*CROUTINETOINITIALISEA1-DIMENSIONALREALARRAYC*C1CALLEDBYINMODSTC2CALLEDBYTOTSOLIMPLICITREAL*8(A-H,O-Z)DIMENSIONA(LA)CDO10I=1,LA10A(I)=0.
0D0RETURNENDSUBROUTINEZEROR3(V,L1,L2,L3)C*CROUTINETOINITIALISEA3-DIMENSIONALREALARRAYC*C1CALLEDBYINMODSTC2CALLEDBYTOTSOLIMPLICITREAL*8(A-H,O-Z)DIMENSIONV(L1,L2,L3)CDO10I=1,L1DO10J=1,L2DO10K=1,L310V(I,J,K)=0.
0D0RETURNENDSUBROUTINEDETJCB(LOUT1,NDIM,DJACB,NDN,ELCOD,DS,IP,MUS,KSTGE)C*CCALCULATESDETERMINANTOFJACOBIANMATRIX*C*C1CALLEDBYSELFIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/PARS/PYI,ASMVL,ZEROAppendix:FortranCodesofCS-S241DIMENSIONELCOD(3,NDMX),DS(3,20),XJAC(3,3)C-----NXJ-SIZEOFARRAYXJACCNXJ=3CALLZEROR2(XJAC,3,3)CDO10ID=1,NDIMDO10JD=1,NDIMDO10IN=1,NDN10XJAC(ID,JD)=XJAC(ID,JD)+DS(ID,IN)*ELCOD(JD,IN)CIF(NDIM.
NE.
2)GOTO20DJACB=XJAC(1,1)*XJAC(2,2)-XJAC(1,2)*XJAC(2,1)GOTO50C20DJACB=XJAC(1,1)*(XJAC(2,2)*XJAC(3,3)-XJAC(2,3)*XJAC(3,2))DJACB=DJACB-XJAC(1,2)*(XJAC(2,1)*XJAC(3,3)-XJAC(2,3)*XJAC(3,1))DJACB=DJACB+XJAC(1,3)*(XJAC(2,1)*XJAC(3,2)-XJAC(2,2)*XJAC(3,1))C50IF(DJACB.
GT.
ZERO)GOTO60WRITE(LOUT1,900)DJACB,MUS,IP900FORMAT(1X,10HJACOBIAN,E16.
5,3X,11HISNEGATIVE,2X,17HELEMENT,I5,2X,10HINT.
POINT,I5,2X,16H(ROUTINEDETJCB))CWRITE(LOUT1,910)KSTGE910FORMAT(/1X,'CODETOINDICATESTAGEOFANALYSIS=',I5//14X,'CODE',20X,'STAGEOFTHEANALYSIS',//16X,'1-CALLEDBYINSITU/EQLOD/SELFCALCULATIONOF',21X,'INSITUSELFWEIGHTLOADS',/6X,'2-CALLEDBY',31X,'TOTSOL/CHANGE/SELFLOADSDUETOELEMENTCHANGES',/46X,'3-CALLEDBYTOTSOL/SEL1/SELFINCREMENTALSELF',51X,'WEIGHTLOADS/6X,25H4-CALLEDBYUPOUT/EQLOD',6'/SELFSELFWEIGHTLOADSFOREQUILIBRIUMCHECK')STOP60RETURNENDSUBROUTINEDETMIN(LOUT1,NDIM,XJACM,XJACI,DJACB,JL,IP,ISTGE)C*CCALCULATESDETERMINANTANDINVERSEOFASQUARE3X3MATRIXC*C1CalledbyFORMB2C2CalledbyELMSTIFC3CalledbyEQUIBLODC4CalledbyDMCAMC5CalledbyUPOUTIMPLICITREAL*8(A-H,O-Z)242Appendix:FortranCodesofCS-SINCLUDE'PARM.
FOR'COMMON/PARS/PYI,ASMVL,ZERODIMENSIONXJACM(3,3),XJACI(3,3)CIF(NDIM.
EQ.
3)GOTO20DJACB=XJACM(1,1)*XJACM(2,2)-XJACM(1,2)*XJACM(2,1)IF(DJACB.
GT.
ZERO)GOTO15GOTO60C15XJACI(1,1)=XJACM(2,2)/DJACBXJACI(2,2)=XJACM(1,1)/DJACBXJACI(1,2)=-XJACM(1,2)/DJACBXJACI(2,1)=-XJACM(2,1)/DJACBRETURNC20XJACI(1,1)=(XJACM(2,2)*XJACM(3,3)-XJACM(2,3)*XJACM(3,2))XJACI(1,2)=-(XJACM(1,2)*XJACM(3,3)-XJACM(1,3)*XJACM(3,2))XJACI(1,3)=(XJACM(1,2)*XJACM(2,3)-XJACM(1,3)*XJACM(2,2))CXJACI(2,1)=-(XJACM(2,1)*XJACM(3,3)-XJACM(2,3)*XJACM(3,1))XJACI(2,2)=(XJACM(1,1)*XJACM(3,3)-XJACM(1,3)*XJACM(3,1))XJACI(2,3)=-(XJACM(1,1)*XJACM(2,3)-XJACM(1,3)*XJACM(2,1))CXJACI(3,1)=(XJACM(2,1)*XJACM(3,2)-XJACM(2,2)*XJACM(3,1))XJACI(3,2)=-(XJACM(1,1)*XJACM(3,2)-XJACM(1,2)*XJACM(3,1))XJACI(3,3)=(XJACM(1,1)*XJACM(2,2)-XJACM(2,1)*XJACM(1,2))CDJACB=XJACM(1,1)*XJACI(1,1)+XJACM(1,2)*XJACI(2,1)+1XJACM(1,3)*XJACI(3,1)IF(DJACB.
GT.
ZERO)GOTO32GOTO60C32DJACBI=1.
0D0/DJACBCDO35ID=1,NDIMDO35JD=1,NDIM35XJACI(ID,JD)=XJACI(ID,JD)*DJACBIRETURN60WRITE(LOUT1,900)DJACB,JL,IP900FORMAT(/1X,9HJACOBIAN,E16.
5,3X,10HOFELEMENT,I6,3X,117HINTEGRATIONPOINT,I5,3X,29HISNEGATIVE(ROUTINEDETMIN))WRITE(LOUT1,910)ISTGE910FORMAT(/1X,36HCODETOINDICATESTAGEOFANALYSIS=,I5//14X,4HCODE,20X,21HSTAGEOFTHEANALYSIS//26X,49H1-CALLEDBYRDSTRS/EQLIB/FORMB2LOADEQUIVALENT,319HTOINSITUSTRESSES/6X,33H2-CALLEDBYCHANGE/EQLIB/FORMB2,Appendix:FortranCodesofCS-S243432HCALCULATIONOFIMPLIEDLOADINGS/6X,535H3-CALLEDBYSKSOLV/ELMSTIF/FORMB2,632HCALCULATIONOFSTIFFNESSMATRIX/76X,38H4-CALLEDBYUPOUT/FORMB2CALCULATION,81X,24HOFSTRAINS.
OUTPUTSTAGE)STOPENDSUBROUTINEDETMIN1(LOUT1,NDIM,XJACM,XJACI,DJACB,JL,IP,ISTGE)C*CCALCULATESDETERMINANTANDINVERSEOFASQUARE3X3MATRIXC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/PARS/PYI,ASMVL,ZERODIMENSIONXJACM(3,3),XJACI(3,3)20XJACI(1,1)=(XJACM(2,2)*XJACM(3,3)-XJACM(2,3)*XJACM(3,2))XJACI(1,2)=-(XJACM(1,2)*XJACM(3,3)-XJACM(1,3)*XJACM(3,2))XJACI(1,3)=(XJACM(1,2)*XJACM(2,3)-XJACM(1,3)*XJACM(2,2))CXJACI(2,1)=-(XJACM(2,1)*XJACM(3,3)-XJACM(2,3)*XJACM(3,1))XJACI(2,2)=(XJACM(1,1)*XJACM(3,3)-XJACM(1,3)*XJACM(3,1))XJACI(2,3)=-(XJACM(1,1)*XJACM(2,3)-XJACM(1,3)*XJACM(2,1))CXJACI(3,1)=(XJACM(2,1)*XJACM(3,2)-XJACM(2,2)*XJACM(3,1))XJACI(3,2)=-(XJACM(1,1)*XJACM(3,2)-XJACM(1,2)*XJACM(3,1))XJACI(3,3)=(XJACM(1,1)*XJACM(2,2)-XJACM(2,1)*XJACM(1,2))CDJACB=XJACM(1,1)*XJACI(1,1)+XJACM(2,1)*XJACI(1,2)+1XJACM(3,1)*XJACI(1,3)C32DJACBI=1.
0D0/DJACBCDO35ID=1,NDIMDO35JD=1,NDIM35XJACI(ID,JD)=XJACI(ID,JD)*DJACBIRETURNENDSUBROUTINEDISTLD(LOUT1,XYZ,RHS,NCONN,LTYP,1NW,NP1,NP2,PRES,LNE,ND1,ND2,IPRINT,IST,FC)C*CROUTINETOCALCULATEEQUIVALENTNODALLOADSFORSPECIFIED*244Appendix:FortranCodesofCS-SCPRESSURELOADINGALONGELEMENTEDGESUSING5POINT(NSP)*CINTEGRATIONRULE.
INTEGRATESPOLYNOMIALOFORDERNINEORLESS*CEXACTLY.
ARRAYSILOC,PRES,PEQLD,ELCD,SHF,DERIVARE*CTOCATERFORAMAXIMUMOFFIVENODES(NPT)ALONGANELEMENTEDGE*C(ALL2-DELEMENTSUPTOORDERFIVE).
*C*C1CalledbyEQLODIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/ELINF/LINFO(50,15)COMMON/SAMP/POSSP(5),WEIGP(5)COMMON/LOADS/FB(2,15)DIMENSIONNCONN(NTPE,MEL),LTYP(MEL),1NW(MNODES+1),NP1(NPL),NP2(NPL)DIMENSIONRHS(MDOF),XYZ(3,MNODES),PRES(3,LV)DIMENSIONILOC(5),PSP(2),DSP(2),PEQLD(3,5),ELCD(2,5)DIMENSIONSHF(5),DERIV(5),PCOM(3)NP=5TPI=2.
0D0*PYICNE=MREL(LNE)NE=LNELI1=ND1CLI1=NREL(ND1)LT=LTYP(NE)IF(IST.
EQ.
1)GOTO5LT=IABS(LT)5IF(LT.
GT.
0)GOTO10WRITE(LOUT1,900)LNE900FORMAT(/1X,44H****ERROR:YOUHAVEPUTAPRESSURELOADON,18HELEMENT,I5,2X,28HWHICHISNOTPRESENTINMESH,217H(ROUTINEDISTLD)/)RETURN10NVN=LINFO(2,LT)NEDG=LINFO(3,LT)NDSD=LINFO(7,LT)NTSD=NDSD+2INDED=LINFO(14,LT)CDO20K1=1,NEDGJ1=NP1(K1+INDED)J2=NP2(K1+INDED)I1=NCONN(J1,NE)Appendix:FortranCodesofCS-S245IF(LI1.
EQ.
I1)GOTO2520CONTINUEWRITE(LOUT1,903)LNE,ND1,ND2903FORMAT(/21H****ERROR:ELEMENT,I5,12X,22HDOESNOTHAVENODES:,2I5,23X,16H(ROUTINEDISTLD))RETURNC-----STORELOCATIONSOFNODE(INNCONN)INARRAYILOC25LC1=NVN+(J1-1)*NDSDILOC(1)=J1ILOC(NTSD)=J2IF(NDSD.
EQ.
0)GOTO31CDO30JP=1,NDSD30ILOC(JP+1)=LC1+JPC-----SETUPLOCALARRAYFORCO-ORDINATESINELCD31DO32KC=1,NTSDILC=ILOC(KC)NDE=NCONN(ILC,NE)CDO32ID=1,NDIM32ELCD(ID,KC)=XYZ(ID,NDE)CINITIALISEPEQLDCALLZEROR2(PEQLD,3,5)C-----LOOPFORNUMERICALINTEGRATIONDO60ISP=1,NSPXI=POSSP(ISP)C-----EVALUATESHAPEFUNCTIONFORSAMPLINGPOINTCALLSFR1(LOUT1,XI,SHF,DERIV,NTSD,LNE,LT)C-----CALCULATECOMPONENTSOFTHEEQUIVALENTNODALLOADS-PEQLDDO40IDOF=1,NDIMPSP(IDOF)=ZERODSP(IDOF)=ZEROCDO40IEDG=1,NTSDPSP(IDOF)=PSP(IDOF)+PRES(IDOF,IEDG)*SHF(IEDG)40DSP(IDOF)=DSP(IDOF)+ELCD(IDOF,IEDG)*DERIV(IEDG)CDV=WEIGP(ISP)IF(NPLAX.
EQ.
0)GOTO48RAD=0.
0D0C246Appendix:FortranCodesofCS-SDO45IEDG=1,NTSD45RAD=RAD+ELCD(1,IEDG)*SHF(IEDG)DV=DV*TPI*RAD48PCOM(1)=DSP(1)*PSP(2)-DSP(2)*PSP(1)PCOM(2)=DSP(1)*PSP(1)+DSP(2)*PSP(2)CDO50IEDG=1,NTSDDO50ID=1,NDIM50PEQLD(ID,IEDG)=PEQLD(ID,IEDG)+PCOM(ID)*SHF(IEDG)*DVC60CONTINUEIF(IPRINT.
EQ.
1)WRITE(LOUT1,905)LNE,ND1,ND2,1((PEQLD(ID,IP),ID=1,2),IP=1,NTSD)905FORMAT(1X,3I4,10E12.
4/)C-----SLOTLOADSINTOARRAYRHSDO80IJ=1,NTSDJL=ILOC(IJ)IF(JL.
GT.
15)WRITE(LOUT1,*)'WARNING.
.
JL>15(S.
DISTLD)'NDE=NCONN(JL,NE)N1=NW(NDE)-1CDO80ID=1,NDIMFB(ID,JL)=FB(ID,JL)+PEQLD(ID,IJ)80RHS(N1+ID)=RHS(N1+ID)+PEQLD(ID,IJ)*FCRETURNENDSUBROUTINEEDGLD(LOUT1,NDIM,NCONN,LTYP,1LNE,ND1,ND2,NP1,NP2,PDISLD,PRES,KLOD,NPT,KINS,MXLD)C*CROUTINETOALIGNNODESALONGLOADEDEDGEINTHEANTI-CLOCKWISE*CORDERANDTOSTORETHEINFORMATION*CTHEPRESSURESATTHEBEGINNINGOFANINCREMENTBLOCKARESTORED*CINATEMPORARYARRAYCOMMONBLOCKPRLDI*CTHERATIOSOFTHESELOADINGAREADDEDTOTHECUMULATIVELIST*C(COMMONBLOCKPRSLD)*COFPRESSURELOADSATTHEBEGINNINGOFEACHINCREMENT*C*CCalledbyINSITUIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/ELINF/LINFO(50,15)COMMON/PRLDI/PRSLDI(10,100),LEDI(100),NDI1(100),NDI2(100),ILODDIMENSIONNCONN(NTPE,MEL),LTYP(MEL),NP1(NPL),NP2(NPL)DIMENSIONPDISLD(3,LV),PRES(3,LV)CAppendix:FortranCodesofCS-S247CALLZEROR2(PRES,3,LV)NE=LNELI1=ND1LI2=ND2LT=LTYP(NE)IF(LT.
GT.
0)GOTO15WRITE(LOUT1,901)NE901FORMAT(1X,7HELEMENT,I6,2X,27HNOTPRESENTINCURRENTMESH,11X,16H(ROUTINEEDGLD))RETURN15NEDG=LINFO(3,LT)NDSD=LINFO(7,LT)NTSD=NDSD+2INDED=LINFO(14,LT)CDO20K1=1,NEDGJ1=NP1(K1+INDED)J2=NP2(K1+INDED)I1=NCONN(J1,NE)I2=NCONN(J2,NE)IF(LI1.
EQ.
I1.
AND.
LI2.
EQ.
I2)GOTO25IF(LI1.
EQ.
I2.
AND.
LI2.
EQ.
I1)GOTO2120CONTINUEWRITE(LOUT1,903)KLOD,LNE,ND1,ND2903FORMAT(/13H****ERROR:,I5,17HTHLOAD.
ELEMENT,I5,12X,25HDOESNOTCONTAINNODES:,2I5,22X,15H(ROUTINEEDGLD))STOPC-----ALIGNNODESINSEQUENCE21LIT=LI1LI1=LI2LI2=LITNT=ND1ND1=ND2ND2=NTC-----PRES-CONTAINSTHEPRESSURECOMPONENTSALIGNEDINSEQUENCEDO24J=1,NTSDJBACK=NTSD+1-JDO24I=1,224PRES(I,J)=PDISLD(I,JBACK)GOTO3525DO30J=1,NTSDDO30I=1,230PRES(I,J)=PDISLD(I,J)C-----UPDATEORREADINANEWLIST248Appendix:FortranCodesofCS-S35IF(KINS.
EQ.
0)GOTO40C-----PRESSURELOADSINEQUILIBRIUMWITHIN-SITUSTRESSESCNEWLIST-READDIRECTLYINTOCOMMONPRSLDC-----CallLODLST!
StorecumulativelistofappliedpressureCloadingalongelementedges.
CALLLODLST(LOUT1,NDIM,LNE,ND1,ND2,PRES,NPT,1,MXLD)GOTO55C-----PRESSURELOADSFORNEWINCREMENTBLOCKREADINTOCOMMONPRSLDI40ILOD=KLODLEDI(ILOD)=LNENDI1(ILOD)=ND1NDI2(ILOD)=ND2IC=0DO50IV=1,NTSDDO50IJ=1,2IC=IC+150PRSLDI(IC,ILOD)=PRES(IJ,IV)55CONTINUERETURNENDSUBROUTINEEQLBM(LOUT2,NDIM,IEQL,NN,NDF,NW,NQ,IDFX,P,PT,PCOR,1PEQT,IEQOP,ICOR,IRAC,IOUTP)C*CCARRIESOUTANEQUILIBRIUMCHECKCCALCULATEANDPRINTOUTUNBALANCEDNODALLOADSC*C1CALLEDBYEQLODIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/PARS/PYI,ASMVL,ZERODIMENSIONNW(MNODES+1),NQ(MNODES),IDFX(MDOF)DIMENSIONP(MDOF),PT(MDOF),PCOR(MDOF),PEQT(MDOF)DIMENSIONPAR(6),RMAX(6),TER(3)C-----MP-ARRAYSIZEOFPAR,RMAXMP=6NDIM1=NDIM+1NDIM2=2*NDIMIF(IRAC.
EQ.
1)CALLREACT(LOUT2,NDIM,NN,NW,NQ,IDFX,PEQT,PT,IOUTP)C---AbovesubroutinecalculatethereactionattherestrainedAppendix:FortranCodesofCS-S249points.
C-----INCLUDEALLPORE-PRESSURETERMSINTHELISTOFFIXEDD.
O.
F.
CALLEXCESSPOREPRESSURED.
O.
F.
ARECONSIDEREDTOBEFIXEDDO2NI=1,NNNQL=NQ(NI)IF(NQL.
NE.
1.
AND.
NQL.
NE.
NDIM1)GOTO2ILC=NW(NI)+NQL-1IDFX(ILC)=12CONTINUEC-----CALCULATEOUT-OF-BALANCELOADSFORALLFREED.
O.
F.
DO5IK=1,NDFIF(IDFX(IK).
EQ.
1)GOTO3PCOR(IK)=PT(IK)-PEQT(IK)GOTO53PCOR(IK)=ZERO5CONTINUEIF(IEQL.
NE.
1.
OR.
IOUTP.
NE.
1)RETURNC-----OUTPUTEQUILIBRIUM,OUT-OF-BALANCEANDAPPLIEDNODALLOADSIF(IEQOP.
EQ.
0)GOTO25IF(NDIM.
EQ.
3)GOTO22WRITE(LOUT2,900)WRITE(LOUT2,904)GOTO2322WRITE(LOUT2,930)WRITE(LOUT2,934)23CONTINUEDO20JR=1,NNJ=JRNQL=NQ(J)IF(NQL.
LE.
1)GOTO20cIF(IEQOP.
EQ.
1.
AND.
JR.
GT.
NDZ)GOTO20N1=NW(J)N2=N1+NDIM-1IF(NDIM.
EQ.
2)WRITE(LOUT2,901)JR,(P(JJ),JJ=N1,N2),1(PT(JJ),JJ=N1,N2),(PEQT(JJ),JJ=N1,N2),(PCOR(JJ),JJ=N1,N2)IF(NDIM.
EQ.
3)WRITE(LOUT2,931)JR,(P(JJ),JJ=N1,N2),1(PT(JJ),JJ=N1,N2),(PEQT(JJ),JJ=N1,N2),(PCOR(JJ),JJ=N1,N2)20CONTINUE25CALLZEROR1(RMAX,6)C-----CALCULATEMAXIMUMOFAPPLIEDANDOUT-OF-BALANCEC-----LOADSINALLDIRECTIONSDO50IK=1,NNNQL=NQ(IK)IF(NQL.
LE.
1)GOTO50250Appendix:FortranCodesofCS-SN1=NW(IK)N2=N1+NDIM-1IC=0CDO35KN=N1,N2IC=IC+1PAR(IC)=PT(KN)35PAR(IC+NDIM)=PCOR(KN)CDO40IC=1,NDIM2RV=PAR(IC)IF(ABS(RV).
LT.
ASMVL)GOTO40IF(ABS(RV).
GT.
RMAX(IC))RMAX(IC)=ABS(RV)40CONTINUE50CONTINUEC-----OUTPUTMAXIMUMOF(1)APPLIEDLOADS(2)OUT-OF-BALANCELOADSC-----INALLDIRECTIONSWRITE(LOUT2,902)CIWARN=0PMAXT=RMAX(1)DO55ID=2,NDIM55IF(RMAX(ID).
GT.
PMAXT)PMAXT=RMAX(ID)IF(PMAXT.
LT.
ASMVL)GOTO132DO130ID=1,NDIM130TER(ID)=100.
0D0*RMAX(ID+NDIM)/PMAXTGOTO125132IWARN=1DO135ID=1,NDIM135TER(ID)=ZEROC125IF(NDIM.
EQ.
3)GOTO122WRITE(LOUT2,903)WRITE(LOUT2,905)WRITE(LOUT2,907)(RMAX(JQ),JQ=1,NDIM2),(TER(ID),ID=1,NDIM)GOTO123122WRITE(LOUT2,933)WRITE(LOUT2,935)WRITE(LOUT2,937)(RMAX(JQ),JQ=1,NDIM2),(TER(ID),ID=1,NDIM)123CONTINUEIF(IWARN.
EQ.
1)WRITE(LOUT2,910)C-----ZEROPCORIFNOCORRECTINGLOADSARETOBEAPPLIEDINNEXTINCRIF(ICOR.
NE.
0)RETURNCAppendix:FortranCodesofCS-S251DO140IK=1,NDF140PCOR(IK)=ZERORETURN900FORMAT(//59X,19HLOADSEQUIVALENTTO/9X,124HINCREMENTALAPPLIEDLOAD,3X,18HTOTALAPPLIEDLOAD,16X,16HELEMENTSTRESSES,7X,19HOUT-OF-BALANCELOAD/29X,24(1H-),3X,18(1H-),6X,16(1H-),7X,19(1H-))901FORMAT(1X,I5,2X,8E12.
4)902FORMAT(//1X,17HEQUILIBRIUMCHECK/1X,17(1H-))903FORMAT(/3X,20HMAXIMUMAPPLIEDLOAD,2X,124HMAXMOUT-OF-BALANCELOAD,3X,231HPERCENTAGEERRORINEQUILIBRIUM/33X,20(1H-),2X,24(1H-),3X,31(1H-)/)904FORMAT(/1X,5HNODE,8X,1HX,12X,1HY,11X,1HX,11X,1HY,11X,1HX,111X,1HY,11X,1HX,11X,1HY//)905FORMAT(8X,1HX,11X,1HY,11X,1HX,10X,1HY,15X,1HX,15X,1HY/)907FORMAT(1X,4E12.
4,4X,F10.
4,5X,F10.
4)910FORMAT(/40HWARNING****NOAPPLIEDLOADING-CHECK,11X,49HWHETHERALLBOUNDARYCONDITIONSAREDISPLACEMENTS,22X,15H(ROUTINEEQLBM))930FORMAT(/15X,24HINCREMENTALAPPLIEDLOAD,5X,138HLOADSEQUIVALENTTOTOTALAPPLIEDLOAD,18X,16HELEMENTSTRESSES,20X,19HOUT-OF-BALANCELOAD/215X,24(1H-),5X,38(1H-),8X,16(1H-),20X,19(1H-))931FORMAT(1X,I5,2X,12E12.
4)933FORMAT(/10X,20HMAXIMUMAPPLIEDLOAD,13X,124HMAXMOUT-OF-BALANCELOAD,11X,231HPERCENTAGEERRORINEQUILIBRIUM/310X,20(1H-),13X,24(1H-),11X,31(1H-)/)934FORMAT(/2X,5HNODE,8X,1HX,11X,1HY,11X,1HZ,11X,1HX,11X,1HY,11X,1HZ,111X,1HX,11X,1HY,11X,1HZ,11X,1HX,11X,1HY,11X,1HZ//)935FORMAT(8X,1HX,11X,1HY,11X,1HZ,11X,1HX,11X,1HY,11X,1HZ,113X,1HX,11X,1HY,11X,1HZ/)937FORMAT(1X,6E12.
4,3F12.
4)ENDSUBROUTINEEQLIB(JJ,LT,NGP,INDX,NDN,NAC,XYZ,STRESS,F,NCONN,ISTGE)C*CROUTINETOCALCULATEFORCESEQUILIBRATINGCELEMENTALSTRESSESC*C1CALLEDBYRDSTRSIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/PARS/PYI,ASMVL,ZERO252Appendix:FortranCodesofCS-SCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/DATW/W(100)COMMON/DATL/SL(4,100)COMMON/JACB/XJACI(3,3),DJACBDIMENSIONXYZ(3,MNODES),STRESS(NVRS,NIP,MEL),ELCOD(3,NDMX),1DS(3,20),SHFN(20),CARTD(3,NDMX),B(6,NB),2F(3,NDMX),SLL(4),NCONN(NTPE,MEL)CR=1.
0D0IF(NPLAX.
EQ.
1)CR=2.
0D0*PYICALLZEROR2(F,3,NDMX)!
InitializingDO20KN=1,NDNNDE=NCONN(KN,JJ)DO20ID=1,NDIM20ELCOD(ID,KN)=XYZ(ID,NDE)DO60IP=1,NGPIPA=IP+INDXCDO30IL=1,NAC30SLL(IL)=SL(IL,IPA)C-----CallFORMB2-FormsBmatrixCALLFORMB2(JJ,R,RI,NDN,NAC,ELCOD,DS,SHFN,CARTD,B,SLL,LT,IP,ISTGE)F9=CR*DJACB*W(IPA)IF(NPLAX.
EQ.
1)F9=F9*RCU=STRESS(NS+1,IP,JJ)SIGXT=STRESS(1,IP,JJ)+USIGYT=STRESS(2,IP,JJ)+USIGZT=STRESS(3,IP,JJ)+UTXY=STRESS(4,IP,JJ)IF(NDIM.
EQ.
2)GOTO35CTYZ=STRESS(5,IP,JJ)TZX=STRESS(6,IP,JJ)CDO50IN=1,NDNF(1,IN)=F(1,IN)+(CARTD(1,IN)*SIGXT+CARTD(2,IN)*TXY1+CARTD(3,IN)*TZX)*F9F(2,IN)=F(2,IN)+(CARTD(2,IN)*SIGYT+CARTD(1,IN)*TXY1+CARTD(3,IN)*TYZ)*F9F(3,IN)=F(3,IN)+(CARTD(3,IN)*SIGZT+CARTD(2,IN)*TYZAppendix:FortranCodesofCS-S2531+CARTD(1,IN)*TZX)*F950CONTINUEGOTO60C35DO40IN=1,NDNF(1,IN)=F(1,IN)+(CARTD(1,IN)*SIGXT+SHFN(IN)*SIGZT*RI1+CARTD(2,IN)*TXY)*F940F(2,IN)=F(2,IN)+(CARTD(2,IN)*SIGYT+CARTD(1,IN)*TXY)*F960CONTINUERETURNENDSUBROUTINEEQLOD(NCONN,MAT,LTYP,NW,NQ,IDFX,NP1,NP2,XYZ,P,PT,1PCOR,PEQT,XYFT,PCONI,PR,IEQOP,ICOR,TGRAV,IRAC,KSTGE,IEQL,IOUTP)C-CROUTINETOCALCULATEEQUIVALENTNODALLOADSFORCAPPLIEDLOADINGTOCARRYOUTANEQUILIBRIUMCHECKC*C1CalledbyINSITUIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL),1NW(MNODES+1),NQ(MNODES),IDFX(MDOF),NP1(NPL),NP2(NPL)DIMENSIONXYZ(3,MNODES),P(MDOF),PT(MDOF),PCOR(MDOF),PEQT(MDOF),1XYFT(MDOF),PCONI(MDOF),F(3,NDMX),PR(NPR,NMT),PRES(3,LV)COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLEDCOMMON/PTLOAD/PT1(MDOF),INDPTCOMMON/ELINF/LINFO(50,15)COMMON/PARS/PYI,ASMVL,ZEROCCALLZEROR1(PT,MDOF)C-----(1)PRESSURELOADINGALONGELEMENTEDGEIF(NLED.
EQ.
0.
AND.
TGRAV.
LT.
ASMVL)GOTO62IF(NLED.
EQ.
0.
OR.
INDPT.
NE.
0)GOTO32CDO30KE=1,NLEDLNE=LEDG(KE)NE=LNELT=LTYP(NE)254Appendix:FortranCodesofCS-SIF(LT.
GT.
0)GOTO10IF(KSTGE.
EQ.
4)GOTO30WRITE(LOUT1,900)LNE900FORMAT(/1X,45H***ERROR:INSITUPRESSURELOADAPPLIEDTO,1X,17HELEMENT,I5,2X,28HWHICHISNOTPRESENTINMESH,1X,215H(ROUTINEEQLOD)/)GOTO3010ND1=NDE1(KE)ND2=NDE2(KE)C***N2D=2FORTWODIMENSIONALPROBLEMSN2D=2ICT=0DO20IV=1,NPTDO20ID=1,N2DICT=ICT+120PRES(ID,IV)=PRESLD(ICT,KE)CC-----CallDISTLDCALLDISTLD(LOUT1,XYZ,PT1,NCONN,LTYP,NW,NP1,1NP2,PRES,LNE,ND1,ND2,0,1,1.
0D0)30CONTINUEINDPT=132DOIDF=1,NDFPT(IDF)=PT1(IDF)ENDDOC-----(2)SELFWEIGHTLOADINGIF(TGRAV.
LT.
ASMVL)GOTO62DO60KL=1,NELLT=LTYP(KL)IF(LT.
LT.
0)GOTO60JK=KLNDN=LINFO(5,LT)INDX=LINFO(12,LT)NAC=LINFO(15,LT)KM=MAT(KL)C-----FINDIFELEMENTHASBEENADDEDINTHISINCREMENTBLOCKC-----THENUSELOADRATIOFRACTONGRAVITYLOADINGCDO40IM=1,NELCMUS=JEL(IM)CIF(MUS.
EQ.
0)GOTO42CMPR=MREL(MUS)CIF(KL.
EQ.
MPR)GOTO44C40CONTINUEFA=1.
0D0Appendix:FortranCodesofCS-S255GOTO45C44FA=FRACT45DENS=PR(8,KM)*TGRAV*FACC-----CallSelfCALLSELF(LOUT1,KL,NDN,NAC,XYZ,F,NCONN,MAT,LT,INDX,DENS,JK,KSTGE)CDO55KK=1,NDNNCOR=NCONN(KK,KL)KKK=NW(NCOR)-1CDO55ID=1,NDIM55PT(KKK+ID)=PT(KKK+ID)+F(ID,KK)60CONTINUE62CONTINUEC-----ADDCONTRIBUTIONSFROMPOINTLOADSDO70J=1,NDF70PT(J)=PT(J)+XYFT(J)+PCONI(J)C-----CONVERTPTTOCOUNTFORSKEWBOUNDARIESIF(NSKEW.
GT.
0)CALLROTBC(PT,NW,NDIM,NSKEW,1)!
Nskew=8formeC---Thissubroutineturnbackthecal.
displ.
tooriginalcoord.
systemC---forskewboundarynodes.
C-----FINDDOFWHICHARERESTRAINEDCALLRESTRN(NDIM,NW,IDFX)C-----EQUILIBRIUMCHECKCALLEQLBM(LOUT2,NDIM,IEQL,NN,NDF,NW,NQ,IDFX,1P,PT,PCOR,PEQT,IEQOP,ICOR,IRAC,IOUTP)RETURNENDC*SUBROUTINEFIXX2(LINP,LOUT1,NDIM,NCONN,LTYP,NP1,NP2,NFX,NFXNOD)C-CROUTINETOMAINTAINALISTOFNODALFIXITIES.
INTERPRETSCFIXITIESALONGELEMENTEDGESINTONODALFIXITIESC-C1CalledbyINSITUC2CalledbyTOTSOL256Appendix:FortranCodesofCS-ScNFX=NFXELINTHEINPUTHEADER11IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),LTYP(MEL)DIMENSIONNP1(NPL),NP2(NPL),IND(5),FV(5),V(LV)!
LV=3fromPARM.
FORCOMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/ELINF/LINFO(50,15)CNFZ=200NDIM1=NDIM+1IF(NFX.
EQ.
0)RETURNCALLZEROI1(IND,5)CALLZEROR1(FV,5)WRITE(LOUT1,900)C-CLOOPONALLFIXEDEDGESI.
E.
EDGESWITHPRESCRIBEDCDISPLACEMENT/EXCESSPOREPRESSURESC-CReadinfixitydataCWRITE(LOUT1,101)NFXC101FORMAT(//I5)IF(NFX.
EQ.
0)GOTO201DO200JX=1,NFX!
NFX=NFXELREAD(LINP,*)ML,ND1,ND2,IVAR,IFX,V!
Visanarrayofsize(3).
WRITE(LOUT1,902)JX,ML,ND1,ND2,IVAR,IFX,VNE=MLLI1=ND1LI2=ND2LT=LTYP(NE)LT=IABS(LT)NVN=LINFO(2,LT)NEDG=LINFO(3,LT)NDSD=LINFO(7,LT)IF(IVAR.
EQ.
NDIM1)NDSD=LINFO(8,LT)NTSD=NDSD+2INDED=LINFO(14,LT)CDO20K1=1,NEDGJ1=NP1(K1+INDED)J2=NP2(K1+INDED)I1=NCONN(J1,NE)I2=NCONN(J2,NE)IF(LI1.
EQ.
I1.
AND.
LI2.
EQ.
I2)GOTO25IF(LI1.
EQ.
I2.
AND.
LI2.
EQ.
I1)GOTO21Appendix:FortranCodesofCS-S25720CONTINUEWRITE(LOUT1,903)JX,ML,ND1,ND2GOTO200C-CALIGNENDNODESOFEDGEINCORRECTSEQUENCE.
(ANTICLOCKWSIECOREDERABOUTELEMENTCENTRE)C-21LIT=LI1LI1=LI2LI2=LITNT=ND1ND1=ND2ND2=NTCDO24J=1,NTSDJBACK=NTSD+1-J24FV(J)=V(JBACK)GOTO35C25DO30J=1,NTSD30FV(J)=V(J)C-CIND-LISTOFNODESALONGEDGE.
STARTWITHENDNODESC-35IND(1)=LI1IND(NTSD)=LI2IF(NTSD.
EQ.
2)GOTO42LC1=NVN+(K1-1)*NDSDIF(IVAR.
EQ.
NDIM1)LC1=LINFO(5,LT)+(K1-1)*NDSDC-CINTERMEDIATENODES(IFNTSD=2NOINTERMEDIATENODES)C-DO40JP=1,NDSDILC=LC1+JP40IND(JP+1)=NCONN(ILC,NE)C-CLOOPONALLNODESALONGEDGEC-42DO100KND=1,NTSDI=IND(KND)IF(NF.
EQ.
0)GOTO58CDO50J=1,NFIF(I.
EQ.
MF(J))GOTO5550CONTINUECGOTO58258Appendix:FortranCodesofCS-SC-CUPDATEEXISTINGVALUESC-55JF=JGOTO60C58NF=NF+1IF(NF.
LE.
NFZ)GOTO59WRITE(LOUT1,904)STOP59JF=NF60MF(JF)=INFIX(IVAR,JF)=IFXDXYT(IVAR,JF)=FV(KND)100CONTINUE200CONTINUE201IF(NFXNOD.
EQ.
0)RETURN!
NFXNOD=0forme.
WRITE(LOUT1,905)C-----Thissubroutineisnotusednow.
1/26/98DO202INODE=1,NFXNODREAD(LINP,*)NODE,IVAR,IFX,VALUEWRITE(LOUT1,906)NODE,IVAR,IFX,VALUEDOJ=1,NFKNODE=MF(J)IF(KNODE.
EQ.
NODE)THENNFIX(IVAR,J)=IFXDXYT(IVAR,J)=VALUEGOTO202ENDIFENDDONF=NF+1MF(NF)=NODENFIX(IVAR,NF)=IFXDXYT(IVAR,NF)=VALUE202CONTINUERETURN900FORMAT(/1X,4HSIDE,4X,7HELEMENT,3X,5HNODE1,3X,5HNODE2,13X,3HDOF,4X,11HFIXITYCODE,8X,4HVAL1,6X,4HVAL2,6X,4HVAL3,26X,4HVAL4,6X,4HVAL5/)902FORMAT(1X,I3,4X,I5,5X,I4,4X,I4,5X,I2,12X,I3,3X,5F9.
4)903FORMAT(/13H****ERROR:,I5,19HTHFIXITY.
ELEMENT,1I5,25HDOESNOTCONTAINNODES:,2I5,2X,14H(ROUTINEFIXX))904FORMAT(/42HINCREASESIZEOFARRAYSMF,NFIXANDDXYT/11X,34HINCOMMONBLOCKFIX(ROUTINEFIXX))Appendix:FortranCodesofCS-S259905FORMAT(/3X,4HNODE,3X,3HDOF,6X,11HFIXITYCODE,6X,3HVAL/)906FORMAT(1X,I4,5X,I2,10X,I3,5X,F12.
6)ENDC*SUBROUTINEFIXX3(LINP,LOUT1,NDIM,NCONN,LTYP,NFX,NFXNOD)C*CROUTINETOMAINTAINALISTOFNODALFIXITIES.
INTERPRETSCFIXITIESALONG(3-D)ELEMENTFACEINTONODALFIXITIES.
CATPRESENTTOCATERFORTHE3-DBRICKELEMENTSONLY.
C-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),LTYP(MEL)DIMENSIONIND(8),FV(8)DIMENSIONKX(48),NDU(8),NDP(8),NXC(4),NXM(4),KNL(8)COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/ELINF/LINFO(50,15)C-CARRAYKX(48)GIVESTHEINDEXTOARRAYNCONNFORTHEFOURCCORNERNODESOFEACHFACEOFTHEELEMENTFOLLOWEDBYTHECMIDSIDENODES.
C-DATAKX(1),KX(2),KX(3),KX(4),KX(5),KX(6),KX(7),KX(8),KX(9),1KX(10),KX(11),KX(12),KX(13),KX(14),KX(15),KX(16),KX(17),1KX(18),KX(19),KX(20),KX(21),KX(22),KX(23),KX(24),KX(25),1KX(26),KX(27),KX(28),KX(29),KX(30),KX(31),KX(32),KX(33),1KX(34),KX(35),KX(36),KX(37),KX(38),KX(39),KX(40),KX(41),1KX(42),KX(43),KX(44),KX(45),KX(46),KX(47),KX(48)/11,2,3,4,9,10,11,12,6,5,8,7,13,16,15,14,1,5,6,2,17,13,18,9,12,6,7,3,18,14,19,10,4,3,7,8,11,19,15,20,5,1,4,8,17,12,20,16/CDO5IU=1,8KNL(IU)=0NDU(IU)=0NDP(IU)=05CONTINUECNFZ=200NDIM1=NDIM+1IF(NFX.
EQ.
0)GOTO201WRITE(LOUT1,900)C-CIFNEW3-DELEMENTTYPESAREADDEDTHENNC,NFCDCANDLVL(=NFCD)SHOULDBEOBTAINEDFROMARRAYLINFO260Appendix:FortranCodesofCS-SCINORDERTOMAKETHEROUTINEGENERAL.
CNC-NUMBEROFVERTEXNODESONELEMENTFACECNFCD-TOTALNUMBEROFDISPLACEMENTNODESONFACEC-NC=4NFCD=8C-CLOOPONALLFACESWITHFIXITIESI.
EFACESWITHPRESCRIBEDCDISPLACEMENT/EXCESSPOREPRESSURES.
C-LVL=NFCDDO200JX=1,NFXREAD(LINP,*)ML,(NDU(J),J=1,NC),IVAR,IFX,(FV(K),K=1,LVL)WRITE(LOUT1,910)JX,ML,(NDU(J),J=1,NC),IVAR,IFX,(FV(K),K=1,LVL)NE=MLCDO30IN=1,NCND=NDU(IN)30NDP(IN)=NDCLT=LTYP(NE)LT=IABS(LT)NFAC=LINFO(4,LT)C-CLOOPONALLFACESOFELEMENTTOIDENTIFYTHEFACESOFTHECELEMENTWITHPRESCRIBEDVALUESC-DO90IFAC=1,NFACISX=NFCD*(IFAC-1)CGETINDEXESOFNODESTONCONNDO40IN=1,NCNXC(IN)=KX(ISX+IN)CIFNOTPORE-PRESSURED.
O.
F,ADDITIONALNODESALONGCEDGEAREPRESENTIF(IVAR.
NE.
NDIM1)NXM(IN)=KX(ISX+NC+IN)40CONTINUECGETVERTEXNODESOFFACEFROMNCONNDO50IN=1,NCIP=NXC(IN)50KNL(IN)=NCONN(IP,NE)C-CLOOPONALLSTARTINGNODESCTRYTOMATCHTHENODESSPECIFIEDBYTHEUSERCWITHTHENODESOFEACHFACE.
EACHNODEINTURNCISCONSIDEREDASASTARTINGNODE.
C-DO80IS=1,NCISV=ISAppendix:FortranCodesofCS-S261CTRYMATCHINGTHENODESDO60IN=1,NCIF(NDP(IN).
NE.
KNL(IN))GOTO6560CONTINUEGOTO95CSTARTWITHNEXTNODE.
THESEQUENCESOFTHENODESARESTILLTHESAME65CALLALTER(LOUT1,KNL,NC)80CONTINUE90CONTINUECFACENOTFOUNDWRITE(LOUT1,930)JX,ML,(NDU(J),J=1,NC)CGOTO200C95IF(ISV.
EQ.
1)GOTO105IS1=ISV-1CSORTTHEINDEXESTOMATCHWITHNODESEQUENCEKNLDO100IM=1,IS1CALLALTER(LOUT1,NXC,NC)IF(IVAR.
NE.
NDIM1)CALLALTER(LOUT1,NXM,NC)100CONTINUECIFPORE-PRESSUREFIXITY105CONTINUEIF(IVAR.
NE.
NDIM1)GOTO125CDO120IL=1,NCIP=NXC(IL)120IND(IL)=NCONN(IP,NE)NSDN=NCGOTO132CIFDISPLACEMENTFIXITY125DO130IL=1,NCIM=NXC(IL)IN=NXM(IL)IND(2*IL-1)=NCONN(IM,NE)130IND(2*IL)=NCONN(IN,NE)NSDN=NFCD132CONTINUEC-CLOOPONALLNODESALONGFACEC-142DO180KND=1,NSDNI=IND(KND)IF(NF.
EQ.
0)GOTO158CDO150J=1,NFIF(I.
EQ.
MF(J))GOTO155262Appendix:FortranCodesofCS-S150CONTINUECGOTO158C-CUPDATEEXISTINGVALUESC-155JF=JGOTO160C158NF=NF+1IF(NF.
LE.
NFZ)GOTO159WRITE(LOUT1,940)STOP159JF=NF160MF(JF)=INFIX(IVAR,JF)=IFXDXYT(IVAR,JF)=FV(KND)180CONTINUE200CONTINUEC201IF(NFXNOD.
EQ.
0)RETURNWRITE(LOUT1,905)DO202INODE=1,NFXNODREAD(LINP,*)NODE,IVAR,IFX,VALUEWRITE(LOUT1,906)NODE,IVAR,IFX,VALUEDOJ=1,NFKNODE=MF(J)IF(KNODE.
EQ.
NODE)THENNFIX(IVAR,J)=IFXDXYT(IVAR,J)=VALUEGOTO202ENDIFENDDONF=NF+1MF(NF)=NODENFIX(IVAR,NF)=IFXDXYT(IVAR,NF)=VALUE202CONTINUERETURNC900FORMAT(/19X,16H.
.
.
.
.
.
NODES.
.
.
.
.
,8X,6HFIXITY//11X,4HFACE,4X,7HELEMENT,3X,16H1234,23X,3HDOF,3X,4HCODE,7X,4HVAL1,5X,4HVAL2,5X,4HVAL3,35X,4HVAL4,5X,4HVAL5,5X,4HVAL6,5X,4HVAL7,5X,4HVAL8//)910FORMAT(1X,I3,4X,I5,3X,I4,1X,I4,1X,I4,1X,I4,4X,I2,3X,I3,3X,8F8.
4)930FORMAT(/1X,20H*****ERROR:FIXITY,I4,2X,8HINLIST.
,3X,17HELEMENT,I5,2X,29HDOESNOTHAVEFACEWITHNODES,4I5)Appendix:FortranCodesofCS-S263940FORMAT(/42HINCREASESIZEOFARRAYSMF,NFIXANDDXYT/11X,35HINCOMMONBLOCKFIX(ROUTINEFIXX3))905FORMAT(/1X,4HNODE,3X,3HDOF,3X,11HFIXITYCODE,3X,3HVAL)906FORMAT(1X,I4,5X,I2,10X,I3,5X,F10.
3)ENDC*SUBROUTINEALTER(LOUT1,IM,N)C*CROUTINETOSHIFTARRAYFORWARDBYONEPLACEC-IMPLICITREAL*8(A-H,O-Z)DIMENSIONIM(N)CIF(N.
LE.
1)GOTO100NM1=N-1IMT=IM(1)CDO10K=1,NM110IM(K)=IM(K+1)IM(N)=IMTRETURN100WRITE(LOUT1,900)N900FORMAT(/1X,45HERROR*ARRAYCONTAINSLESSTHANOREQUALTO,I5,2X,140HMEMBERS(ROUTINEALTER)CALLEDBYFIXX3)RETURNENDSUBROUTINEFORMB2(J,R,RI,NDN,NAC,ELCOD,DS,SHFN,1CARTD,B,SLL,LT,IP,ISTGE)C*CFORMSBMATRIXFROMAREA/LOCALCOORDSSLL(NAC)CINELEMENTJFORINTEGRATIONPOINTIPC*C1CALLEDBYEQLIBIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONELCOD(3,NDMX),DS(3,20),SHFN(20),1CARTD(3,NDMX),B(6,NB),SLL(4),XJACM(3,3)COMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/JACB/XJACI(3,3),DJACB264Appendix:FortranCodesofCS-SC-----INITIALISESHAPEFUNCTIONANDDERIVATIVES(LOCALCOORDS)CALLZEROR2(DS,3,20)CALLZEROR1(SHFN,20)CALLZEROR2(B,6,NB)CCALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,2,J)CALLZEROR2(XJACM,3,3)CNDN2=2*NDNCDO15IDIM=1,NDIMDO15JDIM=1,NDIMSUM=ZEROCDO12IN=1,NDN12SUM=SUM+DS(IDIM,IN)*ELCOD(JDIM,IN)15XJACM(IDIM,JDIM)=SUMC-----CallDETMINCALLDETMIN(LOUT1,NDIM,XJACM,XJACI,DJACB,J,IP,ISTGE)C-----CALCULATERADIUSFORAXI-SYMBMATRIXR=ZERORI=ZEROIF(NPLAX.
EQ.
0)GOTO28CDO25IN=1,NDN25R=R+ELCOD(1,IN)*SHFN(IN)RI=-1.
0D0/RC28DO35IN=1,NDNDO35ID=1,NDIMSUM=ZEROCDO30JD=1,NDIM30SUM=SUM-DS(JD,IN)*XJACI(ID,JD)35CARTD(ID,IN)=SUMCIF(NDIM.
NE.
2)GOTO52C-----2-DELEMENTDO50IN=1,NDNB(1,IN)=CARTD(1,IN)B(2,NDN+IN)=CARTD(2,IN)IF(NPLAX.
EQ.
0)GOTO45B(3,IN)=SHFN(IN)*RI45B(4,NDN+IN)=B(1,IN)50B(4,IN)=B(2,NDN+IN)Appendix:FortranCodesofCS-S265C52IF(NDIM.
NE.
3)GOTO62C-----3-DELEMENTDO60IN=1,NDNB(1,IN)=CARTD(1,IN)B(2,NDN+IN)=CARTD(2,IN)B(3,NDN2+IN)=CARTD(3,IN)B(4,IN)=CARTD(2,IN)B(4,NDN+IN)=CARTD(1,IN)B(5,NDN+IN)=CARTD(3,IN)B(5,NDN2+IN)=CARTD(2,IN)B(6,IN)=CARTD(3,IN)B(6,NDN2+IN)=CARTD(1,IN)60CONTINUEC62CONTINUERETURNENDSUBROUTINEINSITU(XYZ,STRESS,P,PT,PCOR,PEQT,XYFT,PCONI,3NCONN,MAT,LTYP,NW,IDFX,NP1,NP2,PR,NTY)C========CSETUPINSITUSTRESSESANDCHECKFOREQUILIBRIUMC========C1CALLEDBYRDPROPIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLEDCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/OUT/IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFCOMMON/ANLYS/TTIME,DTIMEI,TGRAVI,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDS266Appendix:FortranCodesofCS-SDIMENSIONXYZ(3,MNODES),STRESS(NVRS,NIP,MEL),P(MDOF),1PT(MDOF),PCOR(MDOF),PEQT(MDOF),XYFT(MDOF),PCONI(MDOF)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL),1NW(MNODES+1),NQ(MNODES),IDFX(MDOF),NP1(NPL),NP2(NPL)DIMENSIONPR(NPR,NMT),PDISLD(3,LV),PRES(3,LV),NTY(NMT),TEMP(3)C-----CODETOINDICATESTAGEOFTHEANALYSISKSTGE=1C-----INITIALISEPRESSURELOADSNDIM1=NDIM+1CALLZEROR1(PCONI,MDOF)CALLZEROR1(TEMP,3)CALLZEROR2(PRESLD,10,100)CALLZEROI1(LEDG,100)CALLZEROI1(NDE1,100)CALLZEROI1(NDE2,100)CALLZEROI1(MF,200)CALLZEROI2(NFIX,4,200)CALLZEROR2(DXYT,4,200)C-----SETUPIN-SITUSTRESSSYSTEMREAD(LINP,101)HEADER9READ(LINP,*)KT,NIWRITE(LOUT1,926)KT,NIIF(NI.
EQ.
0)NI=1!
IfNI=0useavalueof1toavoidarraysizeof0.
IF(NI.
LE.
100)GOTO40WRITE(LOUT1,910)NI101FORMAT(A80)910FORMAT(/1X,'INCREASESIZEOFARRAYSNLIANDNHITO',I6,2X,1'INROUTINEINSITU')STOP40CONTINUEC-----ReadintheinitialstressdataCALLRDSTRS(KT,XYZ,STRESS,PEQT,NCONN,MAT,LTYP,NW,PR,NTY,NI)CINITIALISEFIXEDLOADS,TOTALPOINTLOADSANDTOTALDISPLACEMENTSCNF-NUMBEROFFIXITIESc-----InitializingNF=0CALLZEROR1(PCOR,MDOF)CALLZEROR1(XYFT,MDOF)CALLZEROR1(P,MDOF)Appendix:FortranCodesofCS-S267C-----READLOADSINEQUILIBRIUMWITHIN-SITUSTRESSESNLED=0TGRAVI=ZEROIF(KT.
EQ.
0)GOTO62CREAD(LINP,101)HEADER11READ(LINP,*)NLODI,NLDNOD,NFXEL,NFXNOD,TGRAVIWRITE(LOUT1,952)NLODI,NLDNOD,NFXEL,NFXNOD,TGRAVICIF(NLODI.
EQ.
0)GOTO52WRITE(LOUT1,960)CREAD(LINP,101)HEADER12DO50KL=1,NLODIREAD(LINP,*)LNE,ND1,ND2,((PDISLD(ID,IV),ID=1,2),IV=1,NPT)WRITE(LOUT1,964)LNE,ND1,ND2,((PDISLD(ID,IV),ID=1,2),IV=1,NPT)CDO100IV=1,NPTDO100ID=1,NDIMIDR=NDIM+1-ID100PRES(ID,IV)=PDISLD(IDR,IV)CDO110IV=1,NPTDO110ID=1,NDIM110PDISLD(ID,IV)=PRES(ID,IV)CC-----CallEDGLD!
AllignnodesalongtheloadededgeCALLEDGLD(LOUT1,NDIM,NCONN,LTYP,LNE,ND1,ND2,NP1,NP2,PDISLD,1PRES,KL,NPT,1,MXLD)50CONTINUE52IF(NLDNOD.
EQ.
0)GOTO53C-----ReadpointloaddataWRITE(LOUT1,965)READ(LINP,101)HEADER13DOKL=1,NLDNODREAD(LINP,*)NODE,(TEMP(IDIR),IDIR=1,NDIM)WRITE(LOUT1,966)NODE,(TEMP(IDIR),IDIR=1,NDIM)DOIDIR=1,NDIMN1=NW(NODE)-1NID=N1+IDIRPCONI(NID)=TEMP(IDIR)ENDDOENDDOC53IF(NFXEL.
EQ.
0.
AND.
NFXNOD.
EQ.
0)GOTO62C-----IN-SITUBOUNDARYCONDITIONS268Appendix:FortranCodesofCS-SWRITE(LOUT1,930)CREAD(LINP,101)HEADER14IF(NDIM.
EQ.
2)THENREAD(LINP,101)HEADER14CALLFIXX2(LINP,LOUT1,NDIM,NCONN,LTYP,NP1,NP2,NFXEL,1NFXNOD)!
Interpretfixitiesalongelementedgesintonodalfixities.
ENDIFIF(NDIM.
EQ.
3)THENREAD(LINP,101)HEADER14CALLFIXX3(LINP,LOUT1,NDIM,NCONN,LTYP,NFXEL,NFXNOD)ENDIFC-----CallMakeNZCALLMAKENZ(NEL,NN,NCONN,LTYP,NQ,INXL)TTGRV=1.
0D0C-----CallEQLOD!
Converttheappliedloadtoequalnodalforce.
CALLEQLOD(NCONN,MAT,LTYP,NW,NQ,IDFX,NP1,NP2,XYZ,P,1PT,PCOR,PEQT,XYFT,PCONI,PR,2,0,TTGRV,IRAC,KSTGE,1,1)C62RETURN907FORMAT(//1X,38HLISTOFREMOVEDELEMENTSTOFORM,114HPRIMARYMESH/1X,52(1H-)/)920FORMAT(20I6/)926FORMAT(//10X,30HIN-SITUSTRESSOPTION.
I101/10X,30HNUMBEROFIN-SITUNODES.
.
.
.
.
.
=,I10/)930FORMAT(/1X,27HIN-SITUBOUNDARYCONDITIONS/1X,27(1H-)/)952FORMAT(/110X,46HNUMBEROFEDGESWITHPRESSURELOAD.
I5/210X,46HNUMBEROFPOINTLOADNODES.
I5/310X,46HNUMBEROFEDGESRESTRAINED.
I5/410X,46HNUMBEROFINDIVIDUALRESTRAINEDNODES.
I5/510X,46HIN-SITUGRAVITYACCELERATIONFIELD.
F8.
1,2X,61HG//)960FORMAT(/1X,38HSPECIFIEDNODALVALUESOFSHEAR/NORMAL,119HSTRESSES(IN-SITU)/1X,57(1H-)/1X,4HELEM,21X,4HNDE1,2X,4HNDE2,2X,4HSHR1,8X,4HNOR1,8X,4HSHR2,8X,4HNOR2,38X,4HSHR3,8X,4HNOR3,8X,4HSHR4,8X,4HNOR4,8X,4HSHR5,8X,4HNOR5/)964FORMAT(1X,3I4,10E12.
4)965FORMAT(/5X,'SPECIFIEDPOINTLOADVALUES',/5X,27(1H-),/1X,'NODE',15X,'X',6X,'Y',6X,'Z'/)966FORMAT(1X,I4,3E12.
4)ENDAppendix:FortranCodesofCS-S269SUBROUTINEINSTRS(LOUT1,NEL,NDIM,NS,XYZ,STRESS,NCONN,MAT,LTYP,NTY)C*CROUTINETOPRINTOUTINITIALIN-SITUSTRESSESC*C1CalledbyRDSTRSIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONXYZ(3,MNODES),STRESS(NVRS,NIP,MEL)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONELCOD(3,NDMX),DS(3,20),SHFN(20),TEMP(6),1CIP(3),SLL(4),NTY(NMT)COMMON/ELINF/LINFO(50,15)COMMON/DATL/SL(4,100)COMMON/PARS/PYI,ASMVL,ZEROCCALLZEROR1(TEMP,6)!
InitializingNS1=NS+1WRITE(LOUT1,900)900FORMAT(/1X,34HINTEGRATIONPOINTIN-SITUSTRESSES/11X,34(1H-)/)IF(NDIM.
EQ.
2)WRITE(LOUT1,901)IF(NDIM.
EQ.
3)WRITE(LOUT1,931)CDO60MR=1,NELIF(MR.
EQ.
0)GOTO60J=MRLT=LTYP(J)IF(LTYP(J).
LT.
0)GOTO60NDN=LINFO(5,LT)NGP=LINFO(11,LT)INDX=LINFO(12,LT)NAC=LINFO(15,LT)KM=MAT(J)KGO=NTY(KM)GOTO(11,11,12,60,60),KGOWRITE(LOUT1,910)MR,KGOGOTO6011ICAM=0GOTO1412ICAM=114CONTINUECDO18KN=1,NDNNDE=NCONN(KN,J)DO18ID=1,NDIM18ELCOD(ID,KN)=XYZ(ID,NDE)270Appendix:FortranCodesofCS-SCDO40IP=1,NGPIPA=IP+INDXCDO25IL=1,NAC25SLL(IL)=SL(IL,IPA)C-----CallshapefunctionCALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,1,MR)CDO35ID=1,NDIMSUM=ZERODO30I=1,NDN30SUM=SUM+SHFN(I)*ELCOD(ID,I)35CIP(ID)=SUMCDOIS=1,NSTEMP(IS)=STRESS(IS,IP,MR)ENDDOIF(ICAM.
NE.
1)GOTO38EI=STRESS(NS+2,IP,J)PCI=STRESS(NS+3,IP,J)PE=(STRESS(1,IP,J)+STRESS(2,IP,J)+STRESS(3,IP,J))/3.
0D0QE=Q(TEMP,NS,NDIM)IF(NDIM.
EQ.
2)WRITE(LOUT1,903)J,IP,(CIP(ID),ID=1,NDIM),1(STRESS(IK,IP,J),IK=1,NS1),PE,QE,PCI,EIIF(NDIM.
EQ.
3)WRITE(LOUT1,933)J,IP,(CIP(ID),ID=1,NDIM),1(STRESS(IK,IP,J),IK=1,NS1),PE,QE,PCI,EIGOTO4038WRITE(LOUT1,903)J,IP,(CIP(ID),ID=1,NDIM),1(STRESS(IK,IP,J),IK=1,NS1)40CONTINUE60CONTINUERETURN901FORMAT(1X,7HELM-IP,4X,1HX,6X,1HY,9X,2HSX,10X,12HSY,10X,2HSZ,10X,3HTXY,9X,1HU,10X,2HPE,211X,1HQ,10X,2HPC,7X,4HVOID/)903FORMAT(1X,I3,I2,2F8.
4,8E12.
4,F7.
4)910FORMAT(1X,7HELEMENT,I5,2X,27HISOFUNKNOWNMATERIALTYPE,I5,12X,16H(ROUTINEINSTRS))931FORMAT(1X,7HELM-IP,4X,1HX,7X,1HY,7X,1HZ,8X,2HSX,10X,12HSY,10X,2HSZ,9X,3HTXY,9X,3HTYZ,9X,3HTZX,11X,1HU,10X,2HPE,211X,1HQ,10X,2HPC,6X,4HVOID/)933FORMAT(1X,I3,I2,3F8.
4,10E12.
4,F7.
4)ENDAppendix:FortranCodesofCS-S271SUBROUTINERDSTRS(KT,XYZ,STRESS,PEQT,NCONN,MAT,LTYP,NW,PR,NTY,NI)C*CSETUPIN-SITUSTRESSESC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONXYZ(3,MNODES),STRESS(NVRS,NIP,MEL),PEQT(MDOF)DIMENSIONELCOD(3,NDMX),DS(3,20),SHFN(20),1FI(3,NDMX)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONNW(MNODES+1)DIMENSIONYI(100),VAR(NVRS,100),NLI(100),NHI(100)DIMENSIONCIP(3),SLL(4),PR(NPR,NMT),NTY(NMT)COMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/DATL/SL(4,100)COMMON/ELINF/LINFO(50,15)C-----ISTGE-CODETOINDICATESTAGEOFTHEANALYSISISTGE=1C-----INITIALISESTRESS-INTEGRATIONPOINTVARIABLESCALLZEROR3(STRESS,NVRS,NIP,MEL)C-----INITIALISEPEQT-CONTRIBUTIONOFFORCESDUETOELEMENTIN-SITUCSTRESSESCALLZEROR1(PEQT,MDOF)IF(KT.
EQ.
0)WRITE(LOUT1,904)IF(KT-1)200,8,828IF(NDIM.
EQ.
2)WRITE(LOUT1,906)IF(NDIM.
EQ.
3)WRITE(LOUT1,926)C-----ReadinNodeYcoordinateandinitialstressdataREAD(LINP,101)HEADER10101FORMAT(A80)DO10J=1,NINDAT=NS+3!
NS=4for2DproblemsREAD(LINP,*)YI(J),(VAR(JJ,J),JJ=1,NDAT)IF(NDIM.
EQ.
2)WRITE(LOUT1,910)J,YI(J),(VAR(JJ,J),JJ=1,NDAT)IF(NDIM.
EQ.
3)WRITE(LOUT1,930)J,YI(J),(VAR(JJ,J),JJ=1,NDAT)10CONTINUECMI=NI-1272Appendix:FortranCodesofCS-SDO20IN=1,MIN1=INN2=IN+1Y1=YI(N1)Y2=YI(N2)CIF(Y1.
LT.
Y2)THENNMIN=N1NMAX=N2ELSENMAX=N1NMIN=N2ENDIFNLI(IN)=NMINNHI(IN)=NMAX20CONTINUEC-----LOOPONALLGEOMETRYMESHELEMENTSDO80J=1,NELLT=LTYP(J)IF(LT.
LT.
0)GOTO80CCLT=IABS(LT)JUS=JGOTO(80,22,22,22,22,22,22,22,22,22,22,80,80,80,80),LTWRITE(LOUT1,915)JUS,LTGOTO8022KM=MAT(J)NGP=LINFO(11,LT)NDN=LINFO(5,LT)INDX=LINFO(12,LT)NAC=LINFO(15,LT)CDO30KN=1,NDNNDE=NCONN(KN,J)DO30ID=1,NDIMELCOD(ID,KN)=XYZ(ID,NDE)30CONTINUEC-----LOOPONALLINTEGRATIONPOINTSDO60IP=1,NGPC-----CALCULATEINTEGRATIONPOINTCOORDINATESIPA=IP+INDXDO35IL=1,NAC35SLL(IL)=SL(IL,IPA)C-----CallShapefunctinCALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,1,JUS)Appendix:FortranCodesofCS-S273CDO40ID=1,NDIMSUM=ZERODO38I=1,NDN38SUM=SUM+SHFN(I)*ELCOD(ID,I)40CIP(ID)=SUMYY=CIP(2)C-----SEARCHFORRELEVANTIN-SITULAYERDO45JJJ=1,MINSM=NLI(JJJ)NLA=NHI(JJJ)YMIN=YI(NSM)YMAX=YI(NLA)CIF(YY.
LT.
YMIN.
OR.
YY.
GT.
YMAX)GOTO45GOTO48C45CONTINUEWRITE(LOUT1,950)JUS,IPGOTO60C-----DIRECTINTERPOLATIONFROMIN-SITUMESHNODES48DY=YI(JJJ)-YI(JJJ+1)YR=(YY-YMIN)/DYCDO50I=1,NVRS50STRESS(I,IP,J)=VAR(I,NSM)+(VAR(I,JJJ)-VAR(I,JJJ+1))*YRKGO=NTY(KM)GOTO(60,60,52,60,60),KGOC-----CALCULATEMEANEFFECTIVESTRESSP'52P=(STRESS(1,IP,J)+STRESS(2,IP,J)+STRESS(3,IP,J))/3.
0D0CCALCULATEPC'(PC)ANDCRITICALSTATEVALUEOFP'(PU)PC=STRESS(NS+3,IP,J)IF(KGO.
NE.
3)GOTO54PU=0.
50D0*PCGOTO5554PU=PC/EXP(1.
0d0)C-----CALCULATEVOIDRATIOC55STRESS(NS+2,IP,J)=PR(3,KM)-PR(1,KM)*ALOG(P)-C1(PR(2,KM)-PR(1,KM))*ALOG(PU)55STRESS(NS+2,IP,J)=PR(3,KM)-PR(1,KM)*LOG(P)-1(PR(2,KM)-PR(1,KM))*LOG(PU)60CONTINUE80CONTINUE274Appendix:FortranCodesofCS-SGOTO92C-----DIRECTSPECIFICATIONOFIN-SITUSTRESSESS82IF(KT.
NE.
2)GOTO92!
KT=1forme--skipWRITE(LOUT1,955)C***READFORALLINTEGRATIONPOINTSDO90IM=1,NELREAD(LINP,*)MUSCIL=MREL(MUS)IL=MUSLT=LTYP(IL)NGP=LINFO(11,LT)CDO85IP=1,NGPREAD(LINP,*)(STRESS(JJJ,IP,IL),JJJ=1,NVRS)85WRITE(LOUT1,960)(STRESS(JJJ,IP,IL),JJJ=1,NVRS)90CONTINUEC-----CALCULATEEQUILIBRIUMLOADSFORINSITUSTRESSESC-----ASSEMBLEELEMENTCONTRIBUTION(FI)INTOPEQT92CR=1.
0D0IF(NPLAX.
EQ.
1)CR=2.
0D0*PYIDO100J=1,NELLT=LTYP(J)IF(LT.
LE.
0)GOTO100NDN=LINFO(5,LT)NGP=LINFO(11,LT)INDX=LINFO(12,LT)NAC=LINFO(15,LT)C-----CallEQLIB(Calculateequilibriumloadsforinsitustresses)CALLEQLIB(J,LT,NGP,INDX,NDN,NAC,XYZ,STRESS,FI,NCONN,ISTGE)C-----SLOTEQUILIBRIUMLOADSINTOPEQTDOIK=1,NDNNCOR=NCONN(IK,J)N1=NW(NCOR)-1CDO95ID=1,NDIMNID=N1+ID95PEQT(NID)=PEQT(NID)+FI(ID,IK)ENDDOAppendix:FortranCodesofCS-S275100CONTINUEC-----COUNTFORSKEWBOUNDARIESC-----Turnbackthedisplacementtotheoriginalcoordinate.
(Globaltolocal)IF(NSKEW.
GT.
0)CALLROTBC(PEQT,NW,NDIM,NSKEW,1)!
NSKEW>0formycaseC-----PRINTOUTINITIALIN-SITUSTRESSESCCALLINSTRS(LOUT1,NEL,NDIM,NS,XYZ,STRESS,NCONN,MAT,LTYP,NTY)C200CONTINUERETURN904FORMAT(//1X,36HIN-SITUSTRESSESALLSETTOZERO/1X,36(1H-))906FORMAT(//1X,19HIN-SITUMESHDATA/1X,19(1H-)/1/3X,4HNODE,8X,1HY,10X,2HSX,10X,2HSY,10X,2HSZ,29X,3HTXY,10X,1HU,22X,2HPC/)910FORMAT(1X,I5,10F12.
3)915FORMAT(1X,7HELEMENT,I5,2X,18HISOFUNKNOWNTYPE,I5)926FORMAT(//1X,19HIN-SITUMESHDATA/1X,19(1H-)/1/3X,4HNODE,8X,1HY,10X,2HSX,10X,2HSY,10X,2HSZ,29X,3HTXY,10X,3HTYZ,9X,3HTZX,9X,1HU,22X,2HPC/)930FORMAT(1X,I5,12F12.
3)950FORMAT(1X,46HWARNING---POINTOUTSIDEIN-SITUSTRESSSPACE,12X,9HELEMENT=,I5,2X,4HIP=,I5,2X,16H(ROUTINERDSTRS))CC951FORMAT(2I4,7E14.
4)955FORMAT(//1X,40HDIRECTSPECIFICATIONOFIN-SITUSTRESSES1/1X,39(1H-))960FORMAT(1X,10E12.
5)C985FORMAT(/1X,37HEQUILIBRIUMLOADSFORINSITUSTRESSES/C11X,37(1H-)//(10E12.
4))ENDSUBROUTINEREACT(LOUT2,NDIM,NN,NW,NQ,IDFX,PEQT,PT,IOUTP)C*CCALCULATESREACTIONTOEARTHATRESTRAINEDNODESC*C1CALLEDBYEQLBMIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONPEQT(MDOF),PT(MDOF),NW(MNODES+1),NQ(MNODES),IDFX(MDOF)DIMENSIONR(500),NDENO(500),NDIR(500)C-----NCT-SIZEOFARRAYSR,NDENOANDNDIRNCT=500276Appendix:FortranCodesofCS-SC-----ICT-COUNTEROFTOTALNO.
OFREACTIONSICT=0CDO25JR=1,NNIF(JR.
EQ.
0)GOTO25J=JRNQL=NQ(J)C-----SKIPIFNODEHASPOREPRESSURED.
O.
F.
ONLYIF(NQL.
LE.
1)GOTO25N1=NW(J)N2=N1+NDIM-1IDF=0CDO20KN=N1,N2IDF=IDF+1IF(IDFX(KN).
NE.
1)GOTO20ICT=ICT+1IF(ICT.
GT.
NCT)GOTO30R(ICT)=-(PEQT(KN)-PT(KN))NDENO(ICT)=JRNDIR(ICT)=IDF20CONTINUE25CONTINUECIF(IOUTP.
NE.
1)RETURNWRITE(LOUT2,901)WRITE(LOUT2,903)(NDENO(JCT),NDIR(JCT),R(JCT),JCT=1,ICT)RETURN30WRITE(LOUT2,906)STOP901FORMAT(//1X,18HLISTOFREACTIONS/2X,17(1H-)/12X,3(4HNODE,4X,9HDIRECTION,7X,8HREACTION,11X)/)903FORMAT(3(1X,I5,5X,I4,5X,E14.
4,10X))906FORMAT(/1X,35HINCREASEARRAYSIZEOFR,NDENO,NDIR,11X,16HINROUTINEREACT)ENDSUBROUTINERESTRN(NDIM,NW,IDFX)C*CROUTINETOIDENTIFYALLDISPLACEMENTBOUNDARYCONDITIONSWHICHCARESPECIFIED.
(SETIDFX=1FORALLDOFWHICHARERESTRAINED)C*C1CALLEDBYEQLODIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'Appendix:FortranCodesofCS-S277DIMENSIONNW(MNODES+1),IDFX(MDOF)COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFC-----LOOPONALLNODESWITHONEORMOREFIXITIESCALLZEROI1(IDFX,MDOF)CDO10J=1,NDFC10IDFX(J)=0CIF(NF.
EQ.
0)RETURNDO40JN=1,NFNDE=MF(JN)NFS=NW(NDE)-1C-----BY-PASSIFNODEHASONLYPORE-PRESSUREDOFJP=NW(NDE+1)-NW(NDE)IF(JP.
EQ.
1)GOTO40CDO20JF=1,NDIMNCDE=NFIX(JF,JN)IF(NCDE.
EQ.
0)GOTO20IDFX(NFS+JF)=120CONTINUE40CONTINUERETURNENDSUBROUTINESELF(LOUT1,I,NDN,NAC,XYZ,F,NCONN,1MAT,LT,INDX,DENS,MUS,KSTGE)C*CCALCULATESSELFWEIGHTLOADSC*C1CALLEDBYEQLODC2CalledbySEL1IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),MAT(MEL)DIMENSIONXYZ(3,MNODES),ELCOD(3,NDMX),DS(3,20),1SHFN(20),F(3,NDMX),SLL(4),GCOM(3)COMMON/ELINF/LINFO(50,15)COMMON/DATL/SL(4,100)COMMON/DATW/W(100)COMMON/PARS/PYI,ASMVL,ZEROCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEW278Appendix:FortranCodesofCS-SCTPI=2.
0D0*PYINGP=LINFO(11,LT)K=MAT(I)C-----INITIALISEARRAYFCALLZEROR2(F,3,NDMX)CIF(DENS.
LE.
ASMVL)GOTO100GCOM(1)=ZEROGCOM(2)=-DENSGCOM(3)=ZEROC-----SETUPLOCALARRAYFORCO-ORDINATESDO10KC=1,NDNNDE=NCONN(KC,I)CDO10ID=1,NDIM10ELCOD(ID,KC)=XYZ(ID,NDE)C-----LOOPFORNUMERICALINTEGRATIONDO60IP=1,NGPIPA=IP+INDXCDO35IL=1,NAC35SLL(IL)=SL(IL,IPA)C-----EVALUATESHAPEFUNCTIONFORINTEGRATIONPOINTC-----Callshape&detjcbCALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,2,MUS)CALLDETJCB(LOUT1,NDIM,DJACB,NDN,ELCOD,DS,IP,MUS,KSTGE)!
DeterminantofJ.
DV=DJACB*W(IPA)IF(NPLAX.
EQ.
0)GOTO45CRAD=ZEROCDO40IN=1,NDN40RAD=RAD+ELCOD(1,IN)*SHFN(IN)DV=DV*TPI*RADC45DO50IN=1,NDNDO50ID=1,NDIM50F(ID,IN)=F(ID,IN)+GCOM(ID)*SHFN(IN)*DV60CONTINUE100CONTINUERETURNENDAppendix:FortranCodesofCS-S279SUBROUTINESFR1(LOUT1,S,SHF,DERIV,NSD,LNE,LT)C*CSHAPEFUNCTIONSANDDERIVATIVESFORONE-DIMENSIONALCGAUSSIANINTEGRATIONALONGELEMENTEDGEC*C1CalledbyDISTLDIMPLICITREAL*8(A-H,O-Z)DIMENSIONSHF(5),DERIV(5)C-----INITIALISECALLZEROR1(SHF,5)CALLZEROR1(DERIV,5)CGOTO(80,21,31,41,51),NSDWRITE(LOUT1,900)LNE,LT900FORMAT(1X,7HELEMENT,I5,2X,7HOFTYPE,I5,2X,122HUNKNOWN(ROUTINESFR1))STOPC-----2NODESALONGEDGE21CONTINUEWRITE(LOUT1,910)LT910FORMAT(/1X,12HELEMENTTYPE,I5,2X,130HNOTIMPLEMENTED(ROUTINESFR1))GOTO80C-----3NODESALONGEDGE31CONTINUESHF(1)=0.
50D0*S*(S-1.
0D0)SHF(2)=(1.
0D0-S)*(1.
0D0+S)SHF(3)=0.
50D0*S*(S+1.
0D0)DERIV(1)=S-0.
50D0DERIV(2)=-2.
0D0*SDERIV(3)=S+0.
50D0GOTO80C-----4NODESALONGEDGE41CONTINUEWRITE(LOUT1,910)LTGOTO80C-----5NODESALONGEDGE51S0=SS1=S+0.
50D0S2=S-0.
50D0S3=S+1.
0D0S4=S-1.
0D0280Appendix:FortranCodesofCS-SC1=2.
0D0/3.
0D0C2=8.
0D0/3.
0D0C3=4.
0D0SHF(1)=C1*S0*S1*S2*S4SHF(2)=-C2*S0*S2*S3*S4SHF(3)=C3*S1*S2*S3*S4SHF(4)=-C2*S0*S1*S3*S4SHF(5)=C1*S0*S1*S2*S3DERIV(1)=C1*(S2*S4*(S1+S0)+S0*S1*(S2+S4))DERIV(2)=-C2*(S2*S4*(S3+S0)+S0*S3*(S2+S4))DERIV(3)=C3*(S3*S4*(S1+S2)+S1*S2*(S3+S4))DERIV(4)=-C2*(S3*S4*(S1+S0)+S1*S0*(S3+S4))DERIV(5)=C1*(S2*S3*(S1+S0)+S1*S0*(S2+S3))80CONTINUERETURNENDSUBROUTINESHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,ICODE,MUS)C========CSHAPEFUNCTIONSANDDERIVATIVESFORDIFFERENTELEMENTTYPESC========C1CALLEDBYRDSTRSC2CALLEDBYINSTRSC3CALLEDBYSELFINCLUDE'PARM.
FOR'IMPLICITREAL*8(A-H,O-Z)DIMENSIONSLL(4),SHFN(20),DS(3,20)CAC1=SLL(1)AC2=SLL(2)IF(NAC.
LT.
3)GOTO10AC3=SLL(3)IF(NAC.
LT.
4)GOTO10AC4=SLL(4)C10GOTO(11,13,13,14,14,15,15,17,17,18,18),LTWRITE(LOUT1,910)MUS,LTSTOPC-----SHAPEFUNCTIONSANDDERIVATIVESFORBARELEMENT11CONTINUEWRITE(LOUT1,910)MUS,LTGOTO80C-----SHAPEFUNCTIONSANDDERIVATIVESFORLSTAppendix:FortranCodesofCS-S28113SHFN(1)=AC1*(2.
0D0*AC1-1.
0D0)SHFN(2)=AC2*(2.
0D0*AC2-1.
0D0)SHFN(3)=AC3*(2.
0D0*AC3-1.
0D0)SHFN(4)=4.
0D0*AC1*AC2SHFN(5)=4.
0D0*AC2*AC3SHFN(6)=4.
0D0*AC1*AC3IF(ICODE.
EQ.
1)GOTO80!
icode=1meansinitialstressconditionCotherwiseicode=2CDS(1,1)=4.
0D0*AC1-1.
0D0DS(1,2)=0.
0D0DS(1,3)=-(4.
0D0*AC3-1.
0D0)DS(1,4)=4.
0D0*AC2DS(1,5)=-4.
0D0*AC2DS(1,6)=4.
0D0*(AC3-AC1)CDS(2,1)=0.
0D0DS(2,2)=4.
0D0*AC2-1.
0D0DS(2,3)=-(4.
0D0*AC3-1.
0D0)DS(2,4)=4.
0D0*AC1DS(2,5)=4.
0D0*(AC3-AC2)DS(2,6)=-4.
0D0*AC1GOTO80C-----SHAPEFUNCTIONSANDDERIVATIVESFORQUADRILATERALS14SHFN(1)=-0.
250D0*(AC1-1.
0D0)*(AC2-1.
0D0)*(1.
0D0+AC1+AC2)SHFN(2)=0.
250D0*(AC1+1.
0D0)*(AC2-1.
0D0)*(1.
0D0-AC1+AC2)SHFN(3)=0.
250D0*(AC1+1.
0D0)*(AC2+1.
0D0)*(AC1+AC2-1.
0D0)SHFN(4)=-0.
250D0*(AC1-1.
0D0)*(AC2+1.
0D0)*(AC2-AC1-1.
0D0)SHFN(5)=0.
50D0*(AC1**2-1.
0D0)*(AC2-1.
0D0)SHFN(6)=-0.
50D0*(AC1+1.
0D0)*(AC2**2-1.
0D0)SHFN(7)=-0.
50D0*(AC1**2-1.
0D0)*(AC2+1.
0D0)SHFN(8)=0.
50D0*(AC1-1.
0D0)*(AC2**2-1.
0D0)IF(ICODE.
EQ.
1)GOTO80Cderivativesforac1DS(1,1)=-0.
250D0*(AC2-1.
0D0)*(2.
0D0*AC1+AC2)DS(1,2)=0.
250D0*(AC2-1.
0D0)*(-2.
0D0*AC1+AC2)DS(1,3)=0.
250D0*(AC2+1.
0D0)*(2.
0D0*AC1+AC2)DS(1,4)=-0.
250D0*(AC2+1.
0D0)*(-2.
0D0*AC1+AC2)DS(1,5)=AC1*(AC2-1.
0D0)DS(1,6)=-0.
50D0*(AC2**2-1.
0D0)DS(1,7)=-AC1*(AC2+1.
0D0)DS(1,8)=0.
50D0*(AC2**2-1.
0D0)Cderivativesforac2DS(2,1)=-0.
250D0*(AC1-1.
0D0)*(2.
0D0*AC2+AC1)DS(2,2)=0.
250D0*(AC1+1.
0D0)*(2.
0D0*AC2-AC1)DS(2,3)=0.
250D0*(AC1+1.
0D0)*(2.
0D0*AC2+AC1)DS(2,4)=-0.
250D0*(AC1-1.
0D0)*(2.
0D0*AC2-AC1)282Appendix:FortranCodesofCS-SDS(2,5)=0.
50D0*(AC1**2-1.
0D0)DS(2,6)=-AC2*(AC1+1.
0D0)DS(2,7)=-0.
50D0*(AC1**2-1.
0D0)DS(2,8)=AC2*(AC1-1.
0D0)cGOTO80C-----SHAPEFUNCTIONSANDDERIVATIVESFORCUBICSTRAINTRIANGLE15CONTINUEC1=32.
0D0/3.
0D0C2=64.
0D0C3=128.
0D0/3.
0D0C4=128.
0D0T11=AC1-0.
250D0T12=AC1-0.
50D0T13=AC1-0.
750D0T21=AC2-0.
250D0T22=AC2-0.
50D0T23=AC2-0.
750D0T31=AC3-0.
250D0T32=AC3-0.
50D0T33=AC3-0.
750D0C-----SHAPEFUNCTIONSSHFN(1)=C1*AC1*T11*T12*T13SHFN(2)=C1*AC2*T21*T22*T23SHFN(3)=C1*AC3*T31*T32*T33SHFN(4)=C3*AC1*AC2*T11*T12SHFN(5)=C2*AC1*AC2*T11*T21SHFN(6)=C3*AC1*AC2*T21*T22SHFN(7)=C3*AC2*AC3*T21*T22SHFN(8)=C2*AC2*AC3*T21*T31SHFN(9)=C3*AC2*AC3*T31*T32SHFN(10)=C3*AC1*AC3*T31*T32SHFN(11)=C2*AC1*AC3*T11*T31SHFN(12)=C3*AC1*AC3*T11*T12SHFN(13)=C4*AC1*AC2*AC3*T11SHFN(14)=C4*AC1*AC2*AC3*T21SHFN(15)=C4*AC1*AC2*AC3*T31IF(ICODE.
EQ.
1)GOTO80CDS(1,1)=C1*(T12*T13*(T11+AC1)+AC1*T11*(T13+T12))DS(1,2)=0.
0D0DS(1,3)=-C1*(T32*T33*(AC3+T31)+AC3*T31*(T32+T33))DS(1,4)=C3*AC2*(T11*T12+AC1*(T11+T12))DS(1,5)=C2*AC2*T21*(AC1+T11)DS(1,6)=C3*AC2*T21*T22Appendix:FortranCodesofCS-S283DS(1,7)=-C3*AC2*T21*T22DS(1,8)=-C2*AC2*T21*(AC3+T31)DS(1,9)=-C3*AC2*(T31*T32+AC3*(T31+T32))DS(1,10)=-C3*(AC1*AC3*(T31+T32)-T31*T32*(AC3-AC1))DS(1,11)=C2*(AC1*AC3*(T31-T11)+T31*T11*(AC3-AC1))DS(1,12)=C3*(AC1*AC3*(T11+T12)+T11*T12*(AC3-AC1))DS(1,13)=C4*AC2*(AC1*AC3+T11*(AC3-AC1))DS(1,14)=C4*AC2*T21*(AC3-AC1)DS(1,15)=-C4*AC2*(AC1*AC3+T31*(AC1-AC3))CDS(2,1)=0.
0D0DS(2,2)=C1*(T22*T23*(AC2+T21)+AC2*T21*(T22+T23))DS(2,3)=-C1*(T32*T33*(AC3+T31)+AC3*T31*(T32+T33))DS(2,4)=C3*AC1*T11*T12DS(2,5)=C2*AC1*T11*(AC2+T21)DS(2,6)=C3*AC1*(T21*T22+AC2*(T21+T22))DS(2,7)=C3*(AC2*AC3*(T21+T22)+T21*T22*(AC3-AC2))DS(2,8)=C2*(AC2*AC3*(T31-T21)+T21*T31*(AC3-AC2))DS(2,9)=-C3*(AC2*AC3*(T31+T32)+T31*T32*(AC2-AC3))DS(2,10)=-C3*AC1*(T31*T32+AC3*(T31+T32))DS(2,11)=-C2*AC1*T11*(AC3+T31)DS(2,12)=-C3*AC1*T11*T12DS(2,13)=C4*AC1*T11*(AC3-AC2)DS(2,14)=C4*AC1*(AC2*AC3+T21*(AC3-AC2))DS(2,15)=-C4*AC1*(AC2*AC3+T31*(AC2-AC3))GOTO80C-----SHAPEFUNCTIONSANDDERIVATIVESFORBRICKELEMENTC-----SHAPEFUNCTIONS17SHFN(1)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0-AC2)*(1.
0D0+AC3)1*(-AC1-AC2+AC3-2.
0D0)SHFN(2)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0-AC2)*(1.
0D0+AC3)2*(AC1-AC2+AC3-2.
0D0)SHFN(3)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0+AC2)*(1.
0D0+AC3)3*(AC1+AC2+AC3-2.
0D0)SHFN(4)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0+AC2)*(1.
0D0+AC3)4*(-AC1+AC2+AC3-2.
0D0)SHFN(5)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0-AC2)*(1.
0D0-AC3)5*(-AC1-AC2-AC3-2.
0D0)SHFN(6)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0-AC2)*(1.
0D0-AC3)6*(AC1-AC2-AC3-2.
0D0)SHFN(7)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0+AC2)*(1.
0D0-AC3)7*(AC1+AC2-AC3-2.
0D0)SHFN(8)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0+AC2)*(1.
0D0-AC3)8*(-AC1+AC2-AC3-2.
0D0)SHFN(9)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0-AC2)*(1.
0D0+AC3)SHFN(10)=0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC2**2)*(1.
0D0+AC3)SHFN(11)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0+AC2)*(1.
0D0+AC3)284Appendix:FortranCodesofCS-SSHFN(12)=0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC2**2)*(1.
0D0+AC3)SHFN(13)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0-AC2)*(1.
0D0-AC3)SHFN(14)=0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC2**2)*(1.
0D0-AC3)SHFN(15)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0+AC2)*(1.
0D0-AC3)SHFN(16)=0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC2**2)*(1.
0D0-AC3)SHFN(17)=0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC2)*(1.
0D0-AC3**2)SHFN(18)=0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC2)*(1.
0D0-AC3**2)SHFN(19)=0.
250D0*(1.
0D0+AC1)*(1.
0D0+AC2)*(1.
0D0-AC3**2)SHFN(20)=0.
250D0*(1.
0D0-AC1)*(1.
0D0+AC2)*(1.
0D0-AC3**2)IF(ICODE.
EQ.
1)GOTO80CDERIVATINESDS(1,1)=0.
1250D0*(1.
0D0-AC2)*(1.
0D0+AC3)*(2.
0D0*AC1+AC2-AC3+1.
0D0)DS(1,2)=0.
1250D0*(1.
0D0-AC2)*(1.
0D0+AC3)*(2.
0D0*AC1-AC2+AC3-1.
0D0)DS(1,3)=0.
1250D0*(1.
0D0+AC2)*(1.
0D0+AC3)*(2.
0D0*AC1+AC2+AC3-1.
0D0)DS(1,4)=0.
1250D0*(1.
0D0+AC2)*(1.
0D0+AC3)*(2.
0D0*AC1-AC2-AC3+1.
0D0)DS(1,5)=0.
1250D0*(1.
0D0-AC2)*(1.
0D0-AC3)*(2.
0D0*AC1+AC2+AC3+1.
0D0)DS(1,6)=0.
1250D0*(1.
0D0-AC2)*(1.
0D0-AC3)*(2.
0D0*AC1-AC2-AC3-1.
0D0)DS(1,7)=0.
1250D0*(1.
0D0+AC2)*(1.
0D0-AC3)*(2.
0D0*AC1+AC2-AC3-1.
0D0)DS(1,8)=0.
1250D0*(1.
0D0+AC2)*(1.
0D0-AC3)*(2.
0D0*AC1-AC2+AC3+1.
0D0)DS(1,9)=-0.
50D0*AC1*(1.
0D0-AC2)*(1.
0D0+AC3)DS(1,10)=0.
250D0*(1.
0D0-AC2**2)*(1.
0D0+AC3)DS(1,11)=-0.
50D0*AC1*(1.
0D0+AC2)*(1.
0D0+AC3)DS(1,12)=-0.
250D0*(1.
0D0-AC2**2)*(1.
0D0+AC3)DS(1,13)=-0.
50D0*AC1*(1.
0D0-AC2)*(1.
0D0-AC3)DS(1,14)=0.
250D0*(1.
0D0-AC2**2)*(1.
0D0-AC3)DS(1,15)=-0.
50D0*AC1*(1.
0D0+AC2)*(1.
0D0-AC3)DS(1,16)=-0.
250D0*(1.
0D0-AC2**2)*(1.
0D0-AC3)DS(1,17)=-0.
250D0*(1.
0D0-AC2)*(1.
0D0-AC3**2)DS(1,18)=0.
250D0*(1.
0D0-AC2)*(1.
0D0-AC3**2)DS(1,19)=0.
250D0*(1.
0D0+AC2)*(1.
0D0-AC3**2)DS(1,20)=-0.
250D0*(1.
0D0+AC2)*(1.
0D0-AC3**2)CDS(2,1)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0+AC3)*(AC1+2.
0D0*AC2-AC3+1.
0D0)DS(2,2)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0+AC3)*1(-AC1+2.
0D0*AC2-AC3+1.
0D0)DS(2,3)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0+AC3)*(AC1+2.
0D0*AC2+AC3-1.
0D0)DS(2,4)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0+AC3)*1(-AC1+2.
0D0*AC2+AC3-1.
0D0)DS(2,5)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0-AC3)*(AC1+2.
0D0*AC2+AC3+1.
0D0)DS(2,6)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0-AC3)*1(-AC1+2.
0D0*AC2+AC3+1.
0D0)DS(2,7)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0-AC3)*(AC1+2.
0D0*AC2-AC3-1.
0D0)DS(2,8)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0-AC3)*1(-AC1+2.
0D0*AC2-AC3-1.
0D0)DS(2,9)=-0.
250D0*(1.
0D0-AC1**2)*(1.
0D0+AC3)DS(2,10)=-0.
50D0*(1.
0D0+AC1)*AC2*(1.
0D0+AC3)DS(2,11)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0+AC3)DS(2,12)=-0.
50D0*(1.
0D0-AC1)*AC2*(1.
0D0+AC3)Appendix:FortranCodesofCS-S285DS(2,13)=-0.
250D0*(1.
0D0-AC1**2)*(1.
0D0-AC3)DS(2,14)=-0.
50D0*(1.
0D0+AC1)*AC2*(1.
0D0-AC3)DS(2,15)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0-AC3)DS(2,16)=-0.
50D0*(1.
0D0-AC1)*AC2*(1.
0D0-AC3)DS(2,17)=-0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC3**2)DS(2,18)=-0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC3**2)DS(2,19)=0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC3**2)DS(2,20)=0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC3**2)CDS(3,1)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0-AC2)*1(-AC1-AC2+2.
0D0*AC3-1.
0D0)DS(3,2)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0-AC2)*(AC1-AC2+2.
0D0*AC3-1.
0D0)DS(3,3)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0+AC2)*(AC1+AC2+2.
0D0*AC3-1.
0D0)DS(3,4)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0+AC2)*1(-AC1+AC2+2.
0D0*AC3-1.
0D0)DS(3,5)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0-AC2)*(AC1+AC2+2.
0D0*AC3+1.
0D0)DS(3,6)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0-AC2)*1(-AC1+AC2+2.
0D0*AC3+1.
0D0)DS(3,7)=0.
1250D0*(1.
0D0+AC1)*(1.
0D0+AC2)*1(-AC1-AC2+2.
0D0*AC3+1.
0D0)DS(3,8)=0.
1250D0*(1.
0D0-AC1)*(1.
0D0+AC2)*(AC1-AC2+2.
0D0*AC3+1.
0D0)DS(3,9)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0-AC2)DS(3,10)=0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC2**2)DS(3,11)=0.
250D0*(1.
0D0-AC1**2)*(1.
0D0+AC2)DS(3,12)=0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC2**2)DS(3,13)=-0.
250D0*(1.
0D0-AC1**2)*(1.
0D0-AC2)DS(3,14)=-0.
250D0*(1.
0D0+AC1)*(1.
0D0-AC2**2)DS(3,15)=-0.
250D0*(1.
0D0-AC1**2)*(1.
0D0+AC2)DS(3,16)=-0.
250D0*(1.
0D0-AC1)*(1.
0D0-AC2**2)DS(3,17)=-0.
50D0*(1.
0D0-AC1)*(1.
0D0-AC2)*AC3DS(3,18)=-0.
50D0*(1.
0D0+AC1)*(1.
0D0-AC2)*AC3DS(3,19)=-0.
50D0*(1.
0D0+AC1)*(1.
0D0+AC2)*AC3DS(3,20)=-0.
50D0*(1.
0D0-AC1)*(1.
0D0+AC2)*AC3GOTO80C-----SHAPEFUNCTIONSANDDERIVATIVESFORTETRA-HEDRA18CONTINUEWRITE(LOUT1,910)MUS,LT910FORMAT(/1X,7HELEMENT,I5,2X,14HISOFTYPE***,I5,2X,131HNOTIMPLEMENTED(ROUTINESHAPE))80CONTINUERETURNEND286Appendix:FortranCodesofCS-SSUBROUTINEFACTOR(LINP,LOUT1,NOINC,ILDF,IOCD,ITMF,IOUTS,1RINCC,DTM,IOPT,DTIME)C*CLOADRATIOS,TIMERATIOS(CONSOLIDATIONANALYSIS)ANDOUTPUTCOPTIONSFORALLINCREMENTSINTHEBLOCKC*C1CALLEDBYTOTSOLIMPLICITREAL*8(A-H,O-Z)DIMENSIONRINCC(2500),DTM(2500),IOPT(2500)COMMON/PARS/PYI,ASMVL,ZEROC-----READLOADRATIOSFORINCREMENTSFSTD=1.
0D0/FLOAT(NOINC)!
FSTD=factorofincrementforunitpen.
lengthIF(ILDF.
EQ.
0)GOTO98!
ILDF=0andskip--SongWRITE(LOUT1,948)READ(LINP,*)(RINCC(IN),IN=1,NOINC)WRITE(LOUT1,954)(RINCC(IN),IN=1,NOINC)GOTO12298DO100IK=1,NOINC100RINCC(IK)=FSTDC-----READOUTPUTOPTIONS122IF(IOCD.
EQ.
0)GOTO127!
IOCD=0WRITE(LOUT1,960)READ(LINP,*)(IOPT(IN),IN=1,NOINC)WRITE(LOUT1,964)(IOPT(IN),IN=1,NOINC)GOTO131C127DO130IK=1,NOINC130IOPT(IK)=IOUTSC-----READTIMERATIOSFORINCREMENTS131IF(DTIME.
LT.
ASMVL.
OR.
ITMF.
EQ.
0)GOTO132!
ITMF=0WRITE(LOUT1,965)READ(LINP,*)(DTM(IN),IN=1,NOINC)WRITE(LOUT1,968)(DTM(IN),IN=1,NOINC)GOTO136C132DO135IK=1,NOINC135DTM(IK)=FSTD*DTIME136CONTINUERETURN948FORMAT(/1X,34HLISTOFLOADRATIOSFORINCREMENTS/1X,34(1H-)/)954FORMAT(1X,10F8.
1)960FORMAT(/1X,35HLISTOFOUTPUTCODESFORINCREMENTS/1X,35(1H-)/)964FORMAT(1X,10I6)Appendix:FortranCodesofCS-S287965FORMAT(/1X,33HLISTOFTIMESTEPSFORINCREMENTS/1X,33(1H-)/)968FORMAT(1X,8G10.
1)ENDC*SUBROUTINESKSOLV(XYZ,DA,DITER,DIPR,DD,STRESS,PITER,NQ,NW,1LTYP,NTY,MAT,NCONN,PR,IOUTP,ITER)C*CC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONXYZ(3,MNODES),DA(MDOF),DITER(MDOF),DAPPL(MDOF),1DIPR(MDOF),DSOLVD(MDOF),STRESS(NVRS,NIP,MEL),PITER(MDOF),2P(MDOF),GSTIF(MKSIZ)DIMENSIONNQ(MNODES),NW(MNODES+1)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONPR(NPR,NMT),NTY(NMT),DD(4,200)COMMON/GLBSTF/LOCDOF(MDOF),JDIAG(MDOF),NKSIZ,NEQTNSCOMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/ANLYS/TTIME,DTIMEI,TGRAV,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDSCINITIALIZETHEGLOBALSTIFFNESSMATRIXDOI=1,MKSIZGSTIF(I)=0.
0D0ENDDOCINITIALIZEDAPPL,PCALLZEROR1(DAPPL,MDOF)CALLZEROR1(P,MDOF)CALLZEROR1(PDIS,MDOF)CALLZEROR1(DITER,MDOF)NDIM1=NDIM+1CIF(ITER.
EQ.
1)THENDOINODE=1,NFNODE=MF(INODE)IDF=NW(NODE)-1KDF=NQ(NODE)IF(KDF.
EQ.
1)GOTO10288Appendix:FortranCodesofCS-SDOID=1,KDFIF(ID.
EQ.
NDIM1)GOTO10DAPPL(IDF+ID)=DXYT(ID,INODE)*FRACLD+DD(ID,INODE)DITER(IDF+ID)=DAPPL(IDF+ID)ENDDOGOTO2010NTTI=NFIX(NDIM1,INODE)IF(NTTI.
EQ.
2)THENDAPPL(IDF+KDF)=DXYT(NDIM1,INODE)-DA(IDF+KDF)DITER(IDF+KDF)=DAPPL(IDF+KDF)NFIX(NDIM1,INODE)=1DXYT(NDIM1,INODE)=0.
0D0ENDIF20CONTINUEENDDOENDIFcTHELOADMATRIXISREARRANGEDSUCHTHATBCSARETAKENAWAY.
DOINODE=1,NNODESKDF=NQ(INODE)NWDF=NW(INODE)-1DOIDF=1,KDFLOC=NWDF+IDFLOCGLB=LOCDOF(LOC)IF(LOCGLB.
GT.
0)P(LOCGLB)=PITER(LOC)enddoenddoCCALLGLASSEM(GSTIF,XYZ,DA,DAPPL,DIPR,STRESS,P,NQ,NW,LTYP,1NTY,MAT,NCONN,PR,DTIMEI,ITER,JS)CDOI=1,NEQTNSDSOLVD(I)=P(I)ENDDOCCALLSOLSYM(GSTIF,DSOLVD)cDOI=1,NDFcDITER(I)=0.
0D0LOC=LOCDOF(I)IF(LOC.
GT.
0)THENDITER(I)=DSOLVD(LOC)Appendix:FortranCodesofCS-S289ENDIFENDDOCRETURNENDC*SUBROUTINEGLASSEM(GSTIF,XYZ,DA,DAPPL,DIPR,STRESS,P,NQ,NW,1LTYP,NTY,MAT,NCONN,PR,DTIMEI,ITER,JS)C*CTHISSUBROUTINEASSEMBLESTHEGLOBALSTIFFNESSMATRIXANDCALCULATECTHEEQUIVALENTLOADFORTHEAPPLIEDDISPLACEMENTC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONXYZ(3,MNODES),DA(MDOF),DAPPL(MDOF),DIPR(MDOF),1STRESS(NVRS,NIP,MEL),P(MDOF),GSTIF(MKSIZ),ESTIF(MDFE,MDFE),2EDINC(NB)DIMENSIONNQ(MNODES),NW(MNODES+1),LOCELM(MDFE)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL)DIMENSIONPR(NPR,NMT),NTY(NMT)COMMON/GLBSTF/LOCDOF(MDOF),JDIAG(MDOF),NKSIZ,NEQTNSCOMMON/ELINF/LINFO(50,15)COMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCLOOPOVEREACHELREMENTDOIELEM=1,NELITYPE=LTYP(IELEM)NELN=LINFO(1,ITYPE)NEDOF=LINFO(16,ITYPE)CGETTHEELEMENTDISPLFROMGLOBALDISPLDOJDN=1,NELNNIN=NDIM*(JDN-1)JN=ABS(NCONN(JDN,IELEM))JL=NW(JN)-1DOID=1,NDIMEDINC(NIN+ID)=DIPR(JL+ID)ENDDOENDDOCGETTHECORRESPONDANCEBETWEENELEMENTANDGLOBALDOFSCALLDOFL2G(LOCELM,NW,NQ,NCONN,NELN,IELEM)CCALCULATEELEMENTSTIFNESSMATRIX290Appendix:FortranCodesofCS-SCALLELMSTIF(IELEM,ESTIF,DTIMEI,ITYPE,XYZ,DA,EDINC,STRESS,P,2NCONN,MAT,NW,PR,NTY,IOUTP,ITER,JS)CCIF(IELEM.
EQ.
1)THENCWRITE(2,*)'ESTIF'CDOI1=1,20CWRITE(2,*)(ESTIF(I1,J1),J1=1,20)CENDDOCENDIFCDOI=1,NEDOFIGDF=LOCELM(I)IDOF=LOCDOF(LOCELM(I))IF(IDOF.
GT.
0)THENLOCD=JDIAG(IDOF)DOJ=1,NEDOFJGDF=LOCELM(J)JDOF=LOCDOF(LOCELM(J))IF(IDOF.
GE.
JDOF.
AND.
JDOF.
GT.
0)THENLOCA=LOCD+IDOF-JDOFGSTIF(LOCA)=GSTIF(LOCA)+ESTIF(I,J)CWRITE(*,*)"STIFF",GSTIF(LOCA)ENDIFCIF(JDOF.
GT.
0)THENCP(JDOF)=P(JDOF)+ESTIF(I,J)*DAPPL(IGDF)CPDIS(JGDF)=PDIS(JGDF)+ESTIF(I,J)*DAPPL(IGDF)CENDIFENDDOELSEIF(IDOF.
EQ.
0)THENDOJ=1,NEDOFJDOF=LOCDOF(LOCELM(J))IF(JDOF.
GT.
0)THENP(JDOF)=P(JDOF)-ESTIF(I,J)*DAPPL(IGDF)ENDIFENDDOENDIFENDDOCENDDORETURNENDAppendix:FortranCodesofCS-S291C*SUBROUTINESOLSYM(A,R)C*CTHISSUBROUTINESOLVESFORTHEDISPLACEMENTSBYSOLVINGTHECSYMMETRICLINEARSETOFEQUATIONSC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/GLBSTF/LOCDOF(MDOF),JDIAG(MDOF),NKSIZ,NEQTNSDIMENSIONA(MKSIZ),R(MDOF)cperforml*d*lfactorizationofthestiffnessmatrixdon=1,NEQTNSkn=jdiag(n)kl=kn+1ku=jdiag(n+1)-1kh=ku-klif(kh.
gt.
0)thenk=n-khic=0klt=kudoj=1,khic=ic+1klt=klt-1ki=jdiag(k)nd=jdiag(k+1)-ki-1if(nd.
gt.
0)thenkk=min0(ic,nd)c=0.
dol=1,kkc=c+a(ki+l)*a(klt+l)enddoa(klt)=a(klt)-cendifk=k+1enddoendifif(kh.
ge.
0)thenk=nb=0.
d0dokk=kl,kuk=k-1ki=jdiag(k)c=a(kk)/a(ki)292Appendix:FortranCodesofCS-Sb=b+c*a(kk)a(kk)=cenddoa(kn)=a(kn)-bendifCif(a(kn).
le.
0)thenif(a(kn).
EQ.
0)thenwrite(*,2000)n,a(kn)stopendifenddocreducetheright-hand-sideloadvectordon=1,NEQTNSkl=jdiag(n)+1ku=jdiag(n+1)-1if(ku-kl.
ge.
0)thenk=nc=0.
d0dokk=kl,kuk=k-1c=c+a(kk)*r(k)enddor(n)=r(n)-cendifenddoCcback-substituteCdon=1,NEQTNSk=jdiag(n)r(n)=r(n)/a(k)enddoif(NEQTNS.
eq.
1)returnn=NEQTNSdol=2,NEQTNSkl=jdiag(n)+1ku=jdiag(n+1)-1if(ku-kl.
ge.
0)thenk=ndokk=kl,kuk=k-1r(k)=r(k)-a(kk)*r(n)enddoendifn=n-1Appendix:FortranCodesofCS-S293enddoreturn2000format(//1x,'stop-stiffnessmatrixnotpositivedefinite'//11x,'ZEROPIVOTFOREQUATION',i4//1x,'pivot=',e20.
12)endC*SUBROUTINELOCINIT(LTYP,NCONN,NQ,NW,NDF,NDIM)C*CTHSSUBROUTINEREASSIGNTHEAPPROPRIATEPOINTERSTOTHEDOFMATRIXCANDSTIFFNESSMATRIXFORSTORAGEALLOCATIONANDDEPENDNGONTHEWAYCTHELINEARSYSTEMISSOLVED.
C-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNQ(MNODES),NW(MNODES+1)DIMENSIONNCONN(NTPE,MEL),LTYP(MEL)COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/GLBSTF/LOCDOF(MDOF),JDIAG(MDOF),NKSIZ,NEQTNSCELIMINATETHEDOFSTHATARECONSTRAINEDBYASSIGNINGZEROTOLOCDOFCCORRESPONDTOTHATDOFM=0NDIM1=NDIM+1CALLZEROI1(LOCDOF,MDOF)CALLZEROI1(JDIAG,MDOF)CCWRITE(2,*)'NODENFIXLOCDOF'DOINODE=1,NFNODE=MF(INODE)IDF=NW(NODE)-1KDF=NQ(NODE)IF(KDF.
EQ.
1)THENLOCDOF(IDF+KDF)=NFIX(NDIM1,INODE)ELSEDOID=1,KDFLOCDOF(IDF+ID)=NFIX(ID,INODE)ENDDOENDIFENDDOCWRITE(2,*)'LOCDOF1'CWRITE(2,*)(LOCDOF(IDF),IDF=1,NDF)294Appendix:FortranCodesofCS-SCDOIDOF=1,NDFIF(LOCDOF(IDOF).
EQ.
0)THENM=M+1LOCDOF(IDOF)=MELSEIF(LOCDOF(IDOF).
GT.
0)THENLOCDOF(IDOF)=0ENDIFENDDONEQTNS=MCWRITE(2,*)'LOCDOF2'CWRITE(2,*)(LOCDOF(IDF),IDF=1,NDF)CALLDIAG(LTYP,NCONN,NQ,NW)RETURNENDC*SUBROUTINEDOFL2G(LOCGLB,NW,NQ,NCONN,NELN,IELEM)C*CTHISSUBROUTINEFINDSTHECORRESPONDENCEBETWEENELEMENTANDGLOBALCDOFSC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNQ(MNODES),NW(MNODES+1)DIMENSIONNCONN(NTPE,MEL),LOCGLB(MDFE)CIESTRT=0NWQ=0DOIELN=1,NELNNODE=NCONN(IELN,IELEM)NODDOF=NQ(NODE)IESTRT=IESTRT+NWQIGSTRT=NW(NODE)-1DOIDOF=1,NODDOFIELOC=IESTRT+IDOFLOCGLB(IELOC)=IGSTRT+IDOFENDDONWQ=NODDOFENDDORETURNENDAppendix:FortranCodesofCS-S295C*SUBROUTINEDIAG(LTYP,NCONN,NQ,NW)C*CTHISSUBROUTINEFINDSTHEDIAGONALLOCATIONOFTHEELEMENTINTHECSTIFFNESSMATRIX(JDIAG)C-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNQ(MNODES),NW(MNODES+1)DIMENSIONNCONN(NTPE,MEL),LTYP(MEL)COMMON/ELINF/LINFO(50,15)COMMON/GLBSTF/LOCDOF(MDOF),JDIAG(MDOF),NKSIZ,NEQTNSCOMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCFINDTHECOLUMNHEIGHTSDOIELEM=1,NELITYPE=LTYP(IELEM)NELN=LINFO(1,ITYPE)MAXDOF=0MINDOF=1000000DOIELN=1,NELNNODE=NCONN(IELN,IELEM)NODDOF=NQ(NODE)DOIDOF=1,NODDOFK=NW(NODE)-1+IDOFIF(LOCDOF(K).
GT.
0)THENCIF(LOCDOF(K).
GT.
MAXDOF)MAXDOF=LOCDOF(K)CIF(LOCDOF(K).
LT.
MINDOF)MINDOF=LOCDOF(K)MAXDOF=MAX0(MAXDOF,LOCDOF(K))MINDOF=MIN0(MINDOF,LOCDOF(K))ENDIFENDDOENDDOCDOIELN=1,NELNNODE=NCONN(IELN,IELEM)NODDOF=NQ(NODE)DOIDOF=1,NODDOFK=NW(NODE)-1+IDOFIF(LOCDOF(K).
GT.
0)THENID=LOCDOF(K)MHT=ID-MINDOF+1IF(MHT.
GT.
JDIAG(ID))JDIAG(ID)=MHTENDIF296Appendix:FortranCodesofCS-SENDDOENDDOENDDOCMHT=1ID=0DOK=1,NEQTNS+1ID=ID+MHTMHT=JDIAG(K)JDIAG(K)=IDENDDONKSIZ=JDIAG(NEQTNS+1)-JDIAG(1)IF(NKSIZ.
GT.
MKSIZ)THENWRITE(2,*)'NKSIZ=',NKSIZWRITE(2,*)'NKSIZGREATERTHANMKSIZ'STOPENDIFRETURNENDSUBROUTINESEL1(LOUT1,NDIM,NEL,XYZ,P,NCONN,MAT,1LTYP,NW,PR,DGRAV)CC1CALLEDBYTOTSOLIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONXYZ(3,MNODES),P(MDOF),F(3,NDMX)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL),NW(MNODES+1)DIMENSIONPR(NPR,NMT)COMMON/ELINF/LINFO(50,15)COMMON/PARS/PYI,ASMVL,ZEROC-----CODETOINDICATESTAGEOFTHEANALYSISKSTGE=3C-----ITERATEFORALLELEMENTSDO50J=1,NELJK=JC-----BY-PASSADDITIONIFELEMENTNOTINCURRENTMESHLT=LTYP(J)Appendix:FortranCodesofCS-S297IF(LT.
LT.
0)GOTO50GOTO(50,22,22,22,22,22,22,22,22,22,22),LTWRITE(LOUT1,900)JK,LT900FORMAT(1X,7HELEMENT,I5,2X,18HISOFUNKNOWNTYPE,I5,114H(ROUTINESEL1))22INDX=LINFO(12,LT)NDN=LINFO(5,LT)NAC=LINFO(15,LT)K=MAT(J)DENS=DGRAV*PR(8,K)IF(DENS.
LE.
ASMVL)GOTO50C-----CallSelfCALLSELF(LOUT1,J,NDN,NAC,XYZ,F,NCONN,MAT,LT,INDX,DENS,JK,KSTGE)CDO30JJ=1,NDNJN=NCONN(JJ,J)JL=NW(JN)-1CDO30ID=1,NDIM30P(JL+ID)=P(JL+ID)+F(ID,JJ)50CONTINUERETURNENDC*SUBROUTINEELMSTIF(K,STIFF,DTIME,LT,XYZ,DA,EDISPINC,STRESS,P,2NCONN,MAT,NW,PR,NTY,IOUTP,ITER,JS)C*CCALCULATIONANDASSEMBLYOFSTIFFNESSMATRIXC*CThissubroutinecalculatethestiffnessofeachelement.
CItiscombinedwithglobalstiffnessinGLobalASSEMbly.
Song3/31/99CCalledbyGlassemCK=ILEM=elementnumberIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONPERM(3)DIMENSIONSG(KES),XYZ(3,MNODES),DA(MDOF),DAB(3,3),1STRESS(NVRS,NIP,MEL),P(MDOF),D(6,6),ELCOD(3,NDMX),DS(3,20),2EDISPINC(NB),SHFN(20),CARTD(3,NDMX),BL(6,NB),3BNL(6,NB),BNLS(9,NB),BL1(9,NB),DB(6,NB),3EKSTIF(NB,NB),ELCODP(3,NPMX),XJACM(3,3),4E(3,NPMX),RN(NB),AA(NPMX),EFLOW(NPMX,NPMX),5ECOUPT(NB,NPMX),SPK(9,9),S(6),F(3,3),FINV(3,3)298Appendix:FortranCodesofCS-SdimensionETE(NPMX,NPMX),RLT(NB,NPMX)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),NW(MNODES+1),1NWL(NPMX),SLL(4),PR(NPR,NMT),NTY(NMT)DIMENSIONSTIFF(MDFE,MDFE)DIMENSIONGDT(NPMX),BOD(3),PE(3,NPMX)DIMENSIONSALPHA(4),A(6)!
AaddedjustformatchingCOMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/DATW/W(100)COMMON/DATL/SL(4,100)COMMON/PARS/PYI,ASMVL,ZEROCOMMON/ELINF/LINFO(50,15)COMMON/JACB/XJACI(3,3),DJACBCOMMON/MODEL/PQMOD(NIP,MEL,2),MCODE(NIP,MEL)COMMON/NSIZE/NNODES,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWC-CR=1.
0D0IF(NPLAX.
EQ.
1)CR=2.
0D0*PYIC-INITIALISEEKSTIF,ECOUPTANDEFLOWCALLZEROR2(EKSTIF,NB,NB)CALLZEROR2(ECOUPT,NB,NPMX)CALLZEROR2(RLT,NB,NPMX)CALLZEROR2(EFLOW,NPMX,NPMX)CALLZEROR2(ETE,NPMX,NPMX)CALLZEROR1(GDT,NPMX)CALLZEROR1(BOD,3)CWRITE(*,*)"ELMSTIF"CNDN=LINFO(5,LT)NPN=LINFO(6,LT)NGP=LINFO(11,LT)INDX=LINFO(12,LT)NAC=LINFO(15,LT)NDV=NDIM*NDNNDPT=LINFO(1,LT)GOTO(1,1,2,1,2,1,2,1,2,1,2),LTWRITE(LOUT1,910)K,LT910FORMAT(1X,7HELEMENT,I5,2X,18HISOFUNKNOWNTYPE,I5,12X,17H(ROUTINEELMSTIF))STOPC1ICPL=0IBLK=1NPN=0GOTO142ICPL=1IBLK=0Appendix:FortranCodesofCS-S299C-CSETUPLOCALARRAYOFNWASNWLGIVINGTHEINDEXTOCPORE-PRESSUREVARIABLESC-IPP=0C-INXL-INDEXTONODALD.
O.
F.
(SEEBLOCKDATA)DO12IV=1,NDPTIQ=LINFO(IV+INXL,LT)IF(IQ.
EQ.
NDIM)GOTO12IPP=IPP+1NDE=NCONN(IV,K)NDE=IABS(NDE)C-COORDINATESOFPOREPRESSURENODESOFELEMENTDO10ID=1,NDIM10ELCODP(ID,IPP)=XYZ(ID,NDE)NWL(IPP)=NW(NDE)+IQ-112CONTINUEC14KM=MAT(K)C-CLOCALARRAYOFCOORDINATESOFDISPLACEMENTNODESOFELEMENTC-DO20KN=1,NDNNDE=NCONN(KN,K)NDE=IABS(NDE)CDO20ID=1,NDIM20ELCOD(ID,KN)=XYZ(ID,NDE)CIF(NTY(KM)-2)26,28,28C-CONSTANTELASTICITYDMATRIX26CALLDCON(K,IBLK,MAT,PR,D,NDIM,BK)C-CITERATEFORALLINTEGRATIONPOINTSC-28DO80IP=1,NGP!
NGP=No.
ofiterationpoint=No.
ofGaussPointIPA=IP+INDXICOD=MCODE(IP,K)!
icod=1,2,3,4,5dependonthestresspointCDO30IL=1,NAC30SLL(IL)=SL(IL,IPA)ISTGE=3C-CINITIALISESHAPEFUNCTIONANDDERIVATIVES(LOCALCOORDS)C-300Appendix:FortranCodesofCS-SCALLZEROR2(DS,3,20)CALLZEROR1(SHFN,20)C-CCALCULATESHAPEFUNCTIONSANDDERIVATIVESW.
R.
TLOCALCOOR.
C-CALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,2,K)CALLZEROR2(XJACM,3,3)C-CCALCULATE[JAC],[JAC]-1&DETJACC-DO15IDIM=1,NDIMDO15JDIM=1,NDIMSUM=ZEROCDO112IN=1,NDN112SUM=SUM+DS(IDIM,IN)*ELCOD(JDIM,IN)15XJACM(IDIM,JDIM)=SUMCCALLDETMIN(LOUT1,NDIM,XJACM,XJACI,DJACB,K,IP,ISTGE)C-CCALCULATERADIUSFORAXI-SYMBMATRIXC-R=ZERORI=ZEROIF(NDIM.
EQ.
3.
OR.
NPLAX.
EQ.
0)GOTO38CDO25IN=1,NDN25R=R+ELCOD(1,IN)*SHFN(IN)RI=-1.
0D0/RC-CCALCULATECARTESIANDERIVATIVESOFSHAPEFUNCTIONSC-38DO35IN=1,NDNDO35ID=1,NDIMSUM=ZEROCDO130JD=1,NDIM130SUM=SUM-DS(JD,IN)*XJACI(ID,JD)35CARTD(ID,IN)=SUMC-CCALCULATETHELINEARSTRAIN-DISPLMATRIX[BL]C-CALLBLNR(NDIM,NDN,NPLAX,RI,SHFN,CARTD,BL)F9=CR*DJACB*W(IPA)IF(NDIM.
EQ.
2.
AND.
NPLAX.
EQ.
1)F9=F9*RCIF(LINR.
GT.
0)THENAppendix:FortranCodesofCS-S301C-CCALCULATETHEGEOMETRICNONLINEARMATRIXB\_NLSC-CALLBNLNRS(SHFN,CARTD,RI,BNLS,NDIM,NDN,NPLAX)C-CRETRIEVETHESECONDPIOLA-KIRCHHOFSTRESSVECTORC-DOIS=1,NSS(IS)=STRESS(IS,IP,K)ENDDOIF(NDIM.
NE.
3.
AND.
NPLAX.
NE.
1)THENS(3)=S(4)S(4)=0.
0D0ENDIFC-CCONVERTSVECTORTOSPKMATRIXC-CALLCONVERT(S,SPK,NDIM,NPLAX)CIF(LINR.
GT.
1)THENC-CCALCULATETHENONLINEARSTRAIN-DISPLMATRIXBNLC-CALLBNLNR(EDISPINC,SHFN,CARTD,RI,NDIM,NDN,BNL,NS,NPLAX)CCALLADDBMAT(BL,BNL)ENDIFC-CCOMPUTE[BNLS]T[S][BNLS]ANDADDTOTHEEKSTIFC-NDD=NDIM*NDIMIF(NDIM.
EQ.
2.
AND.
NPLAX.
EQ.
1)NDD=NDD+1CALLBTDB(BNLS,SPK,EKSTIF,F9,NDD)CENDIFC-CCALCULATETHELINEARDISPL-DISPLMATRIXBL1C-CALLBLNR1(CARTD,BL1,NDIM,NDN)C-CCALCULATETHEDEFORMATIONGRADIENTMATRIX[F],[FINV]&DETFC-CALLDEFGRAD(BL1,F,FINV,DETF,EDISPINC,NDIM,LINR)C-CCALCULATEPOREPRESSURESHAPEFUNCTIONS&DERIVATIVESC-IF(ICPL.
EQ.
1)CALLJPC(K,NDIM,NPN,NAC,NPLAX,1DS,CARTD,BL,E,RN,AA,SLL,LT)302Appendix:FortranCodesofCS-SCKGO=NTY(KM)C-CCOMPUTE[D]MATRIXC-GOTO(39,32,33),KGO32CALLDLIN(K,IBLK,NDIM,NDN,ELCOD,SHFN,MAT,D,PR,BK)GOTO3933CALLDMCAM(IP,K,IBLK,NDIM,NS,STRESS,MAT,D,PR,BK,ITER,JS,DAB,+SALPHA,A,H)GOTO3939CONTINUEC-CCALCULATEEKSTIFMATRIXC-CALLLSTIFA(EKSTIF,BL,D,DB,F9,NS)C-CBYPASSIFNOTCOUPLEDCONSOLIDATIONC-IF(ICPL.
EQ.
0)GOTO80C-CFORMPERM*EC-PERM(1)=PR(9,KM)PERM(2)=PR(10,KM)PERM(3)=PERM(1)GAMMAW=PR(7,KM)XGAM=GAMMAWCKGO=NTY(KM)GOTO(60,60,52,60,60),KGOC-CCALCULATEVOIDRATIOC-52EI=STRESS(NS+2,IP,K)POR=EI/(1.
0D0+EI)cPOR=POR*DETFSTRESS(NS+2,IP,K)=POR/(1.
0D0-POR)XGAM=GAMMAW/PORCXGAM=GAMMAW60CONTINUEC-CCALCULATEELEMENTFLOWMATRIXC-cWRITE(*,*)"2222"CALLELFLOW(NDIM,NPN,FINV,DETF,E,F9,EFLOW,PERM,XGAM,DTIME)Appendix:FortranCodesofCS-S303CDO40JJ=1,NPNDO40IM=1,NDIMPE(IM,JJ)=PERM(IM)*E(IM,JJ)40CONTINUEC-cFORMET*PERM*EC-DO41II=1,NPNDO41JJ=1,NPNDO41KK=1,NDIM41ETE(II,JJ)=ETE(II,JJ)+E(KK,II)*PE(KK,JJ)*DTIME*F9/GAMMAWC-CFORMLTC-DO42II=1,NDVDO42JJ=1,NPN42RLT(II,JJ)=RLT(II,JJ)+RN(II)*AA(JJ)*F9C-CFORMG.
DTDO50II=1,NPNDO50KK=1,NDIM50GDT(II)=GDT(II)+PE(KK,II)*BOD(KK)*DTIME*F9*PORC-CCALCULATETHEELEMENTCOUPLINGMATRIX[ECOUP]TC-CALLELCPT(AA,BL,FINV,DETF,ECOUPT,NPN,NDV,NS,F9)C-CENDOFINTEGRATIONPOINTLOOPC-80CONTINUECTRANSFORMTHEEKSTIF&ECOUPTMATRIXTOCOUNTFORSKEWBOUNDARIESIF(NSKEW.
GT.
0)CALLSTFTRN(K,NDIM,NSKEW,EKSTIF,ECOUPT,NCONN,LT)CCWRITE(LOUT1,*)'EKSTIFMATRIXOF',KCDOI1=1,NBCWRITE(LOUT1,1104)(EKSTIF(I1,J1),J1=1,20)CENDDOCWRITE(LOUT1,*)'EFLOWMATRIX'CDOI=1,NPNCWRITE(LOUT1,1103)(EFLOW(I,J),J=1,NPN)CENDDOCWRITE(LOUT1,*)'ECOUPTMATRIX'304Appendix:FortranCodesofCS-SCDOI3=1,NBCWRITE(LOUT1,1103)(ECOUPT(I3,J3),J3=1,NPN)CENDDOC-CFORMSTIFFNESSMATRIXSGFROMEKSTIF,ECOUPTANDEFLOWC-CALLASSEMPLE(SG,DA,GDT,P,EKSTIF,EFLOW,ECOUPT,NWL,1NPN,NDIM,NDN,LT,ICPL,ITER)II=0DOJ1=1,20DOI1=1,J1II=II+1STIFF(I1,J1)=SG(II)STIFF(J1,I1)=STIFF(I1,J1)ENDDOENDDOcWRITE(*,*)"4444"CCcIF(IOUTP.
EQ.
1.
AND.
K.
EQ.
5)thencWRITE(2,*)'EKSTIFMATRIX'cDOI1=1,10cWRITE(2,1104)(EKSTIF(I1,J1),J1=1,10)cENDDOcCWRITE(2,*)'EFLOWMATRIX'CDOI3=1,NPNCWRITE(2,1103)(EFLOW(I3,J3),J3=1,NPN),(ETE(I3,J3),J3=1,NPN)CENDDOCWRITE(2,*)'ECOUPTMATRIX'CDOI3=1,16CWRITE(2,1103)(ECOUPT(I3,J2),J2=1,NPN),(RLT(I3,J3),J3=1,NPN)CENDDOcENDIF1101FORMAT(6E10.
3)1103FORMAT(8E10.
3,/)1104FORMAT(20E10.
3,/)CWRITE(LOUT1,*)'ELEMENTNO=',KCWRITE(LOUT1,*)'[D]MATRIX'CDOI=1,NSCWRITE(LOUT1,1101)(D(I,J),J=1,NS)CENDDOC1101FORMAT(6E10.
3,/)Appendix:FortranCodesofCS-S305CWRITE(LOUT1,*)'BLNRMATRIX'CDOI=1,NSCWRITE(LOUT1,1102)(BL(I,J),J=1,40)CENDDOC1102FORMAT(40E10.
3,/)CWRITE(LOUT1,*)'FULLELEMENTSTIFFNESSMATRIX'CDOI=1,68CWRITE(LOUT1,1102)(STIFF(I,J),J=1,20)CENDDOC1102FORMAT(20E10.
3,/)CRETURNENDC*SUBROUTINEFORMP(J,NDIM,NPN,NAC,DS,SFP,CARTD,SLL,LT)C*CFORMSCARTDMATRIXFORAREACOORDSSLL(NAC)CINTRIANGLEJFORINTEGRATIONPOINTIPC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSLL(4)DIMENSIONDS(3,10),SFP(10),CARTD(3,NPMX)COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/JACB/XJACI(3,3),DJACBC-CCALCULATESHAPEFUNCTIONANDDERIVATIVES(LOCALCOORDS)C-CALLSHFNPP(LOUT1,SLL,NAC,DS,SFP,LT,1,J)CDO35IN=1,NPNDO35ID=1,NDIMSUM=ZEROCDO30JD=1,NDIM30SUM=SUM-DS(JD,IN)*XJACI(ID,JD)35CARTD(ID,IN)=SUMRETURNENDC*SUBROUTINEJPC(J,NDIM,NPN,NAC,NPLAX,DS,CARTD,B,E,RN,AA,SLL,LT)C-CCALCULATESSHAPEFUNCTIONSANDDERIVATIVESCFOREXCESSPOREPRESSUREVARIATIONC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'306Appendix:FortranCodesofCS-SDIMENSIONDS(3,10),CARTD(3,NPMX),B(6,NB),1E(3,NPMX),RN(NB),AA(NPMX),SLL(4)COMMON/PARS/PYI,ASMVL,ZEROCCALLFORMP(J,NDIM,NPN,NAC,DS,AA,CARTD,SLL,LT)C-CFORMRNC-NCOM=NDIMIF(NPLAX.
EQ.
1.
AND.
NCOM.
EQ.
2)NCOM=NDIM+1CDO30IB=1,NBSUM=ZEROCDO20ID=1,NCOM20SUM=SUM+B(ID,IB)30RN(IB)=SUMC-CFORMEC-DO50IN=1,NPNDO50ID=1,NDIM50E(ID,IN)=CARTD(ID,IN)RETURNENDC*SUBROUTINEASSEMPLE(SG,DA,GDT,P,EKSTIF,EFLOW,ECOUPT,NWL,NPN,1NDIM,NDN,LT,ICPL,ITER)C*CFORMELEMENTSTIFFNESSMATRIXSGFROMEKSTIF,ECOUPTANDEFLOWC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONKP(29),KD(94),NXP(15),NXD(15)DIMENSIONSG(KES),DA(MDOF),P(MDOF),EKSTIF(NB,NB),1EFLOW(NPMX,NPMX),ECOUPT(NB,NPMX),NWL(NPMX),GDT(NPMX)COMMON/PARS/PYI,ASMVL,ZEROCOMMON/GLBSTF/LOCDOF(MDOF),JDIAG(MDOF),NKSIZ,NEQTNSC-CINDEXTOROWS/COLUMNSOFSGFORROWS/COLUMNSOFETECINDEXTOCOLUMNSOFSGFOECOLUMNSOFECOUPT(FORCONSOLIDATION)C-C-ELEMENTTYPE3-LST-DATAKP(1),KP(2),KP(3)/13,6,9/Appendix:FortranCodesofCS-S307C-ELEMENTTYPE5-QUADRILATERAL-DATAKP(4),KP(5),KP(6),KP(7)/13,6,9,12/C-ELEMENTTYPE7-CUST-DATAKP(8),KP(9),KP(10),KP(11),KP(12),KP(13),KP(14),KP(15),1KP(16),KP(17)/23,6,9,34,35,36,37,38,39,40/C-ELEMENTTYPE9-BRICK-DATAKP(18),KP(19),KP(20),KP(21),KP(22),KP(23),KP(24),KP(25)/24,8,12,16,20,24,28,32/C-ELEMENTTYPE11-TETRA-HEDRA-DATAKP(26),KP(27),KP(28),KP(29)/14,8,12,16/C-CINDEXTOFIRSTDISPLACEMENTVARIABLEOFEACHNODEINSGCINDEXTOROWS/COLUMNSOFSGFROMROWS/COLUMNSOFSSCINDEXTOROWSOFSGFORROWSOFECOUPT(FORCONSOLIDATIONELEMENT)C-C-ELEMENTTYPE1(2),2(6),4(8),6(15)DATAKD(1),KD(2),KD(3),KD(4),KD(5),KD(6),KD(7),KD(8),KD(9),KD(10),2KD(11),KD(12),KD(13),KD(14),KD(15)/31,3,5,7,9,11,13,15,17,19,21,23,25,27,29/C-ELEMENTTYPE8(20),10(10)DATAKD(16),KD(17),KD(18),KD(19),KD(20),KD(21),KD(22),KD(23),1KD(24),KD(25),KD(26),KD(27),KD(28),KD(29),KD(30),KD(31),2KD(32),KD(33),KD(34),KD(35)/31,4,7,10,13,16,19,22,25,28,31,34,37,40,43,46,49,52,55,58/C-ELEMENTTYPE3(6)DATAKD(36),KD(37),KD(38),KD(39),KD(40),KD(41)/11,4,7,10,12,14/C-ELEMENTTYPE5(8)DATAKD(42),KD(43),KD(44),KD(45),KD(46),KD(47),KD(48),KD(49)/11,4,7,10,13,15,17,19/C-ELEMENTTYPE7(15)DATAKD(50),KD(51),KD(52),KD(53),KD(54),KD(55),KD(56),KD(57),1KD(58),KD(59),KD(60),KD(61),KD(62),KD(63),KD(64)/21,4,7,10,12,14,16,18,20,22,24,26,28,30,32/C-ELEMENTTYPE9(20)DATAKD(65),KD(66),KD(67),KD(68),KD(69),KD(70),KD(71),KD(72),1KD(73),KD(74),KD(75),KD(76),KD(77),KD(78),KD(79),KD(80),2KD(81),KD(82),KD(83),KD(84)/31,5,9,13,17,21,25,29,33,36,39,42,45,48,51,54,57,60,63,66/C-ELEMENTTYPE11(10)DATAKD(85),KD(86),KD(87),KD(88),KD(89),1KD(90),KD(91),KD(92),KD(93),KD(94)/21,5,9,13,17,20,23,26,29,32/C-308Appendix:FortranCodesofCS-SCNXPANDNXDGIVESTARTINGINDEXTOARRAYSKPANDKDCRESPECTIVELYFORDIFFERENTELEMENTTYPESC-DATANXP(1),NXP(2),NXP(3),NXP(4),NXP(5),NXP(6),NXP(7),1NXP(8),NXP(9),NXP(10),NXP(11)/20,0,0,0,3,0,7,0,17,0,25/DATANXD(1),NXD(2),NXD(3),NXD(4),NXD(5),NXD(6),NXD(7),1NXD(8),NXD(9),NXD(10),NXD(11)/20,0,35,0,41,0,49,15,64,15,84/C-C-SIZEOFARRAYSKPANDKD-NKP=29NKD=94C-INXD=NXD(LT)C-BYPASSIFNOTCOUPLEDCONSOLIDATIONIF(ICPL.
EQ.
0)GOTO96C-CCOUPLEDCONSOLIDATIONC-INXP=NXP(LT)C-CALCULATERIGHTHANDSIDEFORPOREPRESSURESDO94II=1,NPNN1=NWL(II)SUM=ZEROCDO92JJ=1,NPNN2=NWL(JJ)IF(ITER.
EQ.
1)THENSUM=SUM+EFLOW(II,JJ)*DA(N2)ELSESUM=0.
0D0ENDIF92CONTINUELOCGLB=LOCDOF(N1)94P(LOCGLB)=P(LOCGLB)+SUM+GDT(II)C-CFORMSGFROMEKSTIFC-96DO150J=1,NDNNJ=KD(J+INXD)-1CDO150JD=1,NDIMNJA=NJ+JDJA=JD+(J-1)*NDIMNCN=NJA*(NJA-1)/2CDO150I=1,NDNAppendix:FortranCodesofCS-S309NI=KD(I+INXD)-1CDO140ID=1,NDIMNIA=NI+IDIA=ID+(I-1)*NDIMIF(NIA.
GT.
NJA)GOTO140LOC=NCN+NIASG(LOC)=EKSTIF(IA,JA)140CONTINUE150CONTINUECIF(ICPL.
EQ.
0)GOTO200C-CSLOTECOUPTC-DO160JA=1,NPNNJA=KP(JA+INXP)NCN=NJA*(NJA-1)/2CDO160I=1,NDNNI=KD(I+INXD)-1CDO160ID=1,NDIMNIA=NI+IDIA=ID+(I-1)*NDIMLOC=NIA+NCNIF(NIA.
GT.
NJA)LOC=NIA*(NIA-1)/2+NJA160SG(LOC)=ECOUPT(IA,JA)C-CSLOTEFLOWC-DO180JE=1,NPNNJ=KP(JE+INXP)NCN=NJ*(NJ-1)/2CDO180IE=1,JENI=KP(IE+INXP)180SG(NI+NCN)=-EFLOW(IE,JE)200CONTINUERETURNENDC*SUBROUTINELSTIFA(EKSTIF,B,D,DB,F9,NS)C*CROUTINETOCALCULATED*BANDBT*D*BCFOREACHINTEGRATIONPOINTC*310Appendix:FortranCodesofCS-SIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONEKSTIF(NB,NB),D(6,6),DB(NVRN,NB),B(6,NB)C-CFORMD*BC-CALLZEROR2(DB,NVRN,NB)CDO20JJ=1,NBDO20II=1,NSDO20KK=1,NS20DB(II,JJ)=DB(II,JJ)+D(II,KK)*B(KK,JJ)C-CFORMBT*D*BC-DO30JJ=1,NBDO30II=1,JJDO30KK=1,NS30EKSTIF(II,JJ)=EKSTIF(II,JJ)+DB(KK,JJ)*B(KK,II)*F9DO40JJ=2,NBJJM1=JJ-1DO40II=1,JJM140EKSTIF(JJ,II)=EKSTIF(II,JJ)RETURNENDC*SUBROUTINESHFNPP(LOUT1,SLL,NAC,DS,SFP,LT,IFL,MUS)C*CSHAPEFUNCTIONSANDDERIVATIVESFORPOREPRESSUREVARIATIONC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSFP(10),DS(3,10),SLL(4)CRL1=SLL(1)RL2=SLL(2)IF(NAC.
LT.
3)GOTO10RL3=SLL(3)IF(NAC.
LT.
4)GOTO10RL4=SLL(4)C10GOTO(80,80,13,80,25,80,37,80,49,80,71),LTWRITE(LOUT1,900)MUS,LT900FORMAT(/1X,7HELEMENT,I5,2X,22HISOFUNKNOWNTYPE***,I5,2X,116H(ROUTINESHFNPP))STOPC-Appendix:FortranCodesofCS-S311CLINEARSTRAINTRIANGLEC-13IF(IFL.
EQ.
0)GOTO23DS(1,1)=1.
0D0DS(1,2)=0.
0D0DS(1,3)=-1.
0D0DS(2,1)=0.
0D0DS(2,2)=1.
0D0DS(2,3)=-1.
0D0C23SFP(1)=RL1SFP(2)=RL2SFP(3)=RL3RETURNC-CQUADRILATERALELEMENTC-25IF(IFL.
EQ.
0)GOTO35DS(1,1)=0.
250D0*(RL2-1.
0D0)DS(1,2)=-0.
250D0*(RL2-1.
0D0)DS(1,3)=0.
250D0*(RL2+1.
0D0)DS(1,4)=-0.
250D0*(RL2+1.
0D0)DS(2,1)=0.
250D0*(RL1-1.
0D0)DS(2,2)=-0.
250D0*(RL1+1.
0D0)DS(2,3)=0.
250D0*(RL1+1.
0D0)DS(2,4)=-0.
250D0*(RL1-1.
0D0)C35SFP(1)=0.
250D0*(RL1-1.
0D0)*(RL2-1.
0D0)SFP(2)=-0.
250D0*(RL1+1.
0D0)*(RL2-1.
0D0)SFP(3)=0.
250D0*(RL1+1.
0D0)*(RL2+1.
0D0)SFP(4)=-0.
250D0*(RL1-1.
0D0)*(RL2+1.
0D0)RETURNC-CCUBICVARIATIONINPORE-PRESSUREC-37C1=9.
0D0/2.
0D0C2=27.
0D0/2.
0D0C3=27.
0D0T11=RL1-1.
0D0/3.
0D0T12=RL1-2.
0D0/3.
0D0T21=RL2-1.
0D0/3.
0D0T22=RL2-2.
0D0/3.
0D0T31=RL3-1.
0D0/3.
0D0T32=RL3-2.
0D0/3.
0D0IF(IFL.
EQ.
0)GOTO40CDS(1,1)=C1*(T11*T12+RL1*(T11+T12))DS(1,2)=0.
0D0312Appendix:FortranCodesofCS-SDS(1,3)=-C1*(T31*T32+RL3*(T31+T32))DS(1,4)=C2*RL2*(RL1+T11)DS(1,5)=C2*RL2*T21DS(1,6)=-C2*RL2*T21DS(1,7)=-C2*RL2*(RL3+T31)DS(1,8)=C2*RL3*T31-C2*RL1*(RL3+T31)DS(1,9)=C2*RL3*(RL1+T11)-C2*RL1*T11DS(1,10)=C3*RL2*RL3-C3*RL2*RL1CDS(2,1)=0.
0D0DS(2,2)=C1*(T21*T22+RL2*(T21+T22))DS(2,3)=-C1*(T31*T32+RL3*(T31+T32))DS(2,4)=C2*RL1*T11DS(2,5)=C2*RL1*(RL2+T21)DS(2,6)=C2*RL3*(RL2+T21)-C2*RL2*T21DS(2,7)=C2*RL3*T31-C2*RL2*(RL3+T31)DS(2,8)=-C2*RL1*(RL3+T31)DS(2,9)=-C2*RL1*T11DS(2,10)=C3*RL1*RL3-C3*RL1*RL2C40SFP(1)=C1*RL1*T11*T12SFP(2)=C1*RL2*T21*T22SFP(3)=C1*RL3*T31*T32SFP(4)=C2*RL1*RL2*T11SFP(5)=C2*RL1*RL2*T21SFP(6)=C2*RL2*RL3*T21SFP(7)=C2*RL2*RL3*T31SFP(8)=C2*RL1*RL3*T31SFP(9)=C2*RL1*RL3*T11SFP(10)=C3*RL1*RL2*RL3RETURNC-CPORE-PRESSURESHAPEFUNCTIONSANDDERIVATIVESFORBRICKELEMENTC-49IF(IFL.
EQ.
0)GOTO45CDERIVATIVESDS(1,1)=-0.
1250D0*(1.
0D0-RL2)*(1.
0D0+RL3)DS(1,2)=0.
1250D0*(1.
0D0-RL2)*(1.
0D0+RL3)DS(1,3)=0.
1250D0*(1.
0D0+RL2)*(1.
0D0+RL3)DS(1,4)=-0.
1250D0*(1.
0D0+RL2)*(1.
0D0+RL3)DS(1,5)=-0.
1250D0*(1.
0D0-RL2)*(1.
0D0-RL3)DS(1,6)=0.
1250D0*(1.
0D0-RL2)*(1.
0D0-RL3)DS(1,7)=0.
1250D0*(1.
0D0+RL2)*(1.
0D0-RL3)DS(1,8)=-0.
1250D0*(1.
0D0+RL2)*(1.
0D0-RL3)CDS(2,1)=-0.
1250D0*(1.
0D0-RL1)*(1.
0D0+RL3)DS(2,2)=-0.
1250D0*(1.
0D0+RL1)*(1.
0D0+RL3)DS(2,3)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0+RL3)Appendix:FortranCodesofCS-S313DS(2,4)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0+RL3)DS(2,5)=-0.
1250D0*(1.
0D0-RL1)*(1.
0D0-RL3)DS(2,6)=-0.
1250D0*(1.
0D0+RL1)*(1.
0D0-RL3)DS(2,7)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0-RL3)DS(2,8)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0-RL3)CDS(3,1)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0-RL2)DS(3,2)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0-RL2)DS(3,3)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0+RL2)DS(3,4)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0+RL2)DS(3,5)=-0.
1250D0*(1.
0D0-RL1)*(1.
0D0-RL2)DS(3,6)=-0.
1250D0*(1.
0D0+RL1)*(1.
0D0-RL2)DS(3,7)=-0.
1250D0*(1.
0D0+RL1)*(1.
0D0+RL2)DS(3,8)=-0.
1250D0*(1.
0D0-RL1)*(1.
0D0+RL2)CSHAPEFUNCTIONS45SFP(1)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0-RL2)*(1.
0D0+RL3)SFP(2)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0-RL2)*(1.
0D0+RL3)SFP(3)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0+RL2)*(1.
0D0+RL3)SFP(4)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0+RL2)*(1.
0D0+RL3)SFP(5)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0-RL2)*(1.
0D0-RL3)SFP(6)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0-RL2)*(1.
0D0-RL3)SFP(7)=0.
1250D0*(1.
0D0+RL1)*(1.
0D0+RL2)*(1.
0D0-RL3)SFP(8)=0.
1250D0*(1.
0D0-RL1)*(1.
0D0+RL2)*(1.
0D0-RL3)RETURNC-CTETRA-HEDRAELEMENTC-71CONTINUEWRITE(LOUT1,910)MUS,LT910FORMAT(/1X,7HELEMENT,I5,2X,14HISOFTYPE***,I5,2X,131HNOTIMPLEMENTED(ROUTINESHAPE))80RETURNENDC*SUBROUTINEELFLOW(NDIM,NPN,FINV,DETF,E,F9,EFLOW,1PERM,GAMMAW,DTIME)C*CTHISSUBPROGRAMCALCULATESTHEELEMENTFLOWMATRIXC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONFINV(3,3),E(3,NPMX),EFLOW(NPMX,NPMX),PERM(3)DIMENSIONPE(3,NPMX),TEMP(3,3)CCALLZEROR2(TEMP,3,3)CALLZEROR2(PE,3,NPMX)314Appendix:FortranCodesofCS-SCCALCULATETHEFACTOR[CIJ]-1*[CIJ]-1DOI=1,NDIMDOJ=1,NDIMTEM=0.
0D0DOK=1,NDIMTEM=TEM+FINV(I,K)*FINV(J,K)ENDDOTEMP(I,J)=TEMENDDOENDDOCTEMP1=0.
0D0DOI=1,NDIMDOJ=1,NDIMTEMP1=TEMP1+TEMP(I,J)*TEMP(I,J)/NDIMENDDOENDDOCNST=F9*DETF*TEMP1CFORMPERM*ECDO10JJ=1,NPNDO10IM=1,NDIM10PE(IM,JJ)=PERM(IM)*E(IM,JJ)C-CFORM[EFLOW]C-DO20II=1,NPNDO20JJ=1,NPNDO20KK=1,NDIM20EFLOW(II,JJ)=EFLOW(II,JJ)+E(KK,II)*PE(KK,JJ)*DTIME*CNST/GAMMAWRETURNENDCSUBROUTINEELCPT(AA,BL,FINV,DETF,ECOUPT,NPN,NDV,NS,F9)CCTHISSUBPROGRAMCALCULATESTHEELEMENTCOUPLINGMATRIXCIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONFINV(3,3),AA(NPMX),TEMP(3,3),BL(6,NB)DIMENSIONECOUPT(NB,NPMX),TEMP1(NVRN),RN(NB)CCALLZEROR1(TEMP1,NVRN)Appendix:FortranCodesofCS-S315CALLZEROR2(TEMP,3,3)CALLZEROR1(RN,NB)CCALCULATE[FINV]*[FINV]*KRONICORDELTA=[TEMP]DO10I=1,3DO10J=1,3TEM=0.
0D0DO10K=1,3TEM=TEM+FINV(I,K)*FINV(J,K)10TEMP(I,J)=TEMCCONVERT[TEMP]INTOVECTOR,MULTIPLYBYBL,PUTINRNTEMP1(1)=TEMP(1,1)TEMP1(2)=TEMP(2,2)TEMP1(3)=TEMP(3,3)TEMP1(4)=TEMP(1,2)CDO20IB=1,NBSUM=0.
0D0DO30ID=1,NS30SUM=SUM+BL(ID,IB)*TEMP1(ID)20RN(IB)=SUMCCALCULATETHEELEMENTCOUPLINGMATRIXC[ECOUP]T=RN*AA*DETF*F9DO60II=1,NDVDO60JJ=1,NPN60ECOUPT(II,JJ)=ECOUPT(II,JJ)+RN(II)*AA(JJ)*F9*DETFRETURNENDCSUBROUTINEBLNR1(CARTD,BL1,NDIM,NDN)CCTHISSUBPROGRAMCALCULATESTHEB\_L*MATRIXCIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONCARTD(3,NDMX),BL1(9,NB)CINITIALIZEB\_LMATRIXTOZEROCALLZEROR2(BL1,9,NB)CASSIGNTHEAPPROPRIATEVALUESTOTHEAPPROPRIATEELEMENTSOFB\_LCIF(NDIM.
NE.
2)GOTO10C316Appendix:FortranCodesofCS-SC2-DIMENSIONALELEMENTDOIELN=1,NDNIDOF1=2*IELN-1IDOF2=IDOF1+1BL1(1,IDOF1)=CARTD(1,IELN)BL1(2,IDOF1)=CARTD(2,IELN)BL1(3,IDOF2)=CARTD(1,IELN)BL1(4,IDOF2)=CARTD(2,IELN)ENDDO10IF(NDIM.
NE.
3)GOTO50C3-DIMENSIONALELEMENTDOIELN=1,NDNIDOF1=3*IELN-2IDOF2=IDOF1+1IDOF3=IDOF2+1BL1(1,IDOF1)=CARTD(1,IELN)BL1(2,IDOF1)=CARTD(2,IELN)BL1(3,IDOF1)=CARTD(3,IELN)BL1(4,IDOF2)=CARTD(1,IELN)BL1(5,IDOF2)=CARTD(2,IELN)BL1(6,IDOF2)=CARTD(3,IELN)BL1(7,IDOF3)=CARTD(1,IELN)BL1(8,IDOF3)=CARTD(2,IELN)BL1(9,IDOF3)=CARTD(3,IELN)ENDDO50CONTINUERETURNENDCSUBROUTINEBLNR(NDIM,NDN,NPLAX,RI,SHFN,CARTD,BL)CCTHISSUBPROGRAMINCALCULATESTHEB\_LMATRIXCIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSHFN(20),BL(6,NB),CARTD(3,NDMX)CINITIALIZEB\_LMATRIXTOZEROCALLZEROR2(BL,6,NB)CIF(NDIM.
NE.
2)GOTO10C-C2-DIMENSIONALELEMENTC-DOIELN=1,NDNAppendix:FortranCodesofCS-S317IDOF1=2*IELN-1IDOF2=IDOF1+1BL(1,IDOF1)=CARTD(1,IELN)BL(2,IDOF2)=CARTD(2,IELN)IF(NPLAX.
NE.
1)GOTO20BL(3,IDOF1)=SHFN(IELN)*RI20BL(4,IDOF1)=CARTD(2,IELN)BL(4,IDOF2)=CARTD(1,IELN)ENDDO10IF(NDIM.
NE.
3)GOTO50C-C3-DIMENSIONALELEMENTC-DOIELN=1,NDNIDOF1=IELN*3-2IDOF2=IDOF1+1IDOF3=IDOF2+1BL(1,IDOF1)=CARTD(1,IELN)BL(2,IDOF2)=CARTD(2,IELN)BL(3,IDOF3)=CARTD(3,IELN)BL(4,IDOF1)=CARTD(2,IELN)BL(4,IDOF2)=CARTD(1,IELN)BL(5,IDOF2)=CARTD(3,IELN)BL(5,IDOF3)=CARTD(2,IELN)BL(6,IDOF1)=CARTD(3,IELN)BL(6,IDOF3)=CARTD(1,IELN)ENDDO50CONTINUERETURNENDCSUBROUTINEBNLNRS(SHFN,CARTD,RI,BNLS,NDIM,NDN,NPLAX)CCTHISSUBPROGRAMCALCULATESGEOMETRICNONLINSTRESS-DISPMATRIXB\_NLS.
CIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSHFN(20),CARTD(3,NDMX),.
BNLS(9,NB)CINITIALIZEB\_NLMATRIXCALLZEROR2(BNLS,9,NB)318Appendix:FortranCodesofCS-SCASSIGNTHEAPPROPRIATEVALUESTOTHESPECIFICELEMENTSOFB\_NLSIF(NDIM.
NE.
2)GOTO10CC2-DIMENSIONALELEMENTDOIELN=1,NDNIDOF1=2*IELN-1IDOF2=IDOF1+1BNLS(1,IDOF1)=CARTD(1,IELN)BNLS(2,IDOF1)=CARTD(2,IELN)IF(NPLAX.
NE.
1)GOTO20BNLS(3,IDOF1)=SHFN(IELN)*RIBNLS(4,IDOF2)=CARTD(1,IELN)BNLS(5,IDOF2)=CARTD(2,IELN)GOTO3020BNLS(3,IDOF2)=CARTD(1,IELN)BNLS(4,IDOF2)=CARTD(2,IELN)30CONTINUEENDDOC10IF(NDIM.
NE.
3)GOTO50C3-DIMENSIONALELEMENTDOIELN=1,NDNIDOF1=IELN*3-2IDOF2=IDOF1+1IDOF3=IDOF2+1BNLS(1,IDOF1)=CARTD(1,IELN)BNLS(2,IDOF1)=CARTD(2,IELN)BNLS(3,IDOF1)=CARTD(3,IELN)BNLS(4,IDOF2)=CARTD(1,IELN)BNLS(5,IDOF2)=CARTD(2,IELN)BNLS(6,IDOF2)=CARTD(3,IELN)BNLS(7,IDOF3)=CARTD(1,IELN)BNLS(8,IDOF3)=CARTD(2,IELN)BNLS(9,IDOF3)=CARTD(3,IELN)ENDDO50CONTINUERETURNENDCSUBROUTINECONVERT(S,SPK,NDIM,NPLAX)CCTHISSUBPROGRAMCONVERTSTHESVECTORCONSISTINGOF4COMPONENTSCINTOSPKMATRIXOF5X5CIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONS(6),SPK(9,9)Appendix:FortranCodesofCS-S319CINITIALIZESPKTOZERODOI=1,9DOJ=1,9SPK(I,J)=0.
0D0ENDDOENDDOCASSIGNTHEELEMENTSOFSAPPROPRIATELYINSPKIF(NDIM.
NE.
2)GOTO10C2-DIMENSIONALELEMENTSPK(1,1)=S(1)SPK(2,2)=S(2)IF(NPLAX.
NE.
1)GOTO20SPK(3,3)=S(3)SPK(4,4)=S(1)SPK(5,5)=S(2)SPK(4,5)=S(4)SPK(5,4)=S(4)SPK(1,2)=S(4)SPK(2,1)=S(4)GOTO1020SPK(3,3)=S(1)SPK(4,4)=S(2)SPK(1,2)=S(3)SPK(2,1)=S(3)SPK(3,4)=S(3)SPK(4,3)=S(3)10IF(NDIM.
NE.
3)GOTO40DOK=1,NDIMK1=3*K-2K2=K1+1K3=K1+2SPK(K1,K1)=S(1)SPK(K2,K2)=S(2)SPK(K3,K3)=S(3)SPK(K1,K2)=S(4)SPK(K2,K1)=S(4)SPK(K2,K3)=S(5)SPK(K3,K2)=S(5)SPK(K1,K3)=S(6)SPK(K3,K1)=S(6)ENDDO40CONTINUERETURNEND320Appendix:FortranCodesofCS-SCSUBROUTINEBTDB(B,D,ESTIF,CNSTIP,NS)CCTHISSUBPROGRAMCALCULATETHEMATRIXPRODUCTB\^TDBGIVENBANDDCMATRICES.
CIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONB(9,NB),D(9,9),ESTIF(NB,NB),TEMP(9,NB)DOI=1,NSDOJ=1,NBTEM=0.
0D0DOK=1,NSTEM=TEM+D(I,K)*B(K,J)ENDDOTEMP(I,J)=TEMENDDOENDDODOI=1,NBDOJ=1,NBTEM=0.
0D0DOK=1,NSTEM=TEM+B(K,I)*TEMP(K,J)ENDDOESTIF(I,J)=ESTIF(I,J)+TEM*CNSTIPENDDOENDDORETURNENDCSUBROUTINEBNLNR(EDISP,SHFN,CARTD,RI,NDIM,NDN,BNL,NS,NPLAX)CCTHISSUBPROGRAMCALCULATESTHENONLINSTRESS-DISP.
MATRIXB\_NLCIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSHFN(20),CARTD(3,NDMX),EDISP(NB),BNL(6,NB)DIMENSIONBB(NVRN+1,NB),C(NVRN+1)NS1=NS+1CINITIALIZEMATRICESCALLZEROR2(BB,NVRN+1,NB)CALLZEROR2(BNL,6,NB)IF(NDIM.
NE.
2)GOTO10Appendix:FortranCodesofCS-S321C-C2-DIMENSIONALELEMENTC-CFINDTHEINTERMEDIATEMATRIXBBDOIELN=1,NDNIDOF1=IELN*2-1IDOF2=IDOF1+1BB(1,IDOF1)=CARTD(1,IELN)BB(2,IDOF2)=CARTD(2,IELN)IF(NPLAX.
NE.
1)GOTO20BB(3,IDOF1)=SHFN(IELN)*RI20BB(4,IDOF1)=CARTD(2,IELN)BB(5,IDOF2)=CARTD(1,IELN)ENDDOCFIND[C]=[BB][U]DO1I=1,NS1C(I)=0.
0D0DO1J=1,NB1C(I)=C(I)+BB(I,J)*EDISP(J)CCALCULATEBNLMARIXDOIELN=1,NDNIDOF1=IELN*2-1IDOF2=IDOF1+1BNL(1,IDOF1)=C(1)*CARTD(1,IELN)BNL(1,IDOF2)=C(5)*CARTD(1,IELN)BNL(2,IDOF1)=C(4)*CARTD(2,IELN)BNL(2,IDOF2)=C(2)*CARTD(2,IELN)IF(NPLAX.
NE.
1)GOTO15BNL(3,IDOF1)=C(3)*SHFN(IELN)*RI15BNL(4,IDOF1)=C(4)*CARTD(1,IELN)+C(1)*CARTD(2,IELN)BNL(4,IDOF2)=C(2)*CARTD(1,IELN)+C(5)*CARTD(2,IELN)ENDDOC10IF(NDIM.
NE.
3)GOTO100C-C3-DIMENSIONALELEMENTC-CFINDTHEINTERMEDIATEMATRIXBBDOIELN=1,NDNIDOF1=IELN*3-2IDOF2=IDOF1+1IDOF3=IDOF2+1322Appendix:FortranCodesofCS-SBB(1,IDOF1)=CARTD(1,IELN)BB(2,IDOF2)=CARTD(2,IELN)BB(3,IDOF3)=CARTD(3,IELN)ENDDO100CONTINUERETURNENDC*SUBROUTINEDEFGRAD(BL1,F,FINV,DETF,EDISPINC,NDIM,LINR)C*CTHISSUBPROGRAMCALCULATESTHEDEFORMATIONGRADIENTMATRIX[F],C[FINV]ANDDET[F]C-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONEDISPINC(NB),BL1(9,NB)DIMENSIONUDRV(9),F(3,3),FINV(3,3),ff(3,3)NDD=NDIM*NDIMCALLZEROR1(UDRV,9)CALLZEROR2(F,3,3)CALLZEROR2(Ff,3,3)CALLZEROR2(FINV,3,3)C-CFINDTHEDERIVATIVESOFDISPLACEMENTS{U1,1U1,2U2,1U2,2}FOR2-DCAND{U1,1U1,2U1,3U2,1U2,2U2,3U3,1U3,2U3,3}FOR3-DC-DOI=1,NDD!
ndd=ndim*ndimTEMP=0.
0D0DOJ=1,NB!
NB=60fromparm.
forTEMP=TEMP+BL1(I,J)*EDISPINC(J)!
BL1=linearstrain-displmatrix!
edispinc=elementincrementaldisplacement=EDINC.
!
temp=accumulatedstrainWronglogicENDDOUDRV(I)=TEMPENDDOCFINDTHEDEFORMATIONGRADIENTFDOI=1,3DOJ=1,3F(I,J)=0.
0D0FINV(I,J)=0.
0D0IF(I.
EQ.
J)THENF(I,J)=1.
0D0FINV(I,J)=1.
0D0Appendix:FortranCodesofCS-S323ENDIFENDDOENDDOIF(LINR.
GT.
0)THENIF(NDIM.
NE.
2)GOTO10C2-DIMENSIONALELEMENTF(1,1)=1.
0D0+UDRV(1)F(2,2)=1.
0D0+UDRV(4)F(3,3)=1.
0D0F(1,2)=UDRV(2)F(2,1)=UDRV(3)GOTO101C3-DIMENSIONALELEMENT10F(1,1)=1.
0D0+UDRV(1)F(1,2)=UDRV(2)F(1,3)=UDRV(3)F(2,1)=UDRV(4)F(2,2)=1.
0D0+UDRV(5)F(2,3)=UDRV(6)F(3,1)=UDRV(7)F(3,2)=UDRV(8)F(3,3)=1.
0D0+UDRV(9)101CONTINUEENDIFCFINDTHEINVERSEOFTHEDEFORMATIONGRADIENTFINVIF(NDIM.
NE.
2)GOTO15C2-DIMENSIONALELEMENTDETF=F(1,1)*F(2,2)-F(1,2)*F(2,1)!
DET(F)ISJFINV(1,1)=F(2,2)/DETFFINV(2,2)=F(1,1)/DETFFINV(3,3)=1.
0D0FINV(1,2)=-F(1,2)/DETFFINV(2,1)=-F(2,1)/DETFGOTO100C3-DIMENSIONALELEMENT15FINV(1,1)=(F(2,2)*F(3,3)-F(2,3)*F(3,2))FINV(1,2)=-(F(1,2)*F(3,3)-F(1,3)*F(3,2))FINV(1,3)=(F(1,2)*F(2,3)-F(1,3)*F(2,2))CFINV(2,1)=-(F(2,1)*F(3,3)-F(2,3)*F(3,1))FINV(2,2)=(F(1,1)*F(3,3)-F(1,3)*F(3,1))FINV(2,3)=-(F(1,1)*F(2,3)-F(1,3)*F(2,1))324Appendix:FortranCodesofCS-SCFINV(3,1)=(F(2,1)*F(3,2)-F(2,2)*F(3,1))FINV(3,2)=-(F(1,1)*F(3,2)-F(1,2)*F(3,1))FINV(3,3)=(F(1,1)*F(2,2)-F(2,1)*F(1,2))CDETF=F(1,1)*FINV(1,1)+F(1,2)*FINV(2,1)+1F(1,3)*FINV(3,1)CDO35ID=1,NDIMDO35JD=1,NDIM35FINV(ID,JD)=FINV(ID,JD)/DETF100CONTINUEcDETF=Finv(1,1)*Finv(2,2)-Finv(1,2)*Finv(2,1)!
DET(F)ISJcDETF=1.
0d0!
DET(F)ISJRETURNENDCSUBROUTINEADDBMAT(BL,BNL)CIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONBL(6,NB),BNL(6,NB)DOI=1,6DOJ=1,NBBL(I,J)=BL(I,J)+BNL(I,J)ENDDOENDDORETURNENDC*SUBROUTINESTFTRN(IELEM,NDIM,NSKEW,EKSTIF,ECOUPT,NCONN,LT)C*CTHISSUBRPROGRAMTRANFORMSTHESTIFFNESSMATRIX&COUPLINGMATRIXCTOACCOUNTFORTHEROTATIONOFDOFSINTHESKEWBOUNDARIESC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/ELINF/LINFO(50,15)COMMON/SKBC/ISPB(20),DIRCOS(20,3)DIMENSIONEKSTIF(NB,NB),ECOUPT(NB,NPMX),ROTMAT(3,3)DIMENSIONNCONN(NTPE,MEL),TEMP(3),TEMP1(3)Appendix:FortranCodesofCS-S325CNDPT=LINFO(1,LT)NEDOF=LINFO(16,LT)NPN=LINFO(6,LT)CDO100I=1,NDPTNODE=ABS(NCONN(I,IELEM))DOISKEW=1,NSKEWINODE=ISPB(ISKEW)IF(INODE.
EQ.
NODE)THENK1=NDIM*(I-1)CALLROTM(DIRCOS,ROTMAT,NDIM,ISKEW)DOJ=1,NEDOFDOK=1,NDIMTEMP(K)=0.
0D0DOIDOF=1,NDIMID=K1+IDOFTEMP(K)=TEMP(K)+EKSTIF(J,ID)*ROTMAT(IDOF,K)ENDDOENDDODOK=1,NDIMID=K1+KEKSTIF(J,ID)=TEMP(K)ENDDOENDDOCDOJ=1,NEDOFDOK=1,NDIMTEMP(K)=0.
0D0DOIDOF=1,NDIMID=K1+IDOFTEMP(K)=TEMP(K)+EKSTIF(ID,J)*ROTMAT(IDOF,K)ENDDOENDDODOK=1,NDIMID=K1+KEKSTIF(ID,J)=TEMP(K)ENDDOENDDOCDOJ=1,NPNDOK=1,NDIMTEMP1(K)=0.
0D0DOIDOF=1,NDIM326Appendix:FortranCodesofCS-SID=K1+IDOFTEMP1(K)=TEMP1(K)+ECOUPT(ID,J)*ROTMAT(IDOF,K)ENDDOENDDODOK=1,NDIMID=K1+KECOUPT(ID,J)=TEMP1(K)ENDDOENDDOCENDIFENDDO100CONTINUERETURNENDSUBROUTINEROTBC(R,NW,NDIM,NSKEW,NUM)C*CTHISSUBPROGRAMROTATEBACKTHEOBTAINEDCURRENTDISPLACEMENTSTOCTHEORIGINALCOORD.
SYSTEMATTHESKEWBOUNDARY.
C-C1CALLEDBYRDSTRSIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/SKBC/ISPB(20),DIRCOS(20,3)DIMENSIONR(MDOF),NW(MNODES+1)DIMENSIONTEMP(6),ROTMAT(3,3)CDOISKEW=1,NSKEWINODE=ISPB(ISKEW)ICODE=NW(INODE)-1CC-----CallROTM!
CalRotationMatrixCALLROTM(DIRCOS,ROTMAT,NDIM,ISKEW)DOI=1,NDIMTEMP1=0.
0D0DOJ=1,NDIMLOC=ICODE+JIF(NUM.
GT.
0)TEMP1=TEMP1+R(LOC)*ROTMAT(J,I)IF(NUM.
LT.
0)TEMP1=TEMP1+R(LOC)*ROTMAT(I,J)Appendix:FortranCodesofCS-S327ENDDOTEMP(I)=TEMP1ENDDOCDOI=1,NDIMLOC=ICODE+IR(LOC)=TEMP(I)ENDDOENDDORETURNENDSUBROUTINEROTM(DIRCOS,ROTMAT,NDIM,ISKEW)C*CTHISSUBPROGRAMFINDSTHEROTATIONMATRIXNEEDEDFORROTATINGCTHEDOFSW.
R.
T.
THATNODEC-C1CALLEDBYROTBCC2CALLEDBYROTBCBYEQLODIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONDIRCOS(20,3),ROTMAT(3,3)IF(NDIM.
EQ.
3)GOTO10CASSIGNCOS(TH\_X)&COS(TH\_Y)FORTWODIMENSIONROTMAT(1,1)=DIRCOS(ISKEW,1)ROTMAT(2,1)=-DIRCOS(ISKEW,2)ROTMAT(1,2)=DIRCOS(ISKEW,2)ROTMAT(2,2)=DIRCOS(ISKEW,1)10RETURNENDC*SUBROUTINEDCON(I,IET,MAT,PR,D,NDIM,BK)C*CCALCULATESSTRESS-STRAINMATRIXFORANISOTROPICELASTICITYC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONMAT(MEL),D(6,6),PR(NPR,NMT)328Appendix:FortranCodesofCS-SCKM=MAT(I)AN=PR(1,KM)/PR(2,KM)A=PR(2,KM)/((1.
0D0+PR(3,KM))*(1.
0D0-PR(3,KM)-2.
0D0*AN*PR(4,KM)*1PR(4,KM)))D(1,1)=A*AN*(1.
0D0-AN*PR(4,KM)*PR(4,KM))D(1,2)=A*AN*PR(4,KM)*(1.
0D0+PR(3,KM))D(1,3)=A*AN*(PR(3,KM)+AN*PR(4,KM)*PR(4,KM))D(2,1)=D(1,2)D(2,2)=A*(1.
0D0-PR(3,KM)*PR(3,KM))D(2,3)=D(1,2)D(3,1)=D(1,3)D(3,2)=D(2,3)D(3,3)=D(1,1)D(4,4)=PR(5,KM)BK=(D(2,2)+2.
0D0*D(2,1))/3.
0D0IF(NDIM.
EQ.
2)GOTO5D(5,5)=PR(5,KM)D(6,6)=PR(5,KM)5IF(IET.
EQ.
0)GOTO20CDO10J=1,3DO10JJ=1,310D(JJ,J)=D(JJ,J)+PR(7,KM)*BK20RETURNENDC*SUBROUTINEDLIN(I,IET,NDIM,NDN,ELCOD,SHFN,MAT,D,PR,BK)C*CCALCULATESSTRESS-STRAINMATRIXFORLINEARELASTICCBEHAVIOURWHENELASTICPROPERTIESVARYLINEARLYWITHDEPTHC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONELCOD(3,NDMX),SHFN(20),D(6,6)DIMENSIONMAT(MEL),PR(NPR,NMT)COMMON/PARS/PYI,ASMVL,ZEROCKM=MAT(I)CCIPA=IP+INDXYY=ZERODO5IN=1,NDN5YY=YY+SHFN(IN)*ELCOD(2,IN)E=PR(1,KM)+PR(3,KM)*(PR(2,KM)-YY)G=E/(2.
0D0*(1.
0D0+PR(4,KM)))A=E/((1.
0D0+PR(4,KM))*(1.
0D0-2.
0D0*PR(4,KM)))Appendix:FortranCodesofCS-S329BK=E/(3.
0D0*(1.
0D0-2.
0D0*PR(4,KM)))D(1,1)=A*(1.
0D0-PR(4,KM))D(1,2)=A*PR(4,KM)D(1,3)=D(1,2)D(2,1)=D(1,2)D(2,2)=D(1,1)D(2,3)=D(1,3)D(3,1)=D(1,3)D(3,2)=D(2,3)D(3,3)=D(1,1)D(4,4)=GIF(NDIM.
EQ.
2)GOTO8D(5,5)=GD(6,6)=G8IF(IET.
EQ.
0)RETURNDO10J=1,3DO10JJ=1,310D(JJ,J)=D(JJ,J)+PR(7,KM)*BKRETURNENDC*SUBROUTINEDMCAM(IP,I,IET,NDIM,NS,STRESS,MAT,D,PR,BK,ITER,JS,DAB,+SALPHA,A,H)C*CCALCULATESSTRESS-STRAINMATRIX[Dep]FORMODIFIEDCAM-CLAYC*CIP=Gausspoint,I=elementnumber,IET=iterationnumberCITER=iterationnumber,JS=incrementnumberIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'CI=ELEMENTNUMBERCOMMON/MODEL/PQMOD(NIP,MEL,2),MCODE(NIP,MEL)COMMON/BSTRESS/PREP,PREQ,PREETA,PREALPH!
backstressvariableCOMMON/NORMFACT/XIDIMENSIONSTRESS(NVRS,NIP,MEL),D(6,6),MAT(MEL)DIMENSIONS(6),A(6),B(6),PR(NPR,NMT)DIMENSIONDUM4(4),DUM5(4),HPA(4,4),DEPSI(4),DAB(3,3),DABI(3,3)DIMENSIONSALPHA(4),SALPH22(4),SALPH11(4),BB21(4),BB31(4)DIMENSIONDUM1(4),DELALPH(4)dimensionepsiequi(2,170,4),epsiaccu(2,170,4,3,3),graddab(3,3)CI=ELEMENTNUMBERCKM=MAT(I)PRM=PR(4,KM)ICOD=MCODE(IP,I)330Appendix:FortranCodesofCS-SSX=STRESS(1,IP,I)!
newsigmaxSY=STRESS(2,IP,I)!
newsigmayandsoandsoSZ=STRESS(3,IP,I)TXY=STRESS(4,IP,I)E=STRESS(NS+2,IP,I)!
VoidratioPC=ABS(STRESS(NS+3,IP,I))cCorrectionofstressforratedependency-------08/13/03callrate(epsiequi,epsiaccu,i,ip)ccallrate1(dabequi,dab)viscos=pr(1,2)pm1=pr(2,2)!
pm1=m1justformakingrealnumberSX=STRESS(1,IP,I)*(1+(epsiequi(1,i,ip)/viscos)**pm1)!
SY=STRESS(2,IP,I)*(1+(epsiequi(1,i,ip)/viscos)**pm1)SZ=STRESS(3,IP,I)*(1+(epsiequi(1,i,ip)/viscos)**pm1)delsx=STRESS(1,IP,I)*((epsiequi(1,i,ip)/viscos)**pm1)delsy=STRESS(2,IP,I)*((epsiequi(1,i,ip)/viscos)**pm1)delsz=STRESS(3,IP,I)*((epsiequi(1,i,ip)/viscos)**pm1)TXY=STRESS(4,IP,I)+0.
5*(delsx-delsy)!
!
correctcCorrectionofpyforratedependency08/07/03cviscos=pr(1,2)cpm1=pr(2,2)!
pm1=m1justformakingrealnumbercpc=(1+(epsiequi(1,i,ip)/viscos)**pm1)*pc!
i=ieninsub-ratecwrite(*,*)pccpauseP=(SX+SY+SZ)/3.
0D0Q2=SX*(SX-SY)+SY*(SY-SZ)+SZ*(SZ-SX)+3.
0D0*TXY*TXY!
generalexp.
IF(NDIM.
EQ.
2)GOTO10CTYZ=STRESS(5,IP,I)TZX=STRESS(6,IP,I)Q2=Q2+3.
0D0*TYZ*TYZ+3.
0D0*TZX*TZX10Q=SQRT(Q2)ETA=Q/Pcwrite(*,*)pr(4,km)PY=P+Q*Q/(P*PR(4,KM)*PR(4,KM))cCorrectionofpyforratedependency08/07/03cviscos=pr(1,2)cpm1=pr(2,2)!
pm1=m1justformakingrealnumbercpy=(1+(epsiequi(1,i,ip)/viscos)**pm1)*py!
i=ieninsub-ratecif(epsiequi(1,i,ip).
gt.
0.
0)write(*,*)"999",py,pcBK=(1.
0D0+E)*P/PR(1,KM)!
KconstrainedmodulusC-CCALCULATEELASTICSTRESS-STRAINMATRIXC-G=PR(5,KM)!
G=Poisson'sratioAppendix:FortranCodesofCS-S331IF(G.
LT.
1.
0D0)G=BK*1.
50D0*(1.
0D0-2.
0D0*PR(5,KM))/(1.
0D0+PR(5,KM))AL=(3.
0D0*BK+4.
0D0*G)/3.
0D0DL=(3.
0D0*BK-2.
0D0*G)/3.
0D0CCALLZEROR2(D,6,6)D(1,1)=ALD(2,1)=DLD(3,1)=DLD(1,2)=DLD(2,2)=ALD(3,2)=DLD(1,3)=DLD(2,3)=DLD(3,3)=ALD(4,4)=GIF(NDIM.
EQ.
2)GOTO12D(5,5)=GD(6,6)=GC12IF(PY.
LT.
0.
9950d0*PC)GOTO50!
PY=Po!
bypassC-CCALCULATEPLASTICSTRESS-STRAINMATRIXIFCURRENTCPOINTONYIELDLOCUSANDSETPCNEGATIVEC-PCS=.
50D0*PCPB=P/PCSS(1)=SX-PS(2)=SY-PS(3)=SZ-PS(4)=2.
0D0*TXYIF(NDIM.
EQ.
2)GOTO16S(5)=2.
0D0*TYZS(6)=2.
0D0*TZXC16CONTINUEcAdjustmentofDabforgradientgradcon=pr(5,2)volepsi=dab(1,1)+dab(2,2)-dab(1,1)*dab(2,2)cwrite(*,*)"vol",volepsi,dab(1,1)doii=1,3dojj=1,3cif(volepsi.
ge.
0)goto4!
considergradientwhenvolumeexpandcsubtractionforvolumeexp.
additionforvolumecontr.
332Appendix:FortranCodesofCS-Sgraddab(ii,jj)=dab(ii,jj)-gradcon*volepsi4enddoenddocTurnbackgradientdabtodabforfurthercalculationdoii=1,3dojj=1,3dab(ii,jj)=graddab(ii,jj)enddoenddoCCorrectiontoavoidtensionfailureCDOII=1,3CIF(S(II).
LE.
0.
0)S(II)=0.
0CENDDOIF(STRESS(1,IP,I).
LE.
10.
0)GOTO200IF(STRESS(2,IP,I).
LE.
10.
0)GOTO200IF(STRESS(3,IP,I).
LE.
10.
0)GOTO200cCalculatethebackstress.
17CALLBKSTRS2(P,Q,ETA,PRM,SALPH22,PR,ITER,JS,IP,DELALPH,I,S)ci=ien=elementnumberwatchout!
!
!
!
!
CALLBKSTRS1(P,Q,ETA,PRM,PR,ITER,JS,IP,I,SALPH11,DAB,1epsiaccu)cwrite(*,*)"song"cwrite(*,*)epsiaccu(1,1,1,1,1)SALPHA(1)=SALPH22(1)+SALPH11(1)SALPHA(2)=SALPH22(2)+SALPH11(2)SALPHA(3)=SALPH22(3)+SALPH11(3)SALPHA(4)=SALPH22(4)+SALPH11(4)cwrite(*,*)"sapha",salpha(1),SALPH11(1),SALPH22(1)GOTO210CC---BB=(df/dp)(dp/dsig)withoutKroneckerdij3x3tensorC---C=(df/dq)(dq/dsig)withoutSijC---{A}={B}ijC---{S}=Sij200doii=1,4salpha(ii)=0!
11,22,33,13delalph(ii)=0enddoC---CalculateBij210BB11=(2.
0d0*P-PC)*PRM**2.
0d0BB11=BB11/3!
reallyxdeltaijAppendix:FortranCodesofCS-S333BB12=0D0DOII=1,4BB12=BB12+1.
5D0*(PC*SALPHA(II)*SALPHA(II)-2D0*SALPHA(II)1*S(II))c!
abovetermisscalarquantity.
ENDDOBB12=BB12/3BB21(1)=(2D0/3D0)*S(1)-(1D0/3D0)*S(2)-(1D0/3D0)*S(3)BB21(1)=3*BB21(1)BB21(2)=-(1D0/3D0)*S(1)+(2D0/3D0)*S(2)-(1D0/3D0)*S(3)BB21(2)=3*BB21(2)BB21(3)=-(1D0/3D0)*S(1)-(1D0/3D0)*S(2)+(2D0/3D0)*S(3)BB21(3)=3*BB21(3)BB21(4)=(2D0/3D0)*S(4)BB21(4)=3*BB21(4)BB31(1)=3D0*P*((2D0/3D0)*SALPHA(1)-(1D0/3D0)*SALPHA(2)-6(1D0/3D0)*SALPHA(3))BB31(2)=3D0*P*(-(1D0/3D0)*SALPHA(1)+(2D0/3D0)*SALPHA(2)-1(1D0/3D0)*SALPHA(3))BB31(3)=3D0*P*(-(1D0/3D0)*SALPHA(1)-(1D0/3D0)*SALPHA(2)+1(2D0/3D0)*SALPHA(3))BB31(4)=3D0*P*(2D0/3D0)*SALPHA(4)DOII=1,3A(II)=BB11+BB12+BB21(II)-BB31(II)ENDDOA(4)=0+0+BB21(4)-BB31(4)BII=A(1)+A(2)+A(3)!
Biitr(df/dsigma)cWRITE(*,*)"111"CCompleteBij!
{A}={B}ijmatrix18DO20J=1,3B(J)=0.
0D0DO20JJ=1,320B(J)=B(J)+D(J,JJ)*A(JJ)!
{B}=[C]ijkl[B]kl=(De)(df/dsig)B(4)=D(4,4)*A(4)IF(NDIM.
EQ.
2)GOTO25B(5)=D(5,5)*A(5)B(6)=D(6,6)*A(6)cWRITE(*,*)"222"C---df/dev25XI=(1.
0D0+E)/(PR(2,KM)-PR(1,KM))!
XI=(1+e)/(lambda-kappa)ALPHA=0D0!
ALPHAijAlphaijDOII=1,4ALPHA=ALPHA+SALPHA(II)*SALPHA(II)!
ALPHA=scalar,aijxaijsum334Appendix:FortranCodesofCS-SENDDOAA1=XI*P*PC*(-2D0*PRM**2D0+3D0*ALPHA)!
SONGdf/depsilonvpAA2=BIIAA=AA1*AA2!
AA=[Hp]currentlynegativeH=AA!
TotransferHtothenextroutineCWRITE(*,*)"AA1,AA2",AA1,AA2,P,PC,ALPHAC---Computetheadditionalchangeofstiffnessmatrixbybackstress.
CbyChungR.
Song3/08/99DUM2=0DOII=1,4DUM1(II)=3D0*(P*PC*SALPHA(II)-P*S(II))!
df/dalphaDELALPH(II)=DELALPH(II)DUM2=DUM2+DUM1(II)*DELALPH(II)!
(df/dalpha)(dalpha)SCALAR!
magicENDDOCWRITE(*,*)"333"C-----InversionofdepsilonCDAB=dedpsilon,DABI=inverseofdepsilonCDEPS=DABThisisthevectorialformDabSongCDABisdepsi!
3/23/99SongCWRITE(*,*)"DAB",DAB(1,1),DAB(1,2)CWRITE(*,*)"DAB",DAB(2,1),DAB(2,2),ITERDJACOB1=DAB(1,1)*(DAB(2,2)*DAB(3,3)-DAB(3,2)*DAB(2,3))DJACOB2=DAB(2,1)*(DAB(1,2)*DAB(3,3)-DAB(3,2)*DAB(1,3))DJACOB3=DAB(3,1)*(DAB(1,2)*DAB(2,3)-DAB(2,2)*DAB(1,3))DJACOB=DJACOB1-DJACOB2+DJACOB3CDJACOB=DAB(1,1)*DAB(2,2)-DAB(1,2)*DAB(2,1)!
radialstrain=0IF(DJACOB.
EQ.
0)GOTO27!
skipsingularconditionCALLDETMIN1(LOUT1,NDIM,DAB,DABI,DJACB,JL,IP,ISTGE)!
specialcIF(ITER.
EQ.
1)GOTO27CCALLDETMIN1(LOUT1,NDIM,DAB,DABI,DJACB,JL,IP,ISTGE)CDABI(1,1)=DAB(2,2)/DJACOBCDABI(2,2)=DAB(1,1)/DJACOBCDABI(1,2)=-DAB(2,1)/DJACOBCDABI(2,1)=-DAB(1,2)/DJACOBGOTO7527DO70JJJ1=1,470DEPSI(JJJ1)=0D0GOTO77Appendix:FortranCodesofCS-S335CWRITE(*,*)"444"C-----Changethedepsilon\_1tensortodepsilon\_1vector75DEPSI(1)=DABI(1,1)DEPSI(2)=DABI(2,2)DEPSI(3)=0.
0!
DABI(3,3)DEPSI(4)=DABI(1,2)!
Axi-symmetricC-----Substitutedepsiloninverse,into[Hpa]equation77CONTINUEDOJS1=1,4DUM5(JS1)=0.
0D0!
clearENDDOCWRITE(*,*)"555"DO90JS1=1,4!
2-Dcase,AxisymmetricDUM4(JS1)=DUM2*A(JS1)!
(df/dalpha)(dalpha)[B]vectorizedtensorDO91JS2=1,4!
2-Dcase91DUM5(JS1)=DUM5(JS1)+D(JS1,JS2)*DUM4(JS2)!
2ndoderized4thorder,sumtensorDO90JS2=1,490HPA(JS1,JS2)=(1D0/3D0)*DUM5(JS1)*DEPSI(JS2)!
[HPA]=(1/3)[C](df/dalpha)(dalpha)[B][depsil]IF(ETA.
LT.
PRM.
AND.
AA.
LT.
0.
0D0)AA=0000000000.
0!
AA=infinitiveCIF(ETA.
GT.
PRM.
AND.
AA.
GT.
0.
0D0)AA=0.
0D0IF(ICOD.
EQ.
5)AA=0.
0D0AB=0.
0D0!
clearABDO30J=1,NS30AB=AB+A(J)*B(J)!
AB=[He](df/dsig)(De)(df/dsig)CcWRITE(*,*)"666"BETA=-AA+AB!
[Hp]+[He]BETAA=10.
0D17IF(BETA.
GT.
BETAA)BETA=BETAA!
preventoverflowDO40J=1,NSDO40JJ=1,NSCWRITE(*,*)"H,D",BETACallDamage(pr,npr,nmt,pc,ap)!
Damageconsideration40D(JJ,J)=D(JJ,J)-(B(JJ)*B(J)+HPA(JJ,J))/(BETA*ap)!
[Cijkl]-{[C]ijkl[B]kl[C]ijkl[B]kl+[HPP]}/{[Hp]+[He]}C40WRITE(*,*)"Dep",D(JJ,J)336Appendix:FortranCodesofCS-Sc50CONTINUECIF(IET.
EQ.
0)GOTO80CDO60J=1,3DO60JJ=1,360D(JJ,J)=D(JJ,J)+PR(7,KM)*BK!
BulkModulus80CONTINUEcWRITE(*,*)"777"cratedependencycratedepencencycallrate(epsiequi,epsiaccu,i,ip)cwrite(*,*)epsiequi(1,1,1)RETURNENDCSubroutinedamage(pr,npr,nmt,pc,ap)cThissubroutinecnsidersthedamage.
cCalledfromDMCAMcChungR.
Song08/09/2003cIMPLICITREAL*8(A-H,O-Z)dimensionPR(NPR,NMT)cwrite(*,*)"999"A1=pr(3,2)A2=pr(4,2)dum=A1*pc**A2cwrite(*,*)dumcwrite(*,*)"9999",pcAp=1-2.
71828**(-dum)if(ap.
LE.
0.
95)ap=0.
95cwrite(*,*)"99999"cbeta=beta*Ap!
!
!
!
Cancelled.
apisuseddirectlyindmcamif(ap.
le.
0.
5)write(*,*)"Toomuchdamage!
!
!
!
"returnendCsubroutinerate(epsiequi,epsiaccu,i,ip)cThissubroutinechangetheyieldfunctionbasedonSongandVoyiadjis(2003)cCalledfromDMCAMcChungR.
Song08/06/2003cAppendix:FortranCodesofCS-S337IMPLICITREAL*8(A-H,O-Z)COMMON/ANLYS/TTIME,DTIMEI,TGRAV,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDSDIMENSIONepsiequi(2,170,4),epsiaccu(2,170,4,3,3)ien=iEPSIEQUI(1,ien,ip)=epsiaccu(2,ien,ip,1,1)1*epsiaccu(2,ien,ip,1,1)2+epsiaccu(2,ien,ip,2,2)*epsiaccu(2,ien,ip,2,2)3+epsiaccu(2,ien,ip,3,3)*epsiaccu(2,ien,ip,3,3)EPSIEQUI(1,ien,ip)=epsiequi(1,ien,ip)*sqrt(0.
666667)cwrite(*,*)ttimeepsiequi(1,ien,ip)=epsiequi(1,ien,ip)/ttime!
ttime=elapsedtimecwrite(*,*)epsiequi(1,ien,ip)cAdjustmentofpcismadeinthebeginningpartofDMCAMreturnendCsubroutinerate1(dabequi,dab)cThissubroutinechangetheyieldfunctionbasedonSongandVoyiadjis(2003)cCalledfromDMCAMcChungR.
Song08/13/2003c*IMPLICITREAL*8(A-H,O-Z)COMMON/ANLYS/TTIME,DTIMEI,TGRAV,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDSDIMENSIONdab(3,3)ien=idabEQUI=dab(1,1)*dab(1,1)+dab(2,2)*dab(2,2)+dab(3,3)*dab(3,3)dabEQUI=dabequi*sqrt(0.
666667)cwrite(*,*)ttimedabequi=dabequi/ttimecAdjustmentofpoismadebyadjustingsigmaxx,sigmayy,sigmazz.
returnendC*subroutinebkstrs2(p,q,eta,prm,salph22,pr,iter,js,ip,delalph1,ien,s)cSUBROUTINEBKSTRS2(P,Q,ETA,PRM,SALPH22,PR,ITER,JS,c1IP,DELALPH,IEN,S)cCALLBKSTRS2(P,Q,ETA,PRM,SALPH22,PR,ITER,JS,IP,DELALPH,I,S)C*338Appendix:FortranCodesofCS-SC1.
CALLEDFROMEQUIBLOD,DMCAMC2.
Thissubroutinecalculatethebackstressandsupplyittoyieldf.
C3.
ChungR.
Song,2/25/99.
C4.
ModifiedformultiplebackstressC******Longrangebackstress,ALPHA2IMPLICITREAL*8(A-H,O-Z)COMMON/BSTRESS/PREP,PREQ,PREETA,PREALPH!
BackstressvariableCOMMON/MATPROP/C,XDIMENSIONPREP2(170,2,4,8),PREQ2(170,2,4,8),PREETA2(170,2,4,8)DIMENSIONDALPHA(170,2,4,8,4),SSALPHA(170,4,4),DELS(4),1SALPH22(4),PR(10,10)!
PRaddedjustformatchingDIMENSIONPRE\_S(170,2,4,8),S(6)!
6justformatchingwithDmcamDIMENSIONDELALPH(4)Celemno,Incrno,gausspt,iteration,directionc(IEN,JS,IP,ITER,J)CJswasreducedto2bymagic.
(repeateduse)cWRITE(*,*)"BKSTRS",IENC---ClearDOJ=1,4SALPH22(J)=0.
0DELS(J)=0.
0ENDDOC---Iterationfordirectionij(11,22,33,12)DOJ=1,4!
Beginningofloopc---PreventnumericalnoiseC---Donotremovethispart.
Thispartmakestheprogrammorestable.
IF(P.
LE.
0.
0000000001)P=0IF(Q.
LE.
0.
0000000001)Q=0cIF(S(J).
LE.
0.
0000000001)S(J)=0IF(ETA.
LE.
0.
0000000001)ETA=0IF(SALPH22(J).
LE.
0.
0000000001)SALPH22(J)=0DOI=1,2DOII=1,8IF(PREP2(IEN,I,IP,II).
LE.
0.
0000000001)PREP2(IEN,I,IP,II)=0.
0IF(PREQ2(IEN,I,IP,II).
LE.
0.
0000000001)PREQ2(IEN,I,IP,II)=0.
0IF(PRE\_S(IEN,I,IP,II).
LE.
0.
0000000001)PRE\_S(IEN,I,IP,II)=0.
0IF(PREETA2(IEN,I,IP,II).
LE.
0.
0000000001)PREETA2(IEN,I,IP,II)=10.
0IF(DALPHA(IEN,I,IP,II,J).
LE.
0.
0000000001)1DALPHA(IEN,I,IP,II,J)=0.
0ENDDOENDDOAppendix:FortranCodesofCS-S339IF(JS.
EQ.
1.
AND.
ITER.
EQ.
1)THEN!
VeryBeginningDELP=0.
0D0!
P-PREPDELQ=0.
0D0!
Q-PREQDELS(J)=0.
0D0DELETA=0.
0D0!
ETA-PREETADELALPH(I)=0.
D0!
SALPHA-PREALPHENDIFIF(JS.
EQ.
1.
AND.
ITER.
EQ.
2)THEN!
BeginningDELP=P-PREP2(IEN,JS,IP,ITER-1)DELQ=Q-PREQ2(IEN,JS,IP,ITER-1)DELS(J)=S(J)-PRE\_S(IEN,JS,IP,ITER-1)DELETA=ETA-PREETA2(IEN,JS,IP,ITER-1)DELALPH(I)=DALPHA(IEN,JS,IP,1,J)ENDIFIF(JS.
EQ.
1.
AND.
ITER.
GE.
3)THEN!
BeginningDELP=P-PREP2(IEN,JS,IP,ITER-1)DELQ=Q-PREQ2(IEN,JS,IP,ITER-1)DELS(J)=S(J)-PRE\_S(IEN,JS,IP,ITER-1)DELETA=ETA-PREETA2(IEN,JS,IP,ITER-1)DELALPH(I)=DALPHA(IEN,1,IP,ITER-1,J)-DALPHA(IEN,1,IP,ITER-2,J)ENDIFIF(JS.
EQ.
2.
AND.
ITER.
EQ.
1)THENDELP=P-PREP2(IEN,1,IP,2)!
JS=increm.
penet,IP=GausspointNo.
DELQ=Q-PREQ2(IEN,1,IP,2)DELS(J)=S(J)-PRE\_S(IEN,1,IP,2)DELETA=ETA-PREETA2(IEN,1,IP,2)DELALPH(I)=DALPHA(IEN,1,IP,2,J)!
PreviousvalueSALPHA-PREALP2(JS-1,IP)ENDIFIF(JS.
GT.
2.
AND.
ITER.
EQ.
1)THEN!
IntermediateBeginningDELP=P-PREP2(IEN,2,IP,2)!
JS=increm.
penet,IP=GausspointNo.
DELQ=Q-PREQ2(IEN,2,IP,2)DELS(J)=S(J)-PRE\_S(IEN,2,IP,2)DELETA=ETA-PREETA2(IEN,2,IP,2)DELALPH(I)=DALPHA(IEN,2,IP,2,J)!
PreviousvalueSALPHA-PREALP2(JS-1,IP)ENDIFIF(JS.
GT.
1.
AND.
ITER.
EQ.
2)THEN!
Intermediate2DELP=P-PREP2(IEN,2,IP,1)DELQ=Q-PREQ2(IEN,2,IP,1)DELS(J)=S(J)-PRE\_S(IEN,2,IP,1)DELETA=ETA-PREETA2(IEN,2,IP,1)DELALPH(I)=DALPHA(IEN,2,IP,1,J)-DALPHA(IEN,1,IP,2,J)340Appendix:FortranCodesofCS-SENDIFIF(JS.
GT.
1.
AND.
ITER.
GE.
3)THEN!
Intermediate3andothersDELP=P-PREP2(IEN,2,IP,ITER-1)DELQ=Q-PREQ2(IEN,2,IP,ITER-1)DELS(J)=S(J)-PRE\_S(IEN,2,IP,ITER-1)DELETA=ETA-PREETA2(IEN,2,IP,ITER-1)DELALPH(I)=DALPHA(IEN,2,IP,ITER-1,J)-DALPHA(IEN,2,IP,ITER-2,J)ENDIFC=PR(6,2)X=PR(7,2)ALP=ALP!
SSALPHA(IEN,IP,3)-(1)!
Usealpha1-alpha3frompreviouscalculationcWRITE(*,*)"P,PRM,ETA,ALP",P,PRM,ETA,ALPSALPHA1=DELP/P+(2D0*ETA-2D0*ALP)*DELETA/(PRM**2D0+ETA**2D0-12D0*ALP*ETA)SALPHA2=(C/P)*(DELS(J)-X*DELP*SALPH22(J))CWRITE(*,*)"DELP",ITER,IEN,IP,J,ETASALPH22(J)=SALPH22(J)+3*(SALPHA1*SALPHA2)CWRITE(*,*)"FDDF",J,JS,SALPHA1,SALPHA2,SALPHA(J),DELS(J)CWRITE(*,*)"DFD",DELP,P,ETA,ALP,DELETA,PRMCIF(ABS(SALPHA(J)).
GT.
PRM)THENCSALPHA(J)=PRMCENDIFCSALPHA(J)=0!
MAKEISOTROPICCSavecurrentP,Q,ETA,SDELS,SALPHAfornextiterationIF(JS.
EQ.
1)THEN!
JS=incrementalnumberPREP2(IEN,1,IP,ITER)=PPREQ2(IEN,1,IP,ITER)=QPRE\_S(IEN,1,IP,ITER)=S(J)PREETA2(IEN,1,IP,ITER)=ETADALPHA(IEN,1,IP,ITER,J)=SALPH22(J)SSALPHA(IEN,IP,J)=SSALPHA(IEN,IP,J)+DALPHA(IEN,1,IP,ITER,J)1-DALPHA(IEN,1,IP,ITER-1,J)SALPH22(J)=SSALPHA(IEN,IP,J)ALP=SALPH22(1)-SALPH22(3)ENDIFAppendix:FortranCodesofCS-S341IF(JS.
EQ.
2)THENPREP2(IEN,2,IP,ITER)=PPREQ2(IEN,2,IP,ITER)=QPRE\_S(IEN,2,IP,ITER)=S(J)PREETA2(IEN,2,IP,ITER)=ETADALPHA(IEN,2,IP,ITER,J)=SALPH22(J)SSALPHA(IEN,IP,J)=SSALPHA(IEN,IP,J)+DALPHA(IEN,2,IP,ITER,J)1-DALPHA(IEN,2,IP,ITER-1,J)SALPH22(J)=SSALPHA(IEN,IP,J)ALP=SALPH22(1)-SALPH22(3)ENDIFIF(JS.
GE.
3)THENPREP2(IEN,1,IP,ITER)=PREP2(IEN,2,IP,ITER)PREP2(IEN,2,IP,ITER)=PPREQ2(IEN,1,IP,ITER)=PREQ2(IEN,2,IP,ITER)PREQ2(IEN,2,IP,ITER)=QPRE\_S(IEN,1,IP,ITER)=PRE\_S(IEN,2,IP,ITER)PRE\_S(IEN,2,IP,ITER)=S(J)PREETA2(IEN,1,IP,ITER)=PREETA2(IEN,2,IP,ITER)PREETA2(IEN,2,IP,ITER)=ETADALPHA(IEN,1,IP,ITER,J)=DALPHA(IEN,2,IP,ITER,J)DALPHA(IEN,2,IP,ITER,J)=SALPH22(J)SSALPHA(IEN,IP,J)=SSALPHA(IEN,IP,J)+DALPHA(IEN,2,IP,ITER,J)1-DALPHA(IEN,2,IP,ITER-1,J)SALPH22(J)=SSALPHA(IEN,IP,J)ALP=SALPH22(1)-SALPH22(3)ENDIFCENDDO!
EndofbigdoloopRETURNENDC*SUBROUTINEBKSTRS1(P,Q,ETA,PRM,PR,ITER,JS,IP,IEN,SALPH111,DAB,epsiaccu)C*CCALLEDFROMDmcamCThissubroutinecomputetheshortrangebackstressbyPrager'sClinearhardeningrule.
5/30/00Calpha1(dot)=(2/3)C1*epsilonp(dot)342Appendix:FortranCodesofCS-SIMPLICITREAL*8(A-H,O-Z)DIMENSIONEPSIACCU(2,170,4,3,3),DAB(3,3)!
elem,gaus,i,jDIMENSIONALP1DOT(170,4,3,3),SALPH11(4),PR(10,10)!
PRaddedformatchingCelemno,Incrno,gausspt,iteration,directionc(IEN,JS,IP,ITER,J)caccumulationforincrementalstepsonly(JS)cforeachelement,foreachGausspoint,foreachdirectioni,j!
!
!
c-----ClearALP1DOTdoi=1,3doj=1,3ALP1DOT(IEN,IP,I,J)=0.
0enddoenddocDAB(i,j)isthestrainincrement.
inew=1iold=2c-----InitializingEPSIACCUif(js.
EQ.
1)EPSIACCU(iold,ien,ip,i,j)=0.
0d0doi=1,3doj=1,3Cdoien=1,150!
alreadyiniteratingloopcdoip=1,8!
alreadyiniteratingloopcien=elementno.
ip=gaussno.
EPSIACCU(inew,ien,ip,I,J)=EPSIACCU(iold,ien,ip,I,J)+DAB(i,j)!
EPSIACCU=AccumulatedPlasticStrainC-----STABILIZEalpha1afterTHRESHOLDstrainlimitif(epsiaccu(inew,ien,ip,i,j).
GT.
0.
001)GOTO100C1=.
0!
temperalALP1DOT(ien,ip,I,J)=(2/3.
0)*C1*EPSIACCU(inew,ien,ip,I,J)!
ipadded5/10/00c-----VectorizeALP1dot(ien,ip,i,j),indeciesinsalpha()issameasJc-----inpreviousBkstrssubroutineSALPH11(1)=ALP1DOT(IEN,IP,1,1)SALPH11(2)=ALP1DOT(IEN,IP,2,2)SALPH11(3)=ALP1DOT(IEN,IP,3,3)SALPH11(4)=ALP1DOT(IEN,IP,1,2)!
REST=0cENDDOcENDDOAppendix:FortranCodesofCS-S343ENDDOENDDOdoi=1,3doj=1,3EPSIACCU(iold,ien,ip,i,j)=EPSIACCU(inew,ien,ip,i,j)enddoenddo100RETURNENDC*SUBROUTINESTRSCOR(IP,I,NDIM,NS,STRESS,VAR,MAT,PR,FYLD,DSIG,PC,1ITER,JS,DAB,SALPHA,ICOD,H,A)C*CCALLEDFROMEQUIBLODCThissubroutinecorrectthestresswhichcrosstheyieldsurface.
2/25/99.
CCorrectedagainat5/1/99byC.
R.
SongIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSTRESS(NVRS,NIP,MEL),D(6,6),MAT(MEL)DIMENSIONDSIG(6),VAR(6),S(6),A(6),B(6),PR(NPR,NMT)DIMENSIONDAB(3,3),DABI(3,3),HPA(4,4),DEPSI(4),DUM4(4),DUM5(4)DIMENSIONSALPHA(4),BB21(4),BB31(4),DUM1(4),DELALPH(4)CSubroutinemodifiedbySongfordefaultKGO=34/30/99CCWRITE(*,*)"STRSCOR"KM=MAT(I)PRM=PR(4,KM)SX=VAR(1)SY=VAR(2)SZ=VAR(3)TXY=VAR(4)CWRITE(*,*)"VAR",VAR(1),VAR(2),VAR(3)E=STRESS(NS+2,IP,I)P=(SX+SY+SZ)/3.
0D0Q2=SX*(SX-SY)+SY*(SY-SZ)+SZ*(SZ-SX)+3.
0D0*TXY*TXYIF(NDIM.
EQ.
2)GOTO10CTYZ=VAR(5)TZX=VAR(6)Q2=Q2+3.
0D0*TYZ*TYZ+3.
0D0*TZX*TZX10Q=SQRT(Q2)ETA=Q/PPY=P+Q*Q/(P*PR(4,KM)*PR(4,KM))PCS=PC/2.
0D0344Appendix:FortranCodesofCS-SPB=P/PCSBK=(1.
0D0+E)*P/PR(1,KM)C---CALCULATEELASTICSTRESS-STRAINMATRIXG=PR(5,KM)IF(G.
LT.
1.
0D0)G=BK*1.
50D0*(1.
0D0-2.
0D0*PR(5,KM))/(1.
0D0+PR(5,KM))AL=(3.
0D0*BK+4.
0D0*G)/3.
0D0DL=(3.
0D0*BK-2.
0D0*G)/3.
0D0CCALLZEROR2(D,6,6)D(1,1)=ALD(2,1)=DLD(3,1)=DLD(1,2)=DLD(2,2)=ALD(3,2)=DLD(1,3)=DLD(2,3)=DLD(3,3)=ALD(4,4)=GIF(NDIM.
EQ.
2)GOTO12D(5,5)=GD(6,6)=GC---CALCULATE{A}={DF/DSIG}YIELDFUNCTIONDERIVATIVES12S(1)=SX-PS(2)=SY-PS(3)=SZ-PS(4)=2.
0D0*TXYIF(NDIM.
EQ.
2)GOTO16S(5)=2.
0D0*TYZS(6)=2.
0D0*TZX16CONTINUECCorrectiontoavoidtensionfailurebyC.
R.
SongCDOII=1,3CIF(S(II).
LE.
0.
0)S(II)=0.
0CENDDOIF(VAR(1).
LE.
10.
0)GOTO200IF(VAR(2).
LE.
10.
0)GOTO200IF(VAR(3).
LE.
10.
0)GOTO200C---Calculatethebackstress.
C17CALLBKSTRS2(P,Q,ETA,PRM,SALPHA,PR,ITER,JS,IP,DELALPH,I,S)GOTO210Appendix:FortranCodesofCS-S345CWRITE(*,*)"BSTRSEDINSTRSCOR"Cc16BB=-2.
0D0*(1.
0D0-PB)/(3.
0D0*PCS)cC=3.
0D0/(PCS*PCS*PR(4,KM)*PR(4,KM))CBB=PRM**2.
0D0*(2.
0d0*P-PC)/3.
0D0!
TEMP.
BYSONGCC=3.
0D0!
TEMP.
BYSONGCSJJ2ISTHESECONDSTRESSDETERMINANTJ2!
SONGCWRITE(*,*)"ALPHA",SALPHACSJJ2=(Q**2D0)/(3.
0D0)!
SONGC---BB=(df/dp)(dp/dsig)withoutKroneckerdijC---C=(df/dq)(dq/dsig)withoutSijC---{A}={B}ijC---{S}=Sij200doii=1,4salpha(ii)=0delalph(ii)=0enddoC---CaculateBij210BB11=(2.
0d0*P-PC)*PRM**2.
0d0BB11=BB11/3BB12=0D0DOII=1,4BB12=BB12+1.
5D0*(PC*SALPHA(II)*SALPHA(II)-2D0*SALPHA(II)1*S(II))ENDDOBB12=BB12/3BB21(1)=(2D0/3D0)*S(1)-(1D0/3D0)*S(2)-(1D0/3D0)*S(3)BB21(1)=3*BB21(1)BB21(2)=-(1D0/3D0)*S(1)+(2D0/3D0)*S(2)-(1D0/3D0)*S(3)BB21(2)=3*BB21(2)BB21(3)=-(1D0/3D0)*S(1)-(1D0/3D0)*S(2)+(2D0/3D0)*S(3)BB21(3)=3*BB21(3)BB21(4)=(2D0/3D0)*S(4)BB21(4)=3*BB21(4)BB31(1)=3D0*P*((2D0/3D0)*SALPHA(1)-(1D0/3D0)*SALPHA(2)-6(1D0/3D0)*SALPHA(3))BB31(2)=3D0*P*(-(1D0/3D0)*SALPHA(1)+(2D0/3D0)*SALPHA(2)-1(1D0/3D0)*SALPHA(3))BB31(3)=3D0*P*(-(1D0/3D0)*SALPHA(1)-(1D0/3D0)*SALPHA(2)+1(2D0/3D0)*SALPHA(3))BB31(4)=3D0*P*(2D0/3D0)*SALPHA(4)DOII=1,3346Appendix:FortranCodesofCS-SA(II)=BB11+BB12+BB21(II)-BB31(II)ENDDOA(4)=0+0+BB21(4)-BB31(4)BII=A(1)+A(2)+A(3)!
BiiCCompleteBij!
{A}={B}ijmatrix18DO20J=1,3B(J)=0.
0D0DO20JJ=1,320B(J)=B(J)+D(J,JJ)*A(JJ)!
{B}=[C]ijkl[B]kl=(De)(df/dsig)B(4)=D(4,4)*A(4)IF(NDIM.
EQ.
2)GOTO25B(5)=D(5,5)*A(5)B(6)=D(6,6)*A(6)C---df/dev25XI=(1.
0D0+E)/(PR(2,KM)-PR(1,KM))!
XI=(1+e)/(lambda-kappa)ALPHA=0D0!
ALPHAijAlphaijDOII=1,4ALPHA=ALPHA+SALPHA(II)*SALPHA(II)!
ALPHA=scalarENDDOAA1=XI*P*PC*(-2D0*PRM**2D0+3D0*ALPHA)!
SONGdf/depsilonvpAA2=BIIAA=AA1*AA2!
AA=[Hp]H=AA!
TotransferHtothenextroutineCWRITE(*,*)"HinSTRscor",H,AA1,AA2C-Computetheadditionalchangeofstiffnessmatrixbybackstress.
C-byChungR.
Song3/08/99DUM2=0DOII=1,4DUM1(II)=3D0*(P*PC*SALPHA(II)-P*S(II))!
df/dalphaDELALPH(II)=DELALPH(II)DUM2=DUM2+DUM1(II)*DELALPH(II)!
(df/dalpha)(dalpha)SCALAR!
magicENDDOC-----InversionofdepsilonCDAB=dedpsilon,DABI=inverseofdepsilonCDEPS=DABThisisthevectorialformDabSongCDABisdepsi!
3/23/99SongCWRITE(*,*)"DAB",DAB(1,1),DAB(1,2)CWRITE(*,*)"DAB",DAB(2,1),DAB(2,2),ITERAppendix:FortranCodesofCS-S347CDJACOB=DAB(1,1)*DAB(2,2)-DAB(1,2)*DAB(2,1)CIF(DJACOB.
EQ.
0)GOTO27!
skipsingularconditionCCIF(ITER.
EQ.
1)GOTO27CCALLDETMIN(LOUT1,NDIM,DAB,DABI,DJACB,JL,IP,ISTGE)CDABI(1,1)=DAB(2,2)/DJACOBCDABI(2,2)=DAB(1,1)/DJACOBCDABI(1,2)=-DAB(2,1)/DJACOBCDABI(2,1)=-DAB(1,2)/DJACOBCGOTO75C27DO70JJJ1=1,4C70DEPSI(JJJ1)=0D0CGOTO77C-----InversionofdepsilonCDAB=dedpsilon,DABI=inverseofdepsilonCDEPS=DABThisisthevectorialformDabSongCDABisdepsi!
3/23/99SongCWRITE(*,*)"DAB",DAB(1,1),DAB(1,2)CWRITE(*,*)"DAB",DAB(2,1),DAB(2,2),ITERDJACOB1=DAB(1,1)*(DAB(2,2)*DAB(3,3)-DAB(3,2)*DAB(2,3))DJACOB2=DAB(2,1)*(DAB(1,2)*DAB(3,3)-DAB(3,2)*DAB(1,3))DJACOB3=DAB(3,1)*(DAB(1,2)*DAB(2,3)-DAB(2,2)*DAB(1,3))DJACOB=DJACOB1-DJACOB2+DJACOB3CDJACOB=DAB(1,1)*DAB(2,2)-DAB(1,2)*DAB(2,1)!
radialstrain=0IF(DJACOB.
EQ.
0)GOTO27!
skipsingularconditionCALLDETMIN1(LOUT1,NDIM,DAB,DABI,DJACB,JL,IP,ISTGE)!
specialcIF(ITER.
EQ.
1)GOTO27CCALLDETMIN1(LOUT1,NDIM,DAB,DABI,DJACB,JL,IP,ISTGE)CDABI(1,1)=DAB(2,2)/DJACOBCDABI(2,2)=DAB(1,1)/DJACOBCDABI(1,2)=-DAB(2,1)/DJACOBCDABI(2,1)=-DAB(1,2)/DJACOBGOTO7527DO70JJJ1=1,470DEPSI(JJJ1)=0D0GOTO77CWRITE(*,*)"444"C-----Changethedepsilon\_1tensortodepsilon\_1vector75DEPSI(1)=DABI(1,1)348Appendix:FortranCodesofCS-SDEPSI(2)=DABI(2,2)DEPSI(3)=0.
0!
DABI(3,3)DEPSI(4)=DABI(1,2)!
Axi-symmetricC-----Substitutedepsiloninverse,into[Hp]equation77CONTINUEDOJS1=1,4!
clearDUM4(JS1)=0.
0D0ENDDODO90JS1=1,4!
2-Dcase,AxisymmetricDUM4(JS1)=DUM2*A(JS1)!
(df/dalpha)(dalpha)[B]vectorizedtensorDO91JS2=1,4!
2-Dcase91DUM5(JS1)=DUM5(JS1)+D(JS1,JS2)*DUM4(JS2)!
2ndoderized4thordertensorDO90JS2=1,490HPA(JS1,JS2)=(1D0/3D0)*DUM5(JS1)*DEPSI(JS2)!
[HPA]=(1/3)[C](df/dalpha)(dalpha)[B][depsil]IF(ETA.
LT.
PRM.
AND.
AA.
LT.
0.
0D0)AA=0000000000.
0!
AA=infinitiveCIF(ETA.
GT.
PRM.
AND.
AA.
GT.
0.
0D0)AA=0.
0D0IF(ICOD.
EQ.
5)AA=0.
0D0AB=0.
0D0CCALCULATEALPHAPARAMETERC-DO30J=1,NS30AB=AB+A(J)*B(J)BETA=AA+ABALPHA=FYLD/BETAC-CCALCULATEDSIG=ALPHA*[D]*{A}C-DO40J=1,NS40DSIG(J)=ALPHA*B(J)RETURNENDC*SUBROUTINEEQUIBLOD(XYZ,NCONN,MAT,LTYP,NQ,NW,NP1,NP2,PR,NTY,DI,1DIPR,STRESS,STRAIN,PEXI,IDFX,P,PT,PCOR,PEQT,XYFT,PCONI,+LCS,LNGP,NELCM,MCS,MNGP,NCAM,ITER,IOUTP,JS)Appendix:FortranCodesofCS-S349C-CTHISSUBROUTINECOMPUTESTHEEQUILIBRATINGGLOBALLOADVECTORC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSTRESS(NVRS,NIP,MEL),XYZ(3,MNODES),STRAIN(NVRN,NIP,MEL)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),LTYP(MEL),NW(MNODES+1),1NQ(MNODES),NP1(NPL),NP2(NPL)DIMENSIONBL(6,NB),BNL(6,NB),BL1(9,NB),FT(3,NDMX)DIMENSIONSLL(4),NWL(NPMX),AA(NPMX)DIMENSIONPR(NPR,NMT),NTY(NMT)DIMENSIOND(6,6),ELCOD(3,NDMX),DS(3,20),SHFN(20),CARTD(3,NDMX)DIMENSIONMCS(MEL),MNGP(MEL),ST(6),ST1(6)DIMENSIONDI(MDOF),DIPR(MDOF),EDINC(NB),EDINCP(NB),ED(2),1XJACM(3,3)DIMENSIONP(MDOF),PCOR(MDOF),PT(MDOF),XYFT(MDOF),PCONI(MDOF)DIMENSIONPEXI(MDOF),PEQT(MDOF),IDFX(MDOF)DIMENSIONLCS(NIP,MEL),LNGP(NIP,MEL),NELCM(MEL)COMMON/DATL/SL(4,100)COMMON/DATW/W(100)COMMON/COUNT/NCS,NNGPCOMMON/ELINF/LINFO(50,15)COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/PRSLD/PRESLD(10,100),LEDG(100),NDE1(100),NDE2(100),NLEDCOMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/OUT/IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFCOMMON/JACB/XJACI(3,3),DJACBCOMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWC-LED=2IEL=0NCAM=0NDIM1=NDIM+1CR=1.
0D0IF(NPLAX.
EQ.
1)CR=2.
0D0*PYICINITIALIZETHEEQUILIBRIATINGLOADVECTORCALLZEROR1(PEQT,MDOF)IF(ITER.
EQ.
1)CALLZEROR1(PT,MDOF)C-CINITIALISEC-DO18IM=1,NELMCS(IM)=0350Appendix:FortranCodesofCS-SMNGP(IM)=0NELCM(IM)=0DO18IP=1,NIPLCS(IP,IM)=018LNGP(IP,IM)=0C-IEL=0NCAM=0CGETTHEELEMENTDISPLACEMENTSFROMTHEGLOBALDISPLACEMENTVECTORDO200MR=1,NELICAM=0CLT=LTYP(MR)IF(LT.
LT.
0)GOTO200NDN=LINFO(5,LT)NGP=LINFO(11,LT)INDX=LINFO(12,LT)NPN=LINFO(6,LT)NDPT=LINFO(1,LT)NAC=LINFO(15,LT)CCALCULATEELEMENTINCREMENTALDISPLACEMENTEDINCCALLZEROR1(EDINCP,NB)CALLZEROR1(EDINC,NB)DOJDN=1,NDNNIN=NDIM*(JDN-1)JN=ABS(NCONN(JDN,MR))JL=NW(JN)-1DOID=1,NDIMEDINCP(NIN+ID)=DIPR(JL+ID)EDINC(NIN+ID)=DI(JL+ID)ENDDOENDDOC-CSETUPLOCALNODALCOORDINATESOFELEMENTC-DO20KN=1,NDNNDE=NCONN(KN,MR)DO20ID=1,NDIM20ELCOD(ID,KN)=XYZ(ID,NDE)CGOTO(25,25,23,25,23,25,23,25,23,25,23),LTC-CSETUPLOCALARRAYOFNWASNWLGIVINGTHEINDEXTOCPORE-PRESSUREVARIABLESC-23IPP=0DO24IV=1,NDPTIQ=LINFO(IV+INXL,LT)Appendix:FortranCodesofCS-S351IF(IQ.
NE.
NDIM1.
AND.
IQ.
NE.
1)GOTO24IPP=IPP+1NDE=NCONN(IV,MR)NWL(IPP)=NW(NDE)+IQ-124CONTINUE25KM=MAT(MR)KGO=NTY(KM)!
ExplanationofKGOIF(NTY(KM)-2)27,28,2827CALLDCON(MR,0,MAT,PR,D,NDIM,BK)28IEL=IEL+1CINITIALIZETHEEQUILIBRIATINGLOADVECTORFTCALLZEROR2(FT,3,NDMX)C-CLOOPONINTEGRATIONPOINTSC-DO125IP=1,NGPIPA=IP+INDXCDO35IL=1,NAC35SLL(IL)=SL(IL,IPA)C-CINITIALISESHAPEFUNCTIONANDDERIVATIVES(LOCALCOORDS)C-CALLZEROR2(DS,3,20)CALLZEROR1(SHFN,20)CCALCULATESHAPEFUNCTIONSANDDERIVATIVESW.
R.
TLOCALCOOR.
CALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,2,MR)CALLZEROR2(XJACM,3,3)CCALCULATE[JAC],[JAC]-1&DETJACDO15IDIM=1,NDIMDO15JDIM=1,NDIMSUM=ZERODO112IN=1,NDN112SUM=SUM+DS(IDIM,IN)*ELCOD(JDIM,IN)15XJACM(IDIM,JDIM)=SUMcCWRITE(*,*)"EQUIBLOD"CALLDETMIN(LOUT1,NDIM,XJACM,XJACI,DJACB,MR,IP,ISTGE)C-CCALCULATERADIUSFORAXI-SYMBMATRIXC-R=ZERORI=ZEROIF(NPLAX.
EQ.
0)GOTO38CDOIN=1,NDNR=R+ELCOD(1,IN)*SHFN(IN)352Appendix:FortranCodesofCS-SENDDORI=-1.
0D0/RCCALCULATECARTESIANDERIVATIVESOFSHAPEFUNCTIONS38DOIN1=1,NDNDOID=1,NDIMSUM=ZEROCDO130JD=1,NDIM130SUM=SUM-DS(JD,IN1)*XJACI(ID,JD)CARTD(ID,IN1)=SUMENDDOENDDOCCALCULATETHELINEARSTRAIN-DISPLMATRIX[BL]CALLBLNR(NDIM,NDN,NPLAX,RI,SHFN,CARTD,BL)CIF(LINR.
GT.
1)THENCCALCULATETHENONLINEARSTRAIN-DISPLMATRIXBNLCALLBNLNR(EDINCP,SHFN,CARTD,RI,NDIM,NDN,BNL,NS,NPLAX)ENDIFCCALCULATETHELINEARDISPL-DISPLMATRIXBL1CALLBLNR1(CARTD,BL1,NDIM,NDN)CCALLZEROR1(ST,NS)CDO44II=1,NDNIN=NCONN(II,MR)N1=NW(IN)N2=N1+1ST(1)=ST(1)+CARTD(1,II)*DI(N1)ST(2)=ST(2)+CARTD(2,II)*DI(N2)ST(3)=ST(3)+SHFN(II)*DI(N1)*RIST(4)=ST(4)+CARTD(1,II)*DI(N2)+CARTD(2,II)*DI(N1)IF(NDIM.
EQ.
2)GOTO44N3=N1+2ST(3)=ST(3)+CARTD(3,II)*DI(N3)ST(5)=ST(5)+CARTD(3,II)*DI(N2)+CARTD(2,II)*DI(N3)ST(6)=ST(6)+CARTD(3,II)*DI(N1)+CARTD(1,II)*DI(N3)44CONTINUECDOIS=1,NSST1(IS)=STRAIN(IS,IP,MR)ENDDOED(1)=EDS(ST1,NS,NDIM)CGOTO(70,70,66,70,66,70,66,70,66,70,66),LTAppendix:FortranCodesofCS-S35366CALLSHFNPP(LINP,SLL,NAC,DS,AA,LT,0,MR)SUM=0.
0D0DO68IC=1,NPNIVR=NWL(IC)68SUM=SUM+AA(IC)*DI(IVR)V=ST(1)+ST(2)+ST(3)UI=SUMGOTO7270V=ST(1)+ST(2)+ST(3)UI=PR(7,KM)*V*BK72CONTINUECCALLSTRSTN(IP,MR,NDN,KGO,ELCOD,SHFN,MAT,PR,D,BK,1EDINC,BL,BNL,BL1,STRESS,UI,ST,ITER,JS)CDO45IS=1,NS45STRAIN(IS,IP,MR)=STRAIN(IS,IP,MR)+ST(IS)DOIS=1,NSST1(IS)=STRAIN(IS,IP,MR)ENDDOED(2)=EDS(ST1,NS,NDIM)CIF(KGO.
NE.
3.
AND.
KGO.
NE.
4)GOTO85C-CCALCULATEEXTRAVARIABLESFORCAM-CLAYONLYC-85CALLSTRSEQ(MR,IP,IPA,NDIM,NDN,NS,STRESS,SHFN,CARTD,FT,DJACB,1R,RI,CR,NPLAX)CENDOFINTEGRATIONPOINTSLOOP125CONTINUEC-CASSEMBLEEQUILIBRATINGNODALFORCESINTOGLOBALARRAY-PEQTC-DO150IK=1,NDNII=NCONN(IK,MR)N1=NW(II)-1CDO150ID=1,NDIM150PEQT(N1+ID)=PEQT(N1+ID)+FT(ID,IK)CENDOFELEMENTSLOOP200CONTINUE354Appendix:FortranCodesofCS-SC-CCALCULATEOUT-OF-BALANCENODALLOADSC-DO230IM=1,NDF230PEQT(IM)=PEQT(IM)+PEXI(IM)CCOUNTFORSKEWBOUNDARIESIF(NSKEW.
GT.
0)CALLROTBC(PEQT,NW,NDIM,NSKEW,1)CKSTGE=4TTGRV=1.
0D0CIF(ITER.
EQ.
1)THENCALLEQLOD(NCONN,MAT,LTYP,NW,NQ,IDFX,NP1,NP2,XYZ,P,1PT,PCOR,PEQT,XYFT,PCONI,PR,0,1,TTGRV,0,KSTGE,0,IOUTP)ELSECALLRESTRN(NDIM,NW,IDFX)DO5IK=1,NDFIF(IDFX(IK).
EQ.
1)THENPCOR(IK)=ZEROELSEPCOR(IK)=PT(IK)-PEQT(IK)ENDIF5CONTINUEENDIFCRETURNENDCSUBROUTINECONVCH(NDF,NNODES,NDIM,TOL,ICONV,ICRIT,NW,UITER,UINC,1REPRE,RE,ITER,RNRM1)C-CTHISSUBPROGRAMFINDSOUTIFTHECONVERGENCEHASOCCUREDBYUSINGCTHEPREVIOUSANDCURRENTUNBALANCEDLOADSORDISPLACEMENTSORBYCENERGYCRITERIACIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONUITER(MDOF),UINC(MDOF),REPRE(MDOF),RE(MDOF),NW(MNODES+1)ICONV=0CINTERNALENERGYCRITERION:ICONV1=0Appendix:FortranCodesofCS-S355IF(ICRIT.
EQ.
1)THENERGPREV=ERGERG=0.
0D0CDOI=1,NNODESN1=NW(I)-1DOJJ=1,NDIMERG=ERG+UITER(N1+JJ)*(RE(N1+JJ)-REPRE(N1+JJ))ENDDOENDDOIF(ITER.
EQ.
1)THENERG1=ERGRETURNELSEIF(ABS(ERG).
LT.
ABS(TOL*ERG1))ICONV=1IF(ABS(ERG).
GT.
ABS(ERGPREV))ICONV1=1ENDIFCDISPLACEMENTCRITERION:ELSEIF(ICRIT.
EQ.
2)THENTOTNRM=0.
0D0CURNRM=0.
0D0CDOI=1,NNODESN1=NW(I)-1DOJJ=1,NDIMTOTNRM=TOTNRM+UINC(N1+JJ)*UINC(N1+JJ)CURNRM=CURNRM+UITER(N1+JJ)*UITER(N1+JJ)ENDDOENDDOCTOTNRM=SQRT(TOTNRM)CURNRM=SQRT(CURNRM)IF(CURNRM.
LT.
TOL*TOTNRM)ICONV=1CIFUNBALANCEDFORCECRITERION:ELSEIF(ICRIT.
EQ.
3)THENDOI=1,NDFRTMPNRM=0.
0D0RTMPNRM=RTMPNRM+RE(I)*RE(I)ENDDORNRM=SQRT(RTMPNRM)356Appendix:FortranCodesofCS-SIF(ITER.
EQ.
1)THENRNRM1=RNRMRETURNELSEIF(RNRM.
LT.
TOL*RNRM1)ICONV=1ENDIFENDIFRETURNENDC*SUBROUTINEUPOUT(XYZ,DI,DA,STRESS,STRAIN,P,PT,PCOR,PEQT,NCONN,MAT,1NTY,PR,LTYP,NW,NQ,IDFX,VARC,YREF,IOUTP)C-CUPDATEANDOUTPUTROUTINEC-IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNQ(MNODES),NW(MNODES+1),IDFX(MDOF)DIMENSIONNCONN(NTPE,MEL),MAT(MEL),NTY(NMT),LTYP(MEL),PR(NPR,NMT)DIMENSIONSTRESS(NVRS,NIP,MEL),XYZ(3,MNODES)DIMENSIONP(MDOF),PCOR(MDOF),PT(MDOF),PEQT(MDOF)DIMENSIONDI(MDOF),DA(MDOF)DIMENSIONELCOD(3,NDMX),DS(3,20),SHFN(20)DIMENSIONCIP(3),SLL(4)DIMENSIONVARC(9,NIP,MEL),STRAIN(NVRN,NIP,MEL)DIMENSIONNELPR(MEL),NELUS(MEL)DIMENSIONSPA(3)DIMENSIONXJACM(3,3)COMMON/DATL/SL(4,100)COMMON/ELINF/LINFO(50,15)COMMON/DEVICE/LINP,LOUT1,LOUT2,LOUT3,LOUT4,LOUT5,LSOLVCOMMON/PARS/PYI,ASMVL,ZEROCOMMON/COUNT/NCS,NNGPCOMMON/OUT/IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFCOMMON/JACB/XJACI(3,3),DJACBCOMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWCOMMON/ANLYS/TTIME,DTIMEI,TGRAV,DGRAVI,FRACT,FRACLD,+ICOR,IDCHK,IOUT,INCT,IWL,+NOIB,JS,JINCB,NLOD,NLDSAppendix:FortranCodesofCS-S357CISTGE=4LED=2NS1=NS+1NDIM1=NDIM+1C-CBREAKOUTPUTCODEC-IOUT4=IOUT/1000IOUT3=(IOUT-1000*IOUT4)/100IOUT2=(IOUT-1000*IOUT4-100*IOUT3)/10IOUT1=(IOUT-1000*IOUT4-100*IOUT3-10*IOUT2)IF(IOUT1.
LT.
1)GOTO66LT1=LTYP(1)LT1=IABS(LT1)IF(IOUTP.
NE.
1)GOTO66CGOTO(1,1,2,1,2,1,2,3,4,1,2),LT1C1WRITE(LOUT1,902)CGOTO66C2WRITE(LOUT1,901)CGOTO66C3WRITE(LOUT1,933)CGOTO66C4WRITE(LOUT1,934)66CONTINUEC-CUPDATEABSOLUTEDISPLACEMENTSC-CR=1.
0D0IF(NPLAX.
EQ.
1)CR=2.
0D0*PYIDO5KD=1,NDF5DA(KD)=DA(KD)+DI(KD)CDO10JR=1,NNIF(JR.
EQ.
0)GOTO10J=JRNQL=NQ(JR)IF(NQL.
EQ.
0)GOTO10N1=NW(JR)IF(IOUT1.
EQ.
0)GOTO10IF(IOUT1.
EQ.
1.
AND.
JR.
GT.
NN)GOTO10IF(JR.
LT.
NN)GOTO6IF(JR.
LT.
NMOS.
OR.
JR.
GT.
NMOF)GOTO10GOTO86CONTINUEIF(JR.
LT.
NVOS.
OR.
JR.
GT.
NVOF)GOTO108CONTINUE358Appendix:FortranCodesofCS-SCN2=N1+NQL-1IF(IOUTP.
NE.
1)GOTO14CIF(NDIM.
EQ.
3)GOTO9CIF(NQL.
EQ.
3)WRITE(LOUT1,900)JR,(DI(JJ),JJ=N1,N2),(DA(JJ),JJ=N1,N2)CIF(NQL.
EQ.
2)WRITE(LOUT1,910)JR,(DI(JJ),JJ=N1,N2),(DA(JJ),JJ=N1,N2)CIF(NQL.
EQ.
1)WRITE(LOUT1,911)JR,DI(N1),DA(N1)CGOTO10C9CONTINUECIF(NQL.
EQ.
4)WRITE(LOUT1,940)JR,(DI(JJ),JJ=N1,N2),(DA(JJ),JJ=N1,N2)CIF(NQL.
EQ.
3)WRITE(LOUT1,941)JR,(DI(JJ),JJ=N1,N2),(DA(JJ),JJ=N1,N2)10CONTINUEIF(NDIM.
EQ.
3)GOTO12IF(IOUT2.
EQ.
2)WRITE(LOUT3,904)IF(IOUT2.
EQ.
1)WRITE(LOUT3,906)GOTO1412CONTINUEIF(IOUT2.
EQ.
2)WRITE(LOUT3,904)IF(IOUT2.
EQ.
1)WRITE(LOUT3,936)14CONTINUEC-CINITIALISEC-DO18IM=1,NELNELPR(IM)=0NELUS(IM)=018CONTINUEC-CUPDATENODALCO-ORDINATESC-ND=NNDO220J=1,NNN1=NW(J)-1DO220ID=1,NDIM220XYZ(ID,J)=XYZ(ID,J)+DI(N1+ID)C-COUTPUTNODALCOORDINATESANDPWPC-IF(IOUTP.
EQ.
1)THENIF(NDIM.
EQ.
2)WRITE(LOUT1,301)IF(NDIM.
EQ.
3)WRITE(LOUT1,331)DOI33=1,NNNWL=NW(I33)-1NQL=NQ(I33)ND1=NDIM+1NDL=NWL+ND1XNODE=XYZ(1,I33)YNODE=XYZ(2,I33)Appendix:FortranCodesofCS-S359YLIM=YREF-0.
040D0cIF(XNODE.
LT.
0.
040D0.
AND.
YNODE.
GE.
YLIM)THENXNORM=XNODE/0.
005640D0YNORM=(YNODE)/0.
005640D0IF(NQL.
EQ.
ND1)THENcIF(NDIM.
EQ.
2)WRITE(LOUT1,303)I33,XNORM,YNORM,IF(NDIM.
EQ.
2)WRITE(LOUT1,303)I33,XNODE,YNODE,1DA(NDL)IF(NDIM.
EQ.
3)WRITE(LOUT1,333)I33,(XYZ(IDIM,I33),IDIM=1,NDIM),1DA(NDL)cELSEcIF(NDIM.
EQ.
2)WRITE(LOUT1,313)I33,(XYZ(IDIM,I33),IDIM=1,NDIM)cIF(NDIM.
EQ.
3)WRITE(LOUT1,323)I33,(XYZ(IDIM,I33),IDIM=1,NDIM)ENDIFcENDIFENDDOENDIFC-CCALCULATEANDOUTPUTSTRESSESATTHENODESC-IF(IOUTP.
EQ.
1)CALLNODSTRS(NEL,NN,NS,LTYP,XYZ,NCONN,STRESS,1YREF)C-CCALCULATEANDOUTPUTSTRAINSATTHENODESC-IF(IOUTP.
EQ.
1)CALLNODSTRN(NEL,NN,NS,LTYP,XYZ,NCONN,STRAIN,1YREF)C-CLOOPOVERTHEELEMENTSC-IEL=0DO200MR=1,NELKMAT=MAT(MR)KGO=NTY(KMAT)J=MRCIF(J.
EQ.
0)GOTO200LT=LTYP(J)NDN=LINFO(5,LT)NGP=LINFO(11,LT)INDX=LINFO(12,LT)NPN=LINFO(6,LT)NDPT=LINFO(1,LT)NAC=LINFO(15,LT)C-CSETUPLOCALNODALCOORDINATESOFELEMENTC-DO20KN=1,NDN360Appendix:FortranCodesofCS-SNDE=NCONN(KN,J)DO20ID=1,NDIM20ELCOD(ID,KN)=XYZ(ID,NDE)C25IF(IOUT2.
NE.
2.
OR.
IOUTP.
NE.
1)GOTO26IF(MR.
LT.
NELOS.
OR.
MR.
GT.
NELOF)GOTO26WRITE(LOUT3,908)MRIF(NDIM.
EQ.
2)WRITE(LOUT3,914)IF(NDIM.
EQ.
3)WRITE(LOUT3,944)26CONTINUEIEL=IEL+1NELUS(IEL)=MRNELPR(IEL)=JC-CLOOPONINTEGRATIONPOINTSC-DO125IP=1,NGPIPA=IP+INDXCDO35IL=1,NAC35SLL(IL)=SL(IL,IPA)C-CINITIALISESHAPEFUNCTIONANDDERIVATIVES(LOCALCOORDS)C-CALLZEROR2(DS,3,20)CALLZEROR1(SHFN,20)CCALCULATESHAPEFUNCTIONSANDDERIVATIVESW.
R.
TLOCALCOOR.
CALLSHAPE(LOUT1,SLL,NAC,DS,SHFN,LT,2,MR)CALLZEROR2(XJACM,3,3)CCALCULATE[JAC],[JAC]-1&DETJACDO15IDIM=1,NDIMDO15JDIM=1,NDIMSUM=ZERODO112IN=1,NDN112SUM=SUM+DS(IDIM,IN)*ELCOD(JDIM,IN)15XJACM(IDIM,JDIM)=SUMCCALLDETMIN(LOUT1,NDIM,XJACM,XJACI,DJACB,MR,IP,ISTGE)C-COUTPUTABSOLUTESTRESSESC-CALLPRINC(STRESS(1,IP,J),STRESS(2,IP,J),STRESS(4,IP,J),SPA)IF(IOUT2.
EQ.
0)GOTO175IF(IOUT2.
EQ.
1)GOTO120IKM=IPGOTO122120IF(IOUT2.
NE.
1.
OR.
IP.
NE.
NGP)GOTO175Appendix:FortranCodesofCS-S361IKM=MRC122DO124ID=1,NDIMSUM=ZEROCDO123IN=1,NDN123SUM=SUM+SHFN(IN)*ELCOD(ID,IN)124CIP(ID)=SUMIF(IOUTP.
NE.
1)GOTO175IF(MR.
LT.
NELOS.
OR.
MR.
GT.
NELOF)GOTO175IF(NDIM.
EQ.
2)WRITE(LOUT3,916)IKM,(CIP(ID),ID=1,NDIM),1(STRESS(IK,IP,J),IK=1,NS1),(SPA(JL),JL=1,3)IF(NDIM.
EQ.
3)WRITE(LOUT3,946)IKM,(CIP(ID),ID=1,NDIM),1(STRESS(IK,IP,J),IK=1,NS1)C175IF(KGO.
NE.
3.
AND.
KGO.
NE.
4)GOTO125C-CCALCULATEEXTRAVARIABLESFORCAM-CLAYANDUPDATEMCODEC-CALLUPDCAM(STRESS,IP,MR,KMAT,NS,NDIM,PR,KGO,VARC)125CONTINUEC200CONTINUEC-COUTPUTADDITIONALPARAMETERSFORCAM-CLAYSC-CALLCAMOUT(LOUT4,LTYP,MAT,NTY,IOUT3,NEL,VARC,IOUTP)C225CONTINUEKSTGE=4CALLEQLBM(LOUT2,NDIM,1,NN,NDF,NW,NQ,IDFX,P,PT,PCOR,PEQT,1IOUT4,1,IRAC,IOUTP)C-CWRITERESULTSONSAVEFILEC-CIF(ISR.
EQ.
0)GOTO250CIF(ISR.
EQ.
2)GOTO240CIF(ISR.
EQ.
1.
AND.
IWL.
EQ.
1)GOTO240CGOTO250C240WRITE(IW2)TTIME,TGRAV,XYZ,STRESS,STRAIN,DA,XYFT,PCOR,PCONI,LTYP,NMODCWRITE(IW2)NF,MF,NFIX,DXYTCWRITE(IW2)NLED,LEDG,NDE1,NDE2,PRESLDCC250CONTINUE362Appendix:FortranCodesofCS-SRETURN301FORMAT(//,14X,'UPDATEDNODECOORDINATES',/,4X,48('-'),/,15X,'NODE',12X,'X',12X,'Y',12X,'PWP',/,4X,48('-'))303FORMAT(4X,I4,4X,2F12.
6,4X,F10.
3)313FORMAT(4X,I4,4X,2F12.
6)331FORMAT(//,20X,'UPDATEDNODECOORDINATES',/,4X,58('-'),1/,5X,'NODE',10X,'X',11X,'Y',11X,'Z',12X,'PWP',/,4X,58('-'))333FORMAT(4X,I4,4X,4F12.
4)323FORMAT(4X,I4,4X,3F12.
4)900FORMAT(1X,I5,6E12.
4)901FORMAT(//46HNODALDISPLACEMENTSANDEXCESSPOREPRESSURES/11X,45(1H-)//21X,11HINCREMENTAL,26X,8HABSOLUTE//12X,4HNODE,7X,2HDX,10X,2HDY,10X,2HDU,10X,2HDX,10X,2HDY,10X,2HDU/)902FORMAT(//20HNODALDISPLACEMENTS/1X,19(1H-)//118X,11HINCREMENTAL,33X,8HABSOLUTE//12X,4HNODE,7X,2HDX,13X,2HDY,28X,2HDX,13X,2HDY/)904FORMAT(//40HABSOLUTESTRESSESATINTEGRATIONPOINTS/1X,39(1H-)/)906FORMAT(//30HSTRESSESATELEMENTCENTROIDS/1X,29(1H-)//8HELEMENT,13X,1HX,13X,1HY,11X,2HSX,11X,2HSY,11X,2HSZ,10X,3HTXY,12X,1HU,110X,5HSIG-1,8X,5HSIG-2,7X,5HTH-XY)908FORMAT(/15HELEMENTNUMBER,I5/1X,19(1H-))910FORMAT(1X,I5,2E12.
4,12X,2E12.
4)911FORMAT(1X,I5,30X,E12.
4,30X,E12.
4)914FORMAT(2X,2HIP,7X,1HX,9X,1HY,10X,2HSX,10X,2HSY,10X,2HSZ,19X,3HTXY,9X,1HU,9X,5HSIG-1,7X,5HSIG-2,7X,5HTH-XY/)916FORMAT(1X,I3,2F10.
4,7E12.
4,F10.
1)933FORMAT(//20HNODALDISPLACEMENTS/1X,19(1H-)//118X,11HINCREMENTAL,51X,8HABSOLUTE//12X,4HNODE,7X,2HDX,13X,2HDY,13X,2HDZ,28X,2HDX,13X,2HDY,13X,2HDZ/)934FORMAT(//46HNODALDISPLACEMENTSANDEXCESSPOREPRESSURES/11X,45(1H-)//21X,11HINCREMENTAL,37X,8HABSOLUTE//14X,4HNODE,5X,2HDX,10X,2HDY,10X,2HDZ,10X,2HDU,110X,2HDX,10X,2HDY,10X,2HDZ,10X,2HDU/)936FORMAT(//30HSTRESSESATELEMENTCENTROIDS/1X,29(1H-)//8HELEMENT,13X,1HX,13X,1HY,12X,1HZ,11X,2HSX,11X,2HSY,11X,2HSZ,11X,3HTXY,111X,3HTYZ,10X,3HTZX,11X,1HU/)940FORMAT(1X,I5,8E12.
4)941FORMAT(1X,I5,3E12.
4,12X,3E12.
4)944FORMAT(2X,2HIP,7X,1HX,9X,1HY,9X,1HZ,8X,2HSX,110X,2HSY,10X,2HSZ,10X,3HTXY,9X,3HTYZ,10X,3HTZX,9X,1HU/)946FORMAT(1X,I3,3F10.
4,7E12.
4)ENDAppendix:FortranCodesofCS-S363C*SUBROUTINESTRSTN(IP,MR,NDN,KGO,ELCOD,SHFN,MAT,PR,D,1BK,EDINC,BL,BNL,BL1,STRESS,UI,DEPS,ITER,JS)C*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/MODEL/PQMOD(NIP,MEL,2),MCODE(NIP,MEL)COMMON/NSIZE/NN,NEL,NDF,NNOD1,NS,NPT,NSP,INXL,1MXEN,MXLD,MXFXT,NPLAX,LINR,NDIM,NSKEWDIMENSIONEDINC(NB),F(3,3),FINV(3,3),EDOT(3,3),TEMP2(3,3),1DAB(3,3),SPK(3,3),SIG(3,3),SIGP(6),DEPS(6),TEMP1(6),TEMP3(6),2STRESS(NVRS,NIP,MEL),BL(6,NB),BNL(6,NB),BL1(9,NB)DIMENSIONELCOD(3,NDMX),SHFN(20),MAT(MEL),PR(NPR,NMT),D(6,6),1DSIG(6),SIGDOT(3,3),SPKDOT(3,3),DSIGCOR(6),VAR(6)DIMENSIONDD(6,6),DDD(6,6),A(6),SALPHA(4),D2(3,3,3,3),IJ1(6)CWRITE(*,*)"STRSTN"CCIK(M,N)=(M/N)*(N/M)CKM=MAT(MR)PRM=PR(4,KM)ICOD=MCODE(IP,MR)CINITIALIZEARRAYSDOI1=1,6DSIGCOR(I1)=0.
0D0TEMP1(I1)=0.
0D0TEMP3(I1)=0.
0D0VAR(I1)=0.
0D0SIGP(I1)=0.
0D0DSIG(I1)=0.
0D0ENDDODOI1=1,3DOJ1=1,3TEMP2(I1,J1)=0.
0D0DAB(I1,J1)=0.
0D0EDOT(I1,J1)=0.
0D0SIG(I1,J1)=0.
0D0SIGDOT(I1,J1)=0.
0D0SPKDOT(I1,J1)=0.
0D0ENDDOENDDOCIF(LINR.
GT.
1)CALLADDBMAT(BL,BNL)364Appendix:FortranCodesofCS-SCDOII1=1,NSTEMP=0.
0D0DOII2=1,NBTEMP=TEMP+BL(II1,II2)*EDINC(II2)Cwrite(2,*)'TEMP=',TEMPENDDOTEMP1(II1)=TEMPENDDOC-CCONVERTITINTOMATRIXTEMP1---->EDOT(I,J)C-DOII1=1,3DOII2=1,3EDOT(II1,II2)=0.
0D0ENDDOENDDOEDOT(1,1)=TEMP1(1)EDOT(2,2)=TEMP1(2)EDOT(3,3)=TEMP1(3)EDOT(1,2)=TEMP1(4)EDOT(2,1)=EDOT(1,2)IF(NDIM.
NE.
3)GOTO101EDOT(2,3)=TEMP1(5)EDOT(3,2)=EDOT(2,3)EDOT(1,3)=TEMP1(6)EDOT(3,1)=EDOT(1,3)101CONTINUEC-CCALCULATETHEDEFORMATIONGRADIENTMATRIX[F],[FINV]&DETFC-CALLDEFGRAD(BL1,F,FINV,DETF,EDINC,NDIM,LINR)C-CTRANSFORMTHESTRAIN[EDOT]TO[DAB]BY:[DAB]=[FINV]\^T[EDOT][FINV]C-DOII=1,3DOIJ=1,3TEMP=0.
0D0DOK=1,3TEMP=TEMP+EDOT(II,K)*FINV(K,IJ)ENDDOTEMP2(II,IJ)=TEMPENDDOENDDODOII=1,3DOIJ=1,3Appendix:FortranCodesofCS-S365TEMP=0.
0D0DOK=1,3TEMP=TEMP+FINV(K,II)*TEMP2(K,IJ)ENDDODAB(II,IJ)=TEMPENDDOENDDOCWRITE(*,*)"STRSTN"CWRITE(*,*)"INI",DAB(1,1),DAB(1,2)CWRITE(*,*)"INI",DAB(2,1),DAB(2,2)CCORRECTIONFORANTI-TENSIONFAILUREcDOIJ=1,3cIF(STRESS(IJ,IP,MR).
LE.
10.
0)STRESS(IJ,IP,MR)=10.
0cENDDOC-CCALCULATE2-NDPIOLA-KIRCHHOFFSTRESSTENSORSPK(3,3)C-CALLZEROR2(SPK,3,3)SPK(1,1)=STRESS(1,IP,MR)SPK(2,2)=STRESS(2,IP,MR)SPK(3,3)=STRESS(3,IP,MR)SPK(1,2)=STRESS(4,IP,MR)SPK(2,1)=STRESS(4,IP,MR)IF(NDIM.
EQ.
3)THENSPK(2,3)=STRESS(5,IP,MR)SPK(3,2)=STRESS(5,IP,MR)SPK(1,3)=STRESS(6,IP,MR)SPK(3,1)=STRESS(6,IP,MR)ENDIFC-CTRANSFORMSPKINTOSIG(CAUCHYSTRESS)C-DOII=1,3DOIJ=1,3TEMP=0.
0D0DOK=1,3TEMP=TEMP+SPK(II,K)*F(K,IJ)ENDDOTEMP2(II,IJ)=TEMPENDDOENDDODOII=1,3DOIJ=1,3TEMP=0.
0D0DOK=1,3366Appendix:FortranCodesofCS-STEMP=TEMP+F(K,II)*TEMP2(K,IJ)ENDDOSIG(II,IJ)=TEMP/DETFENDDOENDDOC-CCHANGETHETENSORSTOVECTORS(SIGANDDAB)C-DEPS(1)=DAB(1,1)SIGP(1)=SIG(1,1)DEPS(2)=DAB(2,2)SIGP(2)=SIG(2,2)DEPS(3)=DAB(3,3)SIGP(3)=SIG(3,3)DEPS(4)=DAB(1,2)SIGP(4)=SIG(1,2)DEPS(5)=DAB(2,3)SIGP(5)=SIG(2,3)DEPS(6)=DAB(1,3)SIGP(6)=SIG(1,3)CSTRESS(1,IP,MR)=SIG(1,1)STRESS(2,IP,MR)=SIG(2,2)STRESS(3,IP,MR)=SIG(3,3)STRESS(4,IP,MR)=SIG(1,2)IF(NDIM.
EQ.
3)THENSTRESS(5,IP,MR)=SIG(2,3)STRESS(6,IP,MR)=SIG(1,3)ENDIFC-CCALCULATEF(P,PC,Q)C-IF(KGO.
EQ.
3.
OR.
KGO.
EQ.
4)THENP1=(STRESS(1,IP,MR)+STRESS(2,IP,MR)+STRESS(3,IP,MR))/3.
0D0PC1=STRESS(NS+3,IP,MR)Q1=Q(SIGP,NS,NDIM)ETA1=Q1/P1CENDIFC-CCALLTHECONSTITUTIVEMODELTOFIND[D]C-CWRITE(*,*)"ip=",IP,'MR=',mrCPAUSEizero=0GOTO(1,2,3),KGOAppendix:FortranCodesofCS-S3672CALLDLIN(IP,izero,NDIM,NDN,ELCOD,SHFN,MAT,D,PR,BK)GOTO13CALLDMCAM(IP,MR,izero,NDIM,NS,STRESS,MAT,D,PR,BK,ITER,JS,DAB,+SALPHA,A,H)CWRITE(*,*)"HH",salpha(1)GOTO1C-CCOMPUTEEFFECTIVECOROTATIONAL/CAUCHYSTRESSRATETENSORC-1CONTINUEDO60II=1,NSDSIG(II)=0.
0D0DO60JJ=1,NScWRITE(*,*)"DDD",DSIG(II),D(II,JJ),DEPS(JJ)60DSIG(II)=DSIG(II)+D(II,JJ)*DEPS(JJ)C-CCONVERTDSIGVECTORTOSIGDOTTENSORC-SIGDOT(1,1)=DSIG(1)SIGDOT(2,2)=DSIG(2)SIGDOT(3,3)=DSIG(3)SIGDOT(1,2)=DSIG(4)SIGDOT(2,1)=DSIG(4)SIGDOT(2,3)=DSIG(5)SIGDOT(3,2)=DSIG(5)SIGDOT(1,3)=DSIG(6)SIGDOT(3,1)=DSIG(6)C-CFINDOUTEFFICTIVESPKSTRESSINCREMENTAS:C[SPKDOT]=DETF[FINV][FINV]\{[SIGDOT]-[DAB][SIG]-[DBC][SIG]+DCC[SIG]C-DCC=DAB(1,1)+DAB(2,2)+DAB(3,3)DOI=1,3DOJ=1,3TEMP=0.
0D0TEM=0.
0D0DOK=1,3TEMP=TEMP+DAB(I,K)*SIG(K,J)TEM=TEM+SIG(I,K)*DAB(J,K)ENDDOcWRITE(*,*)"SIGDOT",DCC,SIG(I,J),TEMP,TEM,SIGDOT(I,J)CWRITE(*,*)"LINT",LINRIF(LINR.
GT.
1)THEN368Appendix:FortranCodesofCS-SCSPKDOT(I,J)=DCC*SIG(I,J)-TEMP-TEM+SIGDOT(I,J)!
alive5/30/99bySongSPKDOT(I,J)=SIGDOT(I,J)ELSESPKDOT(I,J)=SIGDOT(I,J)ENDIFENDDOENDDODOI=1,3DOJ=1,3TEMP=0.
0D0DOK=1,3TEMP=TEMP+SPKDOT(I,K)*FINV(K,J)!
SikXkjENDDOTEMP2(I,J)=TEMPENDDOENDDODOI=1,3DOJ=1,3TEMP=0.
0D0DOK=1,3TEMP=TEMP+FINV(K,I)*TEMP2(K,J)!
XkiSikXkjENDDOSPKDOT(I,J)=TEMP*DETF!
XkiSikXkjJENDDOENDDOC-CUPDATEPOREWATERPRESSUREUC-TEMP=0.
0D0DOI=1,NDIMTEMP=TEMP+F(I,I)*F(I,I)ENDDOSTRESS(NS+1,IP,MR)=STRESS(NS+1,IP,MR)*TEMP/(NDIM*DETF)PWP=STRESS(NS+1,IP,MR)!
ChangeofvariableforD*routineC-CUPDATEEFFECTIVESTRESSESSTRESSC-VAR(1)=STRESS(1,IP,MR)+SPKDOT(1,1)VAR(2)=STRESS(2,IP,MR)+SPKDOT(2,2)VAR(3)=STRESS(3,IP,MR)+SPKDOT(3,3)VAR(4)=STRESS(4,IP,MR)+SPKDOT(1,2)IF(NDIM.
EQ.
3)THENVAR(5)=STRESS(5,IP,MR)+SPKDOT(2,3)VAR(6)=STRESS(6,IP,MR)+SPKDOT(1,3)ENDIFAppendix:FortranCodesofCS-S369ccorrectionforanti-tensionfailurecDOIJ=1,3cIF(STRESS(IJ,IP,MR).
LE.
10.
0)STRESS(IJ,IP,MR)=10.
0cIF(VAR(IJ).
LE.
10.
0)VAR(IJ)=10.
0cENDDOCIF(KGO.
EQ.
3.
OR.
KGO.
EQ.
4)THENC-CCORRECTTHEYIELDSURFACEC-P2=(VAR(1)+VAR(2)+VAR(3))/3.
0D0Q2=Q(VAR,NS,NDIM)IF(KGO.
EQ.
3)THENPY=P2+Q2*Q2/(P2*PRM*PRM)ELSEIF(KGO.
EQ.
4)THENPY=P2*EXP(Q2/(PRM*P2))ENDIFIF(PY.
LT.
PC1.
AND.
ICOD.
NE.
4)GOTO10C-CUPDATETHEHARDENINGPARAMETERPCC-ETA2=Q2/P2DP12=P2-P1DQ12=Q2-Q1P12=(P1+P2)/2.
0D0ETA12=(ETA1+ETA2)/2.
0D0DETA=DQ12/P12-DP12*ETA12/P12DPC=PC1*(DP12/P12+(2.
0D0*ETA12*DETA)/(ETA12*ETA12+PRM*PRM))IF(ICOD.
EQ.
4.
AND.
DPC.
GT.
0.
0D0)DPC=0.
0D0IF(ICOD.
NE.
4.
AND.
DPC.
LT.
0.
0D0)DPC=0.
0D0IF(ICOD.
EQ.
5)DPC=0.
0D0PC2=PC1+DPCwrite(2,*)'P2=',p2,'Q2=',q2cWRITE(2,*)'ETA2=',eta2cwrite(2,*)'DPC=',dpc,'PC2=',pc2C-CCORRECTSTRESSESDUETODRIFTINGOFYIELDSURFACEC-FYB=FPQ(P2,PC2,Q2,PRM,KGO)cWRITE(2,*)'FYB2=',FYB20CALLSTRSCOR(IP,MR,NDIM,NS,STRESS,VAR,MAT,PR,FYB,DSIGCOR,PC2,1ITER,JS,DAB,SALPHA,ICOD,H,A)VAR(1)=VAR(1)-DSIGCOR(1)370Appendix:FortranCodesofCS-SVAR(2)=VAR(2)-DSIGCOR(2)VAR(3)=VAR(3)-DSIGCOR(3)VAR(4)=VAR(4)-DSIGCOR(4)IF(NDIM.
EQ.
3)THENVAR(5)=VAR(5)-DSIGCOR(5)VAR(6)=VAR(6)-DSIGCOR(6)ENDIFCP2=(VAR(1)+VAR(2)+VAR(3))/3.
0D0Q2=Q(VAR,NS,NDIM)CFYC=FPQ(P2,PC2,Q2,PRM,KGO)IF(KGO.
EQ.
3)THENPY=P2+Q2*Q2/(P2*PRM*PRM)ELSEIF(KGO.
EQ.
4)THENPY=P2*EXP(Q2/(PRM*P2))ENDIFSTRESS(NS+3,IP,MR)=PYcWRITE(2,*)'FYC=',FYCENDIFC-CUPDATESTRESSESANDPOREPRESSUREC-10STRESS(1,IP,MR)=VAR(1)STRESS(2,IP,MR)=VAR(2)STRESS(3,IP,MR)=VAR(3)STRESS(4,IP,MR)=VAR(4)IF(NDIM.
EQ.
3)THENSTRESS(5,IP,MR)=VAR(5)STRESS(6,IP,MR)=VAR(6)ENDIFSTRESS(NS+1,IP,MR)=STRESS(NS+1,IP,MR)+UICUpdatetheconstitutiveelementstiffnessmatrixD*callDstar(D,DD,SIG,FINV,DETF,NDIM,NS,LINR,PWP,D2)CUpdatetheconstitutiveelementstiffnessmatrixforplasticspinD***=D*+D**CCWRITE(*,*)"LKK",SALPHA(1)CALLDstar2(D2,A,SALPHA,DDD,SIG,FINV,DETF,NDIM,NS,LINR,H,IJ1,1P2,IP,MR)CCombinationofD*andD**,D***=D*+D**Appendix:FortranCodesofCS-S371CWRITE(*,*),D(1,1)doi=1,6doj=1,6D(i,j)=DD(i,j)+DDD(i,j)enddoenddoCWRITE(*,*)"3",D(1,1)CSavethemodifiedconstitutivematrixforuseinELMSTIFroutineCwrite(pp,11)(DD(I,J),J=1,NS),I=1,NS)RETURNENDCSUBROUTINEDstar(D1,DD,SIG,FINV,DETF,NDIM,NS,LINR,PWP,D2)CCCOMPTUTE[DD]=(D*TENSOR)=JF-1F-1F-1(D-SIG*IK-SIG*IK.
.
.
.
)CCThissubroutinewasinitiallycalledfromnowhere.
CNowitiscorrected&calledfromELMSTIFSong,4/16/99IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'INTEGER*2A,BDIMENSIOND1(6,6),DD(6,6),DD1(6,6),SIG(3,3),FINV(3,3)DIMENSIOND2(3,3,3,3),D3(3,3,3,3),IJ(6),MN(33),IK(3,3)DIMENSIONDe(6,6)CD1=Dij,uncorrectedD6x6CD2=DABCD,uncorrectedD3x3x3x3CD3=D*ABCDCDD=Dij,correctedD6x6CDD1=Dij,uncorrectedD6x6CDefinitionofKroneckerdeltaDOM=1,3DON=1,3IF(M.
EQ.
N)THENIK(M,N)=1ELSEIK(M,N)=0ENDIFENDDOENDDO372Appendix:FortranCodesofCS-SCIK(M,N)=(M/N)*(N/M)LOUT1=2!
CGivethenumberstoindexIJDOI=1,6IJ(I)=0ENDDOIJ(1)=1IJ(2)=5IJ(3)=9IJ(4)=2IF(NDIM.
EQ.
3)THENIJ(5)=6IJ(6)=3ENDIFCGivethenumberstoindexMNDOI=1,33MN(I)=0ENDDOMN(11)=1MN(22)=2MN(33)=3MN(21)=4MN(12)=4MN(23)=5MN(32)=5MN(13)=6MN(31)=6CGivethenumberstoMandM1/Convert9x9Dtensorto3x3x3x3Dtensor.
ClogicconfirmedbySong,4/14/99C---SetD14,D24,D347/16/99CThisisforthenon-coaxialityofprincipaldirection&x,y,zD1(1,4)=D1(1,1)/10.
0D1(2,4)=D1(1,1)/10.
0D1(3,4)=D1(1,1)/10.
0D1(4,1)=D1(1,4)D1(4,2)=D1(2,4)D1(4,3)=D1(3,4)DOI=1,3DOJ=1,3CM=(I-1)*3+JM=J+10*I!
11,12,13,21,22,23,31,32,33M1=MN(M)!
1,4,6,4,2,5,6,5,3Appendix:FortranCodesofCS-S373DOK=1,3DOL=1,3CN=(K-1)*3+LN=L+10*K!
11,12,13,21,22,23,31,32,33N1=MN(N)!
1,4,6,4,2,5,6,5,3D2(I,J,K,L)=D1(M1,N1)!
11111,1112,1113,1121,1122,1123,1131,1132,1133,.
.
.
C!
11,14,16,14,12,15,16,15,13,.
.
.
cWRITE(*,*)"111",I,J,K,L,M1,N1cWRITE(*,*)"222",D2(I,J,K,L),D1(M1,N1)cPAUSECD2isalsotransferredandusedinDstar2insteadof[E]klmnENDDOENDDOENDDOENDDOCComputeD*(Dstar)[D3]representsD*IF(LINR.
GT.
1)THENDOA=1,3DOB=1,3DOC=1,3DOD=1,3TEMP=0.
0D0DOI=1,3DOJ=1,3DOK=1,3DOL=1,3TEMP1=D2(I,J,K,L)-SIG(K,J)*IK(I,L)-SIG(I,K)*IK(J,L)++SIG(I,J)*IK(K,L)-PWP*IK(I,J)*IK(K,L)+2.
0D0*PWP*IK(I,K)*IK(J,L)TEMP2=FINV(I,A)*FINV(J,B)*FINV(K,C)*FINV(L,D)IF(LINR.
LT.
2)TEMP2=1TEMP=TEMP+TEMP1*TEMP2ENDDOENDDOENDDOENDDOD3(A,B,C,D)=TEMP*DETFENDDOENDDOENDDOENDDOENDIFCReturnback3x3x3x3D3matrixto9x9DDmatrixCLogicconfirmedbySong.
4/14/99DOI=1,NS374Appendix:FortranCodesofCS-SM=IJ(I)!
1,5,9,2,6,3II=(M-1)/3+1!
1,2,3,1,2,1JJ=M-(II-1)*3!
1,2,3,2,3,3DOJ=1,NSN=IJ(J)!
1,5,9,2,6,3KK=(N-1)/3+1!
1,2,3,1,2,1LL=N-(KK-1)*3!
1,2,3,2,3,3IF(LINR.
GT.
1)THENDD(I,J)=D3(II,JJ,KK,LL)!
1111,1122,1133,1112,1123,1113,2211,2222,.
.
.
.
ELSEDD(I,J)=D2(II,JJ,KK,LL)ENDIFDD1(I,J)=D2(II,JJ,KK,LL)ENDDOENDDOCConvertDDtoDDOI=1,NSDOJ=1,NSD1(I,J)=DD(I,J)ENDDOENDDORETURNENDCSUBROUTINEDstar2(D2,A,SALPHA,DDD,SIG,FINV,DETF,NDIM,NS,LINR,H,IJ,1P2,IP,MR)CCCOMPTUTE[D**]=n[sigmbNmacd+sigajNjbcd](JXA,aXB,b.
.
.
)CCThissubroutinecomputetheD**matrixwhichconsidersplasticspin.
CSong,4/16/99IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/PLSPIN/PSPIN(27,500)DIMENSIONDD1(6,6),TM(3,3,3,3),TN(3,3,3,3),B(3,3),Eta(3,3)DIMENSIONAlpha(3,3),D4(3,3,3,3),DDD(6,6),IK(3,3),A(6),IJ(6)DIMENSIOND2(3,3,3,3),SIG(3,3),FINV(3,3),SALPHA(4),Dumm(3,3)Appendix:FortranCodesofCS-S375cWRITE(*,*)"DSTAR2"CD2=DABCD,uncorrectedD3x3x3x3CA=BijfromDMCAMCD3=D*ABCDCDDD=Dij,correctedD6x6CDDD=Dij,uncorrectedD6x6CDefinitionofKroneckerdelta!
ThisroutineisO.
K.
checked4/26/99DOM=1,3DON=1,3IF(M.
EQ.
N)THENIK(M,N)=1ELSEIK(M,N)=0ENDIFENDDOENDDOLOUT1=2!
C----HardeningModulusH(roundf/roundepsilonv)BiiCHardeningModulusHwastakenfromHatDMCAMC----ElasticStiffnessECEwastakenfromD2ofpreviousstepn-1becausethisisincrementalscheme.
CD2is3x3x3x3matrixfrominitialC----(Eta)kl=[B]ij/norm[B]ijC[B]ijistakenfrom[A]nofDMCAMCChangethevector[B]totensor[B]CClearBijfirstdoi=1,3doj=1,3B(i,j)=0enddoenddoB(1,1)=A(1)B(2,2)=A(2)B(3,3)=A(3)B(1,2)=A(4)B(1,3)=A(5)B(2,3)=A(6)!
OthernumbersarezeroBnorm1=B(1,1)**2+B(2,2)**2Bnorm2=B(3,3)**2+2*B(1,2)**2Bnorm3=2*B(1,3)**2376Appendix:FortranCodesofCS-SBnorm4=2*B(2,3)**2!
ScalarthistimeBnorm=SQRT(Bnorm1+Bnorm2+Bnorm3+Bnorm4)cWRITE(*,*)"BNORM",Bnormdoi=1,3!
Cal.
Etadoj=1,3Eta(i,j)=B(i,j)/BnormenddoenddoC----parameterc!
ScalarthistimeCc=H/(H+Eabcdnabncd)CCalculateEnabncdfirstdum=0!
InitializedumDok=1,3Dol=1,3Dumm(k,l)=0!
ClearenddoenddoDok=1,3Dol=1,3Doi=1,3Doj=1,3Dumm(k,l)=Dumm(k,l)+D2(i,j,k,l)*Eta(i,j)enddoenddoenddoenddoDokk=1,3Doll=1,3dum=dum+Dumm(kk,ll)*Eta(kk,ll)enddoenddoc=H/(H+dum)C----[M]tensorC[M]=(cEnn)/HCClearDoi=1,3Doj=1,3Dok=1,3Dol=1,3TM(i,j,k,l)=0enddoenddoAppendix:FortranCodesofCS-S377enddoenddocWRITE(*,*)"HinDstar2",HDok=1,3Dol=1,3Dumm(k,l)=0!
ClearenddoenddoDom=1,3Don=1,3Dok=1,3Dol=1,3Dumm(m,n)=Dumm(m,n)+D2(k,l,m,n)*Eta(k,l)cWRITE(*,*)"K",k,l,m,n,D2(k,l,m,n)cpauseenddoenddoenddoenddoDoi=1,3Doj=1,3Dom=1,3Don=1,3TM(m,n,i,j)=c*Dumm(m,n)*Eta(i,j)/(-H)cWRITE(*,*)"m,n,i,j",m,n,i,jcWRITE(*,*)"M",TM(m,n,i,j),Dumm(m,n),Eta(i,j)cpauseenddoenddoenddoenddoC----BackstressalphaCBackstresswastakenfromDMCAM&BKSTRSCAlphawastakenasSalphatimesidentitymatrix.
doi=1,3doj=1,3Alpha(i,k)=0enddoenddoAlpha(1,1)=P2*SALPHA(1)Alpha(2,2)=P2*SALPHA(2)Alpha(3,3)=P2*SALPHA(3)Alpha(1,2)=P2*SALPHA(4)378Appendix:FortranCodesofCS-SAlpha(2,1)=P2*SALPHA(4)cWRITE(*,*)"111",SALPHA(1),ALPHA(2,2),ALPHA(3,3),ALPHA(1,2)C----[N]matrixC[N]=alphaM-Malphadoia=1,3doib=1,3doic=1,3doid=1,3TM1=0TM2=0dom=1,3TM1=TM1+alpha(ia,m)*TM(m,ib,ic,id)enddodom=1,3TM2=TM2+TM(ia,m,ic,id)*alpha(m,ib)enddoTN(ia,ib,ic,id)=TM1-TM2ielem=MRif(TN(ia,ib,ic,id).
EQ.
0.
0D0)GOTO10cwrite(*,*),TN(ia,ib,ic,id),ia,ib,ic,idcpausePSPIN(IP,ielem)=TN(ia,ib,ic,id)10CONTINUEcwrite(6,100),TM1,TM2,TN(ia,ib,ic,id)cpauseenddoenddoenddoenddoc100FORMAT(/,3x,F15.
13,3x,F15.
13,3x,F15.
13)C----Etadot!
ScalarfunctionCEtawasassumed0.
001to0.
1asconstantEtadot=0.
001C----D**!
FinalProductCD**=Eta*[sigN+sigN](JXA,aXB,bXC,cXD,d)doiaa=1,3doibb=1,3doicc=1,3doidd=1,3doia=1,3Appendix:FortranCodesofCS-S379doib=1,3doic=1,3doid=1,3Dum1=0dom=1,3Dum1=Dum1+SIG(m,ib)*TN(m,ia,ic,id)+SIG(ia,m)*TN(m,ib,ic,id)enddoDum2=Dum2+Dum1*FINV(iaa,ia)*FINV(ibb,ib)*FINV(icc,ic)*1FINV(idd,id)enddoenddoenddoenddoD4(iaa,ibb,icc,idd)=Etadot*Dum2*DETFenddoenddoenddoenddoCGivethenumberstoindexIJDOI=1,6IJ(I)=0ENDDOIJ(1)=1IJ(2)=5IJ(3)=9IJ(4)=2IF(NDIM.
EQ.
3)THENIJ(5)=6IJ(6)=3ENDIFDOI=1,NSM=IJ(I)!
1,5,9,2,6,3II=(M-1)/3+1!
1,2,3,1,2,1JJ=M-(II-1)*3!
1,2,3,2,3,3DOJ=1,NSN=IJ(J)!
1,5,9,2,6,3KK=(N-1)/3+1!
1,2,3,1,2,1LL=N-(KK-1)*3!
1,2,3,2,3,3DDD(I,J)=D4(II,JJ,KK,LL)!
1111,1122,1133,1112,1123,1113,2211,2222,.
.
.
.
380Appendix:FortranCodesofCS-SCWRITE(*,*)"DDD",DDD(1,1)ENDDOENDDORETURNENDC*SUBROUTINEUPDCAM(STRESS,IP,MR,KM,NS,NDIM,PR,KGO,VARC)C*CCALCULATEEXTRASTRESSPARAMETERSFORCAM-CLAYSC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/MODEL/PQMOD(NIP,MEL,2),MCODE(NIP,MEL)DIMENSIONSTRESS(NVRS,NIP,MEL),PR(NPR,NMT)DIMENSIONVARC(9,NIP,MEL),TEMP(6)CCALLZEROR1(TEMP,6)PRM=PR(4,KM)U=STRESS(NS+1,IP,MR)C-CCHECKIFMCODESTATUSFORCAMMODELNEEDSTOBECHANGEDC-DOIS=1,NSTEMP(IS)=STRESS(IS,IP,MR)ENDDOPC1=PQMOD(IP,MR,1)ETA1=PQMOD(IP,MR,2)P2=(STRESS(1,IP,MR)+STRESS(2,IP,MR)+STRESS(3,IP,MR))/3.
0D0Q2=Q(TEMP,NS,NDIM)PC2=STRESS(NS+3,IP,MR)ETA2=Q2/P2ICOD=MCODE(IP,MR)IF(KGO.
EQ.
3)THENPCS=PC2/2.
0D0PY=P2+Q2*Q2/(P2*PRM*PRM)ELSEIF(KGO.
EQ.
4)THENPCS=PC2/EXP(1.
0d0)PY=P2*EXP(Q2/(PRM*P2))ENDIFAppendix:FortranCodesofCS-S381CMcodeistheindexparameterforelastic,plastic,hardeningcondition.
CLateritischangedtoICODinDMCAMIF(ICOD.
EQ.
2)THEN!
InitialPcIF(PY.
LT.
0.
9950D0*PC2)THEN!
Pc2=newPcIF(P2.
LT.
PCS)MCODE(IP,MR)=3!
OC-HvoslevIF(P2.
GE.
PCS)MCODE(IP,MR)=1!
RoscoeSameasinitialcond.
ELSEIF(PY.
GE.
0.
9950D0*PC2)THEN!
InitialpointPcIF(ETA2.
GE.
PRM.
AND.
PC2.
GT.
PC1)THEN!
OCaboveandneedexpansionYCCPC2=PC1+(PRM-ETA1)*(PY-PC1)/(ETA2-ETA1)MCODE(IP,MR)=5CGOTO100ELSEIF(P2.
LT.
PCS.
AND.
PC2.
LE.
PC1)THEN!
OCelasticMCODE(IP,MR)=4!
ConditionstressadjustedtomuchENDIFENDIFGOTO200ELSEIF(ICOD.
EQ.
4)THEN!
IF(ETA2.
LT.
PRM.
AND.
PC2.
LT.
PC1)THEN!
belowCSLOCorNCCPC2=PC1-(ETA1-PRM)*(PC1-PY)/(ETA1-ETA2)MCODE(IP,MR)=5CGOTO100ELSEIF(PC2.
GE.
PC1)THEN!
NeedhardeningIF(P2.
LT.
0.
9950D0*PY.
AND.
P2.
LT.
PCS)MCODE(IP,MR)=3!
+OCIF(P2.
LT.
0.
9950D0*PY.
AND.
P2.
GE.
PCS)MCODE(IP,MR)=1!
+NCENDIFGOTO200ELSEIF(ICOD.
EQ.
1)THENIF(PY.
LT.
0.
9950D0*PC2.
AND.
P2.
LT.
PCS)MCODE(IP,MR)=3IF(PY.
GE.
0.
9950D0*PC2)THENIF(ETA2.
GT.
PRM.
AND.
PC2.
GT.
PC1)THENCPC2=PC1+(PRM-ETA1)*(PY-PC1)/(ETA2-ETA1)MCODE(IP,MR)=5CGOTO100ELSEIF(ETA2.
LT.
PRM.
AND.
P2.
GE.
PCS)THENMCODE(IP,MR)=2ELSEIF(P2.
LT.
PCS.
AND.
PC2.
LE.
PC1)THENMCODE(IP,MR)=4ENDIFENDIFGOTO200ELSEIF(ICOD.
EQ.
3)THENIF(PY.
LT.
0.
9950D0*PC2.
AND.
P2.
GE.
PCS)MCODE(IP,MR)=1IF(PY.
GE.
0.
9950D0*PC2.
AND.
P2.
GE.
PCS)MCODE(IP,MR)=2382Appendix:FortranCodesofCS-SIF(PY.
GE.
0.
9950D0*PC2.
AND.
P2.
LT.
PCS)MCODE(IP,MR)=4GOTO200CELSEIF(ICOD.
EQ.
5)THENCIF(PY.
LT.
0.
990D0*PC2.
AND.
P2.
GE.
PCS)MCODE(IP,MR)=1CIF(PY.
LT.
0.
990D0*PC2.
AND.
P2.
LT.
PCS)MCODE(IP,MR)=3ENDIFGOTO200C100STRESS(NS+3,IP,MR)=PCCMCODE(IP,MR)=5CFYD=FPQ(P2,PC,Q2,PRM,KGO)CCALLSTRSCOR(IP,MR,NDIM,NS,STRESS,MAT,PR,FYD,DSIGCOR,KGO)CSTRESS(1,IP,MR)=STRESS(1,IP,MR)-DSIGCOR(1)CSTRESS(2,IP,MR)=STRESS(2,IP,MR)-DSIGCOR(2)CSTRESS(3,IP,MR)=STRESS(3,IP,MR)-DSIGCOR(3)CSTRESS(4,IP,MR)=STRESS(4,IP,MR)-DSIGCOR(4)CIF(NDIM.
EQ.
3)THENCSTRESS(5,IP,MR)=STRESS(5,IP,MR)-DSIGCOR(5)CSTRESS(6,IP,MR)=STRESS(6,IP,MR)-DSIGCOR(6)CENDIFC200CONTINUECCDOIS=1,NSCTEMP(IS)=STRESS(IS,IP,MR)CENDDOCP2=(STRESS(1,IP,MR)+STRESS(2,IP,MR)+STRESS(3,IP,MR))/3.
0D0CQ2=Q(TEMP,NS,NDIM)CETA2=Q2/P2CPC=STRESS(NS+3,IP,MR)CFYD=FPQ(P2,PC,Q2,PRM,KGOC200PQMOD(IP,MR,1)=PC2PQMOD(IP,MR,2)=ETA2cICOD2=MCODE(IP,MR)cWRITE(2,*)'ICOD1=',ICOD,'ICOD2=',ICOD2CDOIS=1,NSCTEMP(IS)=STRESS(IS,IP,MR)CENDDOCQT=Q(TEMP,NS,NDIM)CPE=(STRESS(1,IP,MR)+STRESS(2,IP,MR)+STRESS(3,IP,MR))/3.
0D0CEE=STRESS(NS+2,IP,MR)CPC=STRESS(NS+3,IP,MR)CCIF(KGO.
EQ.
3)THENAppendix:FortranCodesofCS-S383CPY=PE+QT*QT/(PE*PRM*PRM)CPCS=PC/2.
0D0CELSEIF(KGO.
EQ.
4)THENCPY=PE*EXP(QT/(PRM*PE))CPCS=PC/EXP(1.
0d0)cENDIFCCFYC=FPQ(PE,PC,QT,PRM,KGO)CIF(PCS.
LT.
0.
0D0)THENWRITE(*,*)'WARNING:PCLESSTHANZEROFORELM-IP',MR,IPSTOPENDIFCEE=PR(3,KM)-PR(1,KM)*ALOG(P2)-(PR(2,KM)-PR(1,KM))*ALOG(PCS)IF(P2.
GT.
0.
0D0)EE=PR(3,KM)-PR(1,KM)*LOG(P2)-1(PR(2,KM)-PR(1,KM))*LOG(PCS)CVARC(1,IP,MR)=P2VARC(2,IP,MR)=Q2VARC(3,IP,MR)=P2+UVARC(4,IP,MR)=PC2VARC(5,IP,MR)=ETA2VARC(6,IP,MR)=Q2/(P2*PRM)VARC(7,IP,MR)=PY/PC2VARC(8,IP,MR)=EESTRESS(NS+2,IP,MR)=EECCALLANGTH(STRESS,IP,MR,THETA)VARC(9,IP,MR)=THETACIF(NDIM.
EQ.
3)VARC(9,IP,MR)=0.
0D0RETURNENDC*SUBROUTINEANGTH(STRESS,IP,J,THETA)C*CROUTINETOCALCULATEANGLEINPIPLANEC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSTRESS(NVRS,NIP,MEL)COMMON/PARS/PYI,ASMVL,ZEROCALAR=1.
0D+25SX=STRESS(1,IP,J)384Appendix:FortranCodesofCS-SSY=STRESS(2,IP,J)SZ=STRESS(3,IP,J)TXY=STRESS(4,IP,J)CPIBY4=0.
250D0*PYISD=0.
50D0*(SX-SY)SM=0.
50D0*(SX+SY)RAD=SQRT(SD*SD+TXY*TXY)SIG1=SM+RADSIG3=SM-RADDY=SY-SMIF(ABS(TXY).
LT.
ASMVL.
AND.
ABS(DY).
LT.
ASMVL)GOTO8THXY2=ATAN2(TXY,DY)GOTO98THXY2=0.
50D0*PYI9THXY=0.
50D0*THXY2THXYD=THXY*180.
0D0/PYIIF(ABS(THXY).
LT.
PIBY4)GOTO10PSIGX=SIG1PSIGY=SIG3GOTO1510PSIGX=SIG3PSIGY=SIG115PSIGZ=SZCSIGX=(PSIGZ-PSIGY)/SQRT(2.
0D0)SIGY=(2.
0D0*PSIGX-PSIGY-PSIGZ)/SQRT(6.
0D0)CCRADO=SQRT(SIGX*SIGX+SIGY*SIGY)IF(ABS(SIGX).
LT.
ASMVL.
AND.
ABS(SIGY).
LT.
ASMVL)GOTO20CTHETA=ATAN2(SIGY,SIGX)IF(THETA.
LT.
ZERO)THETA=2.
0D0*PYI+THETATHETA=THETA*180.
0D0/PYIGOTO25C20THETA=ALAR25CONTINUECRETURNENDC*SUBROUTINESTRSEQ(JJ,IP,IPA,NDIM,NDN,NS,STRESS,SHFN,CARTD,F,DJACB,1R,RI,CR,NPLAX)C*CROUTINETOCALCULATEFORCESEQUILIBRATINGCELEMENTALSTRESSES(INTEGRATIONPOINTCONTRIBUTION)C*Appendix:FortranCodesofCS-S385IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONSTRESS(NVRS,NIP,MEL),SHFN(20),CARTD(3,NDMX)DIMENSIONF(3,NDMX)COMMON/DATW/W(100)CF9=CR*DJACB*W(IPA)IF(NPLAX.
EQ.
1)F9=F9*RCU=STRESS(NS+1,IP,JJ)CSIGXT=STRESS(1,IP,JJ)+USIGYT=STRESS(2,IP,JJ)+USIGZT=STRESS(3,IP,JJ)+UTXY=STRESS(4,IP,JJ)IF(NDIM.
EQ.
2)GOTO35CTYZ=STRESS(5,IP,JJ)TZX=STRESS(6,IP,JJ)CDO30IN=1,NDNF(1,IN)=F(1,IN)+(CARTD(1,IN)*SIGXT+CARTD(2,IN)*TXY1+CARTD(3,IN)*TZX)*F9F(2,IN)=F(2,IN)+(CARTD(2,IN)*SIGYT+CARTD(1,IN)*TXY1+CARTD(3,IN)*TYZ)*F9F(3,IN)=F(3,IN)+(CARTD(3,IN)*SIGZT+CARTD(2,IN)*TYZ1+CARTD(1,IN)*TZX)*F930CONTINUEGOTO60C35DO40IN=1,NDNF(1,IN)=F(1,IN)+(CARTD(1,IN)*SIGXT+SHFN(IN)*SIGZT*RI1+CARTD(2,IN)*TXY)*F940F(2,IN)=F(2,IN)+(CARTD(2,IN)*SIGYT+CARTD(1,IN)*TXY)*F960CONTINUERETURNENDC*SUBROUTINEPRINC(C,D,E,B)C*CCALCULATESPRINCIPALSTRESSESANDTHEIRDIRECTIONSC*IMPLICITREAL*8(A-H,O-Z)DIMENSIONB(3)COMMON/PARS/PYI,ASMVL,ZEROCAP=C+D386Appendix:FortranCodesofCS-SAD=C-DS=SQRT(.
250D0*AD*AD+E*E)B(1)=.
50D0*AP+SB(2)=.
50D0*AP-SB(3)=90.
0D0IF(ABS(AD).
LT.
ASMVL)GOTO2B(3)=28.
64790D0*ATAN(2.
0D0*E/AD)2RETURNENDC*SUBROUTINENODSTRS(NEL,NNODES,NS,LTYP,XYZ,NCONN,STRESS,YREF)C*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),LTYP(MEL),XYZ(3,MNODES),SHAPE(4)DIMENSIONSTRESS(NVRS,NIP,MEL),SIG(MNODES,6),ICOUNT(MNODES)DIMENSIONR(8),S(8),PRST(3),SPIN(537)COMMON/ELINF/LINFO(50,15)COMMON/PLSPIN/PSPIN(NIP,MEL)DATAR(1),R(2),R(3),R(4),R(5),R(6),R(7),R(8)/1-1.
73205080D0,1.
73205080D0,1.
73205080D0,-1.
73205080D0,20.
0D0,1.
73205080D0,0.
0D0,-1.
73205080D0/DATAS(1),S(2),S(3),S(4),S(5),S(6),S(7),S(8)/1-1.
73205080D0,-1.
73205080D0,1.
73205080D0,1.
73205080D0,2-1.
73205080D0,0.
0D0,1.
73205080D0,0.
0D0/C-CINITIALIZEC-CALLZEROI1(ICOUNT,MNODES)CALLZEROR2(SIG,MNODES,6)CALLZEROR1(SHAPE,4)C-CLOOPOVERTHEELEMENTSC-DOIELM=1,NELLT=LTYP(IELM)NDN=LINFO(5,LT)NGP=LINFO(11,LT)C-CRETURNIFTHEELEMENTDOESNOTHAVE8-NODES,4INTEGRATIONPOINTC-Appendix:FortranCodesofCS-S387IF(NDN.
NE.
8.
OR.
NGP.
NE.
4)THENWRITE(*,*)'CANNOTCALCULATENODALSTRESSESFORELM=',IELM,NDN,NGPRETURNENDIFC-CLOOPOVERTHEELEMENTNODESC-DOINOD=1,NDNNODE=NCONN(INOD,IELM)ICOUNT(NODE)=ICOUNT(NODE)+1C-CSHAPEFUNCTIONSFOR8-NODES,4INTEGRATIONPOINTCASEC-SHAPE(1)=0.
250D0*(1.
0D0-R(INOD))*(1.
0D0-S(INOD))SHAPE(2)=0.
250D0*(1.
0D0+R(INOD))*(1.
0D0-S(INOD))SHAPE(3)=0.
250D0*(1.
0D0+R(INOD))*(1.
0D0+S(INOD))SHAPE(4)=0.
250D0*(1.
0D0-R(INOD))*(1.
0D0+S(INOD))C-CLOOPOVERTHEINTEGRATIONPOINTSC-DOIP=1,NGPDOIS=1,NSSIG(NODE,IS)=SIG(NODE,IS)+STRESS(IS,IP,IELM)*SHAPE(IP)ENDDOSPIN(NODE)=SPIN(NODE)+PSPIN(IP,IELM)*SHAPE(IP)!
otherspin=0ENDDOENDDOENDDOCWRITE(2,10)C-CFINDAVERAGESTRSSSATNODESC-DOINOD=1,NNODESA=FLOAT(ICOUNT(INOD))DOIS=1,NSSIG(INOD,IS)=SIG(INOD,IS)/AENDDOC-CCALCULATEPRINCIPLESTRESSESC-CALLPRINC(SIG(INOD,1),SIG(INOD,2),SIG(INOD,4),PRST)C-388Appendix:FortranCodesofCS-SCOUTPUTNODALSTRESSESC-XNODE=XYZ(1,INOD)YNODE=XYZ(2,INOD)YLIM=YREF-0.
040D0cIF(XNODE.
LT.
0.
040D0.
AND.
YNODE.
GE.
YLIM)THENXNORM=XNODE/0.
005640D0YNORM=(YNODE)/0.
005640D0cWRITE(2,100)INOD,XNORM,YNORM,(SIG(INOD,J),J=1,NS),WRITE(2,100)INOD,XNODE,YNODE,(SIG(INOD,J),J=1,NS),1(PRST(K),K=1,3),SPIN(INOD)cENDIFENDDO10FORMAT(//,3X,'NODE',3X,'NODECOORDINATES',19X,'NODESTRESSES',118x,'PRINCIPALSTRESSES',/,1X,120('-'),/,11X,'X',8X,'Y',212X,'SX',10X,'SY',10X,'SZ',9X,'SXY',9X,'S1',10X,'S2',310X,'TH',10X,'SPIN'/,1X,120('-'))100FORMAT(1X,I4,1X,2F9.
5,2X,6E12.
4,F9.
2,2X,E12.
4)RETURNENDC*SUBROUTINENODSTRN(NEL,NNODES,NS,LTYP,XYZ,NCONN,STRAIN,YREF)C*C1ThissubroutineupdatethenodalstrainC2.
CalledbyDMCAMIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCONN(NTPE,MEL),LTYP(MEL),XYZ(3,MNODES),SHAPE(4)DIMENSIONSTRAIN(NVRN,NIP,MEL),SIG(MNODES,6),ICOUNT(MNODES)DIMENSIONR(8),S(8),PRST(3)COMMON/ELINF/LINFO(50,15)DATAR(1),R(2),R(3),R(4),R(5),R(6),R(7),R(8)/1-1.
73205080D0,1.
73205080D0,1.
73205080D0,-1.
73205080D0,20.
0D0,1.
73205080D0,0.
0D0,-1.
73205080D0/DATAS(1),S(2),S(3),S(4),S(5),S(6),S(7),S(8)/1-1.
73205080D0,-1.
73205080D0,1.
73205080D0,1.
73205080D0,2-1.
73205080D0,0.
0D0,1.
73205080D0,0.
0D0/Appendix:FortranCodesofCS-S389C-CINITIALIZEC-CALLZEROI1(ICOUNT,MNODES)CALLZEROR2(SIG,MNODES,6)CALLZEROR1(SHAPE,4)C-CLOOPOVERTHEELEMENTSC-DOIELM=1,NELLT=LTYP(IELM)NDN=LINFO(5,LT)NGP=LINFO(11,LT)C-CRETURNIFTHEELEMENTDOESNOTHAVE8-NODES,4INTEGRATIONPOINTC-IF(NDN.
NE.
8.
OR.
NGP.
NE.
4)THENWRITE(*,*)'CANNOTCALCULATENODALSTRAINSFORELM=',IELM,NDN,NGPRETURNENDIFC-CLOOPOVERTHEELEMENTNODESC-DOINOD=1,NDNNODE=NCONN(INOD,IELM)ICOUNT(NODE)=ICOUNT(NODE)+1C-CSHAPEFUNCTIONSFOR8-NODES,4INTEGRATIONPOINTCASEC-SHAPE(1)=0.
250D0*(1.
0D0-R(INOD))*(1.
0D0-S(INOD))SHAPE(2)=0.
250D0*(1.
0D0+R(INOD))*(1.
0D0-S(INOD))SHAPE(3)=0.
250D0*(1.
0D0+R(INOD))*(1.
0D0+S(INOD))SHAPE(4)=0.
250D0*(1.
0D0-R(INOD))*(1.
0D0+S(INOD))C-CLOOPOVERTHEINTEGRATIONPOINTSC-DOIP=1,NGPDOIS=1,NS!
NS=sizeofDmatrix=4for2-D,=6for3-DSIG(NODE,IS)=SIG(NODE,IS)+STRAIN(IS,IP,IELM)*SHAPE(IP)!
Eventhoughsigisusedherethatisreallystrain.
!
Justtosavethememory.
390Appendix:FortranCodesofCS-SENDDOENDDOENDDOENDDOCWRITE(2,10)C-CFINDAVERAGESTRSSSATNODESC-DOINOD=1,NNODESA=FLOAT(ICOUNT(INOD))DOIS=1,NSSIG(INOD,IS)=SIG(INOD,IS)/AENDDOC-CCALCULATEPRINCIPLESTRAINSC-CALLPRINC(SIG(INOD,1),SIG(INOD,2),SIG(INOD,4),PRST)C-COUTPUTNODALSTRAINSC-XNODE=XYZ(1,INOD)YNODE=XYZ(2,INOD)YLIM=YREF-0.
040D0cIF(XNODE.
LT.
0.
040D0.
AND.
YNODE.
GE.
YLIM)THENXNORM=XNODE/0.
005640D0YNORM=(YNODE)/0.
005640D0cWRITE(2,100)INOD,XNORM,YNORM,(SIG(INOD,J),J=1,NS),WRITE(2,100)INOD,XNODE,YNODE,(SIG(INOD,J),J=1,NS),1(PRST(K),K=1,3)cENDIFENDDO10FORMAT(//,3X,'NODE',3X,'NODECOORDINATES',19X,'NODESTRAINS',118x,'PRINCIPALSTRAINS',/,1X,106('-'),/,11X,'X',8X,'Y',112X,'STX',9X,'STY',9X,'STH',9X,'STXY',9X,'S1',10X,'S2',110X,'TH',/,1X,106('-'))100FORMAT(1X,I4,1X,2F9.
5,2X,6E12.
4,F9.
2)RETURNENDC*FUNCTIONFPQ(P,PC,Q,PM,KGO)C*CTHISFUNCTIONCALCULATESF(P,PC,Q)Appendix:FortranCodesofCS-S391C-IMPLICITREAL*8(A-H,O-Z)IF(KGO.
EQ.
3)THENFPQ=(P*P)/(PC*PC)-(P/PC)+(Q*Q)/(PC*PC*PM*PM)ELSEIF(KGO.
EQ.
4)THENFPQ=LOG(P)-LOG(PC)+Q/(P*PM)CFPQ=ALOG(P)-ALOG(PC)+Q/(P*PM)ENDIFRETURNENDC*SUBROUTINECAMOUT(LOUT4,LTYP,MAT,NTY,IOUT3,NEL,VARC,IOUTP)C*C***OUTPUTADDITIONALPARAMETERSCAM-CLAYSC*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/MODEL/PQMOD(NIP,MEL,2),MCODE(NIP,MEL)COMMON/ELINF/LINFO(50,15)COMMON/OUT/IBC,IRAC,NVOS,NVOF,NMOS,NMOF,NELOS,NELOFDIMENSIONMAT(MEL),NTY(NMT),LTYP(MEL),VARC(9,NIP,MEL)CIF(IOUT3.
EQ.
0.
OR.
IOUTP.
NE.
1)GOTO25IF(IOUT3.
EQ.
1)WRITE(LOUT4,911)IF(IOUT3.
EQ.
1)WRITE(LOUT4,902)IF(IOUT3.
EQ.
2)WRITE(LOUT4,912)IF(IOUT3.
EQ.
2)WRITE(LOUT4,901)CDO20J=1,NELKM=MAT(J)KGO=NTY(KM)LT=LTYP(J)NGP=LINFO(11,LT)IF(KGO.
NE.
3.
AND.
KGO.
NE.
4)GOTO20IF(IOUTP.
NE.
1)GOTO20IF(J.
LT.
NELOS.
OR.
J.
GT.
NELOF)GOTO20IF(IOUT3.
EQ.
1)GOTO12IF(IOUT3.
EQ.
2)WRITE(LOUT4,904)JCDO10IGP=1,NGPWRITE(LOUT4,905)IGP,(VARC(IK,IGP,J),IK=1,9),MCODE(IGP,J)10CONTINUEGOTO2012WRITE(LOUT4,905)J,(VARC(IK,NGP,J),IK=1,9),1(MCODE(IP,J),IP=1,NGP)392Appendix:FortranCodesofCS-S20CONTINUEWRITE(LOUT4,935)C25CONTINUERETURN901FORMAT(2X,6HELM-IP,6X,2HPE,11X,1HQ,11X,2HPT,11X,12HPC,9X,3HETA,5X,5HETA/M,6X,2HYR,4X,6HE-VOID,3X,24HTH-3,2X,3HCDE)902FORMAT(2X,6HELM-IP,6X,2HPE,11X,1HQ,11X,2HPT,11X,12HPC,9X,3HETA,5X,5HETA/M,6X,2HYR,4X,6HE-VOID,3X,24HTH-3,2X,14H1234567)904FORMAT(I4)905FORMAT(2X,I4,4E13.
5,2F9.
3,3X,F6.
3,F8.
4,2X,F7.
1,12X,8I2/5X,9I2)911FORMAT(/33HCAMCLAYPARAMETERSATCENTROIDS/11X,32(1H-)/)912FORMAT(/42HCAMCLAYPARAMETERSATINTEGRATIONPOINTS/11X,41(1H-)/)935FORMAT(//)ENDC*FUNCTIONQ(A,N,NDIM)C*IMPLICITREAL*8(A-H,O-Z)DIMENSIONA(N)Q2=0.
50D0*((A(1)-A(2))*(A(1)-A(2))+(A(2)-A(3))*(A(2)-A(3))1+(A(3)-A(1))*(A(3)-A(1)))+3.
0D0*A(4)*A(4)IF(NDIM.
EQ.
2)GOTO10Q2=Q2+3.
0D0*A(5)*A(5)+3.
0D0*A(6)*A(6)10Q=SQRT(Q2)RETURNENDC*FUNCTIONEDS(A,N,NDIM)C*IMPLICITREAL*8(A-H,O-Z)DIMENSIONA(N)EDS2=0.
50D0*((A(1)-A(2))*(A(1)-A(2))+(A(2)-A(3))*(A(2)-A(3))1+(A(3)-A(1))*(A(3)-A(1)))+.
750D0*A(4)*A(4)IF(NDIM.
EQ.
2)GOTO10EDS2=EDS2+0.
750D0*A(5)*A(5)+0.
750D0*A(6)*A(6)10EDS=2.
0D0*SQRT(EDS2)/3.
0D0RETURNENDAppendix:FortranCodesofCS-S393SUBROUTINEINPENT(LINP,NPEN,XREF,YREF,DYREF,DXPEN,1XCOS,XSIN,XMUFR,NCHAIN,KSLID0,KSLID3)C*C1CalledbyTOTSOLIMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'DIMENSIONNCHAIN(100,2),XMUFR(2)C-----INITIALIZENCHAINMATRIXCALLZEROI2(NCHAIN,100,2)C-----READINPUTDATAFORPENETRATIONREAD(LINP,101)HEADER18101FORMAT(A80)READ(LINP,*)XREF,YREF,DXPEN,XDIM,YDIM,KSLID0,KSLID3,1(XMUFR(I),I=1,2)TEMP=SQRT(XDIM**2+YDIM**2)XCOS=YDIM/TEMPXSIN=XDIM/TEMPCDYREF=DXPEN/XSIN!
DYREF=incrementaldistanceatconefaceDYREF=DXPEN/XCOS!
bySongtocontrolitbyverticaldispl.
C!
Abovemanipulationshouldnotmakecal.
diff.
READ(LINP,101)HEADER19DOI=1,NPENREAD(LINP,*)(NCHAIN(I,J),J=1,2)ENDDOCRETURNENDSUBROUTINECHSLIDE(NPEN,NSKEW,NSKEW1,DXPEN,KSLID0,KSLID3,XSIN,1XCOS,XMUFR,NCHAIN,NW,PEQT,PT,FRICT,FRICTPR,INCR,FRMAX0,FRMAX3)C*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFDIMENSIONNCHAIN(100,2),NW(MNODES+1),PEQT(MDOF),1PT(MDOF),XMUFR(2),FRICT(MDOF),FRICTPR(MDOF)C-NODSLID0=0NODSLID3=0ICOUNT0=0ICOUNT3=0394Appendix:FortranCodesofCS-STOTFR0=0.
0D0TOTFR3=0.
0D0TOTALFR0=0.
0D0TOTALFR3=0.
0D0FVNOD0=0.
0D0FMNOD0=0.
0D0FVNOD3=0.
0D0FMNOD3=0.
0D0ICV0=0ICM0=0ICV3=0ICM3=0C-DO100I=1,NPENNODE=NCHAIN(I,1)INDEX=NCHAIN(I,2)IVM=NODE-2*(NODE/2)N1=NW(NODE)-1IF(INDEX.
NE.
0.
AND.
INDEX.
NE.
3)GOTO100CDOII=1,NFINODE=MF(II)IF(INODE.
EQ.
NODE)GOTO1ENDDO1CONTINUEC-CCHECKNODESWITHINDEX=0C-IF(INDEX.
EQ.
0.
AND.
KSLID0.
EQ.
0)THENICOUNT0=ICOUNT0+1RNORM=-PEQT(N1+1)FRICT0=-PT(N1+2)+PEQT(N1+2)TOTFR0=TOTFR0+FRICT0ALLFR0=RNORM*XMUFR(1)IF(IVM.
EQ.
1)THENFVNOD0=FVNOD0+ALLFR0ICV0=ICV0+1ELSEIF(IVM.
EQ.
0)THENICM0=ICM0+1FMNOD0=FMNOD0+ALLFR0ENDIFTOTALFR0=TOTALFR0+ALLFR0IF(FRICT0.
LT.
ALLFR0)THENNODSLID0=NODSLID0+1ENDIFAppendix:FortranCodesofCS-S395C-CCHECKNODESWITHINDEX=3C-ELSEIF(INDEX.
EQ.
3.
AND.
KSLID3.
EQ.
0)THENICOUNT3=ICOUNT3+1RXX=-PEQT(N1+1)RYY=-PEQT(N1+2)RNORM=RXX*XCOS-RYY*XSINFRICT3=-RXX*XSIN-RYY*XCOSTOTFR3=TOTFR3+FRICT3ALLFR3=RNORM*XMUFR(2)IF(IVM.
EQ.
1)THENICV3=ICV3+1FVNOD3=FVNOD3+ALLFR3ELSEIF(IVM.
EQ.
0)THENICM3=ICM3+1FMNOD3=FMNOD3+ALLFR3ENDIFTOTALFR3=TOTALFR3+ALLFR3IF(FRICT3.
LT.
ALLFR3)THENNODSLID3=NODSLID3+1ENDIFENDIF100CONTINUEC-CCHECKIFSLIDINGOCCURSATNODESWITHINDEX=0C-IF(NODSLID0.
GE.
(ICOUNT0))GOTO2IF(TOTFR0.
LT.
TOTALFR0)GOTO2GOTO202CONTINUEAVRM0=FMNOD0/ICM0AVRV0=FVNOD0/ICV0FRMAX0=TOTALFR0/ICOUNT0KSLID0=1DO200I=1,NPENNODE=NCHAIN(I,1)INDEX=NCHAIN(I,2)INDFOR=NCHAIN(I+1,2)N1=NW(NODE)-1IF(INDEX.
NE.
0)GOTO200396Appendix:FortranCodesofCS-SCDOII=1,NFINODE=MF(II)IF(INODE.
EQ.
NODE)GOTO3ENDDO3CONTINUEIF(INDFOR.
EQ.
3.
AND.
KSLID3.
EQ.
0)GOTO200NFIX(2,II)=0DXYT(1,II)=0.
0D0DXYT(2,II)=0.
0D0FRICT(N1+2)=-PT(N1+2)+PEQT(N1+2)FRICTPR(N1+2)=-PT(N1+2)+PEQT(N1+2)200CONTINUE20CONTINUEC-CCHECKIFSLIDINGOCCURSATNODESWITHINDEX=3C-IF(NODSLID3.
GE.
ICOUNT3)GOTO4IF(TOTFR3.
LT.
TOTALFR3)GOTO4GOTO304CONTINUEAVRM3=FMNOD3/ICM3AVRV3=FVNOD3/ICV3FRMAX3=TOTALFR3/ICOUNT3KSLID3=1NSKEW=NSKEW1DO300I=1,NPENNODE=NCHAIN(I,1)INDEX=NCHAIN(I,2)INDPR=NCHAIN(I-1,2)N1=NW(NODE)-1IF(INDEX.
NE.
3)GOTO300CDOII=1,NFINODE=MF(II)IF(INODE.
EQ.
NODE)GOTO5ENDDO5CONTINUEIF(INDPR.
EQ.
0.
AND.
KSLID0.
NE.
0)THENDOIIP=1,NFINODEP=MF(IIP)IF(INODEP.
EQ.
(NODE-1))GOTO11ENDDO11N11=NW(NODE-1)-1NFIX(2,IIP)=0DXYT(1,IIP)=0.
0D0DXYT(2,IIP)=0.
0D0Appendix:FortranCodesofCS-S397FRICT(N11+2)=-PT(N11+2)+PEQT(N11+2)FRICTPR(N11+2)=-PT(N11+2)+PEQT(N11+2)ENDIFNFIX(1,II)=1NFIX(2,II)=0DXYT(1,II)=DXPENDXYT(2,II)=0.
0D0RXX=-PEQT(N1+1)RYY=-PEQT(N1+2)RYPAR=-RXX*XSIN-RYY*XCOSFRICT(N1+1)=RYPAR*XSINFRICT(N1+2)=RYPAR*XCOSFRICTPR(N1+1)=RYPAR*XSINFRICTPR(N1+2)=RYPAR*XCOS300CONTINUE30CONTINUERETURNENDC*SUBROUTINEBCADJST(NPEN,NDIM,NSKEW,XREF,YREF,DXPEN,XSIN,1XCOS,NCHAIN,XYZ,NW,PEQT,PT,FRICT,FRICTPR,XMUFR,PNOD,DD,DP,DP1,2INCR,NUMD,IOUTP,TOTPEN,IBCAL,FRMAX0,FRMAX3)C*IMPLICITREAL*8(A-H,O-Z)INCLUDE'PARM.
FOR'COMMON/FIX/DXYT(4,200),MF(200),NFIX(4,200),NFCOMMON/SKBC/ISPB(20),DIRCOS(20,3)DIMENSIONXYZ(3,MNODES),NCHAIN(100,2),NW(MNODES+1),PEQT(MDOF),1PT(MDOF),DD(4,200),DP(MDOF),DP1(MDOF),NUMD(MDOF,2),PNOD(MDOF)DIMENSIONQC(MDOF),FRICT(MDOF),FRICTPR(MDOF),XMUFR(2)CIBCAL=IBCAL+1FRMAX0=-2.
0d-03FRMAX3=-0.
8082640d-03cXMUFR(1)=0.
250D0cXMUFR(2)=0.
250D0CCALLZEROR1(QC,MDOF)NUM=40NUMB=40I1=0CDO100I=1,NPENNODE=NCHAIN(I,1)INDEX=NCHAIN(I,2)398Appendix:FortranCodesofCS-SXNODE=XYZ(1,NODE)YNODE=XYZ(2,NODE)N1=NW(NODE)-1CDOII=1,NFINODE=MF(II)IF(INODE.
EQ.
NODE)GOTO1ENDDO1CONTINUEC-CCHECKNODESWITHINDEX=0IFTENSIONOCCURS(0)C-IF(INDEX.
EQ.
0)THENQC(N1+2)=PT(N1+2)-PEQT(N1+2)REACTX=PT(N1+1)-PEQT(N1+1)INDFOR1=NCHAIN(I+1,2)INDFOR2=NCHAIN(I+2,2)IF(IBCAL.
EQ.
1.
AND.
INDFOR1.
EQ.
3)THENDP1(N1+2)=-PEQT(N1+2)/10.
0D0NUMD(N1+2,1)=10cWRITE(2,*)'NODE=',NODE,'DP1=',DP1(N1+2)ENDIFIF(REACTX.
GT.
0.
0D0.
AND.
INDFOR1.
NE.
0.
AND.
INDFOR2.
NE.
0)THENCIF(REACTX.
GT.
0.
0D0)THENCCHANGEINDEXFROM0TO4ANDFREETHENODENCHAIN(I,2)=4NFIX(1,II)=0NFIX(2,II)=0DXYT(1,II)=0.
0D0DXYT(2,II)=0.
0D0DD(1,II)=0.
0D0CAPPLYLOAD=REACT&THENUNLOADITINCREMENTALLYNUMBER=INT(ABS(REACTX)/1.
0D-04)+1DP(N1+1)=REACTX/NUMBERPNOD(N1+1)=REACTXNUMD(N1+1,1)=NUMBERcWRITE(2,*)'NODE=',NODE,'NUM=',NUMBER,'PNOD=',PNOD(N1+1),c1'DP=',DP(N1+1)CCHECKFORFRICTIONELSEIF(REACTX.
LT.
0.
0D0)THENCALLFRICT=REACTX*XMUFR(1)FPND=ALLFRICT+PNOD(N1+2)IF(FPND.
GT.
0.
0D0)GOTO10APPLFR=FRICTPR(N1+2)Appendix:FortranCodesofCS-S399IF(ALLFRICT.
LT.
APPLFR.
AND.
APPLFR.
GT.
FRMAX0)THENFRDIF=ALLFRICT-FRICTPR(N1+2)IF(FRDIF.
GE.
(-2.
0D-05))THENFRICT(N1+2)=FRDIFELSEFRICT(N1+2)=-2.
0D-05ENDIFFRICTPR(N1+2)=FRICTPR(N1+2)+FRICT(N1+2)cWRITE(2,*)'NODE=',NODE,'FRICT=',FRICT(N1+2),'FRICTPR=',c1FRICTPR(N1+2),'RNORM=',REACTXCENDIFENDIFGOTO10C-CCHECKNODESWITHINDEX=4IFXNODEEQ.
4)THENINDFOR1=NCHAIN(I+1,2)INDFOR2=NCHAIN(I+2,2)QC(N1+2)=PT(N1+2)-PEQT(N1+2)DXNODE=XNODE-XREFINDPR=NCHAIN(I-1,2)IF(DXNODE.
LT.
0.
0D0)THENCCONSTRAINTHENODEINTHEX-DIRECTION&CHANGEINDEXFROM4TO0NFIX(1,II)=1NFIX(2,II)=0DXYT(1,II)=0.
0D0DXYT(2,II)=0.
0D0DP(N1+1)=0.
0D0PNOD(N1+1)=0.
0D0NUMD(N1+1,1)=0NUMBER2=INT(ABS(DXNODE)/(1.
0D-05))+1NUMD(N1+1,2)=NUMBER2DD(1,II)=-DXNODE/NUMBER2NCHAIN(I,2)=0WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)GOTO10CELSEIF(INDFOR1.
EQ.
0.
AND.
INDFOR2.
EQ.
0)THENCCONSTRAINTHENODEINTHEX-DIRECTION&CHANGEINDEXFROM4TO0NFIX(1,II)=1NFIX(2,II)=0DXYT(1,II)=0.
0D0DXYT(2,II)=0.
0D0400Appendix:FortranCodesofCS-SDP(N1+1)=0.
0D0PNOD(N1+1)=0.
0D0NUMD(N1+1,1)=0NUMBER2=INT(ABS(DXNODE)/(1.
0D-05))+1NUMD(N1+1,2)=NUMBER2DD(1,II)=-DXNODE/NUMBER2WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)NCHAIN(I,2)=0ENDIFGOTO10C-CCHECKNODESWITHINDEX=3(SKEWBOUNDARY)(3)C-ELSEIF(INDEX.
EQ.
3)THENINDPR=NCHAIN(I-1,2)RXX=PT(N1+1)-PEQT(N1+1)RYY=PT(N1+2)-PEQT(N1+2)QC(N1+2)=-(-PEQT(N1+1)*XSIN+PEQT(N1+2)*XCOS)IF(XNODE.
GT.
XREF.
AND.
INDPR.
NE.
3)THENCFREETHESKEWNODEANDCHANGEINDEXFROM3TO4NFIX(1,II)=0NFIX(2,II)=0DXYT(1,II)=0.
0D0DXYT(2,II)=0.
0D0DD(1,II)=0.
0D0DD(2,II)=0.
0D0NCHAIN(I,2)=4CREMOVETHENODEFROMSKEWBOUNDARYANDSHIFTTHEISPBARRAYCALLCHSKEW(NSKEW,NDIM,NODE,XCOS,XSIN,-1)CADDLOADS=REACTIONSANDTHENUNLOADTHEMRXX=PT(N1+1)-PEQT(N1+1)RYY=PT(N1+2)-PEQT(N1+2)ABRXX=ABS(RXX*XCOS)NUMBER=INT(ABRXX/1.
0D-04)+1DP(N1+1)=RXX*XCOS/NUMBERDP(N1+2)=-RXX*XSIN/NUMBERPNOD(N1+1)=RXX*XCOSPNOD(N1+2)=-RXX*XSINNUMD(N1+1,1)=NUMBERNUMD(N1+2,1)=NUMBERNUMD(N1+1,2)=0Appendix:FortranCodesofCS-S401NUMD(N1+2,2)=0cWRITE(2,*)'NODE=',NODE,'NUM=',NUMBER,'PNOD=',PNOD(N1+1),c1PNOD(N1+2),'DP=',DP(N1+1),DP(N1+2)ELSECCHECKFORFRICTIONRXX1=RXX+PNOD(N1+1)*XCOSIF(RXX1.
LT.
0.
0D0)THENALLFRICT=RXX1*XMUFR(2)APPLFR=FRICTPR(N1+1)*XSIN+FRICTPR(N1+2)*XCOSIF(ALLFRICT.
LT.
APPLFR.
AND.
APPLFR.
GT.
FRMAX3)THENcIF(ALLFRICT.
LT.
APPLFR)THENIF(XNODE.
LT.
0.
0010D0)GOTO55FRDIF=ALLFRICT-APPLFRIF(FRDIF.
GE.
(-2.
0D-05))THENRYPAR=FRDIFELSERYPAR=-2.
0D-05ENDIFFRICT(N1+1)=RYPAR*XSINFRICT(N1+2)=RYPAR*XCOSFRICTPR(N1+1)=FRICTPR(N1+1)+FRICT(N1+1)FRICTPR(N1+2)=FRICTPR(N1+2)+FRICT(N1+2)cWRITE(2,*)'NODE=',NODE,'FRICT=',(FRICT(N1+IFR),IFR=1,2),c1'FRICTPR=',applfr,'FRMAX3=',frmax3cwrite(2,*)'pt=',(pt(n1+ifr),ifr=1,2),'peqt=',c1(peqt(n1+ifr),ifr=1,2),'rxx=',rxx,'ryy=',ryyENDIF55CONTINUEENDIFCCIF(XNODE.
LT.
0.
0D0)THENCAPPLYDISPLTOMOVETHENODEBACKALONGTHEPOSITIVESKEWBOUNDARYDD(1,II)=0.
0D0XNODE3=-XNODE/XSINNUMBER2=INT(ABS(XNODE3)/(1.
0D-05))IF(NUMBER2.
LT.
1)NUMBER2=1DD(2,II)=XNODE3/NUMBER2WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)NUMD(N1+1,2)=0NUMD(N1+2,2)=NUMBER2ENDIFENDIFGOTO10402Appendix:FortranCodesofCS-SC-CCHECKTHENODEWITHINDEX=2(2)C-ELSEIF(INDEX.
EQ.
2)THENDYNODE=YNODE-(YREF+XNODE*XCOS/XSIN)INDPR=NCHAIN(I-1,2)IF(XNODE.
LT.
0.
0D0.
AND.
YNODE.
LT.
YREF)THENCRECONSTRAINTHENODE&CHANGEINDEXFROM2TO1I1=I1+1NCHAIN(I,2)=1NFIX(1,II)=1NUMBER2=INT(ABS(XNODE)/(1.
0D-05))IF(NUMBER2.
LT.
1)NUMBER2=1DD(1,II)=-XNODE/NUMBER2NUMD(N1+1,2)=NUMBER2NUMD(N1+2,2)=0WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)PNOD(N1+1)=0.
0D0DP(N1+1)=0.
0D0GOTO20ELSEIF(XNODE.
GT.
0.
0D0.
AND.
DYNODE.
GE.
0.
0D0)THENCCHANGEINDEXFROM2TO3ANDADDTHENODETOSKEWBOUNDARYNCHAIN(I,2)=3CALLCHSKEW(NSKEW,NDIM,NODE,XCOS,XSIN,1)CCHANGETHEBOUNDARYCONDITIONOFTHENODENFIX(1,II)=1NFIX(2,II)=0DXYT(1,II)=DXPENDXYT(2,II)=0.
0D0CXNOD2=DYNODE*XSINNUMBER2=INT(ABS(XNOD2)/(1.
0D-05))+1DD(1,II)=DYNODE*XSIN/NUMBER2DD(2,II)=0.
0D0CPNOD(N1+2)=PNOD(N1+1)*XSINCDP(N1+2)=DP(N1+1)*XSINCPNOD(N1+1)=0.
0D0CDP(N1+1)=0.
0D0CNUMD(N1+2,1)=NUMD(N1+1,1)CNUMD(N1+1,1)=0NUMD(N1+1,2)=NUMBER2NUMD(N1+2,2)=0WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)Appendix:FortranCodesofCS-S403CGOTO10ELSEIF(XNODE.
LE.
0.
0D0.
AND.
YNODE.
GE.
YREF)THENCCHANGETHEINDEXFROM2TO3ANDADDTHENODETOSKEWBOUNDARYNCHAIN(I,2)=3NFIX(1,II)=1NFIX(2,II)=0DXYT(1,II)=DXPENDXYT(2,II)=0.
0D0A=YNODE-YREFB=-XNODE*XSIN/XCOSIF(A.
GE.
B)THENXNOD2=DYNODE*XSINNUMBER2=INT(ABS(XNOD2)/(1.
0D-05))+1DD(1,II)=DYNODE*XSIN/NUMBER2DD(2,II)=0.
0D0NUMD(N1+1,2)=NUMBER2NUMD(N1+2,2)=0WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)ELSEIF(A.
LT.
B)THENNUMBER2=INT(ABS(B)/(1.
0D-05))IF(NUMBER2.
LT.
1)NUMBER2=1DD(1,II)=(-XNODE*XCOS+(YNODE-YREF)*XSIN)/NUMBER2DD(2,II)=(-XNODE*XSIN-(YNODE-YREF)*XCOS)/NUMBER2NUMD(N1+1,2)=NUMBER2NUMD(N1+2,2)=NUMBER2WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)ENDIFCALLCHSKEW(NSKEW,NDIM,NODE,XCOS,XSIN,1)CPNOD(N1+2)=PNOD(N1+1)*XSINCDP(N1+2)=DP(N1+1)*XSINCPNOD(N1+1)=0.
0D0CDP(N1+1)=0.
0D0CNUMD(N1+2,1)=NUMD(N1+1,1)CNUMD(N1+1,1)=0CENDIFGOTO10C-CCHECKTHEFIRSTNODEWITHINDEX=1IFTENSIONOCCURS(1)C-404Appendix:FortranCodesofCS-SELSEIF(INDEX.
EQ.
1.
AND.
I1.
EQ.
0)THENI1=I1+1INDPR=NCHAIN(I-1,2)DYNODE=YNODE-YREFREACTX=PT(N1+1)-PEQT(N1+1)CIF(YNODE.
GE.
YREF)THENCCHANGEINDEXFROM1TO3ANDADDTHENODETOSKEWBOUNDARYI1=I1-1NCHAIN(I,2)=3CALLCHSKEW(NSKEW,NDIM,NODE,XCOS,XSIN,1)CCHANGETHEBOUNDARYCONDITIONOFTHENODENFIX(1,II)=1NFIX(2,II)=0DXYT(1,II)=DXPENDXYT(2,II)=0.
0D0CNUMBER2=INT(ABS(DYNODE*XSIN)/(1.
0D-05))+1DD(1,II)=DYNODE*XSIN/NUMBER2DD(2,II)=0.
0D0PNOD(N1+1)=REACTXNUMBER=INT(ABS(REACTX)/1.
0D-04)+1DP(N1+1)=REACTX/NUMBERNUMD(N1+1,1)=NUMBERNUMD(N1+1,2)=NUMBER2NUMD(N1+2,2)=0cWRITE(2,*)'NODE=',NODE,'NUM=',NUMBER,'PNOD=',PNOD(N1+1),c1'DP=',DP(N1+1)WRITE(2,*)'NODE',NODE,'N=',NUMBER2,'dd=',(dd(ifr,ii),IFR=1,2)CELSEIF(YNODE.
LT.
YREF.
AND.
REACTX.
GT.
0.
0D0.
AND.
INDPR.
NE.
2)THENCCHANGEINDEXFROM1TO2ANDFREETHENODENCHAIN(I,2)=2NFIX(1,II)=0NFIX(2,II)=0DXYT(1,II)=0.
0D0DXYT(2,II)=0.
0D0CAPPLYLOAD=REACTANDTHENUNLOADITINCREMENTALLYNUMBER=INT(ABS(REACTX)/1.
0D-04)+1DP(N1+1)=REACTX/NUMBERPNOD(N1+1)=REACTXNUMD(N1+1,1)=NUMBERcWRITE(2,*)'NODE=',NODE,'NUM=',NUMBER,'PNOD=',PNOD(N1+1),c1'DP=',DP(N1+1)ENDIFGOTO10ENDIFAppendix:FortranCodesofCS-S40510CONTINUE100CONTINUE20CONTINUEcIF(IOUTP.
EQ.
1)THENcDOI33=1,20cNODE=NCHAIN(I33,1)cINDEX=NCHAIN(I33,2)cXNODE=XYZ(1,NODE)cYNODE=XYZ(2,NODE)cND1=NW(NODE)cENDDOcENDIFDOINODE=1,NFNODE=MF(INODE)IDF=NW(NODE)-1DOID=1,NDIMNUM1=NUMD(IDF+ID,1)NUM2=NUMD(IDF+ID,2)IF(NUM1.
GT.
0)THENPNOD(IDF+ID)=PNOD(IDF+ID)*(NUM1-1)/NUM1NUMD(IDF+ID,1)=NUM1-1ELSEIF(NUM1.
EQ.
0)THENPNOD(IDF+ID)=0.
0D0DP(IDF+ID)=0.
0D0DP1(IDF+ID)=0.
0D0ENDIFIF(NUM2.
GT.
0)THENNUMD(IDF+ID,2)=NUM2-1ELSEIF(NUM2.
EQ.
0)THENDD(ID,INODE)=0.
0D0ENDIFENDDOcENDDOCIF(IOUTP.
EQ.
1)THENWRITE(2,30)INCR,YREF,TOTPENWRITE(2,40)DOI=1,NPENNODE=NCHAIN(I,1)N1=NW(NODE)-1WRITE(2,50)(NCHAIN(I,J),J=1,2),(XYZ(J,NODE),J=1,2),QC(N1+2)406Appendix:FortranCodesofCS-SENDDOENDIF30FORMAT(/,2X,'INCR=',I5,4X,'YREF=',F12.
6,4X,'TOTPEN=',F12.
6)40FORMAT(/,6X,'NCHAIN',9X,'COORDINATES',15X,'QC',/,55('-'))50FORMAT(2X,2I5,2F12.
6,4X,E15.
7)cCWRITE(2,*)'NODE+DXYT+NFIX'CDOII=1,20CWRITE(2,100)MF(II),(DXYT(J,II),J=1,2),(NFIX(J,II),J=1,2)CENDDOC100FORMAT(1X,I5,2F12.
6,2I5)C200FORMAT(1X,I3,4I4,2X,6E12.
4)RETURNENDC*SUBROUTINECHSKEW(NSKEW,NDIM,NODE,XCOS,XSIN,IND)C*IMPLICITREAL*8(A-H,O-Z)COMMON/SKBC/ISPB(20),DIRCOS(20,3)IF(IND.
EQ.
1)THENCADDTHENODEFROMSKEWBOUNDARYDOISKEW=1,NSKEWKNODE=ISPB(ISKEW)IF(KNODE.
GT.
NODE)THENDOKSKEW=ISKEW,NSKEWKK=NSKEW-KSKEW+1ISPB(ISKEW+KK)=ISPB(ISKEW+KK-1)DIRCOS(ISKEW+KK,1)=DIRCOS(ISKEW+KK-1,1)DIRCOS(ISKEW+KK,2)=DIRCOS(ISKEW+KK-1,2)ENDDOISPB(ISKEW)=NODEDIRCOS(ISKEW,1)=XCOSDIRCOS(ISKEW,2)=XSINGOTO25ENDIFENDDOISPB(NSKEW+1)=NODEDIRCOS(NSKEW+1,1)=XCOSDIRCOS(NSKEW+1,2)=XSIN25NSKEW=NSKEW+1ELSEIF(IND.
EQ.
-1)THENCREMOVETHENODEFROMSKEWBOUNDARYANDSHIFTTHEISPBARRAYDOISKEW=1,NSKEWKNODE=ISPB(ISKEW)Appendix:FortranCodesofCS-S407IF(KNODE.
EQ.
NODE)THENDOIK=ISKEW,NSKEW-1ISPB(IK)=ISPB(IK+1)DOID=1,NDIMDIRCOS(IK,ID)=DIRCOS(IK+1,ID)ENDDOENDDOISPB(NSKEW)=0DOID=1,NDIMDIRCOS(NSKEW,ID)=0.
0D0ENDDONSKEW=NSKEW-1GOTO30ENDIFENDDO30CONTINUEENDIFRETURNENDC*ReferencesAbdel-Karim,M.
andOhno,N.
(2000),"Kinematichardeningmodelsuitableforratchetingwithsteady-state,"InternationalJournalofPlasticity,Vol.
16,pp.
225–240Abu-Farsakh,M.
Y.
,Voyiadjis,G.
Z.
andTumay,M.
T.
(1998),"NumericalAnalysisoftheMiniaturePiezoconePenetrationTests(PCPT)inCohe-siveSoils,"InternationalJournalforNumericalandAnalyticalMethodsinGeomechanics,Vol.
22,pp.
791–818Abu-Farsakh,Y.
M.
(1997),"Coupledeldequationsforsaturatedsoilsanditsapplicationtopiezoconepenetrationandshieldtunneling,"Ph.
D.
Dis-sertation,LSU,BatonRouge,LA.
70808,p.
207Acar,Y.
B.
andTumay,M.
T.
andChan,A.
(1982),"Interpretationofthedissipationofpenetrometerporepressures,"Proc.
Int.
Symp.
onNumericalModelsinGeomechanics,Zurich,pp.
353–358Acar,Y.
B.
andTumay,M.
T.
(1986),"Straineldaroundconesinsteadypenetration,"J.
ofGE.
Div.
,ASCE,Vol.
112,pp.
207–213,Feb.
Aifantis,E.
C.
(1999),"Straingradientinterpretationofsizeeects,"Inter-nationalJournalofFracture,Vol.
95,pp.
299–314Aifantis,E.
C.
(1980),"Ontheproblemofdiusioninsolids,"ActaMechan-ica,Vol.
27,pp.
265–296Aifantis,E.
C.
(1984),"Remarksonmediawithmicrostructures,"I.
J.
ofEng.
Science,22,pp.
961–968Akagi,H.
(1994),"ComputationalSimulationofShieldTunnelinginSoftGround,"MemoirsofSchoolofScienceandEngineering,WasedaUniver-sity,No.
58,pp.
85–119Almeida,M.
S.
S.
,Jamiolkowski,M.
andPeterson,R.
W.
(1991),"PreliminaryresultsofCPTtestsincalcarousQuiousand,"CalibrationChamberTest-ing,ed.
An-BinHuang,Elsvier,pp.
41–54Alsaleh,M.
I.
(2004),"LocalizationPhenomnonainGranularMaterialswithMicros-StructuralConsideration:TheoryandExperiment",Ph.
DThesis,Dept.
ofCivilandEnvironmentalEngineering,LouisianaStateUniversityAlshibli,K.
A.
andAlsaleh,M.
I.
(2004),"CharacterizingSurfaceRoughnessandShapeofSandsUsingDigitalMicroscopy",JournalofComputinginCivilEngineering,ASCE18:(1),36–45410ReferencesAlturi,N.
(1984),"Onconstitutiverelationsatnitestrain:hypo-elasticityandelasto-plasticitywithisotropicorkinematichardening,"ComputerMethodsAppl.
Mech.
Engineering,43,137–171Anandarajah,A.
(2004),"SlidingandRollingConstitutiveTheoryforGran-ularMaterials,"JournalofEngineeringMechanics,Vol.
130,No.
6,June1,pp.
665–680Anandarajah,A.
(1994),"DiscreteElementMethodforSimulatingBehaviorofCohesiveSoils,"JournalofGeotechnicalEngineeringDiv.
ASCE.
Vol.
120,No.
9,pp.
1593–1613Anandarajah,A.
andKuganenthira,N.
(1995),"Someaspectsoffabricanisotropyofsoils,"Geotechnique,Vol.
45,No.
1,pp.
69–81Armstrong,P.
J.
andFrederick,C.
O.
(1966),"Amathematicalrepresenta-tionofthemultiaxialBauschingereect,"CEGBReportRD/B/N/731,BerkerlyNuclearLaboratoriesAtkin,R.
J.
andCraine,R.
E.
(1976),"Continuumtheoriesofmixtures;Ba-sictheoryandhistoricaldevelopment,"TheQuart.
J.
ofMechanicsandAppliedMathematics,Vol.
24(Pt2),pp.
209–244Arduino,P.
(1996),MultiphaseDescriptionofDeformingPorousMediabytheFiniteElementMethod,Ph.
D.
Dissertation,GeorgiaInstituteofTech-nology,pp.
7–20Ayton,G.
S.
D.
,Bardenhagen,S.
,McMurtry,P.
,Sulsky,D.
andVoth,G.
A.
(2001),"Interfacingmoleculardynamicswithcontinuumdynamicsincom-putersimulation:Towardandapplicationtobiologicalmembranes,"IBMJournalofResearchandDevelopment,Vol.
45,No.
3/4May/July,pp.
417–426Babenderede,S.
(1991),"TunnelingMechanicsinSoftGround:aComparisonofSlurryandEPBShieldSystem,"TunnelingandUndergroundSpaceTechnology,Vol.
6,No.
2,pp.
169–174Baladi,G.
Y.
andRohani,B.
(1979),"Elastic-plasticmodelforsaturatedsand,"JournalofGeotechnicalEngineeringDiv.
ASCE,Vol.
105,No.
GT4,pp.
465–480Baligh,M.
M.
(1975),"Theoryofdeepsitestaticconepenetrationresistance,"ReportNo.
R.
75–76,MIT,Cambridge,Mass.
02139Baligh,M.
M.
(1985),"StrainPathMethod,"J.
ofGE.
Div.
ASCE,Vol.
111,No.
9,pp.
1108–1136Baligh,M.
M.
,Azzouz,A.
S.
,Wissa,A.
Z.
E.
,Martin,R.
T.
andMorrison,M.
J.
,(1981),"Thepiezoconepenetrometer,"ASCE,GE.
Div.
SymposiumonConePenetrationTestingandExperience,St.
Louis,pp.
247–263Baligh,M.
M.
andLevadoux,J.
N.
(1980),"Porepressuredissipationafterconepenetration,"MIT,Dept.
ofCiv.
Engr.
ReportR.
80–11.
Cambridge,Mass.
02139,p.
367Baligh,M.
M.
andLevadoux,J.
N.
(1986),"Consolidationafterundrainedpiezoconepenetration,PartII:Interpretation,"J.
ofGE.
Div.
ASCE,Vol.
112,No.
7,July,pp.
727–745References411Baligh,M.
M.
,Vivatrat,Y.
andLadd,C.
C.
(1980),"Conepenetrationinsoilproling,"J.
ofGE.
Div.
ASCE.
Vol.
106,No.
GT4,Apr.
pp.
447–461Banerjee,P.
K.
andYousif,N.
B.
(1986),"Aplasticitymodelforthemechan-icalBehaviorofanisotropicallyconsolidatedclay,"Int.
J.
forNumericalanalyticalmethodsingeomechanics,Vol.
10,pp.
521–541Barbe,F.
,Decker,L.
,Jeulin,D.
andCailletaud,G.
(2001),"Intergranu-larandintragranularbehaviorofpolycrystallineaggregates.
Part1:F.
E.
model,"InternationalJournalofPlasticity,Vol.
7,pp.
513–536BariS.
andHassan,T.
(2000),"Anatomyofcoupledconstitutivemodelsforratchetingsimulation,"InternationalJournalofPlasticity,Vol.
16,pp.
381–409Batdorf,S.
B.
andBudianski,B.
(1949),"AMathematicalTheoryofPlasc-itityBasedontheConceptofSlip",NationalAdvisoryCommitteeforAeronauticsTechnicalNote,No.
1871,Washington,D.
C.
Apr.
Bathe,K.
J.
(1996),FiniteElementProcedures,PrenticeHall,pp.
485–641Battaglio,M.
,Bruzzi,D.
,Jamiolkowski,M.
,Lancellotta,R.
andManiscalo,R.
(1981),"PiezometerProbeTestinCohesiveDeposits,"ASCEConePenetrationTestingandExperience,ProceedingsofaSessionatASCENationalConvention,St.
Louis,Missouri,USA,pp.
264–302Battaglio,M.
,Bruzzi,D.
,Jamiolkowski,M.
andLancellotta,R.
(1986),"In-terpretationofCPT'sandCPTU's–Undrainedpenetrationofsaturatedclays,"Proceedingsof4thInt.
GeotechnicalSeminar,Singapore,pp.
129–143Batzle,M.
,Homann,R.
,De-HuaHanandCastagna,J.
(2001),"Fluidsandfrequencydependentseismicvelocityofrocks,"TheLeadingEdge,February,pp.
168–171Baˇzant,Z.
P.
(1984),"MicroplaneModelforStrainControlledInelasticBe-havior,"Chap.
3,MechanicsofEngineeringMaterials,C.
S.
DesaiandR.
H.
Gallagher,Eds.
JohnWiley&Sons,NewYork,NY,pp.
45–59Baˇzant,Z.
P.
andChang,T.
-P.
(1984),Instabilityofnonlocalcontinuumandstrainaveraging,ASCEJ.
ofEng.
Mechanics,110,pp.
1441–1450Baˇzant,Z.
P.
andKim,J.
-K.
(1986),"Creepofanisotropicclay:Microplanemodel,"J.
ofGE.
ASCE,112(4),pp.
458–475Baˇzant,Z.
P.
andKrizek,R.
J.
(1976),"Endochronicconstitutivelawforliq-uefactionofsand,"ProceedingsASCE,Vol.
102,No.
EM2,pp.
225–238Baˇzant,Z.
P.
andOh,B.
H.
(1983),"MicroplaneModelforFractureAnalysisofConcreteStructures,"Proceedings,SymposiumoftheInteractionofNon-nuclearMunitionswithStructures,"U.
S.
AirforceAcademy,ColoradoSprings,CO.
May,pp.
49–55Baˇzant,Z.
P.
andOh,B.
H.
(1985),"MicroplaneModelforProgressiveFrac-tureofConcreteandRock,"JournalofEngineeringMechanics,ASCE,Vol.
3,No.
4,Apr.
pp.
559–582Baˇzant,Z.
P.
andPrat,P.
C.
(1987),"Creepofanisotropicclays:Newmi-croplanemodel,"J.
ofEM.
ASCE,113(7),pp.
1050–1064412ReferencesBelytschko,T.
(2005),"ComputationalStudiesofNanofracture,"McMat2005Conference,BatonRouge,LA(PlenaryLecture1.
P2)Belytschko,T.
andXiao,S.
P.
(2003),"CouplingMethodsforContinuumModelwithMolecuarModel,"InternationalJournalforMultiscaleCom-putationalEngineering,1(1),pp.
115–126Bemben,S.
M.
andMyers,H.
J.
(1974),"TheinuenceofrateofpenetrationonstaticconeresistanceinConnecicutRiverValleyvarvedclay,"Proceed-ingsofEuropeanSymposiumonPenetrationTesting,ESOPT,Stockholm,2.
2,pp.
33–34Berryman,J.
G.
(1981),"Elasticwavepropagationinuid-saturatedporousmedia,"J.
ofAcoust.
Soc.
Am.
69(2),pp.
416–424Biot,M.
A.
(1941),"Consolidationsettlementunderarectangularloaddis-tribution,"J.
ofAppliedPhysics,Vol.
12,pp.
426–430Biot,M.
A.
(1955),"Theoryofelasticityandconsolidationforaporousanisotropicsolid,"J.
ofAppliedPhysics,Vol.
26,pp.
182–185Biot,M.
A.
(1956a),"Mechanicsofdeformationandacousticpropagationinporousmedia,"J.
ofAppliedPhysics,Vol.
27,pp.
240–253Biot,M.
A.
(1956b),"Theoryofdeformationofaporousviscoelasticanisotropicsolid,"J.
ofAppliedPhysics,Vol.
27,pp.
459–467Biot,M.
A.
(1956c),"Theoryofpropagationofelasticwavesinuid-saturatedporoussolid:(i)lowfrequencyrange,"JournalofAcousticalSocietyofAmerica,Vol.
28,No.
2,pp.
168–178Biot,M.
A.
(1956d),"Theoryofpropagationofelasticwavesinuid-saturatedporoussolid:(ii)highfrequencyrange,"JournalofAcousticalSocietyofAmerica,Vol.
28,No.
2,pp.
179–191Biot,M.
A.
(1965),MechanicsofIncrementalDeformations,JohnWiley&Sons,Inc,NewYork,London,Sydney,p.
504Biot,M.
A.
(1978),"Newconceptsandmethods",Q.
Appl.
Math.
Vol.
36,No.
19Bishop,A.
W.
,Alpen,I.
,Blight,G.
C.
andDonald,I.
B.
(1960),"Factorscon-trollingtheStrengthofPartiallySaturatedCohesiveSoils,"Proceedings,ResearhConferenceonShearStrengthofCohesiveSoils,ASCE,pp.
500–532Bjerrum,L.
,Casagrande,A.
andPeck,R.
B.
(1960),FromTheorytoPracticeinSoilMechanics(SelectionsfromWritingsofKarlTerzaghi),JohnWiley&Sons,NewYork,London,xxxp.
Blenkinsop,T.
(2000),DeformationMicrostructuresandMechanismsinMin-eralsandRocks,KluwerAcademicPublishers,pp.
1–6Bouzidi,Y.
andSchmitt,D.
R.
(2002),"DenitiveDetectionoftheSlowCom-pressionalWaveinSaturatedPorousSyntheticRock,"CSEGGeophysics2002,pp.
1–2Bowen,R.
M.
(1982),"Compressibleporousmediamodelsbytheuseofthetheoryofmixtures,"InternationalJournalofEngineeringScience,Vol.
20,No.
6,pp.
697–735References413Bowen,R.
M.
(1976),ContinuumPhysics,Vol.
III,PartI,AcademicPress,NewYork,pp.
1–127Bregman,N.
D.
,Bailey,R.
C.
andChapman,C.
H.
(1989a),"Crossholeseismictomography,"Geophysics,Vol.
54,pp.
200–215Bregman,N.
D.
,Chapman,C.
H.
andBailey,R.
C.
(1989b),"Traveltimeandamplitudeanalysisinseismictomography,"J.
Geoph.
Res.
,Vol.
94,pp.
7577–7587Burland,J.
B.
(1965),"TheYieldingandDilationofClay(Correspondence)",Geotechnique,Vol.
15,pp.
211–214Burridge,R.
andVargas,C.
A.
(1979),"Thefundamentalsolutionindynamicporoelasticicity,"Geophys.
J.
R.
Astro.
Soc.
,58:61CampanellaR.
G.
(1994),LectureNote,presentedtoKoreanGeotechnicalSocietyCampanella,R.
G.
andRobertson,P.
K.
(1981),"Appliedconeresearch,"J.
ofGE.
Div.
ASCE,SymposiumonConePenetrationTestingandExperience,St.
Louis,pp.
343–362Campanella,R.
G.
andRobertson,P.
K.
,Gillespie,D.
G.
andGreig,J.
(1985),"Recentdevelopmentininsitutestingofsoils,"ProceedingsXIICSMFE,SanFrancisco,pp.
849–854Carol,I.
,Bazant,Z.
P.
andPrat,P.
C.
(1990),"Newexplicitmicroplanemodelforconcrete:Theoreticalaspectsanduniedimplementationforconstitu-tivevericationandF.
E.
analysis,"Report,E.
T.
S.
CannalsIPorts-U.
P.
C.
:Jordigirona,31–E-08034Barcelona,SpainCarter,J.
P.
,Booker,J.
R.
andSmall,J.
C.
(1979),"Theanalysisofniteelastoplasticconsolidation,"Int.
J.
forNum.
andAnalyticalMethodsinGeomechanics,pp.
561–565Carter,J.
P.
,Small,J.
C.
,andBooker,J.
R.
(1977),"Atheoryofniteelasticconsolidation,"J.
ofSolidsStructures,Vol.
13,pp.
467–478Casagrande,A.
(1936),"CharacteristicsofCohesionlessSoilsAectingtheStabilityofSlopesandEarthFills,"JournaloftheBostonSocietyofCivilEngineers,January;reprintedinContributionstoSoilMechanics1925–1940,BSCE,pp.
257–276Chaboche,J.
L.
(1991),"Onsomemodicationofkinematichardeningtoim-provethedescriptionofrachettingeects,"InternationalJournalofPlas-ticity,Vol.
7,pp.
661–678Chan,A.
(1982),"AnalysisofDissipationofPorePressureafterConePene-tration,"M.
S.
thesis,Dept.
ofCivilandEnvironmentalEngineering,LSU,LA70803,p.
120Chang,C.
Y.
andDuncan,J.
M.
(1970),"AnalysisofSoilMovementAroundaDeepExcavation,"JournalofSoilMechanicsandFoundationDivision,ASCE,Vol.
96,No.
SM5,pp.
1655–1681Chapra,S.
C.
andCanale,R.
P.
(1988),NumericalMethodsforEngineers,2ndEd.
,McGrawHill,pp.
101–102414ReferencesChen,W.
F.
(1975),LimitAnalysisandSoilPlasticity,Elsvier,Amsterdam,NetherlandsChen,W.
F.
andMizuno,E.
(1990),NonlinearAnalysisinSoilMechanics;TheoryandImplementations,Elsvier,NewYork,NY,pp.
123–262Chopra,M.
B.
andDargush,G.
F.
(1992),"Finite-ElementAnalysisofTime-DependentLarge-DeformationProblems,"InternationalJournalforNu-mericalandAnalyticalMethodsforGeomechanics,Vol.
16,pp.
101–120Clough,G.
W.
andLeca,E.
(1993),"EPBShieldTunnelinginMixedFaceConditions,"JournalofGeotechnicalEngineering,ASCE,Vol.
119,No.
10,pp.
1640–1656Clough,G.
W.
,Sweeney,B.
P.
andFinno,R.
J.
(1983),"MeasuredSoilRe-sponsetoEPBShieldTunneling,"JournalofGeotechnicalEngineering,ASCE,Vol.
109,No.
2,pp.
131–149CMPCientica(2002),"Nanotech-thetinyrevolution,"July,2002Collins,K.
andMcGown,A.
(1974),"Theformandfunctionofmicrofabricfeaturesinavarietyofnaturalsoils,"Geotechnique,Vol.
24,No.
2Cosserat,E.
andF.
(1909),TheoriedesCorpsDeformabies,A.
HermannetFils,ParisCraig,R.
F.
(1979),SoilMechanics,2ndEdition,VanNostrandReinhold,p.
191Cui,L.
,Cheng,A.
H-D.
,Kaliakin,V.
N.
,Abousleiman,Y.
andRoegiers,J.
-C.
(1996),"FiniteElementAnalysisofAnisotropicPoroelasticity:AGeneral-izedMandel'sProblemandanInclinedBoreholeProblem,"InternationalJournalforNumericalandAnalyticalMethodsinGeomechanics,Vol.
20,pp.
381–401Cygan,R.
T.
(2001),"MolecularModelinginMineralogyandGeochemistry,"ReviewsinMineralogy&Geochemistry,Vol.
42(MolecularModelingThe-ory:ApplicationsintheGeosciences),pp.
1–35Dafalias,Y.
F.
(1983),"Corotationalratesforkinematichardeningatlargeplasticdeformations,"TransactionsoftheASME,J.
ofAppliedMechanics,pp.
561–565Dafalias,Y.
F.
andAifantis,E.
C.
(1984),"Ontheoriginoftheplasticspin,"MMreport,No.
8,MEEM,MTU,Houghton,MichiganDafalias,Y.
F.
(1985),"Amissinglinkinthemacroscopicconstitutivefor-mulationoflargeplasticdeformations,"inPlasticitytoday(Sawczuk,A.
,Bianchi,G.
,eds.
),pp.
135–151,SymposiumonCurrenttrendsandResultsinPlasticity,CISM,Udine,Italy,ElsvierDafalias,Y.
F.
(1987),"AnAnisotropicCriticalStateClayPlasticityModel,"ConstitutiveLawsforEngineeringMaterials:TheoryandApplications,Eds.
C.
S.
Desaietal.
pp.
513–521Dafalias,Y.
(1998),"PlasticSpin:NecessityorRedundancy"Int.
J.
ofPlas-ticity,Vol.
14,No.
9,pp.
909–931Darcy,H.
(1956),ThePublicFountainsofTheCityofDijon,Kendall/HuntPublishing,650p.
References415Das,B.
M.
(2005),FundamentalsofGeotechnicalEngieering,2ndEd.
Thom-son,p.
28deBeer,E.
E.
(1963),"Thescaleeectinthetranspositionoftheresultsofdeepsoundingtestsontheultimatebearingcapacityofpilesandcaissonfoundation,"Geotechnique,8(1),pp.
39–75DeBoer,R.
(1996),"Highlightsinthehistoricaldevelopmentoftheporousmediatheory:Towardaconsistentmacroscopictheory,"ASME,AppliedMechanicsReviews,Vol.
49,No.
4,pp.
201–262DeBoer,R.
andEhlers,W.
(1986),"Ontheproblemofuid-andgas-lledelasto-plasticsolids,"Int.
J.
ofSolidsandStructures,Vol.
22,No.
11,pp.
1231–1246DeBoer,R.
andEhlers,W.
(1990a),"Thedevelopmentoftheconceptofeectivestresses,"ActaMechanica,Vol.
83,pp.
77–92DeBoer,R.
andEhlers,W.
(1990b),"Uplift,frictionandcapillarity:Thefun-damentaleectsforliquid-saturatedporoussolids,"InternationalJournalofSolidsandStructures,Vol.
26,No.
1,pp.
43–57deRuiter,J.
(1982),"Thestaticconepenetrationtest:state-of-artreport,"ProceedingsoftheSecondEuropeanSymposiumonPenetrationTesting,ESOPTII,Amsterdam,Vol.
2,pp.
389–405Desai,C.
S.
andSiriwardaneH.
J.
(1984),ConstitutiveLawsforEngineer-ingMaterialsWithEmphasisonGeologicMaterials,Prentice-Hall,Inc.
,EnglewoodClis,NJ07632Desai,C.
S.
,Basaran,C.
andZhang,W.
(1997),"Numericalalgorithmsandmeshdependenceinthedisturbedstateconcept,"InternationalJournalforNumericalMethodsinEngineering,Vol.
40,No.
16,1997,pp.
3059–3083Desai,C.
S.
,Zaman,M.
M.
,Lightner,J.
G.
andSiriwardane,H.
J.
(1984),"ThinLayerElementforInterfacesandJoints,"InternationalJournalforNumericalandAnalyticalMethodsinGeomechanics,Vol.
8,pp.
19–43Desai,C.
S.
andZhang,W.
(1998),"Computationalaspectsofdisturbedstateconstitutivemodels,"Computermethodsinappliedmechanicsandengi-neering,Vol.
151,No.
3–4,pp.
361–376DiMaggio,F.
L.
andSandler,I.
S.
(1971),"MaterialModelforGranularSoils,"JournalofEngineeringMechanicsDiv.
ASCE,Vol.
97,No.
EM3,pp.
935–950DiPrisco,C.
D.
andAifantis,E.
(1999),"PlasticityandGradientTheory:AnApproachforGranularMaterials,"ProceedingsofPlasticity'99:Theseventhinternationalsymposiumonplasticityanditscurrentapplications,pp.
553–556Dobry,R.
(1985),PresentationattheUniversityofTexasatAustinDobry,R.
Ng,T.
-T.
,Petrakis,E.
andSeridi,A.
(1991),"GeneralModelforContactLawbetweenRoughSpheres,"J.
ofEM,Vol.
117,No.
6,June,1991,pp.
1365–1381416ReferencesDobry,R.
andPetrakis,E.
(1991),"AStudyoftheBehaviorandMicrome-chanicalModellingofGranlarSoil–VolumeI:AConstitutiveRelationforGranularMaterialsBasedontheContactLawbetweenTwoSpheres,"ReporttotheUSAFSOR,DepartmentofCivilEngineering,RPI,Troy,NYDeresiewicz,H.
(1960),"Theeectofboundariesonwavepropagationinaliquid-lledporoussolid:Parti.
BulletinoftheSeismologicalSocietyofAmerica,Vol.
50:559Deresiewicz,H.
(1962),"Theeectofboundariesonwavepropagationinaliquid-lledporoussolid:partii.
BulletinoftheSeismologicalSocietyofAmerica,Vol.
52:595Derski,W.
(1978),"Equationsofmotionforuid-saturatedporoussolid,"Bull.
Acad.
Pol.
Sci.
,Ser.
Sci.
Tech.
,26,No.
1,pp.
11–15DiMaggio,F.
L.
andSandler,I.
S.
(1971),"Materialmodelsforgranularsoils,"J.
ofEngineeringMechanicsDiv.
ASCE,Vol.
97,No.
EM3,pp.
935–950Drumheller,D.
S.
(1978),"Thetheoreticaltreatmentofaporoussolidusingamixturetheory,"InternationalJournalofSolidsandStructures,Vol.
14,pp.
441–456Ehlers,W.
(1989),"Onthermodynamicsofelasto-plasticporousmedia,"ArchivesofMechanics,Vol.
41,No.
1,pp.
73–93Ehlers,W.
(1993),"Compressible,incompressibleandhybridtwo-phasemod-elsinporousmediatheories,"ASME,AnisotropyandInhomogeneityinElasticityandPlasticity,AMD-Vol.
158,pp.
25–38Elsworth,D.
(1991),"DislocationAnalysisofPenetrationinSaturatedPorousMedia,"J.
ofEM.
ASCE.
Vol.
117,No.
2,pp.
391–408Elsworth,D.
(1992),"Pore-pressureresponseduetopenetrationthroughlay-eredmedia,"Int.
J.
forNumericalandAnalyticalMethodsinGeomechan-ics,Vol.
16,pp.
45–64,JohnWileyandSonsElsworth,D.
(1993),"AnalysisofPiezoconeDissipationDataUsingDisloca-tionMethods,"J.
ofGE.
ASCE,Vol.
119,No.
10,pp.
1601–1623Elsworth,D.
(1998),"Indentationofasharppenetrometerinaporoelasticmedium",Int.
J.
ofSolidsStructures,Vol.
35,No.
34–35,pp.
4895–4904Envi(1996),Enviwebpage,http://www.
envi.
seFarlowS.
J.
(1993),PartialDierentialEquationsforScientistsandEngineers,Dover,p.
414Feynman,R.
P.
(1959),"There'sPlentyofRoomattheBottom,"Dinnerspeech,December29th1959attheannualmeetingoftheAmericanPhys-icalSocietyattheCaliforniaInstituteofTechnologyFick,A.
(1855),Poggendor'sAnnel.
Physik.
(1855),94,59Finn,W.
D.
L.
,Drakumar,M.
Y.
,Yoshida,N.
andYoshida,H.
(1986),Tara-3:Aprogramtocomputetheresponseof2-dembankmentsandsoil-structureinteractionsystemstoseismicloadings,TechnicalReport,Dept.
ofCivilEngineering,UniversityofBritishColumbia,Vancouver,CanadaReferences417Finno,R.
L.
andClough,G.
W.
(1985),"EvaluationofSoilResponsetoEPBShieldTunneling,"JournalofGeotechnicalEngineering,ASCE,Vol.
111,No.
2,pp.
155–173Funeki(1976),"TimeDependentSettlementBehaviorofSoftSoilunderLoading(withemphasisonsettlementpredictionmethod),"Ph.
D.
Dis-sertation,KyotoUniv.
pp.
226–229(inJapanese)Garg,S.
K.
,Nayfeh,A.
H.
andGood,A.
J.
(1974),"Compressionalwavesinuid-saturatedelasticporousmedia,"J.
ofAppliedPhysics,Vol.
45,No.
5,pp.
1968–1974Gazetas,G.
andPetrakis,E.
(1981),"OshoreCaissonsonPorousSaturatedSoil,"InInternationalConferenceinRecentAdvancesinGeotechnicalEn-gineeringandSoilDynamics,Rolla,UniversityofMissouri,Vol.
1,pp.
381–388Ghaboussi,J.
andDikmen,S.
U.
(1978),"Liquefactionanalysisofhorizontallylayeredsands,"ASCE,J.
ofGeotechnicalEngineeringDivision,Vol.
104,No.
GT3,pp.
341–356Ghaboussi,J.
andWilson,E.
L.
(1973),"FiniteElementforRockJointsandInterfaces,"JournalofSoilMechanicsandFoundationDiv.
ASCE,Vol.
99,No.
NM10,pp.
833–848Gibson,R.
E.
,England,G.
L.
andHussey,M.
J.
L.
(1967),"Thetheoryofone-dimensionalconsolidationofsaturatedclays,IFinitenon-linearconsolida-tionofthinhomogeneouslayers,"Geotechnique,Vol.
17,pp.
261–273Gibson,R.
E.
,Schiman,R.
L.
andCargill,K.
W.
(1981),"Thetheoryofone-dimensionalconsolidationofsaturatedclays,IIFinitenon-linearconsoli-dationofthickhomogeneouslayers,"CanadiangeotechnicalJ.
Vol.
18,pp.
280–293Goodman,R.
E.
,Taylor,R.
L.
andBrekke,T.
L.
(1968),"AModelfortheMechanicsofJointedRock,"JournalofSoilMechanicsandFoundationDiv.
ASCEVol.
94,No.
SM3,pp.
637–659Gracio,J.
J.
,(1994).
"Thedoubleeectofgrainsizeonthework-hardeningbehaviorofpolycrystallinecopper.
"ScriptaMetall.
Mater.
31,pp.
487–489Green,A.
E.
andNaghdi,P.
M.
(1965a),"Ageneraltheoryofanelastic-plasticcontinuum,"Arch.
RationalMech.
Anal.
18,pp.
251–281Green,A.
E.
andNaghdi,P.
M.
(1965b),"Adynamictheoryofinteractingcontinua,"Int.
J.
ofEngineeringScience,Vol.
3,pp.
231–241Green,A.
E.
andNaghdi,P.
M.
(1967),"Atheoryofmixtures,"Arch.
ForRationalMechanicsandAnalysis,"Vol.
24,No.
18,pp.
243–263Green,A.
E.
andNaghdi,P.
M.
(1968),"Anoteonmixtures,"Int.
J.
ofEn-gineeringScience,Vol.
6,pp.
631–635Green,A.
E.
andRivlin,R.
S.
(1964),"Multipolarcontinuummechanics,"ArchiveforRationalMechanicsandAnalysis,Vol.
17,pp.
113–147Gupta,R.
C.
(1991),"Finitestrainanalysisfordeepconepenetration,"J.
ofGE.
Div.
ASCE.
Vol.
117,No.
10,pp.
1610–1630418ReferencesGupta,R.
C.
andDavidson,J.
L.
(1986),"Piezoprobedeterminationofthecoecientofconsolidation,"SoilsandFoundation,Vol.
26,No.
3,pp.
12–22Halpern,M.
R.
andChristiano,P.
(1986),"Steady-stateharmonicresponseofarigidplatebearingonaliquid-saturatedporoelastichalf-space,"Earth-quakeEngineeringandStructuralDynamics,Vol.
40,pp.
439–454Henkel,D.
J.
andWade,N.
H.
(1966),"Planestrainonasaturatedremoldedclay,"J.
ofSoilMechanicsandFoundations,ASCE,Vol.
92,No.
6Hinton,E.
andCampbell,J.
S.
(1974),"LocalandGlobalSmoothingofDis-continuousFiniteElementFunctionsUsingaLeastSquareMethod,"Inter-nationalJournalforNumericalMethodsinEngineering,Vol.
8,pp.
461–480Holtz,R.
D.
andKovacs,W.
D.
(1981),AnIntroductiontoGeotechnicalEn-gineering,Prentice-Hall,p.
495Horsky,J.
(2002),"OptimizationofForgingCharacteristicsofMetalinMushyState,"COST526Report,BrnoUniversityofTechnology,CzechRepublicHoulsby,G.
andTeh,C.
I.
(1988),"Analysisofpiezoconeinclay,"Proc.
ISOPTI,Vol.
2,A.
A.
Balkema,Rotterdam,Netherlands,pp.
777–783Houlsby,G.
T.
andWroth,P.
(1982),"Determinationofundrainedstrengthsbyconepenetrationtests,"Proceedingsof2ndEuropeanSymposiumonPenetrationTesting(ESOPTII),AmsterdamHouse,A.
R.
,Oliveira,J.
R.
M.
S.
andRandolph,M.
F.
(2001),"EvaluatingtheCoecientofConsolidationusingPenetrationTests,"InternationalJournalofPhysicalModeling,Vol.
1,No.
3,pp.
19–27Huang,Y.
andJiang,H.
(2005),"Aconstitutivemodelofnanocomposites,"personalcorrespondenceHuang,A.
B.
,Holtz,R.
D.
andChameau,J.
L.
(1988),"ACalibrationCham-berforCohesiveSoils,"ASTMGeotechnicalTestingJournal,Vol.
11,No.
1,pp.
30–35Idriss,I.
M.
,Lysmer,J.
Hwang,R.
andSeed,H.
B.
(1983),Acomputerprogramforevaluatingtheseismicresponseofsoil-structurebyvariabledampingniteelementprocedures,TechnicalReportNo.
73–16,EERC,UniversityofCaliforniaatBerkeleyIijima,S.
(1991),"Helicalmicrotubesofgraphiticcarbon,Nature354,pp.
56–58Jamiolkowski,M.
,Ladd,C.
C.
,Germaine,J.
T.
andLancellotta,R.
(1985),"NewDevelopmentinFieldandLaboratoryTestingofSoils,"Proceedingsof11thICSMFE,SanFransisco,pp.
57–153Janbu,N.
(1963),"SoilCompressibilityasDeterminedbyOedometerTestandTriaxialTests,"ProceedingsofEuropeanConferenceonSoilMechanicsandFoundationEngineering,Vol.
1,Weisbaden,Germany,pp.
19–26Jasiuk,I.
andOstoja-Starzewski,M.
(2003)"OntheReductionofConstantsinPlanarCosseratElasticitywithEigenstrainsandEigencurvatures,"inProceedingsofthe5thInternationalCongressonThermalStressesandRelatedTopics,TS2003,8–11June2003,Blacksburg,VA(L.
LibrescuandP.
Marzocca,Eds.
),WM-1–4,p.
4References419Johnson,G.
C.
andBammann,D.
J.
(1984),"Adiscussionofstressratesinnitedeformationproblems,"Int.
J.
ofSolidsStructures,20,pp.
725–737Juran,I.
andTumay,M.
T.
(1989),"SoilStraticationUsingtheDualPore-PressurePiezoconeTests,"ProceedingsoftheEuropeanSymposiumonPenetrationTesting,ESOPT-I,Stockholm,Sweden,Vol.
2.
2,pp.
181–195Kaliakin,V.
N.
,Dechasakulsom,M.
andLeshchinsky,D.
(2000),"Investi-gationoftheIsochroneConceptforPredictingRelaxationofGeogrids,"GeosyntheticsInternational,Vol.
7,No.
2,pp.
79–99Katona,M.
G.
(1983),"ASimpleContact-FrictionInterfaceElementwithApplicationstoBuriedCulvert,"InternationalJournalforNumericalandAnalyticalMethodsinGeomechanics,Vol.
7,pp.
371–384Katsube,N.
andCarroll,M.
M.
(1987),"Themodiedmixturetheoryforuid-lledporousmaterials:Theory,J.
ofAppliedMechanics,Vol.
54,pp.
35–40Katti,D.
R.
,Pradhan,S.
M.
andKatti,K.
S.
(2004),ModelingTheOrganic-InorganicInterfacialNanoasperitiesInAModelBio-Nanocomposite,Nacre,J.
ReviewsonAdvancedMaterialsScience,n6,162–168Katti,D.
R.
andYazdani,S.
andtang,J.
(1999),"Non-AssociativePlasticityModelwithDamageforCohesionlessSoils,"Proceedingsof13thEngineer-ingMechanicsConference,ASCESpecialtyConferenceKatti,D.
R.
andYazdani,S.
andtang,J.
(2000),"ModelingandExperimen-talEvaluationofDamageinDenseSands,"ProceedingsofEM2000,TheUniversityofTexasatAustin,Austin,Tx.
CD-RomKelder,O.
andSmeulders,d.
M.
J.
(1997),"ObservationoftheBiotslowwaveinwater-saturatedNivelsteinersandstone,"Geophysics,Vol.
62.
pp.
1794–1796Kim,D.
K.
(1999),NumericalSimulationandExperimentalVericationofConePenetrationRateandAnisotropyinCohesiveSoils,Ph.
D.
Disserta-tion,DepartmentofCivilandEnvironmentalEngineering,LouisianaStateUniversity,LA70803Kiousis,P.
D.
(1985),"LargeStrainTheoryasAppliedtoPenetrationMech-anisminSoils,"Ph.
D.
Dissertation,LouisianaStateUniversity,BatonRouge,LA70803Kiousis,P.
D.
andVoyiadjis,G.
Z.
(1985),"LagrangianContinuumTheoryforSaturatedPorousMedia,"JournalofEngineeringMechanicsDiv.
,ASCE,Vol.
111,No.
10,pp.
1277–1288Kiousis,P.
D.
,Voyiadjis,G.
Z.
andTumay,M.
T.
(1988),"Alargestraintheoryanditsapplicationintheanalysisoftheconepenetrationmechanism,"InternationalJ.
forNumericalandAnalyticalMethodsinGeomechanics,Vol.
12,No.
1,pp.
45–60Kiousis,P.
D.
,Voyiadjis,G.
Z.
andTumay,M.
T.
,(1986),"Alargestraintheoryforthetwodimensionalproblemsingeomechanics,"Int.
J.
forNumericalandAnalyticalMethodsinGeomechnics,Vol.
10,pp.
17–39420ReferencesKrizek,R.
J.
andSheeran,D.
E.
(1970),"SlurryPreparationandCharacteris-ticsofSamplesConsolidatedinSlurryConsolidometer,"TechnicalReportNo.
2,ContractNo.
DACW39–70-C-0053,U.
S.
ArmyCorpsofEngineers,WaterwaysExperimentStation,Vicksburg,pp.
1–5Kressel,H.
andBrown,N.
(1968),inDislocationDynamics,Roseneld,A.
,Hahn,G.
,Berment,A.
andHaee,R.
(editors),McGraw-Hill,NewYork,p.
337Kulhway,F.
H.
andMayne,P.
W.
(1990),ManualonEstimatingSoilProper-tiesforFoundationDesign,CornellUniversity,Ithaca,NewYork.
Kurup,P.
U.
(1993),"Calibrationchamberstudiesofminiaturepiezoconepenetrationtestsincohesivesoilspecimen,"Ph.
D.
Dissertation,LouisianaStateUniversity,BatonRouge,LA.
70808,p.
234Kurup,P.
U.
andTumay,M.
T.
(1998),"Calibrationofaminiatureconepen-etrometerforhighwayapplications,"inpress,TransportationResearchRecord,NationalResearchCouncil;(alsopresentedat"CalibrationofInSitutestMethodsforTransportationRelatedStructuresDesign,"Ses-sionofthe77thMeeting,TransportationResearchBoard,January,11–15,Washington,D.
C.
Kurup,P.
U.
andTumay,M.
T.
(1997),"Anumericalmodelfortheanaly-sisofpiezoconedissipationcurves,"ProceedingsInternationalSymposiumonNumericalModelsinGeomechanics(NUMOGVI),Montreal,Canada,July,2–4,pp.
353–358Kurup,P.
U.
,Voyiadjis,G.
Z.
andTumay,M.
T.
(1994),"CalibrationchamberstudiesofPiezoconeTestinCohesiveSoils,"J.
ofGE.
ASCE,Vol.
120,No.
1,pp.
81–107Lacasse,S.
andLunne,T.
(1982),"PenetrationTestsinTwoNorwegianClays,"Proceedingsofthe2ndEuropeanSymposiumonPenetrationTest-ing,Amsterdam,Vol.
II,pp.
607–613Lacy,T.
E.
,McDowell,D.
L.
andTalreja,R.
(1998),"GradientConceptsforEvolutionofDamage,"ManuscriptsubmittedforpresentationattheSym-posiumonScaleEectsinHeterogeneousMaterials,ASMEIMECE,Nov.
15–20,Anaheim,CA,p.
52Lacy,S.
J.
andPrevost,J.
H.
(1987),"Nonlinearseismicresponseofearthdams,"SoilDynamicsandEarthquakeEngineering,Vol.
6,No.
1,pp.
48–63Lamar,A.
(1989),"BoundingSurfacePlasticityTheorywithBackstressDe-compositionandMaterialMemory,"MSThesis,Dept.
ofMech.
Engr.
GeorgiaInstituteofTechnology,May,p.
85Lambe,T.
W.
andWhitman,R.
V.
(1979),SoilMechanics,SIVersion,JohnWiley&Sons,p.
417Lefeber,L.
andWilloughby,D.
R.
(1971),"Fabricandsymmetryandmechan-icalanisotropyinnaturalsoils,"ProceedingsoftheAustralia-NewZealandConferenceonGeomechanics,Melbourne,Vol.
1,pp.
165–174References421Lee,E.
H.
(1993),"InteractionbetweenPhysicalMechanismandStructureofContinuumTheories,"LargeDeformationsofSoilds:PhysicalBasisandMathematicalModelling,editedbyJ.
Gittus,J.
ZarkaandS.
Nemat-Nasser,Elsvier,pp.
143–161Lee,E.
H.
,Mallett,R.
L.
andWertheimer,T.
B.
(1983),"Stressanalysisforanisotropichardeninginnite-deformationplasticity,"TransactionsoftheASME,J.
ofAppliedMechanics,Vol.
50,pp.
554–560Lee,K.
L.
(1965),"TriaxialCompressiveStrengthofSaturatedSandsUnderSeismicLoadingConditions,"Ph.
D.
dissertation,UniversityofCaliforniaatBerkeley,p.
521LeeandFinn(1967),"DrainedStrengthCharacteristicsofSands,"JournalofSoilMechanicsandFoundationsDivision,ASCE,Vol.
93,No.
SM6,pp.
117–141Lee,K.
M.
andRowe,P.
K.
(1989a),"DeformationCausedbySurfaceLoadingandTunneling:TheruleofElasticAnisotropy,"Geotechnique,Vol.
39,No.
1,pp.
125–140Lee,K.
M.
andRowe,P.
K.
(1989b),"EectsofUndrainedStrengthAnisotropyonSurfaceSubsidenceInducedbytheConstructionofShal-lowTunnels,"CanadianGeotechnicalJournal,Vol.
26,pp.
279–291Lee,K.
M.
andRow,P.
K.
(1990a),"FiniteElementModelingoftheThree-DimensionalGroundDeformationsDuetoTunnelinginSoftCohesiveSoils:PartI–MethodofAnalysis,"ComputerandGeotechnics,Vol.
10,pp.
87–109Lee,K.
M.
andRowe,P.
K.
(1990b),"FiniteElementModelingoftheThree-DimensionalGroundDeformationsDuetoTunnelinginSoftCohesiveSoils:PartII–Results,"ComputerandGeotechniques,Vol.
10,pp.
111–138Lee,K.
M.
,Rowe,P.
K.
andLo,K.
Y.
(1992),"SubsidenceOwingtoTunneling.
I.
EstimatingtheGapParameter,"CanadianGeotechnicalJournal,Vol.
29,pp.
929–940Lee,M.
K.
W.
andFinn,W.
D.
L.
(1978),Dynamiceectivestressresponseanalysisofsoildepositswithenergytransmittingboundaryincludingas-sessmentofliquefactionpotential,SoilMechanicsSeriesNo.
38,Dept.
ofCivilEngineering,UniversityofBritishColumbia,Vancouver,CanadaLee,N.
S.
andBathe,K.
J.
(1994),"ErrorIndicatorsandAdhesiveRemesh-inginLargeDeformationFiniteElementAnalysis,"FiniteElementsinAnalysisandDesign,Vol.
6,pp.
99–139Lefeber,L.
andWilloughby,D.
R.
(1971),"Fabricandsymmetryandmechan-icalanisotropyinnaturalsoils,"ProceedingsoftheAustralia-NewZealandConferenceonGeomechanics,Melbourne,Vol.
1,pp.
165–174Levadoux,J.
N.
andBaligh,M.
M.
(1980),"PorePressureduringConePene-trationinClays,"MITDept.
ofCivilEngineeringReportNo.
R80–15,p.
310422ReferencesLevadoux,J.
N.
andBaligh,M.
M.
(1986),"Consolidationafterundrainedpiezoconepenetrometer,I:Prediction,"J.
ofGE.
Div.
ASCE,Vol.
112,No.
7,pp.
707–725Li,C.
andChou,T.
W.
(2003),"Astructuralmechanicsapproachfortheanalysisofcarbonnanotubes,"InternationalJournalofSolidsandStruc-tures,40,pp.
2487–2499Lim,B.
S.
(1999),"DeterminationofConsolidationCharacteristicsinFineGrainedSoilsEvaluatedbyPiezoConeTests,"Ph.
D.
Dissertation,LouisianaStateUniversity,BatonRouge,LA70808,(expectedat1999)Ling,H.
I.
,Yue,D.
,Kaliakin,V.
N.
andThemelis,N.
J.
(2002),"AnAnisotropicElasto-PlasticBoundingSurfaceModelforCohesiveSoils,"JournalofEngineeringMechanics,ASCE,Vol.
128,No.
7,pp.
748–758Ling,H.
I.
,Anandarajah,A.
,Manzari,M.
T.
,Kaliakin,V.
N.
andSmyth,A.
(2003),ConstitutiveModelingofGeomaterials,Inelasticbehaviorcommit-tee,engineeringmechanicsdiv.
ASCE,CRCPress,p.
212Liu,B.
,Jiang,H.
,Huang,Y.
,Qu,S.
,Hwang,K.
-C.
(2005),"Order-NAtomic-scaleFiniteElementMethodinMultiscaleComputation,"McMat2005Conference,BatonRouge,CD-RomLowe,T.
C.
andMiller,A.
K.
(1984),"ImprovedConstitutiveEquationsforModelingStrainSoftening–PartII:PredictionsforAluminum,JournalofEngineeringMaterialsandTechnology,Oct.
Vol.
106,pp.
343–348Lowe,T.
C.
andMiller,A.
K.
(1986),"ModelingInternalStressesintheNonelasticDeformationofMetals,"JournalofEngineeringMaterialsandTechnology,Oct.
Vol.
108,pp.
365–373Lunne,T.
andKleven,A.
(1981),"RoleofCPTinnorthseafoundationen-gineering,"J.
ofGE.
Div.
ASCE,SymposiumonConePenetrationTestingandExperience,St.
Louis,pp.
49–75Lunne,T.
,Christoersen,H.
P.
andTjelta,T.
H.
(1985),"EngineeringuseofpiezoconedatainNorthseaclays,"ProceedingsXIICSMFE,SanFran-cisco,Vol.
2,pp.
907–912Lunne,T.
,Lacasse,S.
andRad,N.
S.
(1989),"Generalreport/Discussionsession2:SPT,CPT,pressuremetertestingandrecentdevelopmentsinin-situtesting–Part1:AlltestsexceptSPT,"XIIICSMFE,RiodeJaneiro,Vol.
4,pp.
2339–2403Lunne,T.
Robertson,P.
K.
andPowell,J.
J.
M.
(1997),ConePenetrationTest-inginGeotechnicalPractice,BrackieAcademic&Professional,p.
128Lysmer,J.
,Udaka,T.
,Tsai,C.
F.
andSeed,H.
B.
(1975),Flush:Acom-puterprogramforapproximate3-danalysisofsoil-structureinteractionproblems,TechnicalReportNo.
75–30,EarthquakeEngineeringResearchCenter,UniversityofCaliforniaatBerkeleyLunne,T.
,Robertson,P.
K.
andPowell,J.
J.
M.
(1997),ConePenetratingTesting,BlackieAcademic&Professional,pp.
1–7,172–190Mair,R.
J.
,Taylor,R.
N.
andBracegirdle,A.
(1993),"SubsurfaceSettlementProlesAboveTunnelsinClays,"Geotechnique,Vol.
43,pp.
315–320References423Maiti,A.
,Wescott,J.
,andKung,P.
(2004),"MesoscaleModelingofPolymer-NanotubeComposites,"AccelrysWorld2004postersManassero,M.
(1994),"HydraulicConductivityAssessmentofSlurryWallsUsingPiezoconeTest,"J.
ofGE.
ASCE,Vol.
120,No.
10,pp.
1725–1746Mandel,J.
(1971),"Plasticiteclassqueetviscoplasticite,"CoursesadLec-turesNo.
97,InternationalCenterforMechanicalSciences,Udine,Sprine-jer,NYManzari,M.
T.
(2004),"Applicationofmicropolarplasticitytopostfailureanalysisingeomechanics,"InternationalJournalofNumericalandAnalyt-icalMethodsinGeomechanics,Vol.
28,Issue10,pp.
1011–1032Martin,G.
R.
,Finn,W.
D.
LiamandSeed,H.
B.
(1975)"Fundamentalsofliquefactionundercyclicloading",JournaloftheGeotechnicalEngineeringDivision,ASCE,Vol.
101,GT5,pp.
423–438Massarch,K.
R.
andBroms,B.
B.
(1981),"Piledrivinginclayslopes,"Pro-ceedingsofICSMFE,Stockholm,pp.
469–474Matsui,T.
W.
andSan,K.
C.
(1989),"AnElastoplasticJointElementwithitsApplicationtoReinforcedSlopeCutting,"JapaneseSocietyofSoilMe-chanicsandFoundationEngineering,Vol.
29,No.
3,pp.
95–104Mayne,P.
W.
(1991),"DeterminationofOCRinclaysbypiezoconetestsusingcavityexpansionandcriticalstateconcepts,"SoilsandFoundations,Vol.
31,No.
2,pp.
65–76Mayne,P.
W.
andRix,G.
J.
(1996),"DevelopmentofaSeismicPiezoconePressuremeterforEvaluatingtheinsituG/GmaxDegradationCharacter-isticsofSoils,"GeoSystemswebpageMeng,W.
J.
,andVoyiadjis,G.
Z.
,"StructureandMechanicalPropertiesofCeramicNanocompositeCoatings,"TrendsinNanoscaleMechanicsVol.
9:AnalysisofNanostructuredMaterialsandMulti-ScaleModeling,PartINanomechanics,Chap.
4,EditedbyV.
M.
HarikandM.
D.
Salas(ICASE,NASALangleyResearchCenter),KluwerAcademicPublishers,TheNetherlands,2003,pp.
89–120Miga,M.
I.
,Paulsen,K.
D.
andKennedy,F.
E.
(1998),"VonNeumannStabil-ityAnalysisofBiot'sGeneralTwo-DimensionalTheoryofConsolidation,"Int.
J.
forNumericalMethodsinEngineering,Vol.
43,pp.
955–974Mindlin,R.
D.
andDeresiecwicz(1953),"Elasticspheresincontacttundervaryingobliqueforces,"J.
ofAppl.
Mech.
ASME,Vol.
20,pp.
327–344Mitchell,J.
K.
(1993),FundamentalsofSoilBehavior,2ndEdition,JohnWi-ley&Sons,pp.
29,133,153Montheillet,F,Cohen,M.
andJonas,J.
J.
(1984),"AxialsStressesandTex-tureDevelopmentDuringtheTorsionTestingofAl,Cuandα-Fe,"ActaMetall,Vol.
32,No.
11,pp.
2077–2089Moosbrugger,J.
C.
andMcDowell,D.
L.
(1988),"ConsiderationofRate-DependenceandAisotropywithintheFrameworkofBoundingSurfaceIn-elasticity,"PresentedattheASME/SESSummerAnnualMeeting,Berke-ley,CA,June20–22,p.
31424ReferencesMoosbrugger,J.
C.
,Morrison,D.
J.
andJia,Y.
(2000),"Nonlinearkinematichardeningruleparameters–relationshiptosubstructureevolutioninpoly-crystallinenickel,"InternationalJournalofPlasticity,Vol.
16,No.
3–4,pp.
439–467Morland,L.
W.
(1972),"Asimpleconstitutivetheoryforauidsaturatedporoussolid,"JournalofGeophysicalResearch,Vol.
77,pp.
890–900Mughrabi,H.
(1975)inConstitutiveEquationsinPlasticity,A.
Argon,Ed.
(MITPress,Cambridge,MA),pp.
199–250Muraleetharan,K.
K.
,Mish,K.
D.
andArulanandan,K.
(1994),"AFullyCou-pledNonlinearDynamicsAnalysisofProcedureanditsVericationUsingCentrifugreTestResults,"InternationalJournalforNumericalandAna-lyticalMethodsinGeomechanics,Vol.
18,pp.
305–325Muromachi,T.
(1981),"ConepenetrationtestinginJapan,"ASCE,GEDiv.
SymposiumonConePenetrationTestingandExperience,St.
Louis,pp.
76–107Ng,M.
C.
,Lo,K.
Y.
andRowe,R.
K.
(1986),"AnalysisofFieldPerformance–theThunderBayTunnel,"CanadianGeotechnicalJournal,Vol.
23,pp.
30–50Odegard,G.
M.
,Gates,T.
S.
,NicholsonL.
M.
andWise,K.
E.
(2001),"Equivalent-ContinuumModelingofNano-StructuredMaterials,"NASA/TM-2001–210863,May,p.
30Oka,F.
(1981),PredictionofTime-DependentBehaviorofClay,10thPro-ceedingsofInternationalConferenceonSoilMechanicsandFoundationEngineering.
pp.
215–218Ostoja-Starzewski,M.
(2002),"Latticemodelsinmicromechanics,"J.
ofAppl.
Mech.
Rev.
ASME,Vol.
55,No.
1,pp.
(proofcopy004201AMR)Pande,G.
N.
andSharma,K.
G.
(1980),"Amicro-structuralmodelforsoilsundercyclicloading,"Proc.
Int.
Symp.
OnNumericalModelsinGeome-chanics,R.
Dungar,G.
N.
Pande,andG.
A.
Studer,eds.
,A.
A.
BalkemaPublishers,pp.
218–226Pande,G.
N,andSharma,K.
G.
(1983),"Multilaminatemodelofclays-Anumericalevaluationoftheinuenceofrotationofprincipalaxes,"Int.
JournalforAnalyticalMethodsforGeomechanics,7,pp.
397–418Pande,G.
N.
andXiong,W.
(1982),"Animprovedmulti-laminatemodelofjointedrockmasses,"Proc.
1stInt.
Symp.
onNumericalModelsinGeo-mechanics,R.
Dungar,G.
N.
Pande,andG.
A.
Studer,eds.
,A.
A.
BalkemaPublishers,pp.
218–226Parrinello,M.
andRahmen,J.
(1981),"Polymorphictransitionsinsinglecrystals:Anewmoleculardynamicsmethod,"J.
Appl.
Phys.
52,pp.
7182–7190Paulun,J.
E.
andPercherski,R.
B.
(1985),"Studyofcorotationalratesforkinematichardeninginnitedeformationplasticity,"Arch.
Mech.
37,(6),pp.
661–677References425Paulun,J.
E.
andPecherski,R.
M.
(1987),"Ontheapplicationoftheplasticspinconceptforthedescriptionofanisotropichardeninginnitedeforma-tionplasticity,"InternationalJournalofPlasticity,3,pp.
203–314Peck,R.
B.
(1969),"DeepExcavationandTunnelinginSoftGround,"State-of-the-artReport,Proceedingsof7thInternationalConferenceonSoilMe-chanicsandFoundationEngineering,MexicoCity,pp.
225–290Pelli,F.
,Kaiser,P.
K.
andMorgenstern,N.
R.
(1991),"TheinuenceofNearFaceBehavioronMonitoringofDeepTunnels,"CanadianGeotechnicalJournal,Vol.
28,pp.
226–238Perzyna,P.
(1988),"TemperatureandRateDependentTheoryofPlasticityofCrystallineSolids,"Rev.
Phys.
Applique,23:pp.
445–459Perzyna,P.
(1966),"FundamentalProblemsinViscoplasticity,"J.
ofGE,ASCE,Vol.
104,No.
GT8,pp.
1075–1090Perzyna,P.
(1963),"TheConstitutiveEquationsforRateSensitivePlasticMaterials,"QuarterlyJournalofAppliedMathematics,Vol.
20,No.
4,pp.
321–332Peters,J.
F.
(2004),"SomeFundamentalAspectsoftheContinuumizationProbleminGranularMedia,"ICIAMpaper,pp.
1–28Peterson,R.
W.
(1991),"Penetrationresistanceofnecohesionlessmateri-als,"CalibrationChamberTesting,ed.
An-BinHuang,Elsvier,pp.
215–328Petrakis,I.
andDobry,R.
(1986),"ASelfConsistentEstimateoftheElas-ticConstantsofARandomArrayofEqualSphereswithApplicationtoGranularSoilUnderIsotropicConditions,"CEReportNo.
CE-86–04,DepartmentofCivilEngineering,RensselaerPolytechnicInstitute,Troy,NY12810–3590,July,p.
112Petrakis,E.
DobryR.
,VanLaakP.
,LiuL.
andKotsanopoulosP.
(1991),"AnExperimentalInvestigationofYieldSurfacesinGranularMedia,"Consti-tutivelawsforEngineeringMaterialsPetrakis,E.
,Dobry,R.
andNg,T.
-T.
(1991),"AStudyoftheBehaviorandMicromechanicalModellingofGranularSoil–VolumeIII:ANumericalInvestigationoftheBehaviorofGranularMediaUsingNonlinearDiscreteElementSimulations,"ReporttotheUSAFSOR,DepartmentofCivilEngineering,RPI,Troy,NY.
12180Powell,J.
J.
M.
andQuarterman,R.
S.
T.
(1988),"AStudyofpiezoconedissi-pationtestsinsoftclaysforconsolidationproperties,"underpreparation,(excerptedfromLunne,Robertson,Powell(1997))Prat,P.
C.
andBazant,Z.
P.
(1989),"Microplanemodelfortriaxialdeforma-tionofsoils,"Proc.
3rdInt.
Symp.
onNumericalModelsinGeomechanics(NU-MOGIII),Elsevier,pp.
139–146Prat,P.
C.
andBazant,Z.
P.
(1990),"Microplanemodelfortriaxialdeforma-tionforsaturatedcohesivesoils,"J.
ofGE.
ASCE,117(6),pp.
891–912Prevost,J.
H.
(1980),"Mechanicsofcontinuousporousmedia,"Int.
J.
ofEng.
Sci.
Vol.
18,pp.
787–800426ReferencesPrevost,J.
H.
(1981),"Consolidationofanelasticporousmedia,"J.
oftheEM.
Div.
ASCE,Vol.
107,No.
EM1,pp.
169–186Prevost,J.
H.
(1982),"Nonlineartransientphenomenainsaturatedporousmedia,"ComputerMethodsinAppliedMechanicsandEngineering,Vol.
30,pp.
3–18Prevost,J.
H.
(1985),"Wavepropagationinuid-saturatedporousmedia:Anecientniteelementprocedure,"SoilDynamicsandEarthquakeEn-gineering,Vol.
4,No.
4,pp.
183–202Raats,P.
A.
C.
andKlute,A.
(1968),"Transportinsoils:Thebalanceofmass,"Proc.
OftheSoilScienceSocietyofAmerica,Vol.
32,No.
2,pp.
161–166Ray,J.
R.
(1988),"ElasticConstantsandStatisticalEnsemblesinMolecularDynamics,"ComputerPhysicsReport8,Elsvier,pp.
111–151,Ray,J.
R.
andRahman,A.
(1984),"Statisticalensemblesandmoleculardy-namicsstudiesofanisotropicsolids,"J.
Chem.
Phys.
80(9),pp.
4423–4428Regis,E.
(1995),Nano!
,LittleBrownandCompany,p.
325Robertson,P.
K.
,Sully,J.
P.
,Woeller,D.
J.
,Lunne,T.
,Powell,J.
J.
M.
andGillespie,D.
G.
(1992),"Estimatingcoecientofconsolidationfrompiezo-conetest,"Can.
Geotech.
J.
Vol.
29,pp.
539–550Robertson,P.
K.
,Campanella,R.
G.
,Gillespie,D.
andGrieg,J.
(1986),"Useofpiezometerconedata,"ProceedingsofInsitu'86,ASCE,SpecialtyCon-ference,Blacksburg,VirginiaRoscoe,K.
H.
,Scoeld,A.
N.
andWroth,C.
P.
(1958),"Ontheyieldingofsoils,"geotechnique,Vol.
8,No.
1,pp.
22–53Rowe,R.
K.
andKack,G.
J.
(1983),"ATheoreticalExaminationofSettle-mentInducedbyTunneling:FourCaseHistories,"CanadianGeotechnicalJournal,Vol.
20,pp.
299–314Rowe,R.
K.
andLee,K.
M.
(1992),"SubsidenceOwingtoTunneling.
II.
Eval-uationofaPredictionTechnique,"CanadianGeotechnicalJournal,Vol.
29,pp.
941–954Rowe,R.
K.
,Lo,K.
Y.
andKack,G.
J.
(1983),"AMethodofEstimatingSur-faceSettlementAboveTunnelConstructioninSoftGround,"CanadianGeotechnicalJournal,Vol.
20,pp.
11–22Roy,M.
,Tremblay,M.
,Tavenas,F.
andLaRochelle,P.
(1982),"Developmentofporepressuresinquasi-staticpenetrationtestsinsensitiveclay,"Can.
Geotech.
J.
Vol.
19,pp.
124–138Roy,M.
,Tremblay,M.
,Tavenas,F.
andLaRochelle,P.
(1982),"Developmentofquasi-staticpiezoconeapparatus,"Can.
Geotech.
J.
Vol.
19,pp.
180–188Rust,E.
,Jacobsz,S.
andvanderBergP.
(1995),"Seepageanalysisfrompiezoconedissipationtests,"ProceedingsCPT'95,pp.
289–294Sandven,R.
(1990),"StrengthandDeformationPropertiesofFineGrainedSoilsObtainedfromPiezoconeTests,"Ph.
D.
dissertation,InstituteforGeoteknikk,Trondheim,NorwayReferences427Sandven,R.
,Senneset,K.
andJanbu,N.
(1988),"Interpretationofpiezoconetestsincohesivesoils,"ProceedingsISOPT1,Vol.
2,pp.
939–954,Orlando,Florida,pp.
939–953Schiman,R.
L.
(1980),"Finiteandinnitesimalstrainconsolidation,"J.
ofGEDiv.
ASCE,Vol.
106,No.
GT2,pp.
203–207Schnabel,P.
B.
,Lysmer,J.
andSeed,H.
B.
(1972),"Shake:Acomputerpro-gramforearthquakeresponseanalysisofhorizontallylayeredsites,"Tech-nicalReportNo.
72–12,EarthquakResearchCenter,UniversityofCalifor-niaatBerkeleySchoeld,A.
N.
andWroth,C.
P.
(1968),CriticalStateSoilMechanics,Mc-GrawHill,LondonSchreer,B.
A.
,Simoni,L,Majorana,C.
E.
(1989)"Ageneralmodelforthemechanicsofsaturated-unsaturatedporousmaterials",MaterialsandStructures,Vol.
131,No.
22,pp.
323–334Schreer,B.
A.
,Simoni,L.
,LiXikuiandZienkiwicz,O.
C.
(1990),MechanicsofPartiallySaturatedPorousMedia,inDesai,C.
S.
andGioda,G.
(eds),NumericalMethodsandConstitutiveModellinginGeomechanics,CISMLectureNotes,Springer-Verlag,Wein:pp.
169–209Senneset,K.
,Sandven,R.
,Lunne,T.
,By,T.
andAmundsen,T.
(1988),"Piezoconetestsinsiltysoils,"ProceedingsISOPT1,Vol.
2,pp.
955–966Senneset,K.
Sandven,R.
andJanby,N.
(1989),"EvaluationofSoilPara-metersfromPiezoconeTests,"TransportationResearchRecord1235,Na-tionalResearchCouncil,WashingtonD.
C.
1989,p.
14Shandu,R.
S.
andWilson,E.
L.
(1969),"Finiteelementanalysisofseepageinelasticmedia,"JournalofEngineeringMechanicsDivision,ASCE,Vol.
95,No.
EM3,pp.
641–652Schnable,P.
B.
,Lysmer,J.
andSeed,H.
B.
(1972),Acomputerprogramforearthquakeresponseanalysisofhorizontallylayeredsites,TechnicalReportNo.
72-12,EERC,UniversityofCaliforniaatBerkeleySharma,K.
G.
andDesai,C.
S.
(1992),"AnalysisandImplementationofThin-LayerElementforInterfacesandJoints,"JournalofEngineeringMechan-ics,Vol.
118,No.
12,pp.
2442–2462Shroll,R.
M.
andSmith,D.
E.
(1999),"Moleculardynamicssimulationsinthegrandcanonicalensemble:Applicationtoclaymineralswelling,"JournalofChemicalPhysics,Vol.
111,pp.
9025–9033Simon,B.
R.
,Wu,J.
S.
S.
andZienkiewicz,O.
C.
(1986),"Evaluationofhigherorder,mixedandhermiteanniteelementproceduresfordynamicanaly-sisofsaturatedporousmediausingone-dimensionalmodels,"Int.
J.
forNumericalandAnalyticalMethodsinGeomechanics,Vol.
10,pp.
483–499Simon,B.
R.
,Wu,J.
S.
S.
,Zienkiewicz,O.
C.
,andPaul,D.
K.
(1984),"Evalu-ationofu-wandu-πniteelementmethodsforthedynamicresponseofsaturatedporousmediausingone-dimensionalmodels,"Int.
J.
forNumer-icalandAnalyticalMethodsinGeomechanics,Vol.
10,pp.
461–482428ReferencesSimon,B.
R.
,Zienkiewicz,O.
C.
,andPaul,D.
K.
(1984),"Ananalyticalsolu-tionforthetransientresponseofsaturatedporouselasticsolids,"Int.
J.
forNumericalandAnalyticalMethodsinGeomechanics,Vol.
8,pp.
381–398Smeulders,d.
M.
J.
(1992),"Onwavepropagationinsaturatedandpartiallysaturatedporousmedia;Ph.
D.
Thesis,EindhovenUniversityofTechnol-ogy,TheNetherlandsSmith,D.
E.
(1998),"Molecularcomputersimulationsoftheswellingproper-tiesandinterlayerstructureofcesiummontmorillonite,"Langmuir14,pp.
5959–5967Smits,F.
P.
(1982),"Penetrationporepressuremeasuredwithpiezometercones,"Proceedings,ESOPTII,Amsterdam,Vol.
2,pp.
877–881Song,C.
R.
(1999),"ComputationalApproachforDeterminationoftheHy-draulicConductivityofSoilsUsingContinuousIntrusionPiezoconePene-trationTest,"Ph.
D.
Dissertation,Dept.
ofCiv.
andEnv.
Eng.
LouisianaStateUniversity,BatonRouge,LA70803,p.
174Song,C.
R.
(1986),"EectsofGradationofNumberofCyclesontheDynamicPropertiesofSiltySand,MSThesis,Dept.
ofCiv.
Engr.
TheUniversityofTexasatAustin,Austin,Texas,p.
190Song,C.
R.
andAl-Ostaz,A.
(2005),"ImplementationofMolecularDynamicsinContinuumGeo-mechanics,"McMatconference,BatonRouge,LA,CD-romSong,C.
R.
,Paek,S.
H.
andOh,D.
Y.
(1992),"Assessmentofconsolidationcharacteristicsbyeldinstrumentation,"ProceedingsofKoreanGeotech-nicalSociety(KGS)Fall'92NationalConference,pp.
121–130Song,C.
R.
andVoyiadjis,G.
Z.
(2005a),"Twodierentratedependenciesofsaturatedclayeysoils,"Poromechanics-BiotCentennial(1905–2005)-Abousleiman,Cheng&Ulm(eds),Taylor&FrancisGroup,London,pp.
713–718Song,C.
R.
andVoyiadjis,G.
Z.
(2005b),"PorePressureResponsearoundaPenetratingObject,"ComputersandGeotechnics,Vol.
32,pp.
37–46Song,C.
R.
andVoyiadjis,G.
Z.
(2002a),"Micro-structureConsiderationwithPlasticSpinforLargeStrainProblemsinSoils,"InternationalJournalofPlasticity,Vol.
18,pp.
1271–1289Song,C.
R.
andVoyiadjis,G.
Z.
(2002b),"Micro-mechanicsinSoilsandShearBands",15thASCEEngineeringMechanicsDivisionConference,ColumbiaUniv.
,NewYork,NewYork,June2–5th,CD-RomSong,C.
R.
andVoyiadjis,G.
Z.
(2002c),"NonLocalApproachforGeomate-rials,"ProceedingsofASEM'02,Busan,Korea,CD-RompublicationSong,C.
R.
andVoyiadjis,G.
Z.
(2001a),"Ratedependentgradienttheoryforshearbandanalysisinclayeysoils",ASME/ETCE'2001Conference,CD-RomSong,C.
R.
andVoyiadjis,G.
Z.
(2001b),"PorePressurefromPenetrometerandHydraulicConductivity",15thInternationalConferenceonSoilMe-chanicsandGeotechnicalEngineering,Istanbul,Turkey,pp.
279–282References429Song,C.
R.
andVoyiadjis,G.
Z.
(2001c),"PlasticSpinandGradientTheoryforModelingLargeStrainBehaviorofSoils",Proceedingsof10thInterna-tionalConferenceofTheInternationalAssociationforComputerMethodsandAdvancesinGeomechanics,pp.
597–600Song,C.
R.
andVoyiadjisG.
Z.
(2000),"EectsofIncorporatingPlasticSpintoFlowCharacteristicsinClayeySoils,"ProceedingsofEM'2000,ASCE,May21–24th,AustinTexas,CDRomSong,C.
R.
,Voyiadjis,G.
Z.
andTumay,M.
T.
(1999),"DeterminationofPer-meabilityofSoilsUsingMultiplePiezo-elementPenetrometer,"Interna-tionalJournalforNumericalandAnalyticalMethodsinGeomechanics,Vol.
23,No.
13,pp.
1609–1629Song,C.
R.
,andVoyiadjis,G.
Z.
(1999),"ANewMethodforDeterminingthePermeabilityofSoilsUsingthePiezoconePenetrationTest,"Proceed-ings,13thASCEEngineeringMechanicsDiv.
Baltimore,June13–16,JohnsHopkinsUniversity,Baltimore,MD,CDRomSrinivasan,P.
,GhanshyamP.
,Al-Ostaz,A.
,RajuMantenaP.
,JaoE.
,andSong,C.
R.
(2005),"EvaluationofNanoCompositeConstituentPropertiesUsingMultipleScaleModels,"McMatconference,BatonRouge,LA,CD-RomStefan,J.
(1871),"Uberdasgleichgewichtunddiebewegung,insbesonderediediusionvongasgemengen,sitzungsber.
Akadwiss.
Math-Naturwiss,k1,AbtIIa.
63:63–124Taylor,G.
I.
(1938),"Plasticstraininmetals,"J.
Inst.
Metals,62,pp.
307–324Teh,C.
I.
andHoulsby,G.
T.
(1991),"Ananalyticalstudyoftheconepene-trationtestinclay,"Geotechnique,Vol.
41,No.
1,pp.
17–34Terzaghi,K.
(1943),TheoreticalSoilMechanics,JohnWileyandSons,pp.
265–296,p.
272Tezuka,A.
(1992),"AdaptiveRemeshingProcesswithQuadrangularFiniteElements,"AdvancesinEngneeringSoftware,Vol.
12,pp.
185–201TordesillasA.
Peters,J.
F.
andGardiner,B.
S.
(2004),"ShearbandevolutionandaccumulatedmicrostructuraldevelopmentinCosseratmedia,"Inter-nationalJournalforNumericalandAnalyticalMethodsinGeomechanics,Vol.
28,pp.
981–1010Torstensson,B.
A.
(1975),"Porepressuresoundinginstrument,"Proceedings,ASCE,Spec.
Conf.
OnInsituMeasurementofSoilProperties,Vol.
II,Raleigh,N.
C.
pp.
48–54Torstensson,B.
A.
(1977),"Theporepressureprobe,"Paper34,Geotech.
Meeting,NorwegianGeotech.
Soc.
,Oslo,Norway.
pp.
34.
1–34.
15Truesdell,C.
(1955),"Hypo-elasticity,"J.
ofRationalMech.
Anal.
4,pp.
83–133Truesdell,C.
andToupin,R.
A.
(1960),HandbuchderPhysik,Vol.
III/Chap.
1TheClassicalFieldTheories,Springer-VerlagTumay,M.
T.
andAcar,Y.
B.
(1985),"Porepressuresinpiezoconepenetra-tiontest(PCPT)insoftcohesivesoils,"SpecialTechnicalPublicationNo.
833,StrengthTestingofMarineSediments:LaboratoryandInsituMea-surements,ASTM,Nov.
pp.
72–82430ReferencesTumay,M.
T.
,Acar,Y.
andBoggess,R.
L.
(1981),"Subsurfaceinvestigationwithpiezoconepenetrometer,"ASCESpecialPublicationonConePene-trationTestingandExperience,ASCE,pp.
325–342Tumay,M.
T.
andKurup,P.
(1997),"Calibrationandimplementationofminiatureelectricconepenetrometersforroadandhighwaydesignandconstructioncontrol,"ReportNo.
305,U.
S.
DepartmentofTransporta-tion,FHWA,Dec.
p.
91Tumay,M.
T.
andKurup,P.
(1999),"AContinuousIntrusionMiniatureConePenetrationApplications,"Report,FHWA/LA.
88/311,p.
60Tumay,M.
T.
,Kurup,P.
andBoggess,R.
L.
(1998),"AContinuousintrusionelectronicminiatureconepenetrationtestssystemsforsitecharacteriza-tion,"inpress,proceedings,InternationalConferenceonSiteCharacteri-zation,'98,Atlanta,GA,April19–22U.
S.
Congress(1992),Senate.
CommitteeonCommerce,Science,andTrans-portation.
NewTechnologiesforaSubstantialWorld.
HearingbeforetheSubcommitteeonScience,Technology,andSpace,June26,1992.
102dCong.
,2dSess.
,1992.
S.
Hrg.
102–967Valanis,K.
C.
(1971),"Atheoryofviscoplasticitywithoutayieldsurface,"ArchivesofMechanics,Vol.
23,No.
4,pp.
517–533vanderBerg,P.
(1993),"Conepenetrationinlayeredmedia,anALEniteelementformulation,"XIIIJ.
ofICSMFE,pp.
1957–1962Vesic,A.
S.
(1972),"Expansionofcavitiesininnitesoilmass,"J.
ofSoilMechanicsandFoundationDiv.
ASCE,Vol.
98,pp.
265–290Voyiadjis,G.
Z.
andAbu-Farsakh,Y.
M.
(1997),"Coupledtheoryofmixturesforclayeysoils",ComputerandGeotechnics,Vol.
20,No.
3–4,pp.
195–222Voyiadjis,G.
Z.
(1988),"DegradationofElasticModulusinElastoplasticCou-plingwithFiniteStrains,"InternationalJournalofPlasticity,Vol.
4,pp.
335–353Voyiadjis,G.
Z.
,Aifantis,E.
C.
,andWeber,G.
(2003),"ConstitutiveModelingofPlasticityinNanostructuredMaterials,"TrendsinNanoscaleMechanicsVol.
9:AnalysisofNanostructuredMaterialsandMulti-ScaleModeling,PartIIMulti-ScaleModelingofMaterials,Chapter5,EditedbyV.
M.
HarikandM.
D.
Salas(ICASE,NASALangleyResearchCenter),KluwerAcademicPublishers,TheNetherlands,pp.
123–146Voyiadjis,G.
Z.
andAbu-Farsakh,M.
Y.
(1996),"CoupledTheoryofMixturesforClayeySoils,"Invitedlecturepresentedatthe11thASMESympo-siumonTheoreticalandExperimentalMethodsforParticulateMaterials,ASME,MechanicsandMaterialsConference,JohnHopkinsUniversity,Baltimore,MarylandVoyiadjis,G.
Z.
,Abu-Farsakh,M.
Y.
andTumay,M.
T.
(1998),"Soildeforma-tionsaroundthepiezoconeusingthecoupledtheoryofmixtures,"Porome-chanicsaTributetoMauriceA.
Biot,ProceedingsoftheBiotConferenceonPoromechanics,Louvain-Neuve/Belgium/14–16,Sept,pp.
531–536References431Voyiadjis,G.
Z.
andDeliktas,B.
(2000),Multi-scaleAnalysisofMultipleDamageMechaismsCoupledwithInelasticBehaviorofCompositeMa-terials.
MechanicsResearchCommunicationsJournal,Vol.
27,No.
3,pp.
295–300Voyiadjis,G.
Z.
,Deliktas,B.
,andE.
C.
Aifantis,"Multi-scaleAnalysisofMul-tipleDamageMechanismsCoupledwithInelasticBehaviorofCompositeMaterials,"JournalofEngineeringMechanics,ASCE,Vol.
127,No.
7,2001,pp.
636–645Voyiadjis,G.
Z.
,andDorgan,R.
J.
,"BridgingofLengthScalesthroughGradi-entTheoryandDiusionEquationsofDislocations,"JournalofComputerMethodsinAppliedMechanicsandEngineering,43manuscriptpages,(inpress)Voyiadjis,G.
Z.
andForoozesh,M.
(1990),"Anisotropicdistortionalyieldmodel,"JournalofAppliedMechanics,ASCE,Vol.
57,pp.
537–547Voyiadjis,G.
Z.
andKattan,P.
I.
(1989),"Eulerianconstitutivemodelfor-nitedeformationplasticitywithanisotropichardening,"MechanicsofMa-terials,Vol.
7,No.
4,pp.
279–293Voyiadjis,G.
Z.
andKattan,P.
I.
(1990),"AgeneralizedEuleriantwo-surfacecyclicplasticitymodelfornitestrains,"ActaMechanica,Vol.
81,pp.
143–162Voyiadjis,G.
Z.
andKattan,P.
I.
(1991),"Phenomenologicalevolutionequa-tionsforthebackstressandspintensors,"ActaMechanica,Vol.
88,pp.
91–111Voyiadjis,G.
Z.
,Kurup,P.
U.
andTumay,M.
T.
(1993),"Preparationoflargesizecohesivespecimensforcalibrationchambertesting,"GTJODJ,Vol.
16,pp.
339–349Voyiadjis,G.
Z.
,Kuruup,P.
U.
andTumay,M.
T.
(1994),"DeterminationofSoilPropertiesfromLaboratoryPiezoconePenetrationTests,"XIIIIC-SMFE,NewDelhi,pp.
303–308Voyiadjis,G.
Z.
andSong,C.
R.
(2005a),"Acoupledmicro-mechanicalmodelforsaturatedsoils,"Poromechanics-BiotCentennial(1905–2005)-Abousleiman,Cheng&Ulm(eds),Taylor&FrancisGroup,London,pp.
719–724Voyiadjis,G.
Z.
andSong,C.
R.
(2005b),"ACoupledMicro-MechanicalBasedModelforSaturatedSoils,"MechanicsResearchCommunications,Vol.
32,No.
5,pp.
490–503Voyiadjis,G.
Z.
andSong,C.
R.
(2003),"DeterminationofHydraulicConduc-tivityUsingPiezoconePenetrationTest,"InternationalJournalofGeome-chanics,ASCE,Vol.
3,No.
3/4,pp.
217–224VoyiadjisG.
Z.
andSong,C.
R.
(2002),"Multi-ScaleNonLocalApproachforGeomaterials,"MechanicsResearchCommunications,Vol.
29(2–3),pp.
121–129432ReferencesVoyiadjis,G.
Z.
andSong,C.
R.
(2001),"RateDependencyandGradientThe-oryforShearBandAnalysis",Proceedingsof10thInternationalConferenceofTheInternationalAssociationforComputerMethodsandAdvancesinGeomechanics,pp.
601–606Voyiadjis,G.
Z.
andSong,C.
R.
(2000a),"FiniteStrain,AnisotropicModiedCamClayModelwithPlasticSpin–PartI:Theory,"J.
ofEngineeringMechanics,ASCE,Vol.
126,No.
10,pp.
1012–1019Voyiadjis,G.
Z.
andSong,C.
R.
(2000b),"FiniteStrain,AnisotropicModiedCamClayModelwithPlasticSpin–PartII:Application,"J.
ofEngineer-ingMechanics,ASCE,Vol.
126,No.
10,pp.
1020–1026Voyiadjis,G.
Z.
andSong,C.
R.
(2000c),"MicrostructuralCharacterizationinModelingLargeStrainBehaviorofSoils,"PlasticandViscoplasticRe-sponseofMaterialsandMetalForming,ProceedingsofPlasticity'00,NeatPress,pp.
110–112Voyiadjis,G.
Z.
,Song,C.
R.
andTumay,M.
T.
(1999),"RealTimeContinuousProlingofHydraulicConductivityofGeo-materialsUsingthePiezoconePenetrationTest,"5thUSNationalCongressonComputationalMechan-ics,August4–6,Boulder,CO,p.
502Voyiadjis,G.
Z.
,Thiagarajan,G.
andPetrakis,E.
(1992),"Anisotropicdis-tortionalyieldmodelforgranularmedia,"Microstructuralcharacterizationinconstitutivemodelingofmetalsandgranularmedia,ASME-MD32,pp.
119–134Voyiadjis,G.
Z.
,Thiagarajan,G.
andPetrakis,E.
(1995),"Constitutivemod-elingforgranularmediausingananisotropicdistortionalyieldmodel,"ActaMechanica,110,pp.
151–171Wang,B.
,Zhang,C.
andParkY-B.
(2004),"OverviewofResearchActivitiesoftheFloridaAdvancedCenterofCompositesTechnologies,"SeminaronBlastSurvivabilityofRelatedTopics,ERDC,Vicksburg,MS,Sept.
23–24,CD-RomWei,C.
-F.
andMuraleetharan,K.
K.
(2002),"Acontinuumtheoryofporousmediasaturatedbymultiphaseuids:II.
Lagrangiandescriptionandvari-ationalstructure,"InternationalJournalofEngineeringScience,Vol.
40,pp.
1835–1854Whittle,A.
J.
andAubeny,C.
P.
(1991),"Porepressureeldsaroundpiezo-conepenetrometersinstalledinclay,"Proceedingsofthe7thInternationalConferenceonComputerMethodsandAdvancesinGeomechanics,Cairns,1,BalkemaPub.
,Rotterdam,pp.
285–290Wissa,A.
E.
Z.
,Martin,R.
R.
andGalanger,J.
E.
(1975)"Thepiezometerprobe,"ProceedingsofASCESpec.
Conf.
onInsituMeasurementofSoilProperties,Raleigh,N.
C.
pp.
536–545Woltman,R.
(1794),BeytragezurHydraulischenArchitectur,DritterBand,JohannChristianDietrich,GottingenWood,D.
M.
(1990),SoilBehaviourandCriticalStateSoilMechanics,Cam-bridgeUniversityPress,p.
202References433Xiang,N.
andSabatier,J.
M.
(2003),"ApplicationsofAcoustic-to-SeismicCouplingforLandmineDetection,"webpageYamamotoR.
(2003),"Imagingpermeabilitystructurewithinthehighlyper-meablecarbonateearth:Inversetheoryandexperiment,"Geophysics,Vol.
68,No.
4,pp.
1189–1201Yi,X.
,Rowe,K.
andLee,K.
M.
(1993),"ObservedandCalculatedPorePressuresandDeformationsInducedbyanEarthBalanceShield,"JournalofCanadianGeotechnicalEngineering,Vol.
30,pp.
476–490Yoshida,F.
(2000),"Aconstitutivemodelofcyclicplasticity,"InternationalJournalofPlasticity,Vol.
16,pp.
359–380Zbib,H.
M.
(1994a),"Straingradientsandsizeeectsinnonhomogeneousplasticdeformation,"ScriptaMetallurgicaetMaterialia,30(9),pp.
1223–1226Zbib,H.
M.
(1994b),"Sizeeectsandshearbandinginviscoplasticitywithkinematichardening,"MMEReportNo.
94–03,Dept.
ofMechanicalandMaterialEngineering,WashingtonStateUniversity,Pullman,VA99164–2920Zbib,H.
M.
(1993),"Onthemechanicsoflargeinelasticdeformations:kine-maticsandconstitutivemodeling,"ActaMechanica,96,pp.
119–138Zbib,H.
M.
andAifantis,E.
C.
(1988a),"OntheConceptofRelativeandPlasticSpinsanditsImplicationstoLargeDeformationTheories,PartI:HypoelasticityandVertex-typePlasticity,"ActaMechanica,Vol.
75,pp.
15–33Zbib,H.
M.
andAifantis,E.
C.
(1988b),"OntheConceptofRelativeandPlasticSpinsanditsImplicationstoLargeDeformationTheories,PartII:AnisotropicHardeningPlasticity,"ActaMechanica,Vol.
75,pp.
35–56Zienkiewicz,O.
C.
,Best,B.
,Dullage,C.
andStagg,K.
G.
(1970),"AnalysisofnonlinearproblemsinRockMechanicswithParticularreferencetoJointedRockSystems,"2ndInternationalcongressonRockMechanicsBelgrade,pp.
1–9Zienkiewicz,O.
C.
,Chan,A.
H.
C.
,Pastor,M.
,Paul,d.
K.
andShiomi,T.
(1990),"Staticanddynamicsbehaviorofsoils:Arationalapproachtoquantitativesolutionsi:Fullysaturatedproblems,"Proc.
ofTheRoyalSo-cietyofLondon,Vol.
A-429,pp.
285–309Zienkiewicz,O.
C.
andPande,G.
N.
(1977),"Time-dependentmulti-laminatemodelofrocks-Anumericalstudyofdeformationandfailureofrockmasses,"J.
ofNumericalandAnalyticalMethodsforGeomechanics,1,219–247Zienkiewicz,O.
C.
andShiomi,T.
(1984),"Dynamicbehaviorofsaturatedporousmedia,thegeneralizedbiotformulationanditsnumericalsolution,"Int.
J.
forNumericalandAnalyticalMethodsinGeomechanics,Vol.
8,pp.
71–96434ReferencesZienkiewicz,O.
C.
,Xie,Y.
M.
,Schreer,B.
A.
,Ledesma,A.
andBicanic,N.
(1990),"Staticanddynamicbehaviorofsoils:Arationalapproachtoquan-titativesolutionsii:Semisaturatedproblems,"Proc.
ofTheRoyalSocietyofLondon,Vol.
A-429,pp.
311–321Zuidberg,H.
M.
,Schaap,L.
H.
J.
andBeringen,F.
(1982),"Apenetrometerforsimultaneousmeasurementofconeresistance,sleevefrictionanddynamicporepressure,"Proceedings,ESOPTII,Amsterdam,Proceedings,Vol.
2,pp.
963–970IndexAcousticpropagation6Acoustictechnique149,151,153,155Anderson-Parrinello-Rahmentheory164Anisotropy6,30,31,35,75,184,188Angleofinternalfriction3Aspectratio44Atom161Attenuation150–156Backstress21–38,48–56,72–78,168,188–203BAT158Binarymodel5BioCoRE164Bodyforce8,20,168(Non)bondedenergy164Born-Oppenheimerapproximation164Camclaymodel26-55,70–83,100,114,133–143,184–207Capillarity5Capmodel29,30Carbon-nano-ber162Cartesiancoordinate16Characteristicfrequency153–155Characteristiclength39,40Clausius-Duhaminequality46Clay3,15,30,41,63,74,170Clay-uidinteraction164Clayliner114Coecientofconsolidation197,199Cohesion24,26,125,142Cohesionless62,141Compressibility2,21100Compressionindex35,100,102,176Compressionwave150,151Conditionnumber66,67Coneface98,101,184,200Conepenetrometer91–106,158,168,192,203Coneresistance92,94,98,178Coneshoulder98,200Conservationprinciple2Consolidation6–17,26–43,94–115,158,178,191Consolidationcoecient15,96Constitutiveequation2,16,40,56,75,82Constitutivelaw8,58,63,64Constitutivemodel2,8,10,113,125,136,184Constitutiverelation16,36–38,56,57,75,161Constitutivetheory6,9Continuum4–19,40,50,59–69,162–170Continuummodels2,16Cosserat(continuum),59–61Coulombicenergy164Coupledconsolidation112,115Coupledtheory10–21,81,94–116,158–200Coupledtheoryofmixtures10,12,13–21,81,94,97,104,109,113,116,173,188,199,200Couplingmodulus152Couplingmatrix84Crank-Nicholsontechnique96Criticalvoidratio65,66,172Crossholetechnique151Cyclicshearstrain7Damage11,38,68–74,117,168–205Damping(ratio),7,157436IndexDarcy'slaw13Densication7,8Deviatorstress2,1Diusion4,15,16,96,97,153Diusivity16Dihedralangle161Dilatancy63Dilationalwave6Discretemechanics163Displacementtensor17Dissipationpotential47,48Dissipationtest94,96,98,100,192,197Disturbedstate74Divergence19,20,66,152DPD(DissipativeParticleDynamics),170Drucker-Prager25,26Dutchcone91Dynamicyieldfunction69Earthquake1,7Eectivestress1,5,7–18,33,69–80,96,102,133,173–205Elasticity33,78Electricconepenetrometer92Electroncharge161Electronpermittivity161Embeddedstress31,40,43,75Endochronic(theory)8Entropy6,8EPBshield117Equivalentbeamortrusselementmethod167EquivalentLinearMethod(ELM)7Equivalentplasticstrain78,133,134Excessporewaterpressure1,13–17,98,99,105–106Failure3,59,63,65,100,142,143,192FastP-wave150,151,153Finitedeformation6FEM(FiniteElementMethod)2,9–18,72,83,86,90–103,113–132,170–174Finitestrain17–21,63,74,76,83,89Flowrule36,57,69,136Fluiddroplet170Fourierequation4Frictionangle23,26,142,143,172Frictionresistance91,94,191Fullydrained21,98,101,106,111Fullyundrained21,98,101,106,111Gausspoint133,213Gradient2,9,13,37,39–49,60–87,173–207Graininteraction11,63,64,170,172Grainrotation11,18,59,61,188Hardening26,30–34,45–54,64–78134,135Heatdiusion15,16,96,97Henkel'sporepressurecoecient112Helmholtzfreeenergy46,47Hvoslevsurface28Hydraulicconductivity12–21,94–116,149–183Hydraulicgradient13Hydrodynamic4Hydro-mechanical18Illconditioned66Illposedness66,67Immisciblemixture3Incrementalscheme76,89Inducedanisotropy30,31,36,75,188Inelastic10,57,58,62,70Inherentanisotropy30,31,36,76In-phasemotion150Interaction3–11,38,38,48,63,64,98–200,115,151,161–173,181–204Interfaceelement125,134,135,142Internalfrictionangle26Internalstatevariable45,47,48,203Intrinsicpermeability154Isoparametric(element)86,129,130Isothermal6Jacobian21,77,81Kinetictheory4Lagrangianreferenceframe10,76,80–93,96–113,199,200Lame'sconstant152Index437Laplacianoperator39Largestrain2,10,55,82,86,95,100,109,119,188,198–207Lengthscale38–45,73,163Lennard-Jones12–6potentialenergy165Lime3Linearstinessmatrix84Liquefaction1,7,8,18,151Liquefactionpotential151Longrangebackstress50,51,54,201–203MaCauleybracket35,48,70Macroscale39,45–48,167Macroscopicyield35Mandel-Cryereect16,17Mantlecone91MaterialStudio164Mathematicalgradient41,67Mechanicalcone91Meshsizedependency43Mesoscale46–48Micro-mechanical9–18,38–56,63,75,168,173,188,204–207Microplanemodel57,58Micropolar(continuum)59,60Microscale45,46Minimization166Mixture1–23,81,94–104,113115168173188–207Modiedspintensor56Mohr-Coulomb23–25,125,142Molecularmechanics163Molecule161Mud3Multiphase1411204Multi-polarcontinuum9NAMD164Nanocomposite162Nano-mechanics161–167,170,171Nanotechnology162(Non)bondedenergy164Nonlinear2,10,62,81–90,120,134,135,141,142Non-linearstinessmatrix84Octahedralnormalstress112Octahedralshearstress112OPM(OnePointMethod)95,100Orthogonalityrelation152Oscilloscope156Out-of-phasemotion150Overstress70,71Partialdierentialequation15,96Partiallydrained21,98,101,106Partiallysaturated10Permeability6–20,98–116,143–199Permeabilitytensor20,168Physicalgradient42,67Piezoconepenetrometertest91–96,100,104,115,158Piola-Kirchostress77,80π-plane23–25,31–35,58,120,165Poisson'sratio16,166Porewaterpressure1,7–17,77–109,168–200Poro-elastic8,151Porosity18,20,154,168Porousmedia1–10,20Preconsolidationpressure178PSRN(PseudoRandomNoise),155Quantummechanics163Quasi-static6,7Quicksand3Radiusofplasticzone113Ratedependency11,38,68–74,172,175Recompressionindex35,102,188Remeshing89,118,124–127,134Resonantcolumntest54Rigidplastic26Rigidporoussolid5Roscoesurface28Rotationalwave6Roughness43RVE39,40,42–46,167,170Sand3–8,18,52,53,62,64,73,74,104,139,155,170,191,203,204SASW151Seepage13,85SenateCommitteeonCommerceScienceandTransportation162Shearband40–42,63,64,68,172438IndexShearmodulus7,16,53,137,143,152,166Shearwave151Shieldtunnel116,117Shortrangebackstress50,51,54,201–203Schr¨odingerequation164Simpleshear7Singularvaluedecompositionmethod155Skeleton1,7,18,78,203,204Skempton'sporepressurecoecient112Slidingpotential102Sliptheory57SlowP-wave150,151,156Slurryconsolidation191Smallstrain2,16,62,74,201S/Nratio155Source155Spintensor56Spreadspectrum150SPT91Steadyow13Stiness7,37,55,81,84,89–106,122,134–138,167–204Stressinvariant23Stresstensor59Swedishpenetrometer91Taylorexpansion41,66,67Thermodynamics4,15,46,48,74Threephasematerial11Thresholdstrain62Totalstress1,7,12,96,178–183,204TPM(TwoPointMethod)95,109Transientow13,21,101Tresca23–25,33Trigger155Twophasematerial11,101,152,173,204Uncoupledconsolidation112,114,115UpdatedLagrangian18,21,76,80–113,199–200vanderWallsenergy164Varvedclay178Virtualconsolidation112Virtualwork18,57,61,76,100Visco-elasticity33Visco-plasticity48,69,70Viscosicity48,68–73,100,154,168,172,173,178,204Void1,11,15.
35,55,66,76,102–104,143,157,172,203,266Volumefraction2,3,5,9,152Volumetricstrain7,16–31,54,134,168,174vonMises23–25,33,70Wavepropagation6,9,10,151,152Wellposedness66,67Yazooclay166Yieldcriteria10,23–40,42–46,58,80Yieldsurface26–36,49,63,64,69–72,78,79,89,90,133,134,168,173