Afin de faciliter la lecture des algorithmes de \cesam2k,
on donne la liste détaillée des variables et routines des modules, en
indiquant l'endroit de leur initialisation; celles-ci sont souvent
effectuées dans des routines dépendantes, \cfparagr{sec:gene}, par raison de
concision, seuls les noms des routines génériques sont mentionnés.
Les routines étant par ailleurs largement décrites, elles ne sont ci-après
que citées. Chaque routine {\tt PRIVATE} et/ou {\tt PUBLIC} est
introduite sous la forme d'{\tt INCLUDE} dans son module d'appartenance.
Ci-après, la description des fonctions des variables logiques correspond
à leur valeur .TRUE.
L'ordre de présentation est celui de la compilation indiqué dans le fichier
{\tt list\_cesam},\cfparagr{sec:listcesam}, du sous-dirctory {\tt SOURCE}.

\section{Module mod\_kind}\index{mod\_kind.f}\label{sec:amdk}
\index{dp}\index{sp}
Le module {\tt mod\_kind} regroupe les types des variables.
\begin{itemize}

\bigskip
 \item {\lsf Paramètres PUBLIC~:}
 \begin{description}
  \item[dp]~: Définit les variables en double précision.\index{dp}
  \item[sp]~: Définit les variables en simple précision.\index{sp} 
 \end{description}
\end{itemize} 

\section{Module  mod\_numerique}\index{mod\_numerique.f}
\label{sec:modnum}
Le module {\tt mod\_numerique} regroupe les routines purement numériques.
\begin{itemize}

\bigskip
 \item {\lsf Variable PUBLIC logical~:}
 \begin{description}
  \item[no\_croiss]~: La suite des abscisses n'est pas
  strictement croissante, ou encore une autre difficulté est survenue lors de
  l'éxécution.\index{no\_croiss}
 \end{description}

\bigskip 
 \item {\lsf Routines PRIVATE~:} 
 \medskip
 \begin{bf}
   bval0, colpnt, difdiv, horner, schu58\_n.
   \index{bval0.f}\index{colpnt}\index{difdiv.f}\index{horner.f}
   \index{schu58\_n.f}
 \end{bf}

\bigskip 
 \item {\lsf Routines PUBLIC~:} 
 \medskip
 \begin{bf} 
  arb\_rom, boite, box, bsp1ddn, bsp1dn, bsp\_dis, bvald, bval1, coll,
  delete\_doubles,
  fermi\_dirac, gauss\_band, genere\_bases, intgauss, linf, matinv, max\_local,
  min\_max,
  neville, newspl, newton, noedif, noein, noeud, noeu\_dis, pause, polyder,
  shell, sum\_n, zoning   
  \index{arb\_rom.f}\index{boite.f}\index{box.f}\index{bsp1ddn.f}
  \index{bsp1dn.f}\index{bsp\_dis.f}\index{bvald.f}\index{bval1.f}
  \index{coll.f}\index{fermi\_dirac.f}\index{gauss\_band.f}
  \index{genere\_bases.f}\index{max\_local.f}
  \index{intgauss.f}\index{linf.f}\index{matinv.f}\index{min\_max.f}
  \index{neville.f}\index{newspl.f}\index{newton.f}\index{noedif.f}
  \index{noein.f}\index{delete\_doubles.f}
  \index{noeud.f}\index{noeu\_dis.f}\index{pause.f}\index{polyder.f}
  \index{shell.f}\index{sum\_n.f}\index{zoning.f}   
 \end{bf}
\end{itemize}

\section{Module mod\_donnees}\index{mod\_donnees.f}\label{sec:moddon}
Le module {\tt mod\_donnees} regroupe l'ensemble des quantités fixes au
 cours de l'évolution.
\begin{itemize}

 \bigskip 
 \item {\lsf Paramètres PUBLIC double précision~:}
 \begin{description}
 \item[d\_conv]~: Coefficient de diffusion dans les zones
 mélangées.\index{d\_conv}
  \item[dtmin]~: Pas temporel minimum en Myrs.\index{dtmin}
  \item[dx\_tams]~: Précision sur l'abondance en X à la fin de la \ZAMS.
  \item[phi]~: $d\ln\rho/d\lnµ$.\index{phi}
  \index{dx\_tams}
  \item[x\_tams]~: Abondance en X définissant la fin de la \ZAMS.\index{x\_tams}
 \end{description}

 \bigskip  
 \item {\lsf Paramètres PUBLIC integer~:} 
 \begin{description}  
  \item[n\_min]~: Nombre minimum de couches.\index{n\_min} 
  \item[pnzc]~: Nombre maximum de zones convectives pouvant être prises en
  compte.\index{pnzc} 
  \item[r\_qs]~: Ordre des équations différentielles des équations d'équilibre
  quasi-statique.\index{r\_qs}
 \end{description}

 \bigskip 
 \item {\lsf Paramètres PUBLIC character~:} 
 \begin{description}    
  \item[version]~: Numéro de version lu par un INCLUDE du fichier
  {\tt journal}, \cfparagr{sec:journal}.\index{version} 
 \end{description} 
\end{itemize} 
 
\begin{itemize}

 \bigskip 
 \item {\lsf Variables PUBLIC double précision ~:} 
 \begin{description}
  \item[ab\_ini]~: Abondances initiales, initialisé dans {\tt nuc.f}.
  \index{ab\_ini}
  \item[ab\_min]~: Abondances minimales, initialisé dans {\tt nuc.f}.
  \index{ab\_min} 
  \item[nucleo]~: Masses atomiques des isotopes, initialisé dans
  {\tt tabul\_nuc.f}.\index{nucleo} 
  \item[rot\_min]~: Valeurs négligeables des variables de la diffusion du
  moment cinétique, initialisé dans {\tt lit\_nl.f}.\index{rot\_min} 
  \item[xvent]~: Composition chi\-mi\-que du vent, initialisé dans {\tt vent.f}.
  \index{xvent} 
  \item[zi]~: Charges des isotopes, initialisé dans {\tt tabul\_nuc.f}.
  \index{zi} 
  \item[abon\_m]~: Abondances initiales par masse des éléments chi\-mi\-ques,
  initialisé dans {\tt abon\_ini.f}.\index{abon\_m}  
  \item[aal27]~: Masse atomique du \Al{27}, initialisé dans {\tt taux\_nuc.f}.
  \index{aal27}  
  \item[abe7]~: Masse atomique du \Be7, initialisé dans {\tt taux\_nuc.f}.
  \index{abe7} 
  \item[abe9]~: Masse atomique du \Be9, initialisé dans {\tt taux\_nuc.f}.
  \index{abe9} 
  \item[ab11]~: Masse atomique du \B{11}, initialisé dans {\tt taux\_nuc.f}.
  \index{ab11} 
  \item[ac12]~: Masse atomique du \C{12}, initialisé dans {\tt taux\_nuc.f}.
  \index{ac12} 
  \item[ac13]~: Masse atomique du \C{13}, initialisé dans {\tt taux\_nuc.f}.
  \index{ac13} 
  \item[afe56]~: Masse atomique du \Fe{56}, initialisé dans {\tt taux\_nuc.f}.
  \index{afe56}
  \item[af18]~: Masse atomique du \F{18}, initialisé dans {\tt taux\_nuc.f}.
  \index{af18}
  \item[af19]~: Masse atomique du \F{19}, initialisé dans {\tt taux\_nuc.f}.
  \index{af19} 
  \item[agemax]~: Age maximum à atteindre, lu dans {\tt lit\_nl.f}.
  \index{agemax} 
  \item[ah]~: Masse atomique du \H1, initialisé dans {\tt taux\_nuc.f}.
  \index{ah} 
  \item[ah2]~: Masse atomique du \H2, initialisé dans {\tt taux\_nuc.f}.
  \index{ah2} 
  \item[ahe3]~: Masse atomique du \He3, initialisé dans {\tt taux\_nuc.f}.
  \index{ahe3} 
  \item[ahe4]~: Masse atomique du \He4, initialisé dans {\tt taux\_nuc.f}.
  \index{ahe4}
  \item[ali6]~: Masse atomique du \Li6, initialisé dans {\tt taux\_nuc.f}.
  \index{ali6} 
  \item[ali7]~: Masse atomique du \Li7, initialisé dans {\tt taux\_nuc.f}.
  \index{ali7} 
  \item[alpha]~: Longueur de mélange, lu dans {\tt lit\_nl.f}.\index{alpha} 
  \item[amg23]~: Masse atomique du \Mg{23}, initialisé dans {\tt taux\_nuc.f}.
  \index{amg23} 
  \item[amg24]~: Masse atomique du \Mg{24}, initialisé dans {\tt taux\_nuc.f}.
  \index{amg24} 
  \item[amg25]~: Masse atomique du \Mg{25}, initialisé dans {\tt taux\_nuc.f}.
  \index{amg25}
  \item[amg26]~: Masse atomique du \Mg{26}, initialisé dans {\tt taux\_nuc.f}.
  \index{amg26}
  \item[amu]~: Masse atomique unité $m_u$, initialisé dans {\tt taux\_nuc.f}.
  \index{amu}
  \item[an]~: Masse atomique du neutron, initialisé dans {\tt taux\_nuc.f}.
  \index{an} 
  \item[ana23]~: Masse atomique du \Na{23}, initialisé dans {\tt taux\_nuc.f}.
  \index{ana23} 
  \item[ane20]~: Masse atomique du \Ne{20}, initialisé dans {\tt taux\_nuc.f}.
  \index{ane20} 
  \item[ane21]~: Masse atomique du \Ne{21}, initialisé dans {\tt taux\_nuc.f}.
  \index{ane21} 
  \item[ane22]~: Masse atomique du \Ne{22}, initialisé dans {\tt taux\_nuc.f}.
  \index{ane22} 
  \item[an13]~: Masse atomique du \N{13}, initialisé dans {\tt taux\_nuc.f}.
  \index{an13}   
  \item[an14]~: Masse atomique du \N{14}, initialisé dans {\tt taux\_nuc.f}.
  \index{an14}
  \item[an15]~: Masse atomique du \N{15}, initialisé dans {\tt taux\_nuc.f}.
  \index{an15} 
  \item[ap]~: Masse atomique du proton, initialisé dans {\tt taux\_nuc.f}.
  \index{ap}  
  \item[ap31]~: Masse atomique du \P{31}, initialisé dans {\tt taux\_nuc.f}.
  \index{ap31}   
  \item[ao16]~: Masse atomique du \O{16}, initialisé dans {\tt taux\_nuc.f}.
  \index{ao16} 
  \item[ao17]~: Masse atomique du \O{17}, initialisé dans {\tt taux\_nuc.f}.
  \index{ao17} 
  \item[ao18]~: Masse atomique du \O{18}, initialisé dans {\tt taux\_nuc.f}.
  \index{ao18} 
  \item[asi28]~: Masse atomique du \Si{28}, initialisé dans {\tt taux\_nuc.f}.
  \index{asi8} 
  \item[as32]~: Masse atomique du \So{32}, initialisé dans {\tt taux\_nuc.f}.
  \index{as32}   
  \item[aradia]~: Constante de la radiation $a$, initialisé dans
  {\tt ini\_ctes.f}.\index{aradia}   
  \item[clight]~: Célérité de la lumière $c$, initialisé dans {\tt ini\_ctes.f}.
  \index{clight}
  \item[cpturb]~: Paramètre de pression turbulente, lu dans {\tt lit\_nl.f}.
  \index{cpturb} 
  \item[ctel]~: Facteur de répartition en luminosité, initialisé dans
  {\tt cesam.f}.\index{ctel} 
  \item[ctem]~: Facteur de répartition en masse, initialisé dans {\tt cesam.f}.
  \index{ctem} 
  \item[ctep]~: Facteur de répartition en pression, initialisé dans
  {\tt cesam.f}.  \index{ctep} 
  \item[cter]~: Facteur de répartition en rayon, initialisé dans {\tt cesam.f}.
  \index{cter} 
  \item[ctet]~: Facteur de répartition en température, initialisé dans
  {\tt cesam.f}. \index{ctet}   
  \item[dpsi]~: Taux de variation maximale pour la constante de répartition
  entaînant une modification du nombre de couches {\tt n\_qs} dans le cas
  standard d'une grille ajustable, initialisé dans {\tt cesam.f}.\index{dpsi}
  \item[dn\_fixe]~: Taux de variation maximale pour la constante de répartition
  entaînant une modification du nombre de couches {\tt nc\_fixe} dans le cas
  d'une grille fixe, initialisé dans {\tt cesam.f}.\index{dn\_fixe} 
  \item[dtlist]~: Intervalle de temps entre deux listings complets,
  lu dans {\tt lit\_nl.f}.\index{dtlist} 
  \item[dtmax]~: Pas temporel maximal, initialisé dans {\tt cesam.f}.
  \index{dtmax} 
  \item[dt0]~: Pas temporel initial, initialisé dans {\tt cesam.f}.\index{dt0} 
  \item[d\_grav]~: Variation maximale de l'énergie graviphique sur un pas
  temporel, initialisé dans {\tt cesam.f}.\index{d\_grav}   
  \item[d\_turb]~: Coefficient de diffusion turbulente, lu dans {\tt lit\_nl.f}.
  \index{d\_turb}
  \item[echarg]~: Charge de l'électron, initialisé dans {\tt ini\_ctes.f}.
  \index{echarg} 
  \item[eve]~: Energie de l'électronvolt, initialisé dans {\tt ini\_ctes.f}.
  \index{eve} 
  \item[fesh\_sol]~: Valeur du [Fe/H] solaire, initialisé dans {\tt ini\_ctes.f}
  .\index{fesh\_sol} 
  \item[g]~: Constante de la gravitation $G$, initialisé dans {\tt ini\_ctes.f}.
  \index{g} 
  \item[gmsol]~: Produit $G\times M_\odot$, initialisé dans {\tt ini\_ctes.f}.
  \index{gmsol} 
  \item[granr]~: Constante des gaz parfaits $\cal R$, initialisé dans
  {\tt ini\_ctes.f}.
  \index{granr}  
  \item[he\_core]~: Masse du noyau d'hélium à partir de laquelle l'évolution
  sera arrêtée, lu dans {\tt lit\_nl.f}.\index{he\_core}
  \item[hhe\_core]~: Masse réduite du noyau d'hélium à partir de laquelle
  l'évolution sera arrêtée , initialisé dans {\tt lit\_nl.f}.\index{hhe\_core} 
  \item[hpl]~: Constante de Plank $h$, initialisé dans {\tt ini\_ctes.f}.
  \index{hpl} 
  \item[kbol]~: Constante de Boltzman $k$, initialisé dans {\tt ini\_ctes.f}.
  \index{kbol} 
  \item[lbol0]~: Zéro des magnitudes bolométriques, initialisé dans
  {\tt ini\_ctes.f}.\index{lbol0} 
  \item[li\_ini]~: Abondance de \Li7 dans le noyau d'un modèle de
   \ZAMS\ homogène, initialisé dans {\tt abon\_ini.f}.\index{li\_ini}    	
  \item[lnt\_stop]~: L'évolution est arrêtée lorsque cette température
  effective, en $\ln$,
  est franchie par valeurs croissantes ou décroissantes, initialisé dans
  {\tt lit\_nl.f} .\index{lnt\_stop}   
  \item[ln\_Tli]~: Température au dessus de laquelle il n'y a pas de lithium
   inital pour le modèle de \ZAMS, initialisé dans {\tt abon\_ini.f}.
  \index{ln\_Tli}
  \item[ln10]~: $\ln(10)$, initialisé dans {\tt ini\_ctes.f}.\index{ln10} 
  \item[loc\_zc]~: Paramètre de localisarion des limites \ZRZCs, initialisé dans
  {\tt cesam.f}.\index{loc\_zc} 
  \item[log\_teff]~: L'évolution est arrêtée lorsque cette température effective
  est franchie par valeurs croissantes ou décroissantes, lu dans
  {\tt lit\_nl.f}.\index{log\_teff}  
  \item[lsol]~: Luminosité solaire $L_\odot$, initialisé dans {\tt ini\_ctes.f}.
  \index{lsol} 
  \item[mdot]~: Taux de perte de masse, lu dans {\tt lit\_nl.f}.\index{mdot} 
  \item[me]~: Masse de l'électron $m_e$, initialisé dans {\tt ini\_ctes.f}.
  \index{me} 
  \item[msol]~: Masse solaire $M_\odot$, initialisé dans {\tt ini\_ctes.f}.
  \index{msol}
  \item[mterre]~: Masse de la terre, initialisé dans {\tt ini\_ctes.f}.
  \index{mterre}  
  \item[mtot]~: Masse initiale du modèle, lu dans {\tt lit\_nl.f}.\index{mtot} 
  \item[ovshti]~: Taux d'overshoot inférieur, lu dans {\tt lit\_nl.f}.
  \index{ovshti} 
  \item[ovshts]~: Taux d'overshoot supérieur, lu dans {\tt lit\_nl.f}.
  \index{ovshts} 
  \item[pi]~: $\pi$, initialisé dans {\tt ini\_ctes.f}.\index{pi} 
  \item[precit]~: Paramètre de précision de l'intégration temporelle de la
  composition chi\-mi\-que, initialisé dans {\tt cesam.f}.\index{precit} 
  \item[precix]~: Paramètre de précision de l'intégration spatiale de
  l'équilibre quasi-statique, initialisé dans {\tt cesam.f}.\index{precix}   
  \item[p\_pertw]~: Paramètre de perte de moment cinétique, lu dans
  {\tt lit\_nl.f}.\index{p\_pertw}
  \item[re\_nu]~: Taux de turbulence radiative, lu dans {\tt lit\_nl.f}.
  \index{re\_nu} 
  \item[ro\_test]~: Valeur minimale de la densité en dessous de laquelle la
  variation d'énergie graviphique n'est plus considérée comme significative,
  initialisé dans {\tt cesam.f}.\index{ro\_test} 
  \item[rsol]~: Rayon solaire $R_\odot$, initialisé dans {\tt ini\_ctes.f}.
  \index{rsol} 
  \item[secon6]~: Nombre de secondes par million d'années, initialisé dans
  {\tt ini\_ctes.f}.\index{secon6}   
  \item[sigma]~: Constante de Stéfan $\sigma$, initialisé dans
  {\tt ini\_ctes.f}.\index{sigma}
  \item[tau\_max]~: Profondeur optique de raccord atmosphère/enveloppe,
   lu dans {\tt lit\_nl.f}.\index{tau\_max} 
  \item[t\_inf]~: Température minimale de tabulation des réactions
  thermonucléaires, initialisé dans {\tt tabul\_nuc.f}.\index{t\_inf} 
  \item[t\_sup]~: Température maximale de tabulation des réactions
  thermonucléaires, initialisé dans {\tt tabul\_nuc.f}.\index{t\_sup} 
  \item[t\_stop]~: Température centrale arrêtant le calcul de
  l'évolution, lu dans {\tt lit\_nl.f}.\index{t\_stop}
  \item[ua]~: Unité astronomique, initialisé dans {\tt ini\_ctes.f}.\index{ua}  
  \item[w\_form]~: Facteur entre 0 et 1 permettant de modifier le profil de la
  vitesse angulaire initiale, initialisé dans {\tt initialise\_u.f}.
  \index{w\_form}
  \item[w\_rot]~: Vitesse angulaire initiale, lu dans {\tt lit\_nl.f}.
  \index{w\_rot}   
  \item[x0]~: Abondance initiale par masse d'hydrogène $X$, lu ou déterminé 
  dans {\tt lit\_nl.f}. \index{x0}
  \item[x\_stop]~: Abondance centrale d'hydrogène arrêtant le calcul de
  l'évolution, lu dans {\tt lit\_nl.f}.\index{x\_stop} 
  \item[y0]~: Abondance initiale par masse d'hélium $Y$, lu dans
  {\tt lit\_nl.f}.\index{y0} 
  \item[zsx\_sol]~: $Z/X$ solaire, initialisé dans {\tt ini\_ctes.f}.
  \index{zsx\_sol} 
  \item[zsx0]~: Rapport initial $Z/X$, lu ou initialisé dans {\tt lit\_nl.f} .
  \index{zsx0} 
  \item[z0]~: Abondance initiale par masse des métaux $Z$, initialisé dans
  {\tt lit\_nl.f}.\index{z0}   
 \end{description}

 \bigskip 
 \item {\lsf Variables PUBLIC simple précision ~:} 
 \begin{description}
  \item[dh]~: Espace en hauteur entre cadres des dessins, initialisé dans
  {\tt des.f}.  \index{dh} 
  \item[dl]~: Espace en largeur entre cadres des dessins, initialisé dans
  {\tt des.f}.\index{dl}  
  \item[h]~: Hauteur des cadres des dessins, initialisé dans
  {\tt des.f}.\index{h}
  \item[ld]~: Largeur des cadres des dessins, initialisé dans
  {\tt des.f}.\index{ld} 
  \item[fesh\_des]~: Cible en [Fe/H] en surface, initialisé dans {\tt des.f}.
  \index{fesh\_des} 
  \item[l\_des]~: Cible en $L/L_\odot$, initialisé dans {\tt des.f}.
  \index{l\_des} 
  \item[teff\_des]~: Cible en température, initialisé dans {\tt des.f}.
  \index{teff\_des} 
  \item[logteff\_max]~: Limite à gauche des abscisses du cadre du diagramme HR,
   initialisé dans {\tt des.f}.\index{logteff\_max} 
  \item[logteff\_min]~: Limite à droite des abscisses du cadre du diagramme HR,
   initialisé dans {\tt des.f}.\index{logteff\_min} 
  \item[logl\_max]~: Limite supérieure des ordonnées du cadre du diagramme HR,
   initialisé dans {\tt des.f}.\index{logl\_max}
  \item[logl\_min]~: Limite inférieure des ordonnées du cadre du diagramme HR,
   initialisé dans {\tt des.f}.\index{logl\_min} 
  \item[xleft]~: Limite à droite des dessins, initialisé dans {\tt des.f}.
  \index{xleft} 
  \item[ybot]~: Limite inférieure des dessins, initialisé dans {\tt des.f}.
  \index{ybot} 
  \item[y\_age]~: Ordonnées pour l'écriture de l'âge au dessus des cadres des
  dessins, initialisé dans {\tt des.f}.\index{y\_age} 
 \end{description}

 \bigskip 
 \item {\lsf Variables PUBLIC integer~:}
 \begin{description}
  \item[Kdes\_rot]~: Flag d'identification du type de dessin pour la rotation,
   initialisé dans {\tt lit\_nl}.\index{des\_Krot}
  \item[Krot]~: Flag d'identification du type de rotation, initialisé dans
  {\tt lit\_nl}.\index{Krot}
  \item[ife56]~: Indice de l'isotope \Fe{56}, initialisé dans {\tt nuc.f}.
  \index{ife56} 
  \item[ihe4]~: Indice de l'isotope \He4, initialisé dans {\tt nuc.f}.
  \index{ihe4} 
  \item[iLi7]~: Indice de l'isotope \Li7, initialisé dans {\tt nuc.f}.
  \index{iLi7}   
  \item[ini0]~: Nombre maximum d'itérations globales avec réestimation de la
  composition chi\-mi\-que et de la délimitation des limites \ZRZCs,
  initialisé dans {\tt cesam.f}.\index{ini0} 
  \item[Ipg]~: Indice de la variable pression gazeuse, initialisé dans
  {\tt cesam.f}.\index{Ipg} 
  \item[i\_ex]~: Indice de l'élément fictif, initialisé dans {\tt nuc.f}.
  \index{i\_ex} 
  \item[m\_ch]~: Ordre des B-splines d'interpolation de la composition chi\-mi\-que,
  initialisé dans {\tt cesam.f}.\index{m\_ch}
  \item[m\_ptm]~: Ordre des B-splines d'interpolation de la perte de masse,
   initialisé dans {\tt cesam.f}.\index{m\_ptm}
  \item[m\_qs]~: Ordre des B-splines pour la résolution de l'équilibre
  quasi-statique, initialisé dans {\tt cesam.f}.\index{m\_qs} 
  \item[m\_rot]~: Ordre des B-splines d'interpolation du moment cinétique,  
  initialisé dans {\tt cesam.f}.\index{m\_rot} 
  \item[m\_tds]~: Ordre des B-splines d'interpolation de l'énergie graviphique,
  initialisé dans {\tt cesam.f}.\index{m\_tds} 
  \item[nb\_max\_modeles]~: Nombre maximum de modèles à calculer, lu dans
  {\tt lit\_nl.f}.\index{nb\_max\_modeles} 
  \item[nchim]~: Nombre d'isotopes, initialisé dans {\tt nuc.f}.\index{nchim}   
  \item[ne]~: Nombre de variables pour l'équilibre quasi-statique,initialisé
  dans {\tt cesam.f}.\index{ne}
  \item[nrl]~: Nombre de coefficients pour la rotation, initialisé dans
  {\tt lit\_nl.f}.\index{nrl}    
  \item[nrot]~: Nombre de variables pour la diffusion du moment cinétique,
  initialisé dans {\tt lit\_nl.f}.\index{nrot} 
  \item[n\_atm]~: Nombre de couches dans l'atmosphère,
  initialisé dans {\tt cesam.f}.\index{n\_atm} 
  \item[n\_max]~: Nombre maximum de couches pour l'équilibre quasi-statique,
  initialisé dans {\tt cesam.f}.\index{n\_max} 
  \item[ordre]~: Ordre d'intégration des équations d'évolution de la composition
  chi\-mi\-que sans diffusion, initialisé dans {\tt cesam.f}.\index{ordre} 
  \item[ord\_qs]~: Ordre des B-splines pour l'intégration des équations
  d'équilibre quasi-statique, initialisé dans {\tt cesam.f}.\index{ord\_qs} 
 \end{description}

 \bigskip 
 \item {\lsf Variables PUBLIC logical~:} 
 \begin{description} 
 \item[ajuste]~: On ajustera à 1\% près lesvaleurs de sortie, par exemple
  l'abondance d'hydrogène au centre, initialisé dans {\tt cesam.f} suivant
  le type de précision requis.\index{ajuste}
  \item[all\_output]~: On garde dans l'environnement tous les fichiers binaires
  de reprise dont le nom comporte le numéro du modèle; initialisé dans
  {\tt lit\_nl.f}.\index{all\_output} 
  \item[all\_rep]~: On garde dans l'environnement tous les fichiers ASCII dont
  le nom comporte le numéro du modèle; initialisé dans {\tt lit\_nl.f}.
  \index{all\_rep} 
  \item[diffusion]~: On tient compte de la diffusion microscopique des
  isotopes, lu dans {\tt lit\_nl.f}.\index{diffusion}
%  \item[ecrit\_rot]~: Ecriture du ficheir permettant le tracé des variables et
%  des coefficients de la diffusion du moment cinétique.\index{ecrit\_rot}
  \item[en\_masse]~: Utilisation des variables lagrangiennes,
  lu dans {\tt lit\_nl.f}.\index{en\_masse} 
  \item[garde\_xish]~: On conserve les rapports métal/hydrogène de la
  mixture initiale, lu dans {\tt lit\_nl.f}.\index{garde\_xish}
  \item[grad\_ovi]~: On utilise le gradient adiabatiaque dans les extensions
  inférieures des \ZC; initialisé dans {\tt lit\_nl.f}.\index{grad\_ovi}
  \item[grad\_ovs]~: On utilise le gradient adiabatiaque dans les extensions
  supérieures des \ZC; initialisé dans {\tt lit\_nl.f}.\index{grad\_ovs}
  \item[grille\_fixe]~: La grille d'interpolation de la composition
  chi\-mi\-que est fixe, lu dans {\tt lit\_nl.f}.\index{grille\_fixe} 
  \item[He\_ajuste]~: On ajustera la limite du noyau d'hélium avant de
  sortir, initialisé dans {\tt lit\_nl.f}.\index{He\_ajuste} 
  \item[jpz]~: Utilisation du formalisme de pénétration convective de JP.
  Zahn, lu dans {\tt lit\_nl.f}.\index{jpz} 
  \item[kipp]~: Utilisation de l'approximation de Kippenhahan, lu dans
  {\tt lit\_nl.f}. \index{kipp}
  \item[ledoux]~: Utilisation du critère de convection de Ledoux,
   lu dans {\tt lit\_nl.f}.\index{ledoux}
  \item[lim\_ro]~: Utilisation de la limite en densité pour la restitution
  de l'atmosphère, lu dans {\tt lit\_nl.f}.\index{lim\_ro} 
  \item[lim\_jpz]~: Utilisation de la limite de JpZh pour la diffusion du moment
  angulaire, lu dans {\tt lit\_nl.f}.\index{lim\_jpz} 
  \item[lisse]~: Il y aura lissage par {\tt contour} des profils des abondances,
  initialisé dans {\tt cesam.f} suivant le type de précision requis.
  \index{lisse}  
  \item[mitler]~: Utilisation du formalisme de Mitler pour le calcul de
  l'effet d'écran, lu dans {\tt lit\_nl.f}.\index{mitler} 
  \item[modif\_chim]~: On personnalisera la composition chi\-mi\-que
  initiale, lu dans {\tt lit\_nl.f}.\index{modif\_chim}
  \item[mu\_saha]~: Pour le calcul des coefficients de la diffusion du
  moment cinétique, le poids moléculaire moyen sera calculé en tenant compte des
  divers taux d'ionisation calculés par {\tt saha.f}, initialisé dans
  {\tt cesam.f} suivant le type de précision requis. \index{mu\_saha}   
  \item[mvt\_dis]~: On tiendra compte des déplacements des discontinuités
  pour la détermination de la composition chi\-mi\-que, initialisé dans
  {\tt cesam.f}.\index{mvt\_dis} 
  \item[pturb]~: On tiendra compte de la pression turbulente, initialisé
  dans {\tt lit\_nl}.\index{pturb}
  \item[rep\_atm]~: On utilisera un fichier binaire d'atmosphère, s'il
  existe, initialisé dans {\tt cesam.f}.\index{rep\_atm}
  \item[rot\_solid]~: On supposera la rotation solide, lu dans
  {\tt lit\_nl.f}.\index{rot\_solid} 
  \item[t\_ajuste]~: On ajustera la température centrale avant de sortir,
  initialisé dans {\tt lit\_nl.f}.\index{t\_ajuste} 
  \item[x\_ajuste]~: On ajustera l'abondance centrale d'hydrogène avant
  de sortir, initialisé dans {\tt lit\_nl.f}.\index{x\_ajuste}
 \end{description}

 \bigskip   
 \item {\lsf Variables PUBLIC character~:} 
 \begin{description}
  \item[precision]~: Désignation du type de calcul, lu dans {\tt lit\_nl.f}.
  \index{precision}
  \item[nom\_elem]~: Noms des isotopes utilisés, initialisé dans
  {\tt tabul\_nuc.f}.\index{nom\_elem} 
  \item[nom\_rot]~: Noms des variables utilisées pour la diffusion du moment
  cinétique, initialisé dans {\tt lit\_nl.f}.\index{nom\_rot} 
  \item[arret]~: Désignation du type d'arrêt, lu dans {\tt lit\_nl.f}.
  \index{arret} 
  \item[nom\_xheavy]~: Nom de l'élément fictif, initialisé dans {\tt nuc.f}.
  \index{nom\_xheavy} 
  \item[unit]~: Nom de l'unité utilisée pour la donnée de la vitesse angulaire
  initiale, initialisé dans {\tt lit\_nl.f}.\index{unit} 
  \item[langue]~: Nom de la langue utilisée pour les commentaires, initialisé
  dans {\tt cesam.f} .\index{langue}   
  \item[nom\_atm]~: Nom du type d'atmosphère, lu dans
  {\tt lit\_nl.f}.\index{nom\_atm} 
  \item[nom\_abon]~: Nom des abondances initiales,
  lu dans {\tt lit\_nl.f}.\index{nom\_abon} 
  \item[nom\_conv]~: Nom du type de convection, lu dans
  {\tt lit\_nl.f}.\index{nom\_conv}
  \item[nom\_ctes]~: Nom du groupe des constantes physiques, lu dans
   {\tt lit\_nl.f}.\index{nom\_ctes}
  \item[nom\_des]~: Nom du type de dessin, lu dans {\tt lit\_nl.f}.
  \index{nom\_des} 
  \item[nom\_diffm]~: Nom du type de coefficients de diffusion microscopique,
  lu dans {\tt lit\_nl.f}.\index{nom\_diffm} 
  \item[nom\_diffw]~: Nom du type de coefficients de diffusion de moment
  cinétique, lu dans {\tt lit\_nl.f}.\index{nom\_diffw} 
  \item[nom\_difft]~: Nom du type de coefficients de diffusion turbulente à
  utiliser, lu dans {\tt lit\_nl.f}.\index{nom\_difft} 
  \item[nom\_etat]~: Nom du type d'\EOS, lu dans {\tt lit\_nl.f}.
  \index{nom\_etat} 
  \item[nom\_frad]~: Nom du type d'accélérations radiatives, lu dans
   {\tt lit\_nl.f}.\index{nom\_frad}
  \item[nom\_nuc]~: Nom du type de réseau de réactions thermonucléaires,
  lu dans {\tt lit\_nl.f}.\index{nom\_nuc}
  \item[nom\_nuc\_cpl]~: Nom du type de compilation de réactions
  thermonucléaires, lu dans {\tt lit\_nl.f}.\index{nom\_nuc\_cpl} 
  \item[nom\_output]~: Nom du type de sortie ASCII, lu dans
  {\tt lit\_nl.f}.  \index{nom\_output} 
  \item[nom\_pertm]~: Nom du type de perte de masse, lu dans
  {\tt lit\_nl.f}.\index{nom\_pertm} 
  \item[nom\_pertw]~: Nom du type de perte de moment cinétique, lu dans
  {\tt lit\_nl.f}.\index{nom\_pertw} 
  \item[nom\_tdetau]~: Nom du type de loi $T(\tau)$, lu dans
  {\tt lit\_nl.f}.\index{nom\_tdetau} 
  \item[nom\_thw]~: Nom de la théorie de la diffusion du moment du moment
  cinétique, lu dans {\tt lit\_nl.f}.\index{nom\_thw}    
  \item[nom\_fich2]~: Nom du fichier de sortie {\tt mon\_modele.lis},
  lu dans {\tt lit\_nl.f}.\index{nom\_fich2}
  \item[thw]~: Noms des théories de la diffusion du moment du moment
  cinétique implantées dans \cesam2k, initialisé dans {\tt lit\_nl.f}.
  \index{thw}      
  \item[f\_eos]~: Nom du fichier d'\EOS, lu dans {\tt lit\_nl.f}.\index{f\_eos}
  \item[f\_opa]~: Nom du fichier d'\opa, lu dans {\tt lit\_nl.f}.\index{f\_opa} 
  \item[nom\_opa]~: Nom du type d'\opa, lu dans {\tt lit\_nl.f}.
  \index{nom\_opa} 
  \item[source]~: Nom de la source des constantes physiques, initialisé
 dans {\tt ini\_ctes.f}.\index{source} 
  \item[methode]~: Description de la méthode de calcul, initialisé dans
  {\tt cesam.f}.\index{methode} 
  \item[device]~: Nom du device de dessin, initialisé dans {\tt des.f}.
  \index{device} 
  \item[nom\_chemin]~: Nom du chemin du directory des données physiques,
  lu dans {\tt lit\_nl.f}.\index{nom\_chemin}    
 \end{description}

 \bigskip  
 \item {\lsf Routines PUBLIC~:}
 
 \medskip 
 \begin{bf}
  lit\_nl, ini\_ctes, print\_ctes.
  \index{lit\_nl.f}\index{ini\_ctes.f}\index{lit\_nl.f}
 \end{bf}
 
 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
 \medskip 
 \begin{bf} 
  ctes\_85, ctes\_94, ctes\_94m.
  \index{ctes\_85.f}\index{ctes\_94.f}\index{ctes\_94m.f}
 \end{bf}  
\end{itemize} 

\section{Module mod\_variables}\index{mod\_variables.f}\label{sec:amvar}
Ce module regroupe les routines d'usage général et les quantités
variant au cours d'une évolution. Par exemple, le vecteur des variables
quasi-statiques, ou encore le vecteur de composition chi\-mi\-que.
\begin{itemize}

 \bigskip 
 \item {\lsf Variables PUBLIC double précision~:}
 \begin{description}
  \item[bp]~: Table des coefficients des B-splines des variables quasi-statiques,
   calculée dans {\tt coll\_qs.f}.\index{bp}
  \item[bp\_t]~: Table des coefficients des B-splines des variables
  quasi-statiques
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{bp\_t}
  \item[chim]~: Table des coefficients des B-splines de la composition chi\-mi\-que,
   calculé dans {\tt evol.f} ou {\tt resout\_diff\_chim.f}.\index{chim}
  \item[chim\_t]~: Table des coefficients des B-splines de la composition chi\-mi\-que
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{chim\_t}
  \item[old\_ptm]~: Tables des coefficients des B-splines des masses, calculé dans
   {\tt pertm.f}.\index{old\_ptm}
  \item[rota]~: Table des coefficients des B-splines de la rotation, calculé dans
  {\tt resout\_rota.f}.\index{rota}
  \item[rota\_t]~: Table des coefficients des B-splines de la rotation
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{rota\_t}
  \item[tds]~: Table des coefficients des B-splines de l'énergie graviphique,
   calculé dans {\tt cesam.f}.\index{tds}
  \item[tds\_t]~: Table des coefficients des B-splines de l'énergie graviphique
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{tds\_t}
  \item[mc]~: Table des masses pour l'interpolation de la composition chi\-mi\-que,
  calculé dans {\tt evol.f} ou {\tt diffus.f}.\index{mc}
  \item[mct]~: Vecteur nodal des masses pour l'interpolation de la composition
   chi\-mi\-que, calculé dans {\tt evol.f} ou {\tt diffus.f}.\index{mct}
  \item[mc\_fixe]~: Table des masses de la grille fixe, calculé dans
  {\tt evol.f}.\index{mc\_fixe}
  \item[mc\_t]~: Table des masses pour l'interpolation de la composition chi\-mi\-que
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{mc\_t}
  \item[mct\_t]~: Vecteur nodal des masses pour l'interpolation de la composition
   chi\-mi\-que au pas temporel précédent, réinitialisé dans {\tt update.f}.
   \index{mct\_t}
  \item[mrot]~:  Table des masses pour l'interpolation du moment cinétique,
   calculé dans {\tt diffus.f}.\index{mrot}
  \item[mrott]~: Vecteur nodal des masses pour l'interpolation du moment
  cinétique, calculé dans {\tt diffus.f}.\index{mrott}
  \item[mrott\_t]~: Vecteur nodal des masses pour l'interpolation du moment
  cinétique au pas temporel précédent, réinitialisé dans {\tt update.f}.
  \index{mrott\_t}  
  \item[mrot\_t]~: Table des masses pour l'interpolation du moment cinétique
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{mrot\_t}
  \item[m23]~: Table de masses simplifiant l'interpolation inverse, calculé dans
  {\tt resout.f}.\index{m23}
  \item[m23\_t]~: Table de masses simplifiant l'interpolation inverse
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{m23\_t}
  \item[q]~: Table des abscisses entières pour linterpolation des variables
  quasi-statiques, calculé dans {\tt lim\_zc.f}.\index{q}
  \item[qt]~: Vecteur nodal des abscisses entières, calculé dans
  {\tt lim\_zc.f}.\index{qt}
  \item[q\_t]~: Table des abscisses entières au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{q\_t}
  \item[qt\_t]~: Vecteur nodal des abscisses entières au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{qt\_t}
  \item[r2]~: Table de rayons simplifiant l'interpolation inverse,
   calculé dans {\tt .f}.\index{r2}  
  \item[r2\_t]~: Table de rayons simplifiant l'interpolation inverse au pas
  temporel précédent, réinitialisé dans {\tt update.f}.\index{r2\_t}
  \item[xl]~: Abscisses des limites pour l'équilibre quasi-statique,
  calculé dans {\tt coll\_qs.f}.\index{xl}
  \item[xt\_ptm]~: Vecteur nodal pour la tabulation de la perte de masse,
  calculé dans {\tt pertm.f}.\index{xt\_ptm}
  \item[xt\_tds]~: Vecteur nodal pour la tabulation de l'énergie graviphique,
   calculé dans {\tt cesam.f}.\index{xt\_tds}
  \item[xt\_tds\_t]~: Vecteur nodal pour la tabulation de l'énergie graviphique
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{xt\_tds\_t}
  \item[x\_ptm]~: Table des masses pour la tabulation de la perte de masse,
  calculé dans {\tt .f}.\index{x\_ptm}
  \item[x\_tds]~: Table des masses pour la tabulation de l'énergie graviphique,
   calculé dans {\tt .f}.\index{x\_tds}
  \item[x\_tds\_t]~: Table des masses pour la tabulation de l'énergie graviphique
  au pas temporel précédent, réinitialisé dans {\tt update.f}.\index{x\_tds\_t}  
  \item[x\_planet]~: Composition chimique des planétoîdes, initialisé dans
  {\tt planetoides.f}.\index{x\_planet}
  \item[r\_zc\_conv]~: Rayons des limites des \ZCs, calculé dans {\tt lim\_zc.f}.
  \index{r\_zc\_conv}
  \item[m\_zc]~: Masses aux limites des \ZCs, calculé dans {\tt lim\_zc.f}.
  \index{m\_zc}
  \item[m\_zc\_t]~: Masses aux limites des \ZCs\ au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{m\_zc\_t}
  \item[r\_zc]~: Rayons des \ZCs, calculé dans {\tt lim\_zc.f}.\index{r\_zc}
  \item[r\_zc\_t]~: Rayons des \ZCs\ au pas temporel précédent, réinitialisé dans
  {\tt update.f}.\index{r\_zc\_t}
  \item[r\_ov]~: Rayons des \ZCs\ avec overshoot, calculé dans {\tt lim\_zc.f}.
  \index{r\_ov}
  \item[r\_ov\_t]~: Rayons des \ZCs\ avec overshoot au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{r\_ov\_t}
  \item[age]~: Age du modèle, calculé dans {\tt cesam.f}.\index{age}  
  \item[c\_iben]~: Constante de Iben , calculé dans {\tt cesam.f}.
  \index{c\_iben}
  \item[mstar]~: Masse du modèle, calculé dans {\tt atm.f}.\index{mstar}
  \item[mstar\_t]~: Masse du modèle au pas temporel précédent, réinitialisé
   dans    {\tt update.f}.\index{mstar\_t}
  \item[mw\_tot]~: Moment cinétique total, calculé dans {\tt resout.f}.
  \index{mw\_tot}
  \item[mw\_tot\_t]~: Moment cinétique total au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{mw\_tot\_t}
  \item[psi0]~: Constante de répartition, calculé dans {\tt resout.f}
  \index{psi0}
  \item[rstar]~: Rayon de l'étoile, calculé dans {\tt atm.f}.\index{rstar}
  \item[wrot]~: Vitesse angulaire, calculé dans {\tt resout.f}.\index{wrot}  
  \item[wrot\_t]~: Vitesse angulaire au pas temporel précédent, réinitialisé
  dans {\tt update.f}.\index{wrot\_t}  
 \end{description}

 \bigskip 
 \item {\lsf Variables PUBLIC integer~:} 
 \begin{description}
  \item[jlim]~: Indices des limites \ZRZCs, calculé dans {\tt lim\_zc.f}.
  \index{jlim}
  \item[jlim\_t]~: Indices des limites \ZRZCs\ au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{jlim\_t}
  \item[dim\_ch]~: Dimension de l'espace des splines pour la composition
  chimique, réinitialisé dans {\tt evol.f}.\index{dim\_ch}
  \item[dim\_qs]~: Dimension de l'espace des splines pour les variables de
  structure, réinitialisé dans {\tt lim\_zc.f}.\index{dim\_qs} 
  \item[dim\_rot]~: Dimension de l'espace des splines pour la diffusion du
  moment cinétique, réinitialisé dans {\tt evol.f}.\index{dim\_rot} 
  \item[id\_conv]~: Indices des débuts des \ZCs, réinitialisé dans {\tt evol.f}.
  \index{id\_conv} 
  \item[if\_conv]~: Indices des fins des \ZCs, réinitialisé dans {\tt evol.f}.
  \index{if\_conv} 
  \item[knot]~: Nombre de points du vecteur nodal pour l'interpolation des
  variables quasi-statiques, calculé dans {\tt coll.f}.\index{knot}
  \item[knotc]~: Nombre de points du vecteur nodal pour l'interpolation de la
  composition chi\-mi\-que, calculé dans {\tt evol.f} ou
  {\tt resout\_diff\_chim}.\index{knotc}
  \item[knotc\_t]~: Nombre de points du vecteur nodal pour l'interpolation de la
  composition chi\-mi\-que au pas temporel précédent, réinitialisé dans 
  {\tt update.f}.\index{knotc\_t}
  \item[knot\_ptm]~: Nombre de points du vecteur nodal pour l'interpolation de
  la perte de masse, calculé dans {\tt pertm.f}.\index{knot\_ptm}
  \item[knotr]~: Nombre de points du vecteur nodal pour l'interpolation du
  vecteur de mélange, calculé dans {\tt diffus.f}.\index{knotr}
  \item[knotr\_t]~: Nombre de points du vecteur nodal pour l'interpolation du
  vecteur de mélange, au pas temporel précédent, réinitialisé dans
  {\tt update.f}.\index{knotr\_t} 
  \item[knot\_t]~: Nombre de points du vecteur nodal pour l'interpolation des
  variables quasi-statiques au pas temporel précédent, réinitialisé dans
   {\tt update.f}.\index{knot\_t}
  \item[knot\_tds]~: Nombre de points du vecteur nodal pour l'interpolation de
  l'énergie graviphique, calculé dans {\tt cesam.f}.\index{knot\_tds}
  \item[knot\_tds\_t]~: Nombre de points du vecteur nodal pour l'interpolation
  de l'énergie graviphique au pas temporel précédent, réinitialisé dans 
  {\tt update.f}.\index{knot\_tds\_t}
  \item[lim]~: Indices des limites \ZRZCs, calculé dans {\tt lim\_zc.f}.
  \index{lim}
  \item[lim\_t]~: Indices des limites \ZRZCs\ au pas temporel précédent,
  réinitialisé dans {\tt update.f}.\index{lim\_t}
  \item[model\_num]~: Indice du dernier modèle calculé depuis le début de
  l'évolution compte tenu des reprises, réinitialisé dans {\tt cesam}.
  \index{model\_num}   
  \item[nb\_modeles]~: Nombre de modèles calculés au cours du présent run,
  réinitialisé dans {\tt cesam}.\index{nb\_modeles}   
  \item[nc\_fixe]~: Nombre de points de la grille fixe d'interpolation de la
  composition chi\-mi\-que, calculé dans {\tt evol.f}.\index{nc\_fixe}
  \item[n\_ch]~: Nombre de points de la grille d'interpolation de la
  composition chi\-mi\-que, calculé dans {\tt evol.f}.\index{n\_ch}
  \item[n\_ch\_t]~: Nombre de points de la grille d'interpolation de la
  composition chi\-mi\-que au pas temporel précédent, réinitialisé dans
  {\tt update.f}.\index{n\_ch\_t}
   \item[n\_ptm]~: Nombre de points de la grille d'interpolation de la perte de
   masse, calculé dans {\tt pertm.f}.\index{n\_ptm}
  \item[n\_qs]~: Nombre de points de la grille d'interpolation de l'équilibre
  quasi-statique, calculé dans {\tt lim\_zc.f}.\index{n\_qs}
  \item[n\_qs\_t]~: Nombre de points de la grille d'interpolation de l'équilibre
  quasi-statique au pas temporel précédent, réinitialisé dans {\tt update.f}.
  \index{n\_qs\_t}
  \item[n\_rot]~: Nombre de points de la grille d'interpolation de la 
  rotation, calculé dans {\tt diffus.f}.\index{n\_rot}
  \item[n\_rot\_t]~: Nombre de points de la grille d'interpolation de la 
  rotation au pas temporel précédent, réinitialisé dans {\tt update.f}.
  \index{n\_rot\_t}
  \item[n\_tds]~: Nombre de points de la grille d'interpolation de l'énergie
  graviphique, calculé dans {\tt .f}.\index{n\_tds}
  \item[n\_tds\_t]~: Nombre de points de la grille d'interpolation de l'énergie
  graviphique au pas temporel précédent, réinitialisé dans {\tt update.f}.
  \index{n\_tds\_t}  
 \end{description} 

 \bigskip  
 \item {\lsf Variables PUBLIC logical~:}
 \begin{description}
  \item[lconv]~: Début d'une \ZC, calculé dans {\tt lim\_zc.f}.\index{lconv}
  \item[lconv\_t]~: Début d'une \ZC\ au pas temporel précédent , réinitialisé
  dans {\tt update.f}.\index{lconv\_t}
  \item[lhe\_stop]~: Arrêt lorsque le c\oe ur d'hélium a atteint la masse
  requise, calculé dans {\tt cesam.f}.\index{lhe\_stop}
  \item[lt\_stop]~: Arrêt lorsque la température centrale a atteint la valeur
  requise, calculé dans {\tt .f}.\index{lt\_stop}
  \item[lx\_stop]~: Arrêt lorsque l'abondance centrale d'hydrogène a atteint
   la valeur requise, calculé dans {\tt cesam.f}.\index{lx\_stop}
  \item[tot\_conv]~: Le modèle est totalement convectif, calculé dans
  {\tt  lim\_zc.f}.\index{tot\_conv}
  \item[tot\_rad]~: Le modèle est totalement radiatif, calculé dans {\tt .f}.
  \index{tot\_rad}
 \end{description}

 \bigskip  
 \item {\lsf Routines PUBLIC~:}
 
 \medskip
 \begin{bf} 
  chim\_gram, inter, sortie.
  \index{chim\_gram.f}\index{inter.f}\index{sortie.f}  
 \end{bf} 
\end{itemize}

\section{Module mod\_etat}\index{mod\_etat.f}\label{sec:amet}
Le module {\tt mod\_etat} regroupe les routines concernées par l'\EOS.
\begin{itemize}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
 \medskip
 \begin{bf}
  etat\_ceff, etat\_eff, etat\_gong1, etat\_gong2, etat\_mhd, etat\_opal,
  etat\_opalX, etat\_opalZ.
  \index{etat\_ceff.f}\index{etat\_eff.f}\index{etat\_gong1.f}
  \index{etat\_gong2.f}\index{etat\_mhd.f}\index{etat\_opal.f}
  \index{etat\_opalX.f}\index{etat\_opalZ.f} 
 \end{bf} 

 \bigskip 
 \item {\lsf Routines PUBLIC~:}
 
 \medskip
 \begin{bf}  
  df\_rotx, etat, saha.
  \index{df\_rotx.f}\index{etat.f}\index{saha.f}
 \end{bf} 
\end{itemize}

\section{Module mod\_opa}\label{sec:amop}\index{mod\_opa.f}
Le module {\tt mod\_opa} regroupe les routines concernant le calcul de
 l'opacité. La routine d'opacité {\tt z14xcotrin21.f} n'est qu'associée
 au module en raison de sa programmation ancienne.
\begin{itemize}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
 \medskip
 \begin{bf} 
 kappa\_cond, opa\_compton, opa\_gong, opa\_houdek9, opa\_int\_zsx, opa\_opalCO, opa\_opal2,
 opa\_yveline, opa\_yveline\_lisse.
 \index{kappa\_cond}\index{opa\_gong.f}\index{opa\_houdek9.f}
 \index{opa\_int\_zsx.f}\index{opa\_opalCO.f}\index{opa\_opal2.f}
\index{opa\_yveline.f}\index{opa\_yveline\_lisse.f}\index{opa\_compton.f}
 \end{bf} 

 \bigskip  
 \item {\lsf Routine PUBLIC~:}
 
 \medskip
 \begin{bf}   
  opa.\index{opa.f}
 \end{bf} 
\end{itemize}
 
\section{Module mod\_conv}\label{sec:amco}\index{mod\_conv.f}
\index{conv\_a0.f}\index{conv\_cgm\_reza.f}\index{conv\_cm.f}\index{conv\_cml.f}
\index{conv\_cm\_reza.f}\index{conv\_jmj.f}\index{conv.f}
Le module {\tt mod\_conv} regroupe les routines concernant la convection.
\begin{itemize}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
 \medskip
 \begin{bf} 
  conv\_a0, conv\_cgm\_reza, conv\_cm, conv\_cml, conv\_cm\_reza, conv\_jmj.
  \index{conv\_a0.f}\index{conv\_cgm\_reza.f}\index{conv\_cm.f}
  \index{conv\_cml.f}\index{conv\_cm\_reza.f}\index{conv\_jmj.f}
 \end{bf} 
 
 \bigskip 
 \item {\lsf Routine PUBLIC~:}
 
 \medskip
 \begin{bf}
  conv.\index{conv.f}
 \end{bf} 
\end{itemize}

\section{Module mod\_atm}\index{mod\_atm.f}\label{sec:amatm}
Le module {\tt mod\_atm} regroupe les routines de restitution de l'atmosphère. 
\begin{itemize}

 \bigskip 
 \item {\lsf Variables PUBLIC double précision~:}
 \begin{description}
  \item[bp\_atm]~: Tableau des coefficients des B-splines d'interpolation de
  l'atmosphère, calculé dans {\tt coll\_atm.f}.\index{bp\_atm}
  \item[bp\_atm\_t]~: Tableau des coefficients des B-splines d'interpolation de
  l'atmosphère au pas temporel précédent, réinitialisé dans {\tt update.f}.
  \index{bp\_atm\_t}
  \item[dlpp\_atm]~: Tableau des quotients $d\ln P_{\rm gaz}/ d\ln P_{\rm tot}$,
   calculé dans {\tt atm.f}.
  \index{dlpp\_atm}
  \item[m\_atm]~: Tableau des masses, abscisses lagrangiennes ,calculé dans
  {\tt coll\_atm.f}.\index{m\_atm}
  \item[p\_atm]~: Tableau des pressions gazeuses, calculé dans {\tt atm.f}.
  \index{p\_atm}
  \item[pt\_atm]~: Tableau des pressions totales, calculé dans {\tt atm.f}.
  \index{pt\_atm}
  \item[r\_atm]~: Tableau des rayons , calculé dans {\tt atm.f}.\index{r\_atm}
  \item[tau]~: Tableau des profondeurs optiques, calculé dans {\tt atm.f}.
  \index{tau}
  \item[t\_atm]~: Tableau des températures, calculé dans {\tt atm.f}.
  \index{t\_atm}
  \item[x\_atm]~: Tableau des abscisses pour la restitution de l'atmosphère,
   calculé dans {\tt atm.f}.\index{x\_atm}
  \item[x\_atm\_t]~: Tableau des abscisses pour la restitution de l'atmosphère
   au pas temporel précédent, réinitialisé dans {\tt update.f}.
   \index{x\_atm\_t}
  \item[xt\_atm]~: Vecteur nodal des abscisses pour la restitution de
  l'atmosphère, calculé dans {\tt lim\_atm.f}.\index{xt\_atm}
  \item[tau\_min]~: Epaisseur optique de la couche externe de l'atmosphère,
  initialisé dans {\tt tdetau.f}.\index{tau\_min}
 \end{description}

 \bigskip 
 \item {\lsf Variables PRIVATE double précision~:}
 \begin{description}
  \item[delfim]~: Pente de la fonction de répartition à gauche de la couche
  d'indice {\tt n23\_atm}, calculé dans {\tt lim\_atm.f}.\index{delfim}
  \item[delfip]~: Pente de la fonction de répartition à droite de la couche
  d'indice {\tt n23\_atm}, calculé dans {\tt lim\_atm.f}.\index{delfip}
  \item[ltaue]~: $\ln(\tau_{\rm min})$, initialisé dans {\tt lim\_atm.f}.
  \index{ltaue}
  \item[ltauf]~: $\ln(\tau_{\rm max})$, initialisé dans {\tt lim\_atm.f}.
  \index{ltauf}
  \item[tau\_min]~: Epaisseur optique de la couche externe de l'atmosphère,
  initialisé dans {\tt tdetau.f}.\index{tau\_min}
 \end{description}

 \bigskip  
 \item  {\lsf Variables PRIVATE integer~:}
 \begin{description}
  \item[Ipgt]~: Indice de la variable pression gazeuse, initialisé dans
  {\tt lim\_atm.f}.\index{Ipgt}
  \item[ne\_atm]~: Nombre d'équations pour la restitution de l'atmosphère,
 initialisé dans {\tt lim\_atm.f}.\index{ne\_atm}
  \item[n23\_atm]~: Indice de la couche définissant le rayon bolométrique où
  $T(\tau*)=T_{\rm eff}$, initialisé dans {\tt lim\_atm.f}.\index{n23\_atm}
 \end{description}
 
 \item {\lsf Variables PRIVATE logical~:} 
 \begin{description}
  \item[rad]~: La loi T(tau) est purement radiative, initialisé dans
  {\tt tdetau.f}.\index{rad}  
 \end{description}

 \bigskip  
 \item {\lsf Variable PRIVATE character~:} 
 \begin{description}  
  \item[nom\_atm]~: Nom de la routine de loi $T(\tau)$ à utiliser, lu dans
  {\tt lit\_nl.f}.\index{nom\_atm}
 \end{description}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
 \medskip
 \begin{bf} 
  coll\_atm, edding, eq\_atm, hopf, k5750, k5777, lim\_atm, lim\_gong1,
  lim\_tau1, roger00, roger02, roger05, roger10a, taueff, trho
  \index{coll\_atm.f}\index{edding.f}\index{eq\_atm.f}\index{hopf.f}
  \index{k5750.f}
  \index{k5777.f}\index{lim\_atm.f}\index{lim\_gong1.f}\index{lim\_tau1.f}
  \index{roger00.f}\index{roger02.f}\index{roger05.f}\index{roger10a.f}
  \index{taueff.f}\index{trho.f}		 
 \end{bf}

 \bigskip  
 \item {\lsf Routines PUBLIC~:}
 
 \medskip
 \begin{bf} 
  atm, tdetau, thermo\_atm.
  \index{atm.f}\index{tdetau.f}\index{thermo\_atm.f}  
 \end{bf}
\end{itemize}

\section{Module mod\_nuc}\label{sec:amnuc}\index{mod\_nuc.f}
Le module {\tt mod\_nuc} regroupe les routines concernant les réactions
 thermonucléaires. 
\begin{itemize}
 
 \bigskip
 \item {\lsf Paramètres PUBLIC integer~:}
 \begin{description}
  \item[m\_temp]~: Ordre des splines pour l'interpolation des taux des réactions
  thermonucléaires.\index{m\_temp}
  \item[niso\_tot]~: Nombre maximum d'isotopes.\index{niso\_tot}
  \item[nreac\_tot]~: Nombre maximum de réactions thermonucléaires.
  \index{nreac\_tot}
 \end{description}
 
 \bigskip
 \item {\lsf Paramètres PRIVATE integer~:}
 \begin{description}
  \item[nelem\_ini]~: Nombre maximum d'éléments.\index{nelem\_ini}
 \end{description}
 
 \bigskip  
 \item {\lsf Variables PUBLIC double précision~:} 
 \begin{description}
 \item[taux\_reac]~: Taux des réactions thermonucléaires, initialisé dans
 {\\ taux\_nuc.f}.  \index{taux\_reac} 
 \item[ar]~: Masses réduites des cibles des réactions thermonucléaires,
 initialisé dans  {\tt taux\_nuc.f}.\index{ar}
 \item[q0]~: Energie des réactions  thermonucléaires, initialisé dans
 {\\ taux\_nuc.f}.\index{q0}
 \item[temp, ttemp]~: Table des températures et vecteur nodal assicié pour
 l'interpolation des réactions  thermonucléaires, initialisé dans
 {\tt taux\_nuc.f}.\index{temp}\index{ttemp}	 
 \end{description}   
 
 \bigskip  
 \item {\lsf Variables PRIVATE double précision~:} 
 \begin{description}
  \item[ab]~: Tableau des abondances, initialisé dans {\tt abon\_ini.f}.
  \index{ab}
  \item[abon\_rela]~: Tableau des abondances relatives métal/Z, initialisé dans
  {\tt abon\_ini.f}.\index{abon\_rela}
  \item[m]~: Masses atomiques, initialisé dans {\tt abon\_ini.f}.\index{m}
  \item[c]~: Charges des éléments chi\-mi\-ques, initialisé dans
  {\tt abon\_ini.f}.\index{c}
  \item[be7sbe9]~: Rapport isotopique \Be7/\Be9, initialisé dans 
  {\tt abon\_ini.f}.\index{be7sbe9}
  \item[be7sz]~: Rapport isotopique \Be7/Z, initialisé dans {\tt abon\_ini.f}.
  \index{be7sz}
  \item[c13sc12]~: Rapport isotopique \C{13}/\C{12}, initialisé dans 
  {\tt abon\_ini.f}.\index{c13sc12}
  \item[h2sh1]~: Rapport isotopique \H2/\H1, initialisé dans {\tt abon\_ini.f}.
  \index{h2sh1}
  \item[he3she4]~: Rapport isotopique \He3/\He4, initialisé dans
   {\tt abon\_ini.f} .\index{he3she4}
  \item[he3she4z]~:Rapport isotopique \He3/\He4, avec \H2 primordial transformé 
  en \He3, initialisé dans {\tt abon\_ini.f}.\index{he3she4z}
  \item[li6sli7]~: Rapport isotopique \Li6/\Li7, initialisé dans
  {\tt abon\_ini.f}.\index{li6sli7}
  \item[mg25smg24]~: Rapport isotopique \Mg{25}/\Mg{24}, initialisé dans
   {\tt abon\_ini.f}.\index{mg25smg24}
  \item[mg26smg25]~:Rapport isotopique \Mg{26}/\Mg{25}, initialisé dans 
  {\tt abon\_ini.f}.\index{mg26smg25}
  \item[ne22sne20]~: Rapport isotopique \Ne{22}/\Ne{20}, initialisé dans
   {\tt abon\_ini.f}.\index{ne22sne20}
  \item[n15sn14]~: Rapport isotopique \N{15}/\N{14}, initialisé dans
   {\tt abon\_ini.f}.\index{n15sn14}
  \item[o17so16]~: Rapport isotopique \O{17}/\O{16}, initialisé dans 
  {\tt abon\_ini.f}.\index{o17so16}
  \item[o18so16]~: Rapport isotopique \O{18}/\O{16}, initialisé dans 
  {\tt abon\_ini.f}.\index{o18so16}  
  \item[age\_deb]~: Instant du début des chutes de planètoïdes, lu dans
  {\tt planetoides.f}.\index{age\_deb}
  \item[age\_fin]~: Instant de la fin des chutes de planètoïdes, lu dans
  {\tt planetoides.f}.\index{age\_fin} 
  \item[dt\_planet]~: Pas temporel pour décrire les chutes de planètoïdes, lu dans
  {\tt planetoides.f}.\index{dt\_planet}
  \item[t\_sup]~: Température maximale de tabulation des réactions
  thermonucléaires, initialisé dans {\tt tabul\_nuc.f}.\index{t\_sup}  
  \item[mzc\_ext]~: Masse de la \ZC externe, réinitialisé dans {\tt evol.f}.
  \index{mzc\_ext}  
  \item[nuzc\_ext]~: $M^\frac23$ de la \ZC\ externe, réinitialisé dans
  {\tt evol.f}.\index{nuzc\_ext} \
 \end{description}  

 \bigskip 
 \item {\lsf Variables PRIVATE integer~:}
 \begin{description}
  \item[izz]~: Table des charges des noyaux interagissant dans les réactions
  thermonucléaires, initialisé dans {\tt tabul\_nuc.f}.\index{izz}
  \item[i3al]~: Indice de la réaction 3$\alpha$, initialisé dans
  {\tt tabul\_nuc.f}.\index{i3al}
 \end{description} 
 
  \bigskip 
 \item {\lsf Variables PUBLIC integer~:}
 \begin{description}
 \item[knot\_temp]~: Dimension du vecteur nodal pour l'interpolation des
 réactions thermonucléaires, initialisé dans {\tt tabul\_nuc.f}.
 \index{knot\_temp}
  \item[nreac]~: Nombre de réactions thermonucléaires du réseau utilisé,
  initialisé dans {\tt tabul\_nuc.f}.\index{nreac} 
  \item[n\_temp]~: Nombre de températures pour pour l'interpolation des
  réactions thermonucléaires,
  initialisé dans {\tt tabul\_nuc.f}.\index{n\_temp}
 \end{description} 
 
 \bigskip  
 \item {\lsf Variable PRIVATE character~:}
 \begin{description}
  \item[elem]~: Noms des éléments chi\-mi\-ques, initialisé dans {\tt abon\_ini.f}.
  \index{elem}
 \end{description}

 \bigskip  
 \item {\lsf Routines PRIVATE~:}
 
  \medskip
  \begin{bf} 
   iben, pp1, pp3, ppcno10BeBFe, ppcno10Fe, pcno10K, ppcno10,
   ppcno11, ppcno12Be, ppcno12BeBFe, ppcno12Li, ppcno12, ppcno3a12Ne,
   ppcno3a9, ppcno3aco, ppcno9, ppcno9Fe, rq\_reac, tabul\_nuc
  \end{bf}   
   \index{abon\_ini.f}\index{iben.f}\index{pp1.f}\index{pp3.f}
   \index{ppcno10BeBFe.f}\index{ppcno10Fe.f}\index{ppcno10K.f}
   \index{ppcno10.f}\index{ppcno11.f}\index{ppcno12Be.f}
   \index{ppcno12BeBFe.f}\index{ppcno12Li.f}\index{ppcno12.f}
   \index{ppcno3a9.f}\index{ppcno3aco.f}\index{ppcno9.f}
   \index{ppcno9Fe.f}\index{rq\_reac.f}\index{tabul\_nuc.f}
   \index{ppcno3a12Ne.f}	 	 	 	 	

 \bigskip  
 \item {\lsf Routines PUBLIC~:}
 
  \medskip
  \begin{bf}
   abon\_ini, nuc, planetoides, taux\_nuc, vent.
  \index{nuc.f}\index{vent.f}\index{abon\_ini.f}\index{planetoides.f}
  \index{taux\_nu.f}
 \end{bf}
\end{itemize}

\section{Module mod\_bp\_for\_alecian}\label{sec:ambpal}
\index{mod\_bp\_for\_alecian.f}
Le module {\tt mod\_bp\_for\_alecian} regroupe les routines concernant le
calcul des accélérations radiatives suivant le second formalisme de G.Alécian.
Développé par B.Pichon, il constitue essentiellement une interface entre
les routines fournies par G.Alécian et \cesam2k. D'origine externe, les
fonctions des composantes de ce mo\-du\-le ne sont pas détaillées.

\section{Module mod\_evol}\label{sec:amevol}\index{mod\_evol.f}
Le module {\tt mod\_evol} regroupe les routines concernant l'évolution
 temporelle avec et sans diffusion de la composition chi\-mi\-que et du moment
 cinétique.
\begin{itemize}

 \bigskip 
 \item {\lsf Paramètres PRIVATE double précision~:}
 \begin{description}
  \item[eps]~: Petit écart permettant l'estimation numérique de dérivées.
  \index{eps}
  \item[nu\_min]~: Valeur minimale pour éviter $\nu=0$.\index{nu\_min}  
  \item[t\_gab]~: Valeur minimale en dessous de laquelle il pourra y avoir
  mélange dans la routine {\tt difft\_gab.f}. \index{t\_gab}  
  \item[un\_eps]~: Ecart pour l'estimation numérique de dérivées.\index{un\_eps}
 \end{description}  

 \bigskip 
 \item {\lsf Variables PRIVATE double précision~:} 
 \begin{description}
  \item[dr\_zc]~: Variations des rayons des limites \ZRZCs sur un pas temporel,
  réintialisé dans {\tt evol.f}.\index{dr\_zc}
  \item[x\_mix]~: Abscisses des limites \ZRZCs, réintialisé dans {\tt evol.f}.
  \index{x\_mix}
 \end{description}


 \bigskip  
 \item {\lsf Variables PRIVATE integer~:}
 \begin{description}
  \item[idis]~: Table des indices des discontinuités, réinitialisé dans
  {\tt evol.f}.\index{idis}
  \item[convd]~:Table des indices du début des discontinuités,
  réinitialisé dans {\tt evol.f}.\index{convd}
 \item[convf]~: Table des indices de fin des discontinuités,
 réinitialisé dans {\tt evol.f}.\index{convf}
  \item[ndis]~: Nombre de discontinuités, réinitialisé dans
  {\tt evol.f}.\index{ndis}
 \item[nzc]~: Nombre de \ZCs, réinitialisé dans {\tt evol.f}. \index{nzc}
  \item[n\_mix]~: Nombre de points d'interpolation du vecteur de
  mélange, réinitialisé dans {\tt evol.f}.\index{n\_mix}
 \end{description}

 \bigskip 
 \item {\lsf Variables PUBLIC logical~:}
 \begin{description}    
  \item[mix]~: Table logique des états de convection, réinitialisé dans
  {\tt evol.f}.\index{mix}
  \item[lw\_perte]~: Il y a perte de moment angulaire, initialisé dans
  {\tt pertw.f}.\index{lw\_perte} 
 \end{description}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
  \medskip
  \begin{bf} 
   alecian1, coeff\_rota3, coeff\_rota4, collision, coulomb,
    diffm, diffm\_br, diffm\_mp,
   difft, difft\_gab, difft\_nu, difft\_sun, diffus, diffw, diffw\_mpz,
  diffw\_p03, eq\_diff\_chim, eq\_diff\_poisson,
  eq\_diff\_rota3, eq\_diff\_rota4, f\_rad, initialise\_poisson,
  initialise\_u, initialise\_w, lmix,  
   pertw, pertw\_loc, pertw\_ptm, pertw\_sch, resout\_chim,
   resout\_rota, resout\_rota3, resout\_rota4.
   \index{alecian1.f}\index{collision.f}\index{coulomb.f}
   \index{diffm.f}\index{diffm\_br.f}\index{diffm\_mp.f}\index{difft.f}
   \index{difft\_nu.f}\index{diffus.f}\index{diffw.f}\index{diffw\_mpz.f}
   \index{eq\_diff\_chim.f} \index{eq\_diff\_rota3.f} \index{f\_rad.f}
   \index{pertw.f}\index{pertw\_loc.f}\index{pertw\_ptm.f}\index{pertw\_sch.f}
   \index{resout\_chim.f}\index{resout\_rota.f}
   \index{coeff\_rota3.f} \index{coeff\_rota4.f} \index{difft\_gab.f}
   \index{difft\_sun.f}\index{diffw\_p03.f}\index{eq\_diff\_poisson.f}
   \index{eq\_diff\_rota4.f}\index{initialise\_poisson.f}\index{lmix.f}
   \index{initialise\_u.f}\index{initialise\_w.f}
   \index{resout\_rota3.f}\index{resout\_rota4.f}
  \end{bf}

 \bigskip 
 \item {\lsf Routines PUBLIC~:}
 
 \medskip
 \begin{bf}
  coeff\_rota, ecrit\_rota, evol, initialise\_rota, rk\_imps.
 \index{evol.f}\index{coeff\_rota.f}\index{ecrit\_rota.f}\index{rk\_imps.f}
 \index{initialise\_rota.f}
 \end{bf}
\end{itemize}

\section{Module mod\_static}\label{sec:amqst}\index{mod\_static.f}
Le module {\tt mod\_static} regroupe les routines concernées par
 la résolution des équations de l'équilibre quasi-statique.
\begin{itemize}

 \bigskip 
 \item {\lsf Paramètre PRIVATE character~:} 
 \begin{description}
  \item[nom\_qs]~: Noms des variables quasi-statiques.\index{nom\_qs}
 \end{description}
 
 \bigskip 
 \item {\lsf Variables PRIVATE double précision~:}
 \begin{description}
  \item[fac]~: Facteurs de répartition, calculé dans {\tt lim\_zc.f}.
  \index{fac}
  \item[xcoll]~: Abscisses des points de collocation, réinitialisé dans
  {\tt coll\_qs.f}.\index{xcoll}
 \end{description}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
  \medskip
  \begin{bf} 
   coll\_qs, dgrad, lim\_zc, pertm\_ext, pertm\_msol, pertm\_tot,
   pertm\_waldron, static, static\_m, static\_r, update.
   \index{coll\_qs.f}\index{dgrad.f}\index{lim\_zc.f}\index{pertm\_ext.f}
   \index{pertm\_msol.f}\index{pertm\_tot.f} \index{pertm\_waldron.f}
   \index{static.f} \index{static\_m.f}\index{static\_r.f}\index{update.f}
  \end{bf}

 \bigskip  
 \item {\lsf Routines PUBLIC~:}
 
 \medskip
 \begin{bf}
  pertm, resout, thermo.
  \index{pertm.f} \index{resout.f} \index{thermo.f}
 \end{bf}
\end{itemize}
 
\section{Module mod\_cesam}\index{mod\_cesam.f}\label{sec:amcs}
Le module {\tt mod\_cesam} regroupe les routines concernant la gestion générale
du calcul.
\begin{itemize}

 \bigskip 
 \item {\lsf Routines PRIVATE~:}
 
  \medskip
  \begin{bf} 
   add\_ascii, ascii, des, des\_m, des\_r, dnunl, list,
   output, osc\_adia, osc\_invers, osc\_nadia
   \index{add\_ascii.f}\index{ascii.f}\index{des.f}\index{des\_m.f}
   \index{des\_r.f}\index{dnunl.f}\index{list.f}
   \index{output.f}\index{osc\_adia.f}\index{osc\_invers.f}\index{osc\_nadia.f}
  \end{bf}

 \bigskip 
 \item {\lsf Routine PUBLIC~:}
  
 \medskip
 \begin{bf}
  cesam.
  \index{cesam.f}
 \end{bf}
\end{itemize}

\section{Module mod\_exploit}\index{mod\_exploit.f}\label{sec:amexp}
Le module {\tt mod\_exploit} regroupe des routines concernées
par l'exploitation des résultats.
\begin{itemize}

 \bigskip 
 \item {\lsf Routine PRIVATE~:}
 
  \medskip
  \begin{bf}
   ascii, diffw\_mpz, diffw\_p03, osc\_adia, osc\_invers, osc\_nadia.
   \index{ascii.f}\index{diffw\_mpz.f}\index{diffw\_p03.f}\index{osc\_adia.f}
   \index{osc\_invers.f}\index{osc\_nadia.f}
  \end{bf}

 \bigskip 
 \item {\lsf Routines PUBLIC~:}
  
 \medskip
 \begin{bf}   
  add\_ascii, ctes\_85, ctes\_94, ctes\_94m, diffw, ini\_ctes, inter\_atm, lit\_binaire,
  lit\_hr, lit\_nl, min\_max, min\_max\_cond, output, read\_ascii, write\_nl.   
  \index{add\_ascii.f}\index{ctes\_85.f}\index{ctes\_94.f}
  \index{ctes\_94m.f}\index{ini\_ctes.f}
  \index{inter\_atm.f}\index{lit\_binaire.f}\index{lit\_hr.f}\index{lit\_nl.f}
  \index{min\_max.f}\index{min\_max\_cond.f}\index{diffw}
  \index{output.f}\index{read\_ascii.f}\index{write\_nl.f}  
 \end{bf}
\end{itemize}
