Dear friends,
I'm desperately trying to run this simple code.
program Hello_World
implicit none
integer :: i
character(len=20) :: name[*]
if (this_image() == 1) then
write(*,'(a)',advance='no') 'Enter your name: '
read(*,'(a)') name
do i = 2, num_images()
name[i] = name
end do
end if
sync all
write(*,'(3a,i0)') 'Hello ',trim(name),' from image ', this_image()
read(*,*)
end program Hello_World
I installed the mpi libraries and added /Qcorray to the ifort.cfg
Now the the code compiles without errors but it doesn't run.
It closes immediately with following error:
'hellompi.exe' (Win32): Loaded 'C:\Windows\System32\sechost.dll'.
The thread 0x3818 has exited with code 4294967295 (0xffffffff).
The thread 0x58b8 has exited with code 4294967295 (0xffffffff).
The thread 0x4b4c has exited with code 4294967295 (0xffffffff).
The program '[7844] hellompi.exe' has exited with code 4294967295 (0xffffffff).
I need this mpi support because I am studying the wonderfull book 'Modern Fortran' by Milan Curcic.
Kind Regards
Roger
