This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
problem with understanding (array)
- From: anton_helm <a dot helm87 at googlemail dot com>
- To: fortran at gcc dot gnu dot org
- Date: Mon, 23 Aug 2010 14:40:56 +0200
- Subject: problem with understanding (array)
Hello everybody.
I write a program in F90 and MPI. And now I have some
missunderstanding in the code.
Maybe a short snapshot for understanding:
--------------
main.f
--------------
MAIN PROGRAM
:
integer*8 part_ind(N_p_t_max)
:
CALL profile(x,y,z, part_ind)
:
END MAIN PROGRAM
--------------
profile.f
--------------
SUBROUTINE profile(p_x,p_y,p_z, part_ind)
:
integer*8 part_ind(N_p_t_max)
:
CALL track(p_x, p_y, p_z, part_ind)
:
RETURN
END SUBROUTINE profile
--------------
track.f
--------------
SUBROUTINE track(tr_x,tr_y,tr_z, part_ind)
:
integer*8 part_ind(N_p_t_max)
:
part_ind(1) = 1 !@this point the program goes broke
:
RETURN
END SUBROUTINE track
_____________________________________
N_p_t_max....Set as global. It works fine!
shape(part_ind) - give me the right shape
huge(part_ind) - give me the right huge
After I try to define part_ind(1) the program the process broke and my
hole mpi-mesh too.