代码搜索结果
找到约 10,000 项符合
W 的代码
w.f90
real*8 :: x(1:100),y(1:100),b(1:3),z
integer m,a(1:6),n
character :: head*8,filename*20,out*23
read(*,*)filename
out="out"//filename
open(1,FILE=filename,status='old')
open(2,FILE=out,status='un