abaqus UMAT二次开发能用fortran90吗？

      SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,RPL,DDSDDT,
     # DRPLDE,DRPLDT,STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,
     # CMNAME,NDI,NSHR,NTENS,NSTATEV,PROPS,NPROPS,COORDS,DROT,PNEWDT,
     # CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
      INCLUDE 'ABA_PARAM.INC'
      CHARACTER(16) CMNAME
      REAL(8) STRESS(NTENS),STATEV(NSTATEV),DDSDDE(NTENS,NTENS),
     # DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),TIME(2),
     # PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3),DROT(3,3),
     # DFGRD0(3,3),DFGRD1(3,3)
      REAL(8) rE !杨氏模量
      REAL(8) rMu !泊松比
      REAL(8) rG !剪切模量
      REAL(8) rLambda !拉梅常数
      rE= -0.4 * ( 0.5*COORDS(1)**2+3.0*COORDS(2)**2 ) +500
      rMu= 0.25
      rG=rE/(2.0*(1.0+rMu))
      rLambda=(2.0*rMu*rG)/(1.0-2.0*rMu)
      DO i=1,NTENS,1
        DO j=1,NTENS,1
            DDSDDE(i,j)=0.0
        END DO
      END DO
      DO i=1,NDI,1
        DO j=1,NDI,1
            DDSDDE(i,j)=rLambda
        END DO
            DDSDDE(i,i)=rLambda+2.0*rG 
      END DO
      DO i=NDI+1,NTENS,1
        DDSDDE(i,i)=rG
      END DO
      DO i=1,NTENS,1
        DO j=1,NTENS,1
            STRESS(i)=STRESS(i)+DDSDDE(i,j)*DSTRAN(j)
        END DO
      END DO
      DO i=1,NTENS,1
        STRAN(i)=STRAN(i)+DSTRAN(i)        
      END DO
      SSE=0
      DO i=1,NTENS,1
        SSE=SSE+STRESS(i)*STRAN(i)
      END DO
      SSE=0.5*SSE
      STATEV(1)=rE
      RETURN
      END SUBROUTINE UMAT

这个例题好奇怪，里面是f90的语法，文档名后缀却是.for。