Fix minor issues found by C-I tests

int/runge_kutta_tlm.f90
- Add a missing & continuation character in USE statement

int/sdirk.f90
- Replace WLAMCH call by EPSILON

util/blas.F90
- Explicitly declare loop index i

Signed-off-by: Bob Yantosca <[email protected]>

Author: yantosca

int/runge_kutta_tlm.f90

@@ -21,7 +21,7 @@ MODULE KPP_ROOT_Integrator
   USE KPP_ROOT_Global
   USE KPP_ROOT_Jacobian
   USE KPP_ROOT_LinearAlgebra
-  USE KPP_ROOT_LinearAlgebra, ONLY : KppDecomp,      KppSolve, 
+  USE KPP_ROOT_LinearAlgebra, ONLY : KppDecomp,      KppSolve,     &
                                      KppDecompCmplx, KppSolveCmplx
 
   IMPLICIT NONE

int/sdirk.f90

@@ -364,7 +364,7 @@ SUBROUTINE SDIRK(N, Tinitial, Tfinal, Y, RelTol, AbsTol,     &
       END IF
 
 !~~~>  Unit roundoff (1+Roundoff>1)
-      Roundoff = WLAMCH('E')
+      Roundoff = EPSILON( 0.0_dp )
 
 !~~~>  Lower bound on the step size: (positive value)
       IF (RCNTRL(1) == ZERO) THEN

util/blas.f90

@@ -95,7 +95,7 @@ SUBROUTINE WGEFA(N,A,Ipvt,info)
       INTEGER       :: N,Ipvt(N),info
       KPP_REAL :: A(N,N)
       KPP_REAL :: t, dmax, da
-      INTEGER       :: j,k,l
+      INTEGER       :: i,j,k,l
       KPP_REAL, PARAMETER :: ZERO = 0.0, ONE = 1.0
 
       info = 0
@@ -166,7 +166,7 @@ SUBROUTINE WGESL(Trans,N,A,Ipvt,b)
       CHARACTER     :: trans
       KPP_REAL :: A(N,N),b(N)
       KPP_REAL :: t
-      INTEGER       :: k,kb,l
+      INTEGER       :: i, k,kb,l
 
 
       SELECT CASE (Trans)