utracload

ly12138

路面移动荷载，水平力的子程序utracload怎么编辑

ly12138

      SUBROUTINE UTRACLOAD(ALPHA,T_USER,KSTEP,KINC,TIME,NOEL,COORDS,NPT
     1                     DIRCOS,JLTYP,SNAME)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION T_USER(3),TIME(2),COORDS(3),DIRCOS(3,3)
      CHARACTER*80 SNAME
C
      parameter(zstart=5.04,vel=200/9,dlen=0.168,p=0.21d6)
       dis=vel*time(1)
       zmax=zstart-dis
       zmin=zmax-dlen
      if(COORDS(3).gt.zmin.and.COORDS(3).lt.zmax)then
          ALPHA=p
          T_USER(1)=0.0
          T_USER(2)=0.0
          T_USER(3)=-1.0
      ENDIF
      RETURN
      END
请问这个子程序有什么问题

aqustut

谢楼主分享