部分程序如下，变量rkpar已经定义类型了，怎么rebuild时提示Warning: Variable RKPAR is used before its value has been defined      psuct = rkpar*suctn

期待答复，先谢！

integer nstre
      double precision estre(nstre), rkpar,suctn
      double precision rmpar, pcstr, rlamz, beta, rcoef, rkapa, pcons
c.... output variable
      double precision devia(nstre),yield
c.... local variables
      double precision gthet, gthet2
      double precision pmean, rjinv
      double precision rlamv, value, ppnot, psuct
c
c.... compute Lode angle (constant because Von Mises criterion used)
      gthet = rmpar/sqrt(3.0d0)
      gthet2= gthet*gthet
c.... compute 1st (p) and 2nd (J) stress invariants at t
c.... rjinv = sqrt(0.5d0*(devia(1)^2 + devia(2)^2 + devia(3)^2))
      call totdev(estre,pmean,devia,nstre)
      rjinv=sqrt(0.5d0*contrc(devia,devia,nstre))
c.... compute yield function at t
      rlamv = rlamz*((1.0d0-rcoef)*exp(-bcoef*suctn)+rcoef)
      value = (rlamz - rkapa)/(rlamv - rkapa)
      ppnot = pcstr*((pcons/pcstr)**value) 
      psuct = rkpar*suctn
      yield = rjinv*rjinv/(gthet2*(pmean+psuct)**2) -
     .        (ppnot-pmean)/(pmean+psuct)
      return
      end


还有一个问题，debug模式下运行程序，出现下了信息
Loaded 'ntdll.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\kernel32.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\KernelBase.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\imagehlp.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\msvcrt.dll', no matching symbolic information found.
Loaded 'C:\Windows\System32\dbghelp.dll', no matching symbolic information found.
The thread 0x1218 has exited with code -1073741795 (0xC000001D).
The program 'C:\YANG QINGCHUN\write txt\Debug\txt.exe' has exited with code -1073741795 (0xC000001D).