！start_line＝插入開始位置

!end_line＝插入結(jié)束位置

!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)           ！插入內(nèi)容
(3x,f11.8,4x,f11.8)
*VWRITE,AStr4(1,1)
%C
*cfclos