Lines 31-36
Link Here
|
31 |
integer, parameter :: mpidtypg=MPI_DOUBLE_PRECISION |
31 |
integer, parameter :: mpidtypg=MPI_DOUBLE_PRECISION |
32 |
!integer, parameter :: mpidtypw=MPI_REAL,mpidtypd=MPI_REAL !in case of single precision |
32 |
!integer, parameter :: mpidtypw=MPI_REAL,mpidtypd=MPI_REAL !in case of single precision |
33 |
|
33 |
|
|
|
34 |
real(kind=4), parameter :: memorylimit=3.e0 |
35 |
|
34 |
!flag for GPU computing, if CUDA libraries are present |
36 |
!flag for GPU computing, if CUDA libraries are present |
35 |
!the parameter flag is removed to allow each processor to modify it following the needs |
37 |
!the parameter flag is removed to allow each processor to modify it following the needs |
36 |
!in that case if a GPU is present a given MPI processor may or not perform a GPU calculation |
38 |
!in that case if a GPU is present a given MPI processor may or not perform a GPU calculation |