!start_line=插入开始位置
!end_line=插入结束位置
!Filename1='文本名'
*dim,Astr3,String,
*dim,Astr4,String,
*Sread,Astr3,'%Filename1%',inp,,128,0,start_line-1
*Sread,Astr4,'%Filename1%',inp,,128,end_line,
*CFOPEN,'%Filename1%',inp,,
*VWRITE,AStr3(1,1)
%C
*vwrite,zr_out(1,1),zr_out(1,2)
(3x,f11.8,4x,f11.8)
*VWRITE,AStr4(1,1)
%C
*cfclos