1dforward.for!ldforward.for主程序realps(30),r(20),p(30),h(9),sd(9)!ps(30)电测深视电阻率；r(30)极距；p(10)层电阻率；h(9)层厚度，sd(9)深度character*50char,name1,name2integernalyer,maxwrite(*,*)"请输入模型文件名:"read(*,*)name1open(2,file=name1)write(*,*)"请输入视电阻率文件名:"read(*,*)name2open(1,file=name2)read(2,*)charr
