Fix violation of Fortitude rule PORT011

Checks for use of raw number literals as kinds

Rather than setting an intrinsic type's kind using an integer literal, such as
`real(8)` or `integer(kind=4)`, consider setting kinds using parameters in the
intrinsic module `iso_fortran_env` such as `real64` and `int32`. For
C-compatible types, consider instead `iso_c_binding` types such as
`real(c_double)`.

Although it is widely believed that `real(8)` represents an 8-byte floating
point (and indeed, this is the case for most compilers and architectures),
there is nothing in the standard to mandate this, and compiler vendors are free
to choose any mapping between kind numbers and machine precision. This may lead
to surprising results if your code is ported to another machine or compiler.

For floating point variables, we recommended using `real(sp)` (single
precision), `real(dp)` (double precision), and `real(qp)` (quadruple precision),
using:

```f90
use, intrinsic :: iso_fortran_env, only: sp => real32, &
                                         dp => real64, &
                                         qp => real128
```

Or alternatively:

```f90
integer, parameter :: sp = selected_real_kind(6, 37)
integer, parameter :: dp = selected_real_kind(15, 307)
integer, parameter :: qp = selected_real_kind(33, 4931)
```

Some prefer to set one precision parameter `wp` (working precision), which is
set in one module and used throughout a project.

Integer sizes may be set similarly:

```f90
integer, parameter :: i1 = selected_int_kind(2)  ! 8 bits
integer, parameter :: i2 = selected_int_kind(4)  ! 16 bits
integer, parameter :: i4 = selected_int_kind(9)  ! 32 bits
integer, parameter :: i8 = selected_int_kind(18) ! 64 bits
```

Or:

```f90
use, intrinsic :: iso_fortran_env, only: i1 => int8, &
                                         i2 => int16, &
                                         i4 => int32, &
                                         i8 => int64
```

Author: samhatfield

src/ectrans4py/etrans_inq4py.F90

@@ -21,16 +21,17 @@ SUBROUTINE ETRANS_INQ4PY(KRETURNCODE, KSIZEI, KSIZEJ, KPHYSICALSIZEI, KPHYSICALS
 !    6 Jan., S. Riette: PDELTAX and PDELTAY added
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
-INTEGER(KIND=8), INTENT(IN) :: KSIZEI, KSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KTRUNCX, KTRUNCY
-INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL
-REAL(KIND=8), INTENT(IN) :: PDELTAX
-REAL(KIND=8), INTENT(IN) :: PDELTAY
-INTEGER(KIND=8), INTENT(OUT) :: KGPTOT
-INTEGER(KIND=8), INTENT(OUT) :: KSPEC
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZEI, KSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNCX, KTRUNCY
+INTEGER(KIND=INT64), INTENT(IN) :: KNUMMAXRESOL
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAX
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAY
+INTEGER(KIND=INT64), INTENT(OUT) :: KGPTOT
+INTEGER(KIND=INT64), INTENT(OUT) :: KSPEC
 !
 ! II. Local variables declaration
 INTEGER, DIMENSION(0:KTRUNCX) :: IESM0

src/ectrans4py/gp2sp_gauss4py.F90

@@ -23,20 +23,21 @@ SUBROUTINE GP2SP_GAUSS4PY(KRETURNCODE, KSPEC, KSIZEJ, KTRUNC, KNUMMAXRESOL, KSLO
 !    March, 2016, A.Mary: LREORDER
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 USE PARKIND1, ONLY : JPRB
 USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_BOOL
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
-INTEGER(KIND=8), INTENT(IN) :: KSPEC
-INTEGER(KIND=8), INTENT(IN) :: KSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KTRUNC
-INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL
-INTEGER(KIND=8), INTENT(IN) :: KSLOEN
-INTEGER(KIND=8), DIMENSION(KSLOEN), INTENT(IN) :: KLOEN
-INTEGER(KIND=8), INTENT(IN) :: KSIZE
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(IN) :: KSPEC
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNC
+INTEGER(KIND=INT64), INTENT(IN) :: KNUMMAXRESOL
+INTEGER(KIND=INT64), INTENT(IN) :: KSLOEN
+INTEGER(KIND=INT64), DIMENSION(KSLOEN), INTENT(IN) :: KLOEN
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZE
 LOGICAL(KIND=C_BOOL), INTENT(IN) :: LREORDER
-REAL(KIND=8), DIMENSION(KSIZE), INTENT(IN) :: PGPT
-REAL(KIND=8), DIMENSION(KSPEC), INTENT(OUT) :: PSPEC
+REAL(KIND=REAL64), DIMENSION(KSIZE), INTENT(IN) :: PGPT
+REAL(KIND=REAL64), DIMENSION(KSPEC), INTENT(OUT) :: PSPEC
 !
 ! II. Local variables declaration
 INTEGER, DIMENSION(SIZE(KLOEN)) :: ILOEN
@@ -50,7 +51,7 @@ SUBROUTINE GP2SP_GAUSS4PY(KRETURNCODE, KSPEC, KSIZEJ, KTRUNC, KNUMMAXRESOL, KSLO
 INTEGER, DIMENSION(0:KTRUNC) :: NASM0
 REAL(KIND=JPRB), DIMENSION(1, SIZE(PGPT)) :: ZSPBUF !size over-evaluated
 REAL(KIND=JPRB), DIMENSION(SIZE(PGPT), 1, 1) :: ZGPBUF
-REAL(KIND=8) :: ZDELTAX, ZDELTAY
+REAL(KIND=REAL64) :: ZDELTAX, ZDELTAY
 
 #include "trans_inq.h"
 #include "dir_trans.h"

src/ectrans4py/gp2sp_lam4py.F90

@@ -24,19 +24,20 @@ SUBROUTINE GP2SP_LAM4PY(KRETURNCODE, KSIZE, KSIZEI, KSIZEJ, KPHYSICALSIZEI, KPHY
 !    March, 2016, A.Mary: LREORDER
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 USE PARKIND1, ONLY : JPRB
 USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_BOOL
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
-INTEGER(KIND=8), INTENT(IN) :: KSIZE, KSIZEI, KSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KTRUNCX, KTRUNCY
-INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL
-REAL(KIND=8), INTENT(IN) :: PDELTAX
-REAL(KIND=8), INTENT(IN) :: PDELTAY
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZE, KSIZEI, KSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNCX, KTRUNCY
+INTEGER(KIND=INT64), INTENT(IN) :: KNUMMAXRESOL
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAX
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAY
 LOGICAL(KIND=C_BOOL), INTENT(IN) :: LREORDER
-REAL(KIND=8), DIMENSION(KSIZEI*KSIZEJ), INTENT(IN) :: PGPT
-REAL(KIND=8), DIMENSION(KSIZE), INTENT(OUT) :: PSPEC
+REAL(KIND=REAL64), DIMENSION(KSIZEI*KSIZEJ), INTENT(IN) :: PGPT
+REAL(KIND=REAL64), DIMENSION(KSIZE), INTENT(OUT) :: PSPEC
 !
 ! II. Local variables declaration
 INTEGER, DIMENSION(0:KTRUNCX) :: IESM0

src/ectrans4py/sp2gp_fft1d4py.F90

@@ -20,19 +20,20 @@ SUBROUTINE SP2GP_FFT1D4PY(KSIZES, KTRUNC, PSPEC, KSIZEG, PGPT)
 !
 ! I. Dummy arguments declaration
 
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 USE TPM_FFTW_DP, ONLY: EXEC_FFTW
 
 IMPLICIT NONE
 
-INTEGER(KIND=8), INTENT(IN) :: KSIZES
-INTEGER(KIND=8), INTENT(IN) :: KTRUNC
-REAL(KIND=8), DIMENSION(KSIZES), INTENT(IN) :: PSPEC
-INTEGER(KIND=8), INTENT(IN) :: KSIZEG
-REAL(KIND=8), DIMENSION(KSIZEG), INTENT(OUT) :: PGPT
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZES
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNC
+REAL(KIND=REAL64), DIMENSION(KSIZES), INTENT(IN) :: PSPEC
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZEG
+REAL(KIND=REAL64), DIMENSION(KSIZEG), INTENT(OUT) :: PGPT
 
-INTEGER(KIND=8) :: NFTM, NDGLSUR
-REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: SP2
-INTEGER(KIND=8), PARAMETER :: NZERO=0
+INTEGER(KIND=INT64) :: NFTM, NDGLSUR
+REAL(KIND=REAL64), DIMENSION(:,:), ALLOCATABLE :: SP2
+INTEGER(KIND=INT64), PARAMETER :: NZERO=0
 
 NDGLSUR = KSIZEG+MOD(KSIZEG,2)+2
 NFTM    = 2*(KTRUNC+1)
@@ -48,16 +49,16 @@ SUBROUTINE SP2GP_FFT1D4PY(KSIZES, KTRUNC, PSPEC, KSIZEG, PGPT)
 ! and utilities/pinuts/module/array_lib_mod.F90
 
 FUNCTION CONVRT2FFT(IN,X,Y,N) RESULT(OU)
-REAL(KIND=8),DIMENSION(:),INTENT(IN)      :: IN
-INTEGER(KIND=8),INTENT(IN)                       :: X, Y, N
-REAL(KIND=8),DIMENSION(N*2*(X+1))         :: OU
+REAL(KIND=REAL64),DIMENSION(:),INTENT(IN)      :: IN
+INTEGER(KIND=INT64),INTENT(IN)                       :: X, Y, N
+REAL(KIND=REAL64),DIMENSION(N*2*(X+1))         :: OU
 
-INTEGER(KIND=8),DIMENSION(2*(X+1),(N/2))         :: MINQ 
-INTEGER(KIND=8),DIMENSION((N/2),2*(X+1))         :: TMINQ 
-REAL(KIND=8),DIMENSION(2*(X+1),(N/2))     :: OMINQ, EMINQ
-REAL(KIND=8),DIMENSION((N/2),2*(X+1))     :: TOMINQ, TEMINQ   
-REAL(KIND=8),DIMENSION(N*(X+1))           :: OINI, EINI
-REAL(KIND=8), PARAMETER                   :: ZZERO=0.0
+INTEGER(KIND=INT64),DIMENSION(2*(X+1),(N/2))         :: MINQ
+INTEGER(KIND=INT64),DIMENSION((N/2),2*(X+1))         :: TMINQ
+REAL(KIND=REAL64),DIMENSION(2*(X+1),(N/2))     :: OMINQ, EMINQ
+REAL(KIND=REAL64),DIMENSION((N/2),2*(X+1))     :: TOMINQ, TEMINQ
+REAL(KIND=REAL64),DIMENSION(N*(X+1))           :: OINI, EINI
+REAL(KIND=REAL64), PARAMETER                   :: ZZERO=0.0
 
 CALL SPLIT_ODEV(IN,OINI,EINI)
 MINQ   = MASQ(X,Y,N)
@@ -72,12 +73,12 @@ FUNCTION CONVRT2FFT(IN,X,Y,N) RESULT(OU)
 END FUNCTION CONVRT2FFT
 
 FUNCTION MASQ(X,Y,N) RESULT(T)
-INTEGER(KIND=8),INTENT(IN)                       :: X, Y, N
-INTEGER(KIND=8),DIMENSION(1:2*(X+1),1:(N/2))     :: T
+INTEGER(KIND=INT64),INTENT(IN)                       :: X, Y, N
+INTEGER(KIND=INT64),DIMENSION(1:2*(X+1),1:(N/2))     :: T
 
-INTEGER(KIND=8)                                  :: I, J
-INTEGER(KIND=8),DIMENSION(0:X)                   :: KM
-INTEGER(KIND=8),DIMENSION(0:Y)                   :: KN
+INTEGER(KIND=INT64)                                  :: I, J
+INTEGER(KIND=INT64),DIMENSION(0:X)                   :: KM
+INTEGER(KIND=INT64),DIMENSION(0:Y)                   :: KN
 CALL ELLIPS(INT(X,4),INT(Y,4),INT(KN,4),INT(KM,4))
 T = 0
 DO I=0,Y
@@ -88,10 +89,10 @@ FUNCTION MASQ(X,Y,N) RESULT(T)
 END FUNCTION MASQ
 
 FUNCTION MIX_ODEV(TO,TE) RESULT(T)
-REAL(KIND=8),DIMENSION(:),INTENT(IN)        :: TO,TE
-REAL(KIND=8),DIMENSION(SIZE(TO)+SIZE(TE))   :: T
+REAL(KIND=REAL64),DIMENSION(:),INTENT(IN)        :: TO,TE
+REAL(KIND=REAL64),DIMENSION(SIZE(TO)+SIZE(TE))   :: T
 
-INTEGER(KIND=8) :: I
+INTEGER(KIND=INT64) :: I
 
 DO I=1,(SIZE(TO)+SIZE(TE))/2
   T((2*I)-1)=TE(I)
@@ -100,10 +101,10 @@ FUNCTION MIX_ODEV(TO,TE) RESULT(T)
 END FUNCTION MIX_ODEV
 
 SUBROUTINE SPLIT_ODEV(T,TO,TE)
-REAL(KIND=8),DIMENSION(:),INTENT(IN)          :: T
-REAL(KIND=8),DIMENSION(SIZE(T)/2),INTENT(OUT) :: TO,TE
+REAL(KIND=REAL64),DIMENSION(:),INTENT(IN)          :: T
+REAL(KIND=REAL64),DIMENSION(SIZE(T)/2),INTENT(OUT) :: TO,TE
 
-INTEGER(KIND=8) :: I
+INTEGER(KIND=INT64) :: I
 
 DO I=1,SIZE(T)/2
   TO(I)=T(2*I)

src/ectrans4py/sp2gp_gauss4py.F90

@@ -27,23 +27,24 @@ SUBROUTINE SP2GP_GAUSS4PY(KRETURNCODE, KSIZEJ, KTRUNC, KNUMMAXRESOL, KGPTOT, KSL
 !    Sept., 2016, A.Mary: LGRADIENT
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 USE PARKIND1, ONLY : JPRB
 USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_BOOL
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
-INTEGER(KIND=8), INTENT(IN) :: KSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KTRUNC
-INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL
-INTEGER(KIND=8), INTENT(IN) :: KGPTOT
-INTEGER(KIND=8), INTENT(IN) :: KSLOEN
-INTEGER(KIND=8), DIMENSION(KSLOEN), INTENT(IN) :: KLOEN
-INTEGER(KIND=8), INTENT(IN) :: KSIZE
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNC
+INTEGER(KIND=INT64), INTENT(IN) :: KNUMMAXRESOL
+INTEGER(KIND=INT64), INTENT(IN) :: KGPTOT
+INTEGER(KIND=INT64), INTENT(IN) :: KSLOEN
+INTEGER(KIND=INT64), DIMENSION(KSLOEN), INTENT(IN) :: KLOEN
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZE
 LOGICAL(KIND=C_BOOL), INTENT(IN) :: LGRADIENT
 LOGICAL(KIND=C_BOOL), INTENT(IN) :: LREORDER
-REAL(KIND=8), DIMENSION(KSIZE),  INTENT(IN)  :: PSPEC
-REAL(KIND=8), DIMENSION(KGPTOT), INTENT(OUT) :: PGPT
-REAL(KIND=8), DIMENSION(KGPTOT), INTENT(OUT) :: PGPTM
-REAL(KIND=8), DIMENSION(KGPTOT), INTENT(OUT) :: PGPTL
+REAL(KIND=REAL64), DIMENSION(KSIZE),  INTENT(IN)  :: PSPEC
+REAL(KIND=REAL64), DIMENSION(KGPTOT), INTENT(OUT) :: PGPT
+REAL(KIND=REAL64), DIMENSION(KGPTOT), INTENT(OUT) :: PGPTM
+REAL(KIND=REAL64), DIMENSION(KGPTOT), INTENT(OUT) :: PGPTL
 !
 ! II. Local variables declaration
 INTEGER, DIMENSION(SIZE(KLOEN)) :: ILOEN
@@ -55,9 +56,9 @@ SUBROUTINE SP2GP_GAUSS4PY(KRETURNCODE, KSIZEJ, KTRUNC, KNUMMAXRESOL, KGPTOT, KSL
 INTEGER :: IIDENTRESOL
 INTEGER :: JI, JM, JN
 INTEGER, DIMENSION(0:KTRUNC) :: NASM0
-REAL(KIND=8), DIMENSION(1, KSIZE) :: ZSPBUF
+REAL(KIND=REAL64), DIMENSION(1, KSIZE) :: ZSPBUF
 REAL(KIND=JPRB), DIMENSION(:,:,:), ALLOCATABLE :: ZGPBUF
-REAL(KIND=8) :: ZDELTAX, ZDELTAY
+REAL(KIND=REAL64) :: ZDELTAX, ZDELTAY
 #include "trans_inq.h"
 #include "inv_trans.h"
 

src/ectrans4py/sp2gp_lam4py.F90

@@ -28,29 +28,30 @@ SUBROUTINE SP2GP_LAM4PY(KRETURNCODE, KSIZEI, KSIZEJ, KPHYSICALSIZEI, KPHYSICALSI
 !    March, 2016, A.Mary: LREORDER
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 USE PARKIND1, ONLY : JPRB
 USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_BOOL
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
-INTEGER(KIND=8), INTENT(IN) :: KSIZEI, KSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KTRUNCX, KTRUNCY
-INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL
-INTEGER(KIND=8), INTENT(IN) :: KSIZE
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZEI, KSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNCX, KTRUNCY
+INTEGER(KIND=INT64), INTENT(IN) :: KNUMMAXRESOL
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZE
 LOGICAL(KIND=C_BOOL), INTENT(IN) :: LGRADIENT
 LOGICAL(KIND=C_BOOL), INTENT(IN) :: LREORDER
-REAL(KIND=8), INTENT(IN) :: PDELTAX
-REAL(KIND=8), INTENT(IN) :: PDELTAY
-REAL(KIND=8), DIMENSION(KSIZE), INTENT(IN) :: PSPEC
-REAL(KIND=8), DIMENSION(KSIZEI*KSIZEJ), INTENT(OUT) :: PGPT
-REAL(KIND=8), DIMENSION(KSIZEI*KSIZEJ), INTENT(OUT) :: PGPTM
-REAL(KIND=8), DIMENSION(KSIZEI*KSIZEJ), INTENT(OUT) :: PGPTL
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAX
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAY
+REAL(KIND=REAL64), DIMENSION(KSIZE), INTENT(IN) :: PSPEC
+REAL(KIND=REAL64), DIMENSION(KSIZEI*KSIZEJ), INTENT(OUT) :: PGPT
+REAL(KIND=REAL64), DIMENSION(KSIZEI*KSIZEJ), INTENT(OUT) :: PGPTM
+REAL(KIND=REAL64), DIMENSION(KSIZEI*KSIZEJ), INTENT(OUT) :: PGPTL
 !
 ! II. Local variables declaration
 INTEGER, DIMENSION(0:KTRUNCX) :: IESM0
 INTEGER :: IGPTOT, ISPEC
 INTEGER, DIMENSION(0:KTRUNCY) :: ISPECINI, ISPECEND
-REAL(KIND=8), DIMENSION(1, KSIZE) :: ZSPBUF
+REAL(KIND=REAL64), DIMENSION(1, KSIZE) :: ZSPBUF
 REAL(KIND=JPRB), DIMENSION(KSIZEI*KSIZEJ, 3, 1) :: ZGPBUF
 INTEGER :: JI, JM, JN, IINDEX, IIDENTRESOL
 LOGICAL :: LLSTOP

src/ectrans4py/spec_setup4py.F90

@@ -27,18 +27,19 @@ SUBROUTINE SPEC_SETUP4PY(KRETURNCODE, KSIZEI, KSIZEJ, KPHYSICALSIZEI, KPHYSICALS
 !    31 Jan 2019 R. El Khatib fix for single precision compilation
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 USE PARKIND1, ONLY : JPRB
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
 INTEGER, INTENT(IN) :: KSIZEI, KSIZEJ
 INTEGER, INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ
 INTEGER, INTENT(IN) :: KTRUNCX, KTRUNCY
 INTEGER, INTENT(IN) :: KNUMMAXRESOL
 INTEGER, DIMENSION(KSIZEKLOEN), INTENT(IN) :: KLOEN
 LOGICAL, INTENT(IN) :: LDLAM
 INTEGER, INTENT(IN) :: KSIZEKLOEN
-REAL(KIND=8), INTENT(IN) :: PDELTAX
-REAL(KIND=8), INTENT(IN) :: PDELTAY
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAX
+REAL(KIND=REAL64), INTENT(IN) :: PDELTAY
 INTEGER, INTENT(OUT) :: KIDENTRESOL
 LOGICAL, INTENT(OUT) :: LDSTOP
 !
@@ -48,17 +49,17 @@ SUBROUTINE SPEC_SETUP4PY(KRETURNCODE, KSIZEI, KSIZEJ, KPHYSICALSIZEI, KPHYSICALS
 LOGICAL, SAVE :: LLFIRSTCALL=.TRUE.
 LOGICAL :: LLNEWRESOL
 INTEGER, SAVE :: INBRESOL=0
-INTEGER(KIND=8) :: ICODEILOEN
+INTEGER(KIND=INT64) :: ICODEILOEN
 INTEGER, SAVE :: INUMMAXRESOLSAVE=-1
 INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: ITRUNCXSAVE, ITRUNCYSAVE, &
                                             IPHYSICALSIZEISAVE, &
                                             IPHYSICALSIZEJSAVE, &
                                             ISIZEISAVE, ISIZEJSAVE, &
                                             IIDENTRESOLSAVE
-INTEGER(KIND=8), DIMENSION(:), ALLOCATABLE, SAVE :: ILOENSAVE
-REAL(KIND=8), DIMENSION(:), ALLOCATABLE, SAVE :: ZDELTAXSAVE, &
+INTEGER(KIND=INT64), DIMENSION(:), ALLOCATABLE, SAVE :: ILOENSAVE
+REAL(KIND=REAL64), DIMENSION(:), ALLOCATABLE, SAVE :: ZDELTAXSAVE, &
                                                         ZDELTAYSAVE
-REAL(KIND=8) :: ZEXWN, ZEYWN
+REAL(KIND=REAL64) :: ZEXWN, ZEYWN
 
 #include "setup_trans0.h"
 #include "esetup_trans.h"

src/ectrans4py/trans_inq4py.F90

@@ -20,16 +20,17 @@ SUBROUTINE TRANS_INQ4PY(KRETURNCODE, KSIZEJ, KTRUNC, KSLOEN, KLOEN, KNUMMAXRESOL
 !    6 Jan., S. Riette: w_spec_setup interfaced modified
 !
 ! I. Dummy arguments declaration
+USE ISO_FORTRAN_ENV, ONLY: INT64, REAL64
 IMPLICIT NONE
-INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE
-INTEGER(KIND=8), INTENT(IN) :: KSIZEJ
-INTEGER(KIND=8), INTENT(IN) :: KTRUNC
-INTEGER(KIND=8), INTENT(IN) :: KSLOEN
-INTEGER(KIND=8), DIMENSION(KSLOEN), INTENT(IN) :: KLOEN
-INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL
-INTEGER(KIND=8), INTENT(OUT) :: KGPTOT
-INTEGER(KIND=8), INTENT(OUT) :: KSPEC
-INTEGER(KIND=8), DIMENSION(KSLOEN), INTENT(OUT) :: KNMENG
+INTEGER(KIND=INT64), INTENT(OUT) :: KRETURNCODE
+INTEGER(KIND=INT64), INTENT(IN) :: KSIZEJ
+INTEGER(KIND=INT64), INTENT(IN) :: KTRUNC
+INTEGER(KIND=INT64), INTENT(IN) :: KSLOEN
+INTEGER(KIND=INT64), DIMENSION(KSLOEN), INTENT(IN) :: KLOEN
+INTEGER(KIND=INT64), INTENT(IN) :: KNUMMAXRESOL
+INTEGER(KIND=INT64), INTENT(OUT) :: KGPTOT
+INTEGER(KIND=INT64), INTENT(OUT) :: KSPEC
+INTEGER(KIND=INT64), DIMENSION(KSLOEN), INTENT(OUT) :: KNMENG
 !
 ! II. Local variables declaration
 INTEGER, DIMENSION(SIZE(KLOEN)) :: ILOEN
@@ -41,7 +42,7 @@ SUBROUTINE TRANS_INQ4PY(KRETURNCODE, KSIZEJ, KTRUNC, KSLOEN, KLOEN, KNUMMAXRESOL
 INTEGER :: IIDENTRESOL
 INTEGER :: IGPTOT, ISPEC
 INTEGER, DIMENSION(SIZE(KLOEN)) :: INMENG
-REAL(KIND=8) :: ZDELTAX, ZDELTAY
+REAL(KIND=REAL64) :: ZDELTAX, ZDELTAY
 #include "trans_inq.h"
 
 ILOEN(:)=KLOEN(:)