Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/array_lib.F90

Timestamp:

Jul 19, 2024, 5:41:58 PM (2 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/array_lib.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/array_lib.F90

@@ -45 +45 @@
  
 ! ----- INPUTS -----
-  real*8, dimension(:), intent(in) :: list
-  real*8, intent(in) :: val  
+  real(kind=8), dimension(:), intent(in) :: list
+  real(kind=8), intent(in) :: val
   integer, intent(in), optional :: sort
   
 ! ----- OUTPUTS -----
-  integer*4 :: infind
-  real*8, intent(out), optional :: dist
+  integer(kind=4) :: infind
+  real(kind=8), intent(out), optional :: dist
 
 ! ----- INTERNAL -----
-  real*8, dimension(size(list)) :: lists
-  integer*4 :: nlist, result, tmp(1), sort_list
-  integer*4, dimension(size(list)) :: mask, idx
+  real(kind=8), dimension(size(list)) :: lists
+  integer(kind=4) :: nlist, result, tmp(1), sort_list
+  integer(kind=4), dimension(size(list)) :: mask, idx
 
   if (present(sort)) then
@@ -121 +121 @@
 
 ! ----- INPUTS -----
-  real*8, dimension(:), intent(in) :: yarr, xarr, xxarr
-  real*8, intent(in) :: tol
+  real(kind=8), dimension(:), intent(in) :: yarr, xarr, xxarr
+  real(kind=8), intent(in) :: tol
 
 ! ----- OUTPUTS -----
-  real*8, dimension(size(xxarr)), intent(out) :: yyarr
+  real(kind=8), dimension(size(xxarr)), intent(out) :: yyarr
 
 ! ----- INTERNAL -----
-  real*8, dimension(size(xarr)) :: ysort, xsort
-  integer*4, dimension(size(xarr)) :: ist
-  integer*4 :: nx, nxx, i, iloc
-  real*8 :: d, m
+  real(kind=8), dimension(size(xarr)) :: ysort, xsort
+  integer(kind=4), dimension(size(xarr)) :: ist
+  integer(kind=4) :: nx, nxx, i, iloc
+  real(kind=8) :: d, m
 
   nx = size(xarr)