Commit 0f862c83 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

use of iso kind

parent f36fcdb0
......@@ -29,39 +29,40 @@
module constants_m
use iso_c_binding
use iso_fortran_env
use mpi
implicit none
private
public :: EPSILON_D, EPSILON, &
FILENAME_LEN, &
IDKIND, &
LOG_UNIT, &
MPI_DP, &
MPI_IDKIND, &
NAME_CONECREATOR_GRAV, &
NAME_CONECREATOR_PART, &
NAME_CONEMAPPER, &
NAME_PFOF_CONE, &
NAME_PFOF_SNAP, &
NAME_PSOD_SNAP, &
PR, &
DP, &
QDP, &
GIT_VERSION, &
INT_FMT, LONGINT_FMT, DOUBLE_FMT, CHAR_FMT
FILENAME_LEN, &
IDKIND, &
LOG_UNIT, &
MPI_DP, &
MPI_IDKIND, &
NAME_CONECREATOR_GRAV, &
NAME_CONECREATOR_PART, &
NAME_CONEMAPPER, &
NAME_PFOF_CONE, &
NAME_PFOF_SNAP, &
NAME_PSOD_SNAP, &
PR, &
DP, &
QDP, &
GIT_VERSION, &
INT_FMT, LONGINT_FMT, DOUBLE_FMT, CHAR_FMT
#include "gitversion.h"
! filename length
integer, parameter :: FILENAME_LEN = 512
#ifdef LONGINT
integer, parameter :: IDKIND = 8
integer, parameter :: IDKIND = int64
integer, parameter :: MPI_IDKIND = MPI_INTEGER8
#else
integer, parameter :: IDKIND = 4
integer, parameter :: IDKIND = int32
integer, parameter :: MPI_IDKIND = MPI_INTEGER
#endif
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment