Explicit instead of implicit type conversion

cp2k · May 5, 2020 · 3dae760 · 3dae760
1 parent 39a048b
commit 3dae760
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/pw/fft/fftw3_lib.F b/src/pw/fft/fftw3_lib.F
@@ -1089,7 +1089,7 @@ SUBROUTINE fftw31dm(plan, zin, zout, scale, stat)
 
 !$    if (my_id < plan%num_threads_needed) then
 
-         fftw_plan = plan%fftw_plan
+         fftw_plan = INT(plan%fftw_plan, KIND(fftw_plan))
 
          in_offset = 1
          out_offset = 1
@@ -1105,7 +1105,7 @@ SUBROUTINE fftw31dm(plan, zin, zout, scale, stat)
 !$       scal_offset = 1 + plan%n*plan%num_rows*my_id
 !$       IF (plan%need_alt_plan .AND. my_id .EQ. plan%num_threads_needed - 1) THEN
 !$          num_rows = plan%alt_num_rows
-!$          fftw_plan = plan%alt_fftw_plan
+!$          fftw_plan = INT(plan%alt_fftw_plan, KIND(fftw_plan))
 !$       ELSE
 !$          num_rows = plan%num_rows
 !$       ENDIF

diff --git a/src/start/libcp2k.F b/src/start/libcp2k.F
@@ -523,7 +523,7 @@ INTEGER(C_LONG) FUNCTION cp2k_active_space_get_eri_nze_count(f_env_id) RESULT(nz
          IF (.NOT. ASSOCIATED(active_space_env)) &
             EXIT try
 
-         nze_count = active_space_env%eri%eri(1)%csr_mat%nze_total
+         nze_count = INT(active_space_env%eri%eri(1)%csr_mat%nze_total, KIND(nze_count))
       END BLOCK try
 
       CALL f_env_rm_defaults(f_env, ierr)
@@ -573,7 +573,7 @@ INTEGER(C_LONG) FUNCTION cp2k_active_space_get_eri(f_env_id, &
 
             CALL active_space_env%eri%eri_foreach(1, eri2array(buf_coords, buf_values))
 
-            nelem = nze
+            nelem = INT(nze, KIND(nelem))
          END ASSOCIATE
       END BLOCK try