| 
 | 
 
Fortran编程出错!急求大神帮助,麻烦看看怎么改,源程序和提示都在图里,感谢感谢! 
源程序: 
      #LOCAL REAL Rline,Xline,Psref, 
      REAL PARAMETER : Qsref=($Qsref) 
      REAL PARAMETER : Psref=($Psref) 
      IF(TIME.LT.0.03)THEN 
         $Qsref=0 
      END IF 
      IF(TIME.GE.0.03)THEN 
         IF(($Usarm.LE.$Ea1).AND.($Usarm.GE.$Ea2))THEN 
          $Qsref=0 
         END IF 
         IF(($Usarm.LT.$Ea2).AND.($Usarm.GE.$Ea3))THEN 
          $Qsref=($Psref*$Rline-($DELTU)**2-$Usarm*$DELTU)/$Xline 
         END IF 
      END IF 
 
 |   
 
 
 
 |