ppinit.f90
83b8f38f6c51new_coulomb

ppinit.f90
View Options

			SUBROUTINE ppinit
			!
			! Parallel envrionment. Get the number of requested MPI processes
			!
			!
			USE prec_const
			USE basic
			USE basic_mpi
			!
			IMPLICIT NONE
			!
			INTEGER :: nargs
			INTEGER, PARAMETER :: ndims =3
			CHARACTER(len=32) :: str
			INTEGER,DIMENSION(ndims) :: dims
			!
			INTEGER :: i
			!________________________________________
			!
			! Setup parallel envrionement

			CALL MPI_INIT(ierr)
			CALL MPI_COMM_SIZE(MPI_COMM_WORLD,nprocs,ierr)
			!
			! Get myrank
			CALL MPI_COMM_RANK(MPI_COMM_WORLD,me,ierr)
			!
			WRITE(me_str,'(I3.3)') me
			!
			!
			IF(me .eq. 0) WRITE(,) 'Number of processors =',nprocs
			!
			! read input file
			call read_inputfile
			call parallelization_readinputs
			!
			!
			END SUBROUTINE ppinit