From c65d0e6bda0569cd394f6077ea032116a781e3d9 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 17:53:51 +0000
Subject: [PATCH] change intent 'in' to 'inout' to match perceived usage,
comment ddqsort_s; it caused compile problems
---
module_definitions.f90 | 30 ++++++++++++++++++------------
1 file changed, 18 insertions(+), 12 deletions(-)
diff --git a/module_definitions.f90 b/module_definitions.f90
index c815102a..ed28c2c6 100644
--- a/module_definitions.f90
+++ b/module_definitions.f90
@@ -285,33 +285,39 @@ module definitions
! following is a general interface to sort an array of numbers
interface qsort
+
subroutine iqsort (array,n,perm)
integer,intent(in) :: n
- integer,dimension(n),intent(out)::array
- integer,dimension(n),intent(out)::perm
+ integer,dimension(n),intent(inout)::array
+ integer,dimension(n),intent(inout)::perm
end subroutine iqsort
+
subroutine rqsort (array,n,perm)
integer,intent(in) :: n
- real,dimension(n),intent(out)::array
- integer,dimension(n),intent(out)::perm
+ real,dimension(n),intent(inout)::array
+ integer,dimension(n),intent(inout)::perm
end subroutine rqsort
+
subroutine dpqsort (array,n,perm)
integer,intent(in) :: n
- real*8,dimension(n),intent(out)::array
- integer,dimension(n),intent(out)::perm
+ real*8,dimension(n),intent(inout)::array
+ integer,dimension(n),intent(inout)::perm
end subroutine dpqsort
+
subroutine iqsort_s (array,n)
integer,intent(in) :: n
- integer,dimension(n),intent(out)::array
+ integer,dimension(n),intent(inout)::array
end subroutine iqsort_s
+
subroutine rqsort_s (array,n)
integer,intent(in) :: n
- real,dimension(n),intent(out)::array
+ real,dimension(n),intent(inout)::array
end subroutine rqsort_s
- subroutine dpqsort_s (array,n)
- integer,intent(in) :: n
- real*8,dimension(n),intent(out)::array
- end subroutine dpqsort_s
+! subroutine dpqsort_s (array,n)
+! integer,intent(in) :: n
+! real*8,dimension(n),intent(inout)::array
+! end subroutine dpqsort_s
+
end interface
--
GitLab