C FRIG3     SOURCE    FANDEUR   11/10/07    21:15:26     7159           
C
C ===>  SOUS-PROGRAMME  FRIG3   PLUS UTILISE    <===
C ===>  SUBROUTINE              NO LONGER USED  <===
C
      SUBROUTINE FRIG3

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

C ==>  VOIR LES SOUS-PROGRAMMES  FRIG  ET  FRIG3C  <==

      RETURN
      END