乱数を配列に格納してcosθをベクトルから求めるプログラムを書いてみたのですが、コンパイルしてみるとrandom_numberのところの設定がおかしいみたいでうまくコンパイルできません。どこに問題があるのかわからないので困っています。教えて下さい。よろしくお願いします。
module subprogs
implicit none
contains
function vec_cos(a,b) result(vcos)
real(8), intent(in) :: a(:), b(:)
real(8) ab, vcos
if (size(a) /= size(b)) stop ' sr : size(a) /= size(b) '
ab = dot_product(a,a) * dot_product(b,b)
if (ab == 0.0d0) then
vcos = 0.0d0
else
vcos = dot_product(a,b)/sqrt(ab)
endif
end function vec_cos
end module subprogs
program main
use subprogs
implicit none
real(8), allocatable :: x(:), y(:)
integer n
write(*,'(a)', advance = 'no') ' input n : '
read(*,*) n
if ( n < 1 .or. n > 100 )stop ' n must be 0 < n < 101 '
allocate(x(n),y(n))
call random_seed
call random_number(x,y)
write(*,*) 'cos = ', vec_cos(x,y)
end program main
コンパイル結果
Undefined symbols:
"_random_number__", referenced from:
_MAIN_ in ccxYbc0C.o
ld: symbol(s) not found
No.1ベストアンサー
- 回答日時:
「Undefined」といっているんだから, そんな名前の手続が見付からなかったということですよ.
あなたが使っている処理系に「random_number」という手続は存在するのですか?
あるなら, 標準ではリンクされないどこかのライブラリにあるはずなので, 処理系のマニュアルをひっくりかえして探してください.
ないのであれば, 自分で作ってください.
確かにそうですね。いろいろ試した結果、私の処理系にrandom_numberという手続きはありました。ただ、プログラム上のrandom_numberのxとyの設定が誤っていたようです。ちゃんと再度設定し直したら、うまくコンパイルできて実行結果も正しく表示されました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# c言語の問題です 3 2023/01/10 16:15
- その他(プログラミング・Web制作) FORTRAN77の配列(除算) 2 2023/02/01 14:34
- JavaScript javascript作成してます。ラジオボタンで判定するコードを書いてます。 1 2023/07/18 11:03
- C言語・C++・C# 10個の実数に対する降順ソート結果を出力するプログラムを作りたいのですが、以下のプログラムをどう直せ 1 2022/07/09 22:16
- C言語・C++・C# プログラミング c言語 4 2023/03/07 01:05
- その他(プログラミング・Web制作) Pythonのライブラリ、randomについて 3 2022/09/20 14:30
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Ruby vscode 文字化け 1 2022/05/21 19:17
- その他(プログラミング・Web制作) pythonのエラーについて 2 2022/08/17 17:17
- UNIX・Linux 次の要件を満たすにはどのように修正したらよろしいでしょうか 1 2022/11/24 20:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アプリケーションのDLLファイル...
-
<unistd.h>をVisualStudioでつ...
-
C言語をコンパイルするとコンピ...
-
WindowsAPIプログラムをgccでコ...
-
define文のパラメータを実行時...
-
i386 or x86_64 のどちらを選...
-
バスエラーとは?
-
Cのソースを毎回コンパイルし...
-
'hcw'がみつかりません
-
gcc コンパイル killed
-
C言語のコンパイルソフトでWind...
-
c言語です コンパイルした時に...
-
ビジュアルスタジオ2019を...
-
PIC アセンブリのコンパイルエ...
-
c言語プログラミングでアルファ...
-
GCLとCLISP
-
共有ライブラリの内容確認について
-
cygwin プログラミング コンパ...
-
YaccとLex
-
プレコンパイルの意味を教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
<unistd.h>をVisualStudioでつ...
-
アプリケーションのDLLファイル...
-
C言語をコンパイルするとコンピ...
-
実行後にコンパイルに失敗しま...
-
math.hに含まれる関数が使えない
-
ビープ音が鳴りません・・・
-
c言語です コンパイルした時に...
-
<math.h>ヘッダを入力している...
-
C#で char型とstring型の比較で...
-
共有ライブラリの内容確認について
-
すべてのリビルド: 0 正常、 0 ...
-
[COBOL] ソースの復帰
-
64ビットのlinuxで32ビットメモ...
-
gcc バージョン違いによるコン...
-
VS2010環境で2点ほど質問
-
ヘッダーファイル『windows.h』...
-
C言語で作ったらWindowsでもMac...
-
自作DLLの中身を暗号化
-
MVSマシンで0C7でABENDしたので...
-
Verilog_HDLでのdefineとifdef
おすすめ情報