abaqus UMAT二次开发能用fortran90吗？
1 SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,RPL,DDSDDT, 2 # DRPLDE,DRPLDT,STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED, 3 # CMNAME,NDI,NSHR,NTENS,NSTATEV,PROPS,NPROPS,COORDS,DROT,PNEWDT, 4 # CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC) 5 INCLUDE 'ABA_PARAM.INC' 6 CHARACTER(16) CMNAME 7 REAL(8) STRESS(NTENS),STATEV(NSTATEV),DDSDDE(NTENS,NTENS), 8 # DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),TIME(2), 9 # PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3),DROT(3,3), 10 # DFGRD0(3,3),DFGRD1(3,3) 11 REAL(8) rE !杨氏模量 12 REAL(8) rMu !泊松比 13 REAL(8) rG !剪切模量 14 REAL(8) rLambda !拉梅常数 15 rE= -0.4 * ( 0.5*COORDS(1)**2+3.0*COORDS(2)**2 ) +500 16 rMu= 0.25 17 rG=rE/(2.0*(1.0+rMu)) 18 rLambda=(2.0*rMu*rG)/(1.0-2.0*rMu) 19 DO i=1,NTENS,1 20 DO j=1,NTENS,1 21 DDSDDE(i,j)=0.0 22 END DO 23 END DO 24 DO i=1,NDI,1 25 DO j=1,NDI,1 26 DDSDDE(i,j)=rLambda 27 END DO 28 DDSDDE(i,i)=rLambda+2.0*rG 29 END DO 30 DO i=NDI+1,NTENS,1 31 DDSDDE(i,i)=rG 32 END DO 33 DO i=1,NTENS,1 34 DO j=1,NTENS,1 35 STRESS(i)=STRESS(i)+DDSDDE(i,j)*DSTRAN(j) 36 END DO 37 END DO 38 DO i=1,NTENS,1 39 STRAN(i)=STRAN(i)+DSTRAN(i) 40 END DO 41 SSE=0 42 DO i=1,NTENS,1 43 SSE=SSE+STRESS(i)*STRAN(i) 44 END DO 45 SSE=0.5*SSE 46 STATEV(1)=rE 47 RETURN 48 END SUBROUTINE UMAT
这个例题好奇怪，里面是f90的语法，文档名后缀却是.for。
