ＲＡＮＤＯＭ＿ＮＵＭＢＥＲ
copyright

green dotＲＡＮＤＯＭ＿ＮＵＭＢＥＲ

書式 CALL RANDOM_NUMBER(HARVEST)
機能 HARVESTに0≦x＜1の範囲に一様分布する1つの擬似乱数かまたは 複数の擬似乱数を発生させる。
複数発生させる場合は、HARVESTは配列になる。
引数 HARVEST：実数型でスカラまたは配列、INTENT(OUT)引数

green dotサンプルプログラム

乱数を発生させる。 
   REAL :: x
   REAL,DIMENSION(10) :: y
   CALL RANDOM_NUMBER(x)
   CALL RANDOM_NUMBER(y)
   WRITE(*,*) x
   WRITE(*,*) y


実行例

   0.78263…
   0.13153…  0.45560…    ………
line-end