4 !  Attention : ce 
fichier include est compatible format fixe/format libre
 
    5 !                 veillez à n
'utiliser que des ! pour les commentaires 
    6 !                 et à bien positionner les & des lignes de continuation  
    7 !                 (les placer en colonne 6 et en colonne 73) 
    8 !----------------------------------------------------------------------- 
   11       REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh 
   13       COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     & 
   17 !    Les parametres de ce common proviennent des calculs effectues dans  
   20 !----------------------------------------------------------------------- 
!$Header!integer nvarmx s s s fichier