SUBROUTINE Umeshmotion(UREF,ULOCAL,NODE,NNDOF,* LNODETYPE,ALOCAL,NDIM,TIME,DTIME,PNEWDT,* KSTEP,KINC,KMESHSWEEP,JMATYP,JGVBLOCK,LSMOOTH)CINCLUDE 'ABA_PARAM.INC'CDIMENSION ULOCAL(NDIM),JELEMLIST(100)DIMENSION ALOCAL(NDIM,*),TIME(2)DIMENSION JMATYP(*),JGVBLOCK(*)DIMENSION ARRAY(1000)C LTRN指定输出坐标系,0为全局坐标系,1为局部坐标系LTRN=0CALL GETVRN(NODE,'NT',ARRAY,JRCD,JGVBLOCK,LTRN)LSMOOTH = 1ULOCAL(NDIM)=ULOCAL(NDIM)-0.05*ARRAY(1)**2/10000.0IF(LNODETYPE .EQ. 4)ULOCAL(NDIM) = ULOCAL(NDIM)*1.35RETURNEND
@echo offcall "F:\Abaqus2024\SIMULIA\Commands\abq2024.bat" %* "F:\VS2016\VC\vcvarsall.bat" x64 "F:\IVF\compilers_and_libraries_2016.1.146\windows\bin\ifortvars.bat" intel64 vs2015
提供vip交流群/答疑/相关学习资料
【适配JD好课】工程类专业和结构仿真必修课13讲——全解结构动力学核心理论与实践技能_Mechanical-仿真秀视频课程