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