xref: /phasta/phSolver/compressible/secs.f (revision d7abaf6c7709145d1e6e6b7740bd56c3f238d064)
1      real*8 function secs(t)
2
3      real t
4
5      secs = 0.0
6
7      return
8      end
9