[問題] 有關最大位數及其精度

[randomno (隨便)]

請問各位先進

      PROGRAM CAL

      REAL*8 N,NI,A1,A2
      N=0.9988
      NI=0.8777
      A1=N/NI
      A2=-11.033*A1D4+83.507*A1D3-246.59*A1D2+348.69*A1-281.23
      WRITE(*,*) A1,' ',A2
      STOP
      END

這是程式簡化出來的一部份

有關A2的運算

經過程式計算出來的值是115.570237291540

但是用計算機算出來的值是-99.20147809

請問這個問題是跟精度有關嗎?

我該如何解決這個問題?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.121.150.132
→ awer89:第二行加上 implicit none  你就會發現原因了
→ randomno:懂了，那意思是我不能在變數名稱上用指數的功能嗎?
→ randomno:還是有其他方法
→ acyang:N,N1,A1在給初值時應該要加上d0才是double precision