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