From 6ca713c4c0000a87b62fcf38ae5c47f309ae8a0c Mon Sep 17 00:00:00 2001 From: Alberto Otero de la Roza Date: Tue, 29 Oct 2024 23:04:41 +0100 Subject: [PATCH] some variable cleanup --- VERSION | 2 +- src/libcritic2.f90 | 2 +- src/libcritic2@proc.f90 | 2 +- src/struct_drivers@proc.F90 | 4 ++-- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/VERSION b/VERSION index dc626079..896caa1b 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.2.316 +1.2.317 diff --git a/src/libcritic2.f90 b/src/libcritic2.f90 index 566b1865..677c5e76 100644 --- a/src/libcritic2.f90 +++ b/src/libcritic2.f90 @@ -107,7 +107,7 @@ module subroutine c2_profile_background(xyfile,xyback,xyclean,nknot) bind(c,name type(c_ptr), value, intent(in) :: xyfile type(c_ptr), value, intent(in) :: xyback type(c_ptr), value, intent(in) :: xyclean - integer, value, intent(in) :: nknot + integer(c_int), value, intent(in) :: nknot end subroutine c2_profile_background module function c2_compare_gpwdf(c1,p2,alpha,lambda,fpol) bind(c,name="c2_compare_gpwdf") type(c_ptr), value, intent(in) :: c1 diff --git a/src/libcritic2@proc.f90 b/src/libcritic2@proc.f90 index 3bd5192b..bdd3761d 100644 --- a/src/libcritic2@proc.f90 +++ b/src/libcritic2@proc.f90 @@ -512,7 +512,7 @@ module subroutine c2_profile_background(xyfile,xyback,xyclean,nknot) bind(c,name type(c_ptr), value, intent(in) :: xyfile type(c_ptr), value, intent(in) :: xyback type(c_ptr), value, intent(in) :: xyclean - integer, value, intent(in) :: nknot + integer(c_int), value, intent(in) :: nknot integer :: n, lu, i character(len=:), allocatable :: fname, errmsg diff --git a/src/struct_drivers@proc.F90 b/src/struct_drivers@proc.F90 index cc8aa094..e39c7bb8 100644 --- a/src/struct_drivers@proc.F90 +++ b/src/struct_drivers@proc.F90 @@ -2027,12 +2027,12 @@ end subroutine struct_compare !> without a phase change. Variable-cell version of the POWDIFF !> comparison method in struct_compare. module subroutine struct_comparevc(s,line) - use tools_io, only: uout, lgetword, equal + use tools_io, only: lgetword, equal type(system), intent(in) :: s character*(*), intent(in) :: line integer :: lp - character(len=:), allocatable :: word, line0 + character(len=:), allocatable :: word ! header and initalization lp = 1