r7.in

利用fortran写的实现2D射线追踪的源代码！运行于linux下！

  &pltpar isep=2, iplot=1, ibnd=0, vred=7., xwndow=290., ywndow=175.,
          iroute=1, iseg=0, ivel=0, nrskip=1, isum=3, idump=0, iszero=0,
          modout=0,dxmod=5.,dzmod=0.10,modi=1,2,0,0,xmmin=0.,xmmax=345.,
          ircol=1, itcol=1, irays=0, istep=0, xmin1d=  5., xmax1d= 60.,
          imod=0, iray=0, itxout=3, itx=0, idata=0,
          imod=1, iray=2, itxout=0, itx=3, idata=1,
  &end
  &axepar xmin=-10., xmax=360., xmm=270.,
          xmint=0., xmaxt=350., xmm=270.,
          zmax=47.,  zmm=70.,
          tmin=0.0, tmax=7.5,  tmm=70.,
          itrev=0, albht=3.0, orig=15., 
  &end   
  &trapar imodf=1, ibsmth=1, iraysl=1, step=.025, idiff=1,
          istop=2, i2pt=2, n2pt=15, x2pt=.05,
          ishot=1,1,-1,-1,-1,0,0,-1,
          ishot=0,0,0,0,0,0,0,0,
          ishot=1,0,0,-1,0,0,0,-1,
          ishot=0,0,0,0, 0,0,0,-1,
          ishot=1,1,-1,-1,-1,0,0,-1,
          ishot=0,0,0,1,0,-1,-1,-1,
          ishot=1,2,2,2,2,2,2,-1,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,0,0,0,0,0,
                1,1,1,1,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,1,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,1,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,1,0, 1,1,1,1,0,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,1,1,0,0,0,1, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          xshot=5.07,73.217,140.547,187.636,
                207.915,258.473,299.518,340.115,
          ray=1.1,1.3,2.1,2.3,3.1,4.2,5.2,5.3,5.0,5.0,5.0,5.0,5.0,
          nsmax=15,15,50,25,50,15,25,25,1,1,1,1,1,
          nray=35,1,100,1,100,100,200,1,500,200,200,200,200,
          space=1.5,1.,1.5,1.,2.,2.,2.,1.,1.,1.,1.,1.,1., hws=1.5,
          aamin=-7.0, aamax=75., 
          amin=2*54.,60.,55.7,59., amax=2*77.,65.,56.,62.,
          frbnd=0,0,0,0,0,0,0,0,0,0,0,0,0,
          frbnd=0,0,0,0,0,0,0,0,5,2,3,1,4,
  &end
  &invpar invr=1, ximax=10.,
          ivray=1,1,1,1,1,2,3,5,4,4,4,4,6,
  &end
  &amppar iamp=1, isect=2, hedcut=50., icaust=1,
          qp=250.,500.,500.,500.,1000.,1000., 
          omega=6.0,
  &end
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,0,0,0,0,0,
                1,1,1,1,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,1,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,1,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,1,0, 1,1,1,1,0,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,1,1,0,0,0,1, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,0,0,0,0,0,
                1,1,1,1,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,0,0, 1,1,1,1,0,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,1,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,1,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,1,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,1,0,0,0,1, 0,0,0,0,0,0,0,0,0,0,0,0,0,