1.
搞清楚数据的来源，是文本文件中的
12000 行？还是一个12000大小的一维数组？
2.
a(1)(1:10,1:10)
,
a(2)(1:10,1:10) 这样的写法是不能被允许的。如果你想表达类似的含义，可以考虑用三维数组
program test
implicit none
character(20)::a(2,2)
character(20)::b(2)
integer::i,j
do i=1,2
do j=1,2
a(i,j)='y'
enddo
end do
do i=1,2
b(i)='x'
end do
print*,'a=',a
print*,'b1=',b
b=a(1,:)
print*,'b2=',b
end
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024