Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/obsolete/sort.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/obsolete/sort.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/sort.f90) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/obsolete/sort.f90

@@ -1 @@
-
 ! $Header$
 
 !
 !
-SUBROUTINE sort(n,d)
+SUBROUTINE sort(n, d)
   !
   ! P.Le Van
@@ -15 +14 @@
 
   INTEGER :: n
-  REAL :: d(n) , p
-  INTEGER :: i,j,k
+  REAL :: d(n), p
+  INTEGER :: i, j, k
 
-  DO i=1,n-1
-    k=i
-    p=d(i)
-    DO j=i+1,n
-     IF(d(j)<=p) THEN
-       k=j
-       p=d(j)
-     ENDIF
+  DO i = 1, n - 1
+    k = i
+    p = d(i)
+    DO j = i + 1, n
+      IF(d(j)<=p) THEN
+        k = j
+        p = d(j)
+      ENDIF
     ENDDO
 
-   IF(k/=i) THEN
-     d(k)=d(i)
-     d(i)=p
-   ENDIF
+    IF(k/=i) THEN
+      d(k) = d(i)
+      d(i) = p
+    ENDIF
   ENDDO
 
-
 END SUBROUTINE sort