INITIALIZATION.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	initialization (comm, np, id, ierr)
	Inizialization for parallel computation.

Function/Subroutine Documentation

initialization()

subroutine initialization	(	integer*4	comm,
		integer*4	np,
		integer*4	id,
		integer*4	ierr
	)

Inizialization for parallel computation.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	comm	mpi common world
[in]	np	number of mpi processes
[in]	id	mpi processor index
[out]	mpi	error

Definition at line 28 of file INITIALIZATION.f90.

     
     implicit none
     include 'SPEED.MPI'
     
     integer*4 :: comm,np,id,ierr
     
     call mpi_init(ierr)
     call mpi_comm_rank(comm,id,ierr)
     call mpi_comm_size(comm,np,ierr)
     
     if (ierr.ne.0) then
        write(*,*)'MPI Initialization error - proc : ',id
     endif
     
     speed_tag = speed_tag_min
     
     return