some variable cleanup

aoterodelaroza · Oct 29, 2024 · 6ca713c · 6ca713c
1 parent 7ad40d9
commit 6ca713c
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-1.2.316
+1.2.317
diff --git 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/[email protected] b/src/[email protected]
@@ -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/[email protected] b/src/[email protected]
@@ -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