test.f

来自「实现地震射线追踪和反演的frotran程序」· F 代码 · 共 7 行

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