|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
program main
implicit none
integer i,j
real b(117,2)
open(10,file='nacadata.txt',status='old')
open(11,file='gambitdata.txt',status='old')
do i=1,117
read(10,*) (b(i,j),j=1,2)
end do
do i=1,117
write(11,100) (b(i,j),j=1,2)
end do
100 format("vertex create coordinates",2(f10.6,1x),"0")
end
问题见附件图 |
|