Re: [問題] 資料處理方面的問題
※ 引述《fdps (Try It)》之銘言：
: 這次遇到了個很其奇怪的檔案
: 以下是其中一小部份的資料
: 201 I 1 1 1 1 1 1 0 0
integer array1(8),i
integer arraysym(8)
read (xxx,xxx) array1(1:8)
: I + + + + + + + +
character(len=1) :: array2
read (ooo,ooo) array2(1:8)
do i=1,8
if(array2(i)=="+") arraysym(i)=1
if(array2(i)=="-") arraysym(i)=-1
end do
array1=array1*arraysym
--
海牛的海底城
http://manateecity.blogspot.com/
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.125.41.248
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
