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