[問題] 讀取兩筆資料 相乘 再輸出

[shockbon (bonbon)]

小弟是fortran初學者
想請教高手一些問題
我想要將兩筆資料作相乘如

DATA1                   DATA2

a           b           a            d

0           0.1         0            2
0.0625      0.2         0.0625       4
0.1250      0.3         0.1250       6
0.1875      0.4         0.1875       8
0.25        0.5         0.25        10
.           .           .            .
.           .           .            .
.           .           .            .
.           .           .            .
類推


最後輸出的結果

DATA3

a           b*d

0           0.1*2
0.0625      0.2*4
0.1250      0.3*6
0.1875      0.4*8
0.25        0.5*10
.           .
.           .
.           .
.           .

目前想到的方法可能是用do迴圈作
不知道各位高手有沒有別的想法
可以讓小弟參考

附上目前程式碼(有錯)

   program resultdate3
   implicit none

   integer i
   real a,b,c,d
   integer datanumbers=5857 !全部資料點

   type(datanumber) :: da(datanumbers)

   open(unit=11,file='data1.dat',status='old')
   open(unit=22,file='data2.dat',status='old')
   open(unit=33,file='result.dat',status='unknow')

   do i=1,datanumber
      read(11,*) da(i)%a,da(i)%b

      read(22,*) da(i)%c,da(i)%d

      write(33,*) a,b*d
   end do

   stop
   end



--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.66.121
→ redface:所以你的問題是?  (想直接要完整程式碼?)
※ 編輯: shockbon        來自: 140.115.66.121       (12/23 17:09)
推 meteorology:一定要迴圈^^
→ shockbon:程式碼附上(不過是錯的~"~)
推 meteorology:少了module  type 自訂型態  要在program 外宣告
推 meteorology:這方法是稍微難一點 不過這方式處理的速度快
→ snowanimal:我覺得這一題用什麼方法都可以很快處理 ＝ ＝
推 meteorology:嗯嗯是阿  方法很多～
→ meteorology:大概是因為作業巴～要用這種方式～