実数の乗算

Question

実数の乗算イベントを含むコードがあります。入力変数に関係なく、その特定のサブルーチンに対して常に答えがゼロになります。

すべての変数は、宣言された型であり、値は、例えば、。 a = 5、b = 3.5 & c = 0.0005。

私はより明確になると、おそらくいくつかのデバッグを使用し ...う、私はおそらく

Subroutine Load_Modulation_100() 

Real*4 :: Te  
Real*4 :: Ee  
Real*4 :: Et  
Real*4 :: QLHV  
Real*4 :: mfg  
Real*4 :: Qfeul 
Real*4 :: mf  
Real*4 :: Pe  
Real*4 :: Pt 

Te  = 100 
Ee  = 28.2 
mf  = 0.0005 
QLHV = 47141 
Et  = 66.8  
Cpfg = 4.5 

      Qfeul = (mf * QLHV) 
      Pe = (Qfeul * (Ee/100)) 
      Pt = (Qfeul * (Et/100)) 

Write (*,*) Pe, 'kW' 
Write (*,*) Pt, 'kW' 

End Subroutine Load_Modulation_100` 

Answer 1

ない

`ケースをプラトンIDE

を使用していますが、整数の切り捨てが問題になることがあります。

Subroutine Load_Modulation_100() 
IMPLICIT NONE 
Real*4 :: Te  
Real*4 :: Ee  
Real*4, PARAMETER :: Et = 66.8E0 
Real*4 :: QLHV  
Real*4 :: mfg  
Real*4 :: Qfeul 
Real*4 :: mf  
Real*4 :: Pe  
Real*4 :: Pt 
LOGICAL*4 :: IO = .TRUE. 

! Te  = 100 ! This is a float, it just does;t jump off the page as one 
Te  = 100.0E0 ! 
Ee  = 28.2 
mf  = 0.0005 
QLHV = 47141 ! This is a float, it just does't jump off the page as one 
!Moved to parameter Et  = 66.8  
Cpfg = 4.5 

    IF(IO) WRITE(*,*)' (Ee/100)=', (Ee/100) 
     Qfeul = (mf * QLHV) 
!  Pe = (Qfeul * (Ee/100)) 
     Pe = (Qfeul * (Ee/FLOAT(100))) 
!  Pt = (Qfeul * (Et/100)) 
     Pt = (Qfeul * (Et/100.0E0)) 

Write (*,*) Pe, 'kW' 
Write (*,*) Pt, 'kW' 

RETURN 
End Subroutine Load_Modulation_100!`