/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P O U R   V A L I D E R   L E   C O M P O R T E M E N T   D E   ' drand48(...) '  :                                        */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/Check_drand48.01$vv$c' :                                                                                   */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20130322100152).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"

extern    void      srand48();
extern    double    drand48();

extern    double    log10();

#define   GRAINE_MINIMALE                                                                                                               \
                    1
#define   GRAINE_MAXIMALE                                                                                                               \
                    1000
#define   PAS                                                                                                                           \
                    100

main()
          {
          long      int       graine;

          for       (graine=GRAINE_MINIMALE ; graine <= GRAINE_MAXIMALE ; graine=graine+PAS)
                    {
                    srand48(graine);

                    printf("random(%0*ld)=%.16f\n",(int)(log10(GRAINE_MAXIMALE)+1),graine,drand48());
                                        /* Voici les resultats obtenus le 20130322100813 sur '$LACT19' :                             */
                                        /*                                                                                           */
                                        /*                  random(0001)=0.0416303447718782                                          */
                                        /*                  random(0101)=0.1218612113307280                                          */
                                        /*                  random(0201)=0.2020920778895778                                          */
                                        /*                  random(0301)=0.2823229444484276                                          */
                                        /*                  random(0401)=0.3625538110072775                                          */
                                        /*                  random(0501)=0.4427846775661273                                          */
                                        /*                  random(0601)=0.5230155441249771                                          */
                                        /*                  random(0701)=0.6032464106838269                                          */
                                        /*                  random(0801)=0.6834772772426767                                          */
                                        /*                  random(0901)=0.7637081438015265                                          */
                                        /*                                                                                           */
                                        /* Ces valeurs sont compatibles avec les resultats donnes par 'drand48(...)' dans les        */
                                        /* commentaires de 'v $xtc/ParadoxeSimpson.15$vv$c' et 'v $xtc/HexagonesPremiers.01$vv$c'.   */
                                        /*                                                                                           */
                                        /* Le 20180627150624, sur '$LACT19', je note que l'on obtient les memes valeurs...           */
                    }
          }