C SAVRED    SOURCE    FANDEUR   14/01/08    21:15:10     7902           

C ===>  SOUS-PROGRAMME  SAVRED  PLUS UTILISE    <===
C ===>  SUBROUTINE              NO LONGER USED  <===
C
      SUBROUTINE SAVRED

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

      RETURN
      END