sw_zfr 2014-08-23 04:55
浏览 1182

请教这个fortran脚本怎么用?据说是把txt文件转化成cst文件 linux下怎么操作 谢谢

下面是.f文件具体内容
parameter(npointp=900000)
real x(900000),y(900000)
integer num(900000),linenum(900000),npl(900000),lnum,nplt,
* lasti,i,j

    open(10, file='coastline.txt') 
    open(11, file='coastline.cst') 

  do i=1,npointp 
     read(10,*,end=100) num(i), y(i), x(i) 
  enddo 

100 continue
npoint=i-2
close(10)
lnum=0
nplt=0
lasti=0
do i=1,npoint

     if(num(i).eq.3) then 
    lnum=lnum+1 
    npl(lnum)=i-lasti 
    lasti=i 
     end if 
  enddo 

  write(11, *) 'COAST' 
write(11,'(I5,f4.1)') lnum,0.0 
  j=1 
  do i=1, npoint 
  print*,i 
      if(num(i).eq.1) then 
    write(11,'(I5,I4)')npl(j),0 
    j=j+1 
  endif 
  write(11,30) x(i),y(i),0.0 
enddo 

30 format(1x,2f20.4,f5.1)

   close(11) 
end
  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥15 素材场景中光线烘焙后灯光失效
    • ¥15 请教一下各位,为什么我这个没有实现模拟点击
    • ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
    • ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
    • ¥20 有关区间dp的问题求解
    • ¥15 多电路系统共用电源的串扰问题
    • ¥15 slam rangenet++配置
    • ¥15 有没有研究水声通信方面的帮我改俩matlab代码
    • ¥15 ubuntu子系统密码忘记
    • ¥15 保护模式-系统加载-段寄存器