fortran90
fortran90
現在 fortran90 で計算プログラムを作っております。
プログラムはかけたのですが、実行画面にエラーが出ます。
解決方法が分かりません。どなたか分かる方いらっしゃいますか。
プログラム
implicit real*8 (a-h,o-z)
parameter(n=900)
open (1,file='004.txt',status='old')
do 10 i=1,n
read (1,*,end=11)xx,yy,zz,ww
theta=acos(zz)
phi1=acos(xx/sqrt(1-zz*zz))
phi2=asin(yy/sqrt(1-zz*zz))
write(*,*)theta,phi1,phi2
10 continue
11 end
プログラム内容
あるフォルダーに保存してあるテキストファイルから4×4行列のデータを読み込み、そのデータからθの値とφ1、φ2のアタを求めるプログラムです。
実行分のエラー画面には、
acos: DOMAIN error
です。