FSCINT                    Routines d'interpolation                       FSCINT

NOM
   RGOPTI - Controle de l'interpolation et de l'extrapolation.

USAGE
   call rgopti(item, valeur, flag)
	
   character*8 item
   integer valeur
   logical flag
  
DESCRIPTION
   Cette routine initialise ou retourne le degre d'interpolation et 
   la valeur que prendront les points situes hors de la grille source.

   Pour controler le degre d'interpolation, "item" doit prendre la valeur
   'INTERP', et "valeur" doit prendre les valeurs suivantes.

   valeur = 0  ->  interpolation de degre 0, au point le plus proche.
   valeur = 1  ->  interpolation lineaire.
   valeur = 3  ->  interpolation cubique.

   Si flag est .true., la routine initialise le degre d'interpolation; 
   si flag est .false., la routine retourne le degre d'interpolation couramment
   utilise par le module.

   ex. initialisation du degre d'interpolation a 'LINEAIR'.
       call rgopti('INTERP', 1, .true.) 

       interrogation du degre d'interpolation courant
       integer iordint
       call rgopti('INTERP', iordint, .false.)
       print *, iordint
  
   Pour initialiser la valeur que prendront les points hors de la grille, 
   "item" doit prendre la valeur 'EXTRAP', et "valeur" doit etre un entier.
   Cet entier sera converti en nombre reel par le module.
   De plus, la routine "rgoptc" doit avoir ete prealablement appelee avec 
   l'option 'VALEUR'. 

   Si flag est .true., la routine initialise la valeur que prendront les points
   extrapoles.
   si flag est .false., la routine retourne la valeur que prendront les points
   extrapoles.

   ex. on veut que les points extrapoles prennent la valeur 400.0
       call rgoptc('EXTRAP', 'VALEUR', .true.)
       call rgopti('EXTRAP',  400,     .true.)

       Interrogation de l'action couramment prise en cas d'extrapolation
       integer iextrap
       call rgopti('EXTRAP', iextrap, .false.)
       print *, iextrap
  
COMPILATION
   Pour le moment, le module d'interpolation est contenu dans un fichier ".o"
   residant sur $ARMNLIB/lib. Le module sera eventuellement integre dans
   RMNLIB.

   Pour utiliser le module sur le nec, cidsv02, cidsv07, cidsv08, faire:
   f77 prog.f -o prog $ARMNLIB/lib/fscint2.o $ARMNLIB/lib/rmnxlib.a

   Sur le cray, faire:
   ACCESS, DN=FSCLIB2, ID=ARMNYRC, OWN=ARMN000.
   ...
   LD2, LIB=FSCLIB2:AAAALIB, ...
   
AUTEUR
   Yves Chartier, RPN, 421-4736, ychartier@cid.aes.doe.CA

DERNIERE MISE A JOUR DE LA DOCUMENTATION
   18 decembre 1991

VOIR AUSSI
   igscint, iguvint, rgscint, rguvint, rgoptc, rgoptr