SPEED
INITIALIZATION.f90
Go to the documentation of this file.
1! Copyright (C) 2012 The SPEED FOUNDATION
2! Author: Ilario Mazzieri
3!
4! This file is part of SPEED.
5!
6! SPEED is free software; you can redistribute it and/or modify it
7! under the terms of the GNU Affero General Public License as
8! published by the Free Software Foundation, either version 3 of the
9! License, or (at your option) any later version.
10!
11! SPEED is distributed in the hope that it will be useful, but
12! WITHOUT ANY WARRANTY; without even the implied warranty of
13! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14! Affero General Public License for more details.
15!
16! You should have received a copy of the GNU Affero General Public License
17! along with SPEED. If not, see <http://www.gnu.org/licenses/>.
18
27
28 subroutine initialization(comm,np,id,ierr)
29
30 implicit none
31 include 'SPEED.MPI'
32
33 integer*4 :: comm,np,id,ierr
34
35 call mpi_init(ierr)
36 call mpi_comm_rank(comm,id,ierr)
37 call mpi_comm_size(comm,np,ierr)
38
39 if (ierr.ne.0) then
40 write(*,*)'MPI Initialization error - proc : ',id
41 endif
42
43 speed_tag = speed_tag_min
44
45 return
46
47 end subroutine initialization
subroutine initialization(comm, np, id, ierr)
Inizialization for parallel computation.