Fortran如何实现1000个变量循环赋10个值

chiangtp

1. 樓主有興趣"學習語法"的話, 可進一步把vvt(7#)範例, 用FORALL改寫
2. 請樓主沒事別用"double precision", 突顯自己的無知而已

[Fortran] 纯文本查看 复制代码

PROGRAM test
  IMPLICIT NONE
  ! "(8)" compiler dependent (NAG/Silverfrost not accept), avoid to use
  REAL(8) , PARAMETER :: N=14.00672
  REAL(8) , PARAMETER :: H= 1.00795
  REAL(8) , PARAMETER :: C=12.01078

  INTEGER, PARAMETER :: r8=SELECTED_REAL_KIND(P=15)
  REAL(r8) , PARAMETER :: NN=14.00672_r8
  REAL(r8) , PARAMETER :: HH= 1.00795_r8
  REAL(r8) , PARAMETER :: CC=12.01078_r8

  WRITE(*,*) N, NN
  WRITE(*,*) H, HH
  WRITE(*,*) C, CC
END PROGRAM test

3. 蒐集到的資料, 請參考: