- 积分
- 8044
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-5-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我在windows下写了一个fortran程序force.f90,内容如下:
program main
implicit none
parameter m=10844
integer ::a(m,5)
real ::b(m,8)
integer:: i,j,k
open(10,file='/home/zll/Test/1.txt')
open(20,file='/home/zll/Test/2.txt')
open(30,file='/home/zll/Test/qudong.txt')
do i=1,m
read(10,*) (a(i,j),j=1,5)
read(20,*) (b(i,j),j=1,8)
enddo
close(10)
close(20)
!write(1,100)((a(i,j),j=1,5),i=1,m)
DO I=1,m
write(30,100) a(i,1), a(i,2), a(i,3), a(i,4), a(i,5),b(i,1),b(i,2),b(i,3),b(i,4),b(i,5),b(i,6),b(i,7),b(i,8)
100 format(I4,4I3,8F17.10)
ENDDO
end
在windows下运行可以生成qudong.txt文件,在linux下如何运行这个程序才能生成qudong.txt文件?
|
|