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
initialization
subroutine initialization(comm, np, id, ierr)
Inizialization for parallel computation.
Definition
INITIALIZATION.f90:29
speed
INITIALIZATION.f90
Generated by
1.9.8