作者janhon (海牛)
看板Fortran
标题Re: [问题] 资料处理方面的问题
时间Fri Jun 25 02:10:12 2010
※ 引述《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