#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   I M A G E S   D U   M O D E L E   D ' I S I N G  :                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000010/face.2/.ISIN.7.12.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Npremiere                1

$Z                  SETParam            _____Nderniere                128

$Z                  setParam            _____Iterations               10

$Z                  setParam            _____Temperature              0.2

$Z                  setParam            _____GraineB                  1111

$Z                  setParam            _____GraineT                  3333

$Z                  SETParam            _____AffinerRdn               FAUX

$Z                  SETParam            _____ItererRdn                FAUX

$Z                  SETParam            _____DeltaX                   0

$Z                  SETParam            _____DeltaY                   0

$Z                  SETParam            _____DeltaZ                   0

$Z                  SETParam            _____PeriodiserX              FAUX

$Z                  SETParam            _____PeriodiserY              FAUX

$Z                  SETParam            _____PeriodiserZ              FAUX

$Z                  Pal

$Z                  set       Graines="graineB=$_____GraineB graineT=$_____GraineT"

$c                  #include  <stdio.h>
$c
$c                  extern    double    atof();
$c                  extern    char      *getenv();
$c
$c                  #define   N0        _____Npremiere
$c                  #define   N         _____Nderniere
$c
$c                  #define   K0        _____Zmin
$c                  #define   K         _____Zmax
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      int       k;
$c
$c                                      if        (n == N0)
$c                                                {
$c                                                printf("$xci/accumule.02$X
$c                                                                    A=$xTV/INITIAL.
$c                                                                    premiere=$_____Zmin
$c                                                                    derniere=$_____Zmax
$c                                                                    R=$_____images.%04d
$c                                                                    $formatI\n"
$c                                                      ,n
$c                                                       );
$c                                                }
$c                                      else
$c                                                {
$c                                                printf("set Graines=`$xci/Ising_3D.11$X
$c                                                                                 A=$xTV/INITIAL.
$c                                                                                 premiere=$_____Zmin
$c                                                                                 iterations=$_____Iterations
$c                                                                                 temperature=$_____Temperature
$c                                                                                 affiner_rdn=$_____AffinerRdn
$c                                                                                 iterer_rdn=$_____ItererRdn
$c                                                                                 dX=$_____DeltaX
$c                                                                                 dY=$_____DeltaY
$c                                                                                 dZ=$_____DeltaZ
$c                                                                                 periodiser_X=$_____PeriodiserX
$c                                                                                 periodiser_Y=$_____PeriodiserY
$c                                                                                 periodiser_Z=$_____PeriodiserZ
$c                                                                                 Prme=VRAI
$c                                                                                 editer_graines=VRAI
$c                                                                                 $Graines
$c                                                                                 R=$xTV/ISIN.Wa.
$c                                                                                 ValiderAxes=FAUX
$c                                                                                 Zmin=$_____Zmin
$c                                                                                 Zmax=$_____Zmax
$c                                                                                 $formatI`\n"
$c                                                       );
$c
$c                                                printf("$xci/accumule.02$X
$c                                                                    A=$xTV/ISIN.Wa.
$c                                                                    premiere=$_____Zmin
$c                                                                    derniere=$_____Zmax
$c                                                                    R=$_____images.%04d
$c                                                                    $formatI\n"
$c                                                      ,n
$c                                                       );
$c
$c                                                for       (k=K0 ; k<=K ; k++)
$c                                                          {
$c                                                          printf("$xci/neutre$X
$c                                                                              A=$xTV/ISIN.Wa.%04d
$c                                                                              R=$xTV/INITIAL.%04d
$c                                                                              $formatI\n"
$c                                                                ,k,k
$c                                                                 );
$c                                                          }
$c                                                }
$c                                      }
$c                            }

$Z                  $DELETE   $xTV/INITIAL.*