質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。

受付中

Fortranで正規分布に従う疑似乱数を発生させるプログラムが実行できない

ochikonbu
ochikonbu

総合スコア2

FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。

0回答

0リアクション

0クリップ

322閲覧

投稿2022/07/18 15:21

編集2022/07/18 15:22

前提

プログラミング初心者です。
ネット上に載っていた「正規分布に従う疑似乱数を発生させるプログラム」を自分の環境で実行したのですが、READ文で読み込む乱数の数を入力しても、プログラムの中身が実行されずに終了してしまいました。
このプログラム自体が間違っているのか、私の操作が違うのか、教えていただけないでしょうか?

実現したいこと

以下のCLTプログラムの実行結果を正しく表示させたい

該当のソースコード

implicit none ! CTL method real hist(-60:60) real*8 x, y real*8 Ntot, Nin real z integer i, j open(1,file="hist.csv") Nin = 0.0 Ntot = 0.0 write(6,*) 'Enter Ntot :' read(5,*) Ntot do i=-60,60 hist(i) = 0. enddo do i=1,int(Ntot) call random_number(y) do j=1,11 call random_number(x) y = y + x enddo y = y - 6d0 hist( int(y/0.1) ) = hist( int(y/0.1) ) + 1. enddo do i=-60,60 ! Normalize 0.1 ha kizamihaba hist(i) = hist(i) / Ntot / 0.1 enddo do i=-60,60 write(1,*) i*0.1, ',', hist(i) enddo end

試したこと

コンパイルエラーがないことを確認して実行し、READ文でNtotに値を入力したが、何も表示されなかった。

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

2022/07/18 22:34

こちらの質問が他のユーザーから「過去に投稿した質問と同じ内容の質問」という指摘を受けました。

melian

2022/07/18 15:40

open(1,file="hist.csv") としているので計算結果は hist.csv に出力されているのではないでしょうか。
y_waiwai

2022/07/18 22:02

質問は編集できます 無駄に質問建てないで追記修正しましょう

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

FORTRAN

FORTRAN(フォートラン)は科学時術計算に向いた手続き型プログラミング言語です。 並列計算の最適化が行いやすい特性上、数値予報および気候モデルなどの大規模な計算を行う分野のスーパーコンピュータで使われています。