        DOUBLE PRECISION FUNCTION mysecond()
        include 'mpif.h'
        mysecond=MPI_Wtime()
        RETURN
        END
