Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 months ago)
Author:
abarral
Message:

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

Location:
LMDZ6/branches/Amaury_dev/libf/obsolete
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr1_step_av_m.F90

    r5086 r5117  
     1! Amaury (07/24): ce module n'est utilisé nulle part à part dans obsolete/, où il en existe déjà une autre version....
     2
    13! $Id$
    24module regr1_step_av_m

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

    r5116 r5117  
    1 
    21! $Header$
    32
    43!
    54!
    6 SUBROUTINE sort(n,d)
     5SUBROUTINE sort(n, d)
    76  !
    87  ! P.Le Van
    … …  
    1514
    1615  INTEGER :: n
    17   REAL :: d(n) , p
    18   INTEGER :: i,j,k
     16  REAL :: d(n), p
     17  INTEGER :: i, j, k
    1918
    20   DO i=1,n-1
    21     k=i
    22     p=d(i)
    23     DO j=i+1,n
    24      IF(d(j)<=p) THEN
    25        k=j
    26        p=d(j)
    27      ENDIF
     19  DO i = 1, n - 1
     20    k = i
     21    p = d(i)
     22    DO j = i + 1, n
     23      IF(d(j)<=p) THEN
     24        k = j
     25        p = d(j)
     26      ENDIF
    2827    ENDDO
    2928
    30    IF(k/=i) THEN
    31      d(k)=d(i)
    32      d(i)=p
    33    ENDIF
     29    IF(k/=i) THEN
     30      d(k) = d(i)
     31      d(i) = p
     32    ENDIF
    3433  ENDDO
    3534
    36 
    3735END SUBROUTINE sort
Note: See TracChangeset for help on using the changeset viewer.