Skip to content
Snippets Groups Projects
Commit 04a6a836 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 9/06/2015: for I*8 compilation force JPIM to default size

parent 3ac83846
No related branches found
No related tags found
No related merge requests found
...@@ -7,6 +7,7 @@ ...@@ -7,6 +7,7 @@
MODULE PARKIND1 MODULE PARKIND1
! !
! *** Define usual kinds for strong typing *** ! *** Define usual kinds for strong typing ***
! J.Escobar : 9/06/2015, for I*8 compilation force JPIM to default size
! !
IMPLICIT NONE IMPLICIT NONE
SAVE SAVE
...@@ -16,7 +17,8 @@ SAVE ...@@ -16,7 +17,8 @@ SAVE
! !
INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2) INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4) INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9) INTEGER :: JINT_DEF
INTEGER, PARAMETER :: JPIM = KIND(JINT_DEF) ! SELECTED_INT_KIND(9)
INTEGER, PARAMETER :: JPIB = SELECTED_INT_KIND(12) INTEGER, PARAMETER :: JPIB = SELECTED_INT_KIND(12)
! !
! Real Kinds ! Real Kinds
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment