second0.f

      SUBROUTINE second0(stime)
      USE stel_kinds
      USE mpi_inc
      IMPLICIT NONE
 
!----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
      REAL(rprec), INTENT(out) :: stime
      INTEGER :: cnt, cnt_rate
!-----------------------------------------------
#if defined(MPI_OPT)
      INTEGER :: lMPIInit, MPI_ERR
      CALL mpi_initialized(lmpiinit, mpi_err)
      IF (lmpiinit .NE. 0) THEN
         stime=mpi_wtime()
         RETURN
      END IF
#endif
      CALL system_clock(count=cnt, count_rate=cnt_rate)
      IF (cnt_rate .ne. 0) THEN
         stime = real(cnt, rprec)/cnt_rate
      ELSE
         stime = 0
      END IF
      END SUBROUTINE second0