[updated 3.Dec.1997]
Librairie modeles > Fichier dfctrm.f |
SUBROUTINE DFCTRM (NDIM,POINT,NOMFCT,TYPFCT
& ,NODONA,TYDONA,TYPRAS,MCASSO,IST,RST,CST
& ,RESULT,CESULT)
Auteur : D.Martin (Mars 1993)
Derniere modification : D.Martin (3 Decembre 1997)
Calcul des derivees d'une fonction en un point de coordonnees donnees
-- Arguments d'entree --
NDIM dimension d'espace
POINT tableau des coordonnees du point ou l'on calcule les valeurs
NOMFCT nom de la donnee FONCTION pour laquelle le calcul est effectue.
Cet argument permet de distinguer les differentes 'fonctions'
programmees dans cette procedure.
TYPFCT type du resultat retourne par la fonction ('REEL' ou 'COMPLEXE')
NODONA nom de la donnee (constante ou tableau) associee a la fonction
TYDONA type de la donnee associee a la fonction ('CONSTANTE','TABLEAU')
TYPRAS type de la constante ou du tableau associe ('REEL','COMPLEXE',...)
MCASSO adresse de la constante associee ou du tableau associe
dans le super-tableau du bon type (donne par TYPRAS)
IST super-tableau entier
RST super-tableau reel
CST super-tableau complexe
-- Arguments de sortie --
RESULT valeur ou tableau de valeurs de la fonction dans le cas TYPFCT='REEL'
CESULT idem dans le cas TYPFCT='COMPLEXE'
CHARACTER*(*) NOMFCT,TYPFCT,NODONA,TYDONA,TYPRAS
INTEGER NDIM,MCASSO,IST(*)
REAL POINT(*),RST(*),RESULT(*)
COMPLEX CST(*),CESULT(*)
INTEGER LG
CHARACTER*120 ONSEPA
COMMON/ONSEPA/ONSEPA
LG=LEN(NOMFCT)
ONSEPA=NOMFCT
ONSEPA(LG+1:)=TYPFCT
CALL BAISE (' <Modeles/Dfctrm> Vous avez oublie de fournir la'
&//' procedure ''utilisateur'' : ''DFCTRM'', appelee pour'
&//' la ''fonction'' '//ONSEPA(1:LG)
&//' de type '//ONSEPA(LG+1:LG+12)//'.'
&//' Cette procedure est dorenavant obsolete, utilisez FCTRM')
END !DFctrm
dfctrm est appelé dans (2 procédures)