second_NONE.f 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  1. *> \brief \b SECOND returns nothing
  2. *
  3. * =========== DOCUMENTATION ===========
  4. *
  5. * Online html documentation available at
  6. * http://www.netlib.org/lapack/explore-html/
  7. *
  8. * Definition:
  9. * ===========
  10. *
  11. * REAL FUNCTION SECOND( )
  12. *
  13. *
  14. *> \par Purpose:
  15. * =============
  16. *>
  17. *> \verbatim
  18. *>
  19. *> SECOND returns nothing instead of returning the user time for a process in seconds.
  20. *> If you are using that routine, it means that neither EXTERNAL ETIME,
  21. *> EXTERNAL ETIME_, INTERNAL ETIME, INTERNAL CPU_TIME is available on
  22. *> your machine.
  23. *> \endverbatim
  24. *
  25. * Authors:
  26. * ========
  27. *
  28. *> \author Univ. of Tennessee
  29. *> \author Univ. of California Berkeley
  30. *> \author Univ. of Colorado Denver
  31. *> \author NAG Ltd.
  32. *
  33. *> \date November 2011
  34. *
  35. *> \ingroup auxOTHERauxiliary
  36. *
  37. * =====================================================================
  38. REAL FUNCTION SECOND( )
  39. *
  40. * -- LAPACK auxiliary routine (version 3.4.0) --
  41. * -- LAPACK is a software package provided by Univ. of Tennessee, --
  42. * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  43. * November 2011
  44. *
  45. * =====================================================================
  46. *
  47. SECOND = 0.0E+0
  48. RETURN
  49. *
  50. * End of SECOND
  51. *
  52. END