资源描述：
《abaqus 混凝土徐变收缩子程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、Abaqus混凝土徐变收缩子程序经过进一步的完善后，子程序的计算结果跟一般程序的计算结果吻合得比较好。目前在三维实体元中应用效果良好。注意：外部数据文件的数据由其它拟合软件获得。SUBROUTINEUSDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,1TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,2KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,3LACCFLA)CINCLUDE'ABA_P
2、ARAM.INC'CCHARACTER*80CMNAME,ORNAMECHARACTER*3FLGRAY(15)DIMENSIONFIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),1T(3,3),TIME(2)DIMENSIONARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),1COORD(*)CCReadinginstantaneousthermalstrainindirection11(xaxial)CStoringthethermalstraininstatevariabl
3、eCCALLGETVRM('THE',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,1MATLAYO,LACCFLA)STATEV(1)=ARRAY(1)CCReadinginstantaneouselasticxaxialstrainCStoringthethermalstraininstatevariableCNOTE:ARRAY(1)--XAXIALCARRAY(2)--YAXIALCARRAY(3)--ZAXIALCCALLGETVRM('EE',ARRAY,JARRAY,FLG
4、RAY,JRCD,JMAC,JMATYP,1MATLAYO,LACCFLA)STATEV(2)=ARRAY(1)CCALLGETVRM('SDV',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,1MATLAYO,LACCFLA)STATEV(3)=ARRAY(3)STATEV(4)=ARRAY(4)CCModifyingFieldvariablestomodeldevelopmentofYoung’sCmoduluswithage.CIF(TIME(2).GT.1)THENFIELD(1)=TIME(2
5、)ELSEFIELD(1)=0ENDIFRETURNENDCCSUBROUTINEUEXTERNALDB(LOP,LRESTART,TIME,DTIME,KSTEP,KINC)CINCLUDE'ABA_PARAM.INC'CDIMENSIONTIME(2)CHARACTER*80TITLECCOMMON/MYGIRD/GIRD_INI(4,10),GIRD_LAMDA(4)COMMON/MYSLAB/SLAB_INI(4,10),SLAB_LAMDA(4)CCAbaqususestheFORTRANunitnumbersoutli
6、nedinthetablebelow.Unlessnotedotherwise,CyoushouldnottrytowritetotheseFORTRANunitsfromusersubroutines.CForAbaqus/Standard,youshouldspecifyunitnumbers15–18orunitnumbersgreaterthan100CCReadthecreepcoefficientsfromexternaldababaseatthebeginningofcomputing.CIF(LOP.EQ.0)THENOPEN(1
7、06,STATUS='OLD',FILE='D:ABAQUSWORKcreep.in')READ(106,*)TITLEREAD(106,*)(GIRD_LAMDA(I),I=1,4)DOJ=1,10READ(106,*)(GIRD_INI(I,J),I=1,4)ENDDOCREAD(106,*)TITLEREAD(106,*)(SLAB_LAMDA(I),I=1,4)DOJ=1,10READ(106,*)(SLAB_INI(I,J),I=1,4)ENDDOCLOSE(106)CcOPEN(107,FILE=&
8、#39;D:ABAQUSWORKCREEP.OUP')cWrite(107,100)(SLAB_LAMDA(I),I=1,4
