求助DFLUX子程序调用过程中出现错误

阿基里斯

大家好，我是abaqus子程序新手，辛苦大家了帮忙看看！！
我使用abaqus版本是6.11-2，vs2008 professional 英文版，ivf10.1.034，调试过程除了IE浏览器以外的全都通过了，不知道有没有影响。
在调用子程序时提示有Problem during compilation - C:\Temp\111111.for，这样的错误(111111.for是我的文件名)，有点说是程序编译有问题，也不知道对不对，请各位高手帮忙给看一下，小弟在此万分感谢！！！

SUBROUTINE  DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,
     1 JLTYP,TEMP,PRESS,SNAME)

      INCLUDE 'ABA_PARAM.INC'

      DIMENSION FLUX(2), TIME(2), COORDS(3)

      CHARACTER*80 SNAME
      REAL::qw=0
      qmax=0
      k=3
      q=0
      qexp=0
      eff=0.3
      voltage=0
      current=0
      rb=0
      pi=3.1415925
      kv1=-0.35E5
      bv1=24
      T1=35E-5
      kc1=-1.8E5
      bc1=50
      time1=0
      time2=0
      time1=TIME(2)
      if(TIME(2)<1E7)then
      time2=1E-7
      ELSE
      time2=TIME(2)
      endif
      voltage=kv1*time2+bv1
      current=kc1*time2+bc1
      rb=0.788*(time2**0.75)*1E3
      q=eff*voltage*current
      qmax=k*q/pi/rb/rb*1E3
      qw=qmax/EXP(qexp)
      IF(COORDS(1)<rb)THEN
      FLUX(1)=0
      ENDIF
      FLUX(2)=0
      RETURN
      END

陌丶上

请问楼主是怎么解决这个问题的？

LYYSJYTU

楼主问题解决了吗？