*****************************************************
        *                                                   *
        *                  calcit                           *
        *                                                   *
        *****************************************************

 OBJET:
_______


A:MESURES :
***********
    Elles commencent par 10 lignes de commentaire.

    Mettre 380 pour les fin de lame et 450 pour la fin des donnees

    sans les confondre en format (2X,I3).


B:PARAMETRES
*************
    Les parametres d'execution sont en format libre sauf en ligne 3
    et ils seront lus sur l'UL 3.Il faudra TOUS les indiquer en les
    s{parant par un ou plusieurs blancs et en mettant un 0(Zero) pour
    ceux qui ne seront pas utilises.
    Ceux qui commenceront par une lettre comprise entre I et N seront
    des entiers et les autres des reels.


  1. INDX NTIR IPCNT IX KNIOP IMPP

        * INDX = 1: Tout sera tire au hasard.
                 2: Sigma1 sera impose en azimut et pendage.
                 3: Sigma3 sera impose en azimut et pendage.
                 4: Sigma1  et Sigma3    seront imposes.
                 5: Sigma1 , Sigma3 et R seront imposes.

        * NTIR  Nombre de tirages au hasard pour fixer le tenseur
                de d{part (100 ou 200 est une valeur habituelle).

        * INPCT Pourcentage de la mesure que l'on desire prendre
                en compte.


        * IX    Nombre impair servant a faire varier le tirage au hasard que l'
                on incrementera de 1000 en 1000 par exemple.

        * KNIOP Nombre d'iterations de la methode rosenbrock.

        * IMPP   = 0:impresion des macles et 1:non impression.

 2. NJG NAJG

        NJG =0 : on prend toutes les donnees

            =1 : on en retire

            =2 : on en conserve

      NAJG : Nombre de donnees a retirer ou a conserver

 3. liste des macles si NJG=1 ou 2 en format 18(i3,1x)


 4. Si INDX = 2,3,4 ou 5,il faut mettre une ligne supplementaire:

     IDXA IPXA IDXC IPXC R

        * IDXA et IPXA : Azimut et pendage de Sigma1

        * IDXC et IPXC : Azimut et pendage de Sigma3

        *      R       : Valeur du rapport R

   EXEMPLES
_____________

1)  1 200 50 113 200 0
    0 0

2)  4 200 34 239 200 1
    191 72 089 04 0.25
    0   0