ppinit.F90
00337f61ecdashear_version

ppinit.F90
View Options

			SUBROUTINE ppinit
			! Parallel environment

			USE basic
			USE model, ONLY : NON_LIN
			use prec_const
			IMPLICIT NONE

			INTEGER :: version_prov=-1

			CALL MPI_INIT(ierr)
			! CALL MPI_INIT_THREAD(MPI_THREAD_SINGLE,version_prov,ierr)
			! CALL MPI_INIT_THREAD(MPI_THREAD_FUNNELED,version_prov,ierr)

			CALL MPI_COMM_RANK (MPI_COMM_WORLD, my_id, ierr)
			CALL MPI_COMM_SIZE (MPI_COMM_WORLD, num_procs, ierr)

			END SUBROUTINE ppinit