#######################################################################################################################################
#                                                                                                                                     #
#         I N T E R P O L A T I O N   E N T R E   D E U X   S T R U C T U R E S  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRV.81.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20090401124916).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  if        ($?Premiere == $NEXIST) then
$Z                            SET       Premiere=1
$Z                  else
$Z                  endif

$Z                  if        ($?Derniere == $NEXIST) then
$Z                            SET       Derniere=16
$Z                  else
$Z                  endif

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Olambda   0.0
$c                  #define   Elambda   1.0
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    lambda=((Elambda*(n-N0))+(Olambda*(N-n)))/(N-N0);
$c
$c                                      printf("execRVB   $xci/interpole.01$X
$c                                                                              alpha=%f
$c                                                                              A1=$_____Structure1%%s
$c                                                                              beta=%f
$c                                                                              A2=$_____Structure2%%s
$c                                                                              R=$_____Structure.%04d%%s
$c                                                                                                                      $formatI\n"
$c                                            ,1-lambda,lambda
$c                                            ,n
$c                                             );
$c                                      /* Interpolation entre les deux structures...                                                */
$c                                      }
$c                            }