test.f

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

c
      x1=sign(1.,-3.)
      x2=sign(1.,3.)
      write(0,*) x1,x2
      stop
      end