On Dec 16, 2016, at 12:48 PM, 🐋 Jan Hegewald <jan.hegew...@awi.de> wrote: > > Your example works fine here too. > I call Wtime from Fortran code. But if I do the same as in your C example 1), > it seems to work as well. > I am puzzled as to what is causing this. On several HPC clusters everything > is fine. Only on my Mac I see the 0.0. As this is the only time I use > openmpi, I thought it would be the cause. Strange. I will keep you informed.
What compiler are you using? I literally just installed gcc/gfortran 6.2 from hpc.sf.net. I also changed your "include 'mpif.h'" to "use mpi_f08" and tried your test: ----- $ uname -a Darwin JSQUYRES-M-H05C 16.1.0 Darwin Kernel Version 16.1.0: Thu Oct 13 21:26:57 PDT 2016; root:xnu-3789.21.3~60/RELEASE_X86_64 x86_64 $ /usr/local/bin/gcc --version gcc (GCC) 6.2.0 Copyright (C) 2016 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. $ /usr/local/bin/gfortran --version GNU Fortran (GCC) 6.2.0 Copyright (C) 2016 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. $ cat foo.f90 program main use mpi_f08; integer :: i double precision :: a, b call MPI_INIT(i) a = MPI_Wtime() call sleep(1) b = MPI_Wtime() write(*,*) a, b call MPI_Finalize(MPIerr) end $ mpifort foo.f90 -o foo && mpirun -np 1 ./foo 2.1048000000000001E-002 1.0250699999999999 ----- > Cheers, > Jan > > > 1) > > program main > include 'mpif.h' > integer :: i > real(kind=8) :: a, b > call MPI_INIT(i) > a = MPI_Wtime() > call sleep(1) > b = MPI_Wtime() > write(*,*) a, b > call MPI_Finalize(MPIerr) > end > > _______________________________________________ > devel mailing list > devel@lists.open-mpi.org > https://rfd.newmexicoconsortium.org/mailman/listinfo/devel -- Jeff Squyres jsquy...@cisco.com For corporate legal information go to: http://www.cisco.com/web/about/doing_business/legal/cri/ _______________________________________________ devel mailing list devel@lists.open-mpi.org https://rfd.newmexicoconsortium.org/mailman/listinfo/devel
