test.f

来自「利用fortran写的实现2D射线追踪的源代码！运行于linux下！」· F 代码 · 共 7 行

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