Hi Adolfo,
Can you also provide instructions to compile this code?
Kapil
On Fri, May 18, 2018 at 3:53 PM ADOLFO JAVIER BANCHIO <
banc...@famaf.unc.edu.ar> wrote:
>
>
> Hi all,
>
> After having googled quite a lot without success and also having
> checked archive posts, I still can not run fortran compiled openmp codes
> using dmtcp_launch.
>
> I have installed on a Rocks 7 (CENTOS 7) cluster dmtcp version 2.5.2
> (from rpm and also compiled with --enable-openm flag),
> and I still can not run openmp executables produced by ifort compilded
> f90 codes.
>
> I run:
>
> in *shell 1*
>
> /export/added_soft/dmtcp/dmtcp-2.5.2/bin/dmtcp_coordinator
>
>
> and in *shell 2*
>
> export OMP_NUM_THREADS=3
>
> /export/added_soft/dmtcp/dmtcp-2.5.2/bin/dmtcp_launch ./omp_test.x
>
>
> output in *shell 1 *is:
>
> $ /export/added_soft/dmtcp/dmtcp-2.5.2/bin/dmtcp_coordinator
> dmtcp_coordinator starting...
> Host: bandurria.fis.uncor.edu (0.0.0.0)
> Port: 7779
> Checkpoint Interval: disabled (checkpoint manually instead)
> Exit on last client: 0
> Type '?' for help.
>
> [28865] NOTE at dmtcp_coordinator.cpp:1368 in updateCheckpointInterval;
> REASON='CheckpointInterval updated (for this computation only)'
> oldInterval = 0
> theCheckpointInterval = 0
> [28865] NOTE at dmtcp_coordinator.cpp:917 in onConnect; REASON='worker
> connected'
> hello_remote.from = 1ba5f63f5ba22d27-29111-99b9e2da0f18
> [28865] NOTE at dmtcp_coordinator.cpp:667 in onData; REASON='Updating
> process Information after exec()'
> progname = omp_test.x
> msg.from = 1ba5f63f5ba22d27-40000-99b9e3d17fe2
> client->identity() = 1ba5f63f5ba22d27-29111-99b9e2da0f18
>
>
> And* in shell 2*, the code starts (if I do top, it is running with one
> thread
> only, using 100% of cpu, but it seems not to spawn the threads, it seems
> that it gets stuck when it reaches a parallel section (the part of the
> code previous to parallel block it is actually executed).
>
>
> Thank you in advance for any help.
> I am new with dmtcp (coming from blcr), so, my apologies if this is
> a stupid issue ...
>
> regards,
>
> adolfo
>
>
>
>
> P.S.: the code I am using for testing (other real codes fail in the same
> way)
> program omp_test
> implicit none
> integer(8) :: i,j
> integer :: nt,tn,omp_get_num_threads,omp_get_thread_num
>
> write(*,*) "Hello ..."
>
> !nt = omp_get_num_threads()
> write(*,*) 'num threads = ',nt
>
> !$OMP PARALLEL PRIVATE(i,tn,nt)
> do i = 1, 10**9
> j = int( sqrt( log( real(i)/real(i**2.4) ) ) )
> if (mod(i,10**8) == 0) then
> ! nt = omp_get_num_threads()
> ! tn = omp_get_thread_num()
> write(*,*) tn, '/',nt,' -- > ', nint( log(real(i))/log(10.) )
> endif
> enddo
> !$OMP END PARALLEL
>
> end program
>
>
>
> ------------------------------------------------------------------------------
> Check out the vibrant tech community on one of the world's most
> engaging tech sites, Slashdot.org! http://sdm.link/slashdot
> _______________________________________________
> Dmtcp-forum mailing list
> Dmtcp-forum@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/dmtcp-forum
>
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Dmtcp-forum mailing list
Dmtcp-forum@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/dmtcp-forum
