Fortranで33年の平均値を導く際のエラー| OKWAVE

Fortranについての質問です。下のプログラムは、ある地点（今回は1

Fortranについての質問です。下のプログラムは、ある地点（今回は14161~14163）の33年間(1976~2008）の気温の平均を欠損値を考慮してだしているはずです。うるう年の判定はおまけで書いています。この平均値に標準偏差もつけるプログラムにしたいのですが、どう書いていいのか手詰まり中です。どうかアドバイスください。 ---------データの一部（14162_temp1997.csv)------------------------------------- 14162 1997 1 1 141.332 43.0583 -10 14162 1997 1 2 141.332 43.0583 18 14162 1997 1 3 141.332 43.0583 -2 ---------プログラム------------------------------------------------------------ program sapporo_kikouchi INTEGER :: sum, no, point INTEGER :: year, mon, day, data INTEGER :: doy REAL,dimension(365) :: temp, ndata REAL :: lon, lat CHARACTER*4 yyyy CHARACTER*5 sssss ndata(:)=0.0 temp(:)=0.0 do ispot=14161,14163 write(sssss,"(i5)") ispot do iwork=1976, 2008 write(yyyy,"(i4.4)") iwork open(50, file=''//sssss//'_temp'//yyyy//'.csv', status='old',iostat=io) if (io < 0) cycle ! write(6,*) ispot iwork 　 do i = 1,366 read(50,*,iostat=io) id,year,mon,day,lon,lat,data if(io < 0) exit if(mon==2 .AND. day==29) then cycle endif call date2doy(year,mon,day,doy) temp(doy) = temp(doy) + data/10.0 ndata(doy) = ndata(doy) + 1 !　doyは一年のうち何日目かを表している enddo close(50) enddo !!! end of year loop enddo do i=1,365 if( ndata(i) == 0 ) then temp(i) = -99999.9 else temp(i)=temp(i)/ndata(i) endif write(6,*) i, temp(i), ndata(i) ! write(11,*) i,',',temp(i),',',ndata(i) end do stop end program subroutine date2doy(iy,im,id,idoy) INTEGER,dimension(12) :: nday INTEGER :: uruu !!uruu=1: うるう年、uruu=0: 通常の年 uruu=0 DATA nday /31,28,31,30,31,30,31,31,30,31,30,31/ if(mod(iy,4)==0 .AND. mod(iy,100)/=0) then uruu=1 endif if(mod(iy,1000)==0) then uruu=1 endif !! うるう年も無視する itotal = 0 if( im /= 1 )then do m=1, im-1 itotal = itotal + nday(m) enddo endif idoy = id + itotal ! write(6,*) iy,im,id, idoy return end

FORTRANについての質問です。

FORTRANについての質問です。現在、二つのファイル(a.csv,b.csv)を読んで,a.csvのファイル内の地点番号とb.csvのファイル内の地点番号が一緒なら抜き出すというプログラムを書きたいのですが、途中で抜け出せなくなってしまいました。下に使用しているファイルの中身を、ごくわずかですが載せておきます。 b.csvのほうは、年別で33個のファイルに分けられています。 ----------------------a.csv------------------------------------------ 30 23226 1977 大野 31 13311 1978 増毛 31 14101 1978 新篠津 31 15251 1978 芦別 31 16281 1978 真狩 31 17076 1978 興部 ----------------------------------------------------------------------- ----------------------b.csv-------------------------------------------2006,1,1,11016,141.678,45.4147,3,稚内,0,33,16,-64,-51,-75,55,1,9 2006,1,1,11151,141.138,45.1767,14,沓形,1,20,1,-52,-36,-68,4,1,6 2006,1,1,11176,141.778,45.1017,12,豊富,0,9,4,-80,-51,-116,59,0,3 2006,1,1,11206,142.362,45.1117,13,浜頓別,1,12,13,-92,-47,-140,66,1,3 2006,1,1,11276,142.28,44.965,25,中頓別,0,5,11,-137,-44,-209,46,0,2 2006,1,1,11291,142.585,44.9397,7,北見枝幸,0,25,13,-70,-47,-94,70,0,6 2006,1,1,11316,142.48,44.84,14,歌登,0,2,1,-115,-49,-170,56,0,1 ------------------------------------------------------------------------ implicit none REAL :: number,code,year,name REAL :: yea,mon,day,id,chiki,nam INTEGER :: lon,lat,pre,wind,winddirection,temp INTEGER :: hightemp,lowtemp,sunlight,maxrain,maxwind open(10,file='a.csv',status='old',iostat=ie) do iwork=1976, 2008 write(yyyy,"(i4.4)") iwork open(50, file='b'//yyyy//'.csv', status='old', & & iostat=io) if (io < 0) cycle do i = 1, 99 read(10,*) number,code,year,name if(ie < 0) exit do ii = 1, 30000 read(50,*) yea,mon,day,id,lon,lat,chiki,nam,pre,wind,winddirection,temp,& & hightemp,lowtemp,sunlight,maxrain,maxwind if(io < 0) exit write(6,*) yea stop close(10) close(50) end エラーメッセージがenddo文が予期されている。プログラムのファイルのendが予期されていない。とでます。enddo文を足したりしても治りませんでした。おそらくどこか書き方が違うのでしょう。どうかアドバイスください。

fortran　途中まで考えたのですが。。。。

エラトステネスのふるい（素数の倍数を除いていって残ったのが素数）で３桁の素数を求めて表示したいです。私が考えたのは、１・２～９９までの数を素数かどうか調べて、素数を配列に入れていく２・１００～９９９まで素数の配列の中の数で割って、割り切れたらおしまい。割り切れなかったら表示していくということです。しかし下のプログラムではうまく素数配列ができていないようなのです。ここまでかなり時間がかかったのでこのプログラムに手をいれてこれ以外におかしくなるところもどこを直せばいいのか教えてくださるとうれしいです。 C C q223.f C PROGRAM q223 C IMPLICIT NONE C INTEGER N,i,K,s,l REAL a(99),b(99),c(99),X,Y C real M C a(1)=2 a(2)=3 l=2 C DO N=2,99,1 M=N**(0.5) S=M DO i=2,S,1 K=MOD(N,i) IF(K ==0)THEN exit ELSE IF(K /=0)THEN l=l+1 a(l)=N ENDIF ENDDO ENDDO C do N=100,999 do l=1,99 X=a(l) Y=N/X if(Y==0)then exit else if(Y/=0)then write(*,*)N end if end do end do c end よろしくおねがいします

アドバイスお願いします

今，以下の様なプログラムを作っています．正の整数ｎを上限とする数字の集合を考える．そのうち a*i+b*j で表現できない値の個数を出力する． a,bは事前に与えられた正の整数であり，i,jは正の整数の変数である．またa,b,nの取り得る最大値は1000000とする．とりあえずfortranで総当たりの方法で作ってみました． integer a,b,n,ans(1000000),c read(*,*)a,b,n 　do i=1,n 　　ans(i)=i 　enddo icount=0 do i=0,n 　do j=0,n 　　c=a*i+b*j 　　if(c.le.n)then 　　　do k=1,n 　　　　if(ans(k).eq.c)then 　　　　　ans(k)=-1 　　　　endif 　　　enddo 　　endif 　enddo enddo do i=1,n 　if(ans(i).gt.0)then 　　icount=icount+1 　endif enddo write(*,*)icount end ｎの値があまり大きくなければ問題なく動くのですが，最大値である1000000を入力して走らすと，とんでもなく時間がかかってしまいます．もっとスマートな方法は無いものでしょうか？アドバイスお願い致します．

Fortranの素数のプログラム

5000万までの素数を求めるプログラムなのですが、私の作ったプログラムは実行時間26秒くらいかかります。先生が言うには10秒台が出るとのことですが、私は頑張っても時間を短くすることができません。下に私の作ったプログラムを載せますので短くする方法を教えて下さい。 integer table(2:50000000),pno(50000000),cnt,m,i,j m=sqrt(50000000.) do 10 i=2,m do 10 j=i*2,50000000,i table(j)=1 10 continue do 20 i=2,50000000 if(table(i).eq.0)then cnt=cnt+1 end if 20 continue write(6,610)cnt 610 format('sosu no goukei =',i8) end

リスト構造

Fortranでリスト構造を作ることになってしまいました。リストに要素を追加したり、途中のデータを削除することはできたのですが、途中にデータを挿入することができません。まだfortranバリバリ現役で打っている方、ご教授お願いします。以下は参考です。 type element 　　　integer ::ele 　　　type(element),pointer ::next1 end type element type(element),pointer::root1,p1,tmp_p allocate(root1) nullify(root1%next1) p1 => root1 do i=1,n 　　p1%ele = a(i) !配列Aをリストへ　　allocate(p1%next1) 　　p1 => p1%next1 　　nullify(p1%next1) enddo p1 => root1 print_list1:do !表示　　if(associated(p1%next1))then write(*,*)p1%ele 　　　　　p1 => p1%next1 　　else exit print_list1 endif enddo print_list1 p1 => root1 free_list1:do !解放 if(associated(p1%next1))then root1 => p1 p1 => p1%next1 deallocate(root1) else exit free_list1 endif enddo free_list1 C------ちなみに削除は delete_list:do 　　if(associated(p1%next1))then if(p1%ele .eq. 0)then !例えば0の要素を削除　　　tmp_p => p1%next1 　　　nullify(p1%next1) deallocate(p1%next1) p1 = tmp_p else p1 => p1%next1 endif else exit delete_list endif enddo delete_list p1 => root1

fortran モンテカルロ法

モンテカルロ法により円周率πを計算するプログラムを作ったのですが、以下のプログラムでモンテカルロ法から推定された円周率piの値が実行すると大きな数字になってしまって、うまく計算できてない見たです。式に問題があるのでしょうか？教えて下さい。 rogram list1_9 implicit none real(8) x, y, pi, pi0 integer :: n, i, im = 2**20 pi0 = 2.0d0*acos(0.0d0) n = 0 do i = i, im call random_number(x) call random_number(y) if(x ** 2 + y ** 2 <= 1.0d0) n = n + 1 enddo pi = 4.0d0*dble(n)/dble(im) write(*,*) ' pi, pi0, er = ', pi, pi0, pi-pi0 end program list1_9

fortran エラーについて

fortranで、副プログラムを使ってデータを昇順または降順に並べ替えるプログラムを入力して実行しようとしたところ、・Unexpected junk in formal argument list at (1) ・Two main PROGRAMs at (1) and (2) という2つのエラーが出ました。これらの改善方法を教えて頂きたいです。初心者ですので簡単なところで間違えている可能性もありますが、ご指摘いただければ幸いです。以下、実際に入力したプログラムです。 ------------------------------ implicit none integer::i,n real::x(1000),a(1000),b(1000) n=1000 open(10,file='input-data-1.txt') do i=1,n read(10,*) x(i) end do close(10) open(10,file='output-data-1.txt') do i=1,n call koukan(i,x(i),a(i),b(i)) write(10,'(i4,2f10.3)') i,a(i),b(i) end do close(10) stop end subroutine koukan(i,x(i),shoujun,koujun) implicit none integer::i,n,made real::x(1000),w,shoujun,koujun do made=n-1,1,-1 do i=1,made if(x(i)>x(i+1)) then w=x(i) x(i)=x(i+1) x(i+1)=w end if end do end do shoujun=x(i) do made=n-1,1,-1 do i=1,made if(x(i)<x(i+1)) then w=x(i) x(i)=x(i+1) x(i+1)=w end if end do end do koujun=x(i) return end ------------------------------

fortranのtxtファイル出力書式について

こんにちは。 fortranのtxtファイル出力について質問させていただきます。下記のようなコードでtxtファイルに計算結果を出力させています。(途中省略) open(20, file ='outputx1.txt') do ax1 = 1, m do ax2 = 1, l if (sum2(ax1, 1, ax2) == 1) then write(20,*) ax1, ax2 endif enddo enddo close(20) ここでm=103,l=300です。このコードで出力すると、結果は以下のようになります。　　　　　9　　　　293 　　　　　9　　　　294 　　　　　9　　　　295 　　　　 10　　　　 97 　　　　 10　　　　 98 　　　　 10　　　　 99 しかし、以下のようにｔｘｔファイルを出力したいと考えています。 9 164 9 165 9 166 10 151 10 152 10 153 *の部分を色々といじってみたのですが、うまいやり方が見つかりません。説明不足とは思いますが、アドバイスよろしくお願いします。

fortran 配列受け渡し時の次元の一致

fortran90、コンパイラはifortです。普通メインプログラムとサブルーチン間での配列の受け渡しは、次元を揃えて渡すと思います。とあるコード（以後コードA）を読んでいると、2次元配列を渡し、1次元配列で受け取っていました。例 program test1 integer :: a(3,3) call testsub(a) end program subroutine testsub(b) integer :: b(9) end subroutine これが受け取り側でどう処理されているのかわからず、調べるために適当なテストコードを書きました。 a 123 456 789 ↓ b 123456789 になるとか結果、コンパイルは通ったのですがサブルーチン側では全て0で置き換えられてしまいました。コードAはpgiかなんかでコンパイルしていたようなのでコンパイラの違いでしょうか？よくわらなかったので質問させて頂きました。質問をまとめますと、 (1)次元の異なる配列の受け渡しができるかどうか (2)その場合中身はどうなるかよろしくお願いします。 ---以下テストコード--- program testa implicit none integer :: a(3,3),i,j do i=1,3 do j=1,3 a(i,j)=j+(i-1)*3 enddo enddo do i=1,3 do j=1,3 write(6,*) a(i,j) enddo enddo call sub1(a) end program subroutine sub1(b) integer :: b(9),i do j=1,9 write(6,*) b(i),'sub' enddo end subroutine

FORTRANの動的割り当てについて

今、FORTRANでg95でプログラムを作っているのですが、動的割り当てで理解出来ない現象が起きたので質問させていただきます。 real(8),dimension(:,:,:),allocatable :: a と三次元の動的配列aを定義し allocate(a(0:10,0:10,0:10)) としています。ここで、外部のファイルから各成分0～10の配列の所に値を読み込ませます。私の理解では、これは0～10の添字までしか扱えないものと思っていたのですが、write文でa(11,11,11)という要素を書かせてみると、実際に値が出力されてしまいます。動的割り当てとはそういうものなのでしょうか。また現在作っているプログラムではこれが値を持っているとまずいので、doループで11の値のところだけをif文で0にしようと試みたのですが、そのif文を反映してくれません。（つまり do i=0.11 do j=0,11 do k=0,11 if (i==11.or.j==11.or.k==11) then .・・・の時、・・・のところで0にしようしてもそれが反映されない）始めはコードが間違っているのかと思いましたが、doループの10の値のところを同様に0にしてみたら成り立っていました。（つまり do i=0,10 do j=0,10 do k=0,10 if (i==10.or.j==10.or.k==10) then ・・・の時、・・・のところで0にしようとするとそれが反映される）これはやはり定義してないa(11,11,11)が出力されることと関係があるのでしょうか。初歩的な質問かもしれませんが、よろしくお願い致します。

fortran ３次元座標

四面体の4頂点の３次元座標を設定するプログラムを例にならって以下のように書いたのですが、doループの内容がいまいちよくわかりません。p(1:3,m),p(1:3,n)が表されている値は理解できるのですが、出力されたファイルの内容が２行３列の答えが６つあって、なぜそのように答えが出てくるのかがわかりません。教えて下さい。よろしくお願いします。 rogram list2_11 implicit none integer :: m, n, fno = 10 real(8) p(3,4) call random_seed call random_number(p(1:3,1:4)) open(fno, file = 'tetra.d') do m = 1, 3 do n = m+1, 4 write(fno,*) p(1:3,m) write(fno,*) p(1:3,n) write(fno,*) '' enddo enddo close(fno) end program list2_11

fortran 行列ベクトル積

行列ベクトル積を計算するプログラムを下のように書いたのですが、実行した結果の答えが実際計算した答えと異なります。初期の要素の設定がおかしいのでしょうか？教えて下さい。よろしくお願いします。 program list2_14 implicit none integer , parameter :: n = 2 real(8) a(n,n), x(n), y(n) integer i, j, k, l a(1,1:2) = (/1.2d0,3.4d0/) a(2,1:2) = (/5.6d0,7.8d0/) x(:) = (/9.0d0,10.0d0/) do i = 1, n y(i) = 0.0d0 do j = 1, n y(i) = y(i) + a(i,j) * x(j) enddo enddo do k = 1, n write(*,*) (a(k,l), l = 1, n) enddo write(*,*) x(:) write(*,*) y(n) end program list2_14 実行結果 1.2 3.4 5.6 7.8 9. 10. 128.4

FORTRANのプログラミングについて

たびたび申し訳ありません。またFORTRANに関しての質問です。 x y z 0 0 30 1 0 45 2 0 60 3 0 43 4 0 51 5 0 32 0 1 43 1 1 90 2 1 32 3 1 85 4 1 65 5 1 90 0 2 32 1 2 32 と続くファイルがあります。これをFORTRANをで書き換えて、 0 0 30 0 1 43 0 2 32 1 0 45 1 1 90 1 2 32 と続くデータにしたいのです。（これを以下目的のファイルという）今のところ、次のようなプログラムを書き、特定のXに対しては、結果を吐き出すことに成功しています。 program dat real x1(100),h,y2(100),y1(100),z1(100) integer i,n,j,k,l,m,a(100) open(7,file='test.txt') open(9,file='af-test.dat') do i=1,100 read(7,*,end=200) x1(i),y1(i),z1(i) if(x1(i).eq.90)then write(9,*) x1(i),y1(i),z1(i) end if end do 200 close(7) close(9) end ここまではうまくいくのですが、これでは９０以外の場合は出力されません。（あたりまえですが）特定のXに限らずに例えばXを０から１００まで吐き出されるような目的のファイル作るにはをどのようにしてプログラムを書けばいいかご教授ください。

ＦＯＲＴＲＡＮの質問です

今、実験の解析を行っています。読み込みたいテキストファイルには -1,0.4 0,0,233 -1,0.9 ・・など左側には－１か０のどちらかがあります。これを -1,0.4 -1,0.9 を含むファイルと 0,0.0233 を含むファイルの二つに分けたいのです。今プログラムを作っているのですがどうしてもできません。どうしたらいいのでしょうか？と質問しました。説明不足気味だったので、追加で説明させていただきます。データの数はかわります。５個だったり、９００個だったりします。この数はわかりません。 program dat real n(10), y(10) write(*,*)'k=' read(*,*)k open(7,file='test.txt') do i=1,k read(7,*,end=200) n(i),y(i) end do 200 close(7) open(8,file='aftest1.txt') open(9,file='aftest2.txt') do j=1,k if(n(j).eq.0) then write(8,*) y(j) else if(n(j).eq.-1) then write(9,*) y(j) end if end do close(8) close(9) end と書いたのですがデータの数と繰り返しの数が一致しないと、出力されません。いちいちファイルをみるのは面倒なので、なんとかしたいのですが

fortran

do I = 1,40 do F = 1,4 do L = 1,100 if (I == 1. .OR. L == 1.) then A (I,F,L) = 3. else A (I,F,L) = 3.* B (I-1,F,L) end if end do end do do F = 1,4 do L = 1,100 do M = 1,100 B (I,F,L) = B (I,F,L) + C (I,F,M,L) end do end do end do end do 簡素化したプログラムなので、わかりにくいと思うのですが、後で計算するB(I,F,L)をA(I,F,L)のDOループに最初に持ってくると、I=1orL=1のときは正しい計算をしてくれるのですが、そのほかのときはB(I-1,F,L)に値が入らないのです。ちなみにC(I,F,M,L)はA(I,F,L)のループの後に計算しましたが、省略しました。ご回答よろしくお願いします。

fortran　errorについて

fortranを勉強していたのですがエラーがでてしまい、何時間かけても理解できなかったので質問させてください。以下プログラム program test !ここからメインルーチン !前準備　配列の用意 implicit none integer N integer,dimension(0:N,0:N) :: A integer :: i,j,k read * ,N !初期状態の代入 do i=0,N do j=0,N A(i,j)=0 end do end do do i=N/2,N-1 A(N/2,i)=1 end do do i=N/2,N-1 A(N/2+1,i)=-1 end do !ループ　50回ループさせる do k=0,50 !状態の表示 call visualize !サブルーチン visualize subroutine visualize do i=0,N do j=0,N if(A(i,j)== 1) write(*,'(A1)',advance='NO') "*" if(A(i,j)== 0) write(*,'(A1)',advance='NO') " " if(A(i,j)==-1) write(*,'(A1)',advance='NO') "+" end do write(*,*) end do !end subroutine visualize call insert !サブルーチン insert subroutine insert do i=0,N do j=0,N if(A(i,j)== 1) A(i,j)=-1 if(A(i,j)== 0) A(i,j)=max(0,A(i-1,j),A(i,j-1),A(i,j+1),A(i+1,j)) if(A(i,j)==-1) A(i,j)=0 end do end do !end subroutine insert end do end program test これでコンパイラすると In file test.f90:48 subroutine visualize 1 Error: Unclassifiable statement at (1) In file test.f90:69 subroutine insert 1 Error: Unclassifiable statement at (1) とでますいろいろ調べたのですが全くわかりませんでしたできればよろしくお願いします

fortranで図形の面積を求めるには？

今fortranのプログラムをやっているのですが、図形の面積を求めたいのですがどうやったらいいのでしょうか？とりあえず小さな区間に区切って足し算を行うようにしているのですが、うまく動きません・・・。ＤＯループをまわし過ぎなのでしょうか？？？一応下にプログラムの一部を書いておきます。 DO 444 J= 1,5000 T=FLOAT(J)*0.1 IF (T.GE.281)THEN GL3 = -0.01105*T+4.104972 ELSE 　　 GL3 = -0.01105*T-2.1050 ENDIF 　　　　・　　　　・　　　　・ 444 CONTINUE 誰か助けてください！宜しくお願いします。

【fortran】フーリエ級数について

こんばんは。早速ですが、質問させて頂きます。学校の課題で一次元熱伝導方程式のプログラムを組みなさいという課題が出たのですが、入力、出力のプログラムが上手く書けずに困っています。自分で何回もやってみたのですが、「ループがベクトル化されました」としか出ず、どこが間違っているのかも分からない状況です。詳しい方、教えて頂ければ幸いです。下に自分が作成したプログラムを載せておきます。 program heat implicit none integer i, n, nmax real(8) t0, t1, d, time, a, h, p, q, an0, kn, bn, en integer, parameter :: id = 100 real(8), parameter :: pi = 3.1415926535d0 real(8), parameter :: lambda = 2.5d-6, rho = 2500.d0, c = 2.35d-7 real(8), parameter :: expmax = 50.d0 real(8) x(0:id), t(0:id) ! ! Data input part (t0,t1,d,a,time,nmax) ! t0=300.0d0 ! degrees t1=200.0d0 ! degrees d =100.0d0 ! m time=1.0 ! year time = time *365.0d0*24.0d0 ! year --> hour nmax=1000 a = 1.0d6 ! Area of rock surface [m^2] h=d/id do i=0,id x(i)=i*h t(i)=t1 end do p=0.0d0 q=0.0d0 do n=1,nmax,2 an0=4.0d0/(n*pi)*(t0-t1) kn=n*pi/d bn=lambda*kn*kn/(rho*c) if(bn*time.le.expmax) then en=exp(-bn*time) else en=0.0d0 endif do i=0,id t(i)=t(1)+an0*sin(kn*x(i))*en enddo p=p+an0*kn*en q=q+an0*kn/bn*(1.0d0-en) enddo p=lambda*a*p q=lambda*a*q open(20,file=‘output.dat’) write(20,*) ‘x(i),t(i),p,q' = ‘, ‘x(i),t(i),p,q' close(20) stop end program heat

fortran 　繰り返しループから抜きたい

10 continue 　　：　　：　　：　do 100 i=1,10 if (abs(x (i)-y(i)) .lt. 1.0) then r= r + dr goto 100 else goto 1000 end if 100 continue ：　：： 1000　contiue end 　　すべての条件（ｉ＝1～10）が満足されたら、ループから抜きたいのですが、出来ませんでした。　　教えて頂けませんでしょうか？よろしくお願しますね！*<>*！

Fortranで33年の平均値を導く際のエラー

fortranについての質問です。

質問者が選んだベストアンサー

お礼 2010/08/09 17:10

その他の回答 (2)

お礼 2010/08/09 11:01

お礼 2010/08/09 09:31

関連するQ&A

Fortranについての質問です。下のプログラムは、ある地点（今回は1

FORTRANについての質問です。

fortran　途中まで考えたのですが。。。。

AIは使う人の年齢や市場にも影響する？人工知能の可能性

アドバイスお願いします

Fortranの素数のプログラム

リスト構造

fortran モンテカルロ法

fortran エラーについて

fortranのtxtファイル出力書式について

fortran 配列受け渡し時の次元の一致

FORTRANの動的割り当てについて

fortran ３次元座標

fortran 行列ベクトル積

FORTRANのプログラミングについて

ＦＯＲＴＲＡＮの質問です

fortran

fortran　errorについて

fortranで図形の面積を求めるには？

【fortran】フーリエ級数について

fortran 　繰り返しループから抜きたい

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

Fortranで33年の平均値を導く際のエラー

fortranについての質問です。

質問者が選んだベストアンサー

お礼 2010/08/09 17:10

その他の回答 (2)

お礼 2010/08/09 11:01

お礼 2010/08/09 09:31

関連するQ&A

Fortranについての質問です。下のプログラムは、ある地点（今回は1

FORTRANについての質問です。

fortran 途中まで考えたのですが。。。。

AIは使う人の年齢や市場にも影響する？人工知能の可能性

アドバイスお願いします

Fortranの素数のプログラム

リスト構造

fortran モンテカルロ法

fortran エラーについて

fortranのtxtファイル出力書式について

fortran 配列受け渡し時の次元の一致

FORTRANの動的割り当てについて

fortran ３次元座標

fortran 行列ベクトル積

FORTRANのプログラミングについて

ＦＯＲＴＲＡＮの質問です

fortran

fortran errorについて

fortranで図形の面積を求めるには？

【fortran】フーリエ級数について

fortran 繰り返しループから抜きたい

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

fortran　途中まで考えたのですが。。。。

fortran　errorについて

fortran 　繰り返しループから抜きたい