utracload子程序,求大神帮看一下,到底哪里有问题。。。...
想做一个具有分布的可以移动的表面载荷的子程序,下面这个小程序在VS里已经查不出错了,但是就是没办法运行,一运行,abaqus就报错“XML parsing failure for job Job-6.Shutting down socket and terminating all further messages.Please check the .log, .dat, .sta, or .msg files for information about the status of the job.可以帮我看一下吗。。。。。。。。。。。。。。。。。。。。*********************************************************************************************************
SUBROUTINE UTRACLOAD(ALPHA,T_USER,KSTEP,KINC,TIME,NOEL,NPT,
1 COORDS,DIRCOS,JLTYP,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION T_USER(3), TIME(2), COORDS(3), DIRCOS(3,3)
CHARACTER*80 SNAME
PARAMETER(speed=1,Pi=3.1415926535897932384626433832795)
Disp=TIME(2)*speed
M=(sqrt((COORDS(1)-Disp))**2)
IF(M.LE.0.17)THEN
ALPHA=(280/(pi*0.04)*(sqrt(0.029-M)))
T_USER(1)=(280/(pi*0.04)*(sqrt(0.029-M)))
T_USER(2)=0
T_USER(3)=0
ELSE
ALPHA=0
T_USER(1)=0
T_USER(2)=0
T_USER(3)=0
END IF
RETURN
END
页:
[1]