FSCINT                    Routines d'interpolation                       FSCINT

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

USAGE
   call rgoptr(item, valeur, flag)
	
   character*8 item
   real 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. De facon interne,
   le module d'interpolation convertira "valeur" en entier.

   valeur = 0.0  ->  interpolation de degre 0, au point le plus proche.
   valeur = 1.0  ->  interpolation lineaire.
   valeur = 3.0  ->  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 rgoptr('INTERP', 1.0, .true.) 

       interrogation du degre d'interpolation courant
       integer rordint
       call rgoptr('INTERP', rordint, .false.)
       print *, rordint
  
   Pour initialiser la valeur que prendront les points hors de la grille, 
   "item" doit prendre la valeur 'EXTRAP', et "valeur" doit etre un reel.
   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 rgoptr('EXTRAP',  400.0,   .true.)

       Interrogation de l'action couramment prise en cas d'extrapolation
       integer rextrap
       call rgoptr('EXTRAP', rextrap, .false.)
       print *, rextrap
  
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, rgopti