C ADVE      SOURCE    CHAT      05/01/12    21:18:56     5004           
C ADVE     SOURCE    ARROYO     99/05/18    22:03:03                            
      SUBROUTINE ADVE                                                          
*                                                                               
*     CAS DE LA THERMIQUE                                          
*                                                                               
      IMPLICIT INTEGER(I-N)
      CALL TADVE                                                               
*                                                                               
*     AJOUTER ICI LES AUTRES CAS                                                
*                                                                               
      END