1 line
11 KiB
C++
1 line
11 KiB
C++
|
************************************************************************
* UNIVERSITE DE BRETAGNE OCCIDENTALE --- I.U.T. DE LORIENT *
************************************************************************
* LABORATOIRE DE GENIE MECANIQUE ET PRODUCTIQUE *
* Tel 97.05.94.11 *
* Centre de Genie Industriel 56520 GUIDEL-PLAGES *
************************************************************************
************************************************************************
* *
* DATE: Mon Jul 6 14:54:12 WET DST 1992 *
* $ *
* AUTEUR: J-P HILY *
* $ *
* PROJET: HEREZH *
* $ *
************************************************************************
************************************************************************
* *
* VERIFICATION: *
* *
* ! date ! auteur ! but ! *
* ------------------------------------------------------------ *
* ! ! ! ! *
* *
* $ *
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
* MODIFICATIONS: *
* *
* $ *
* *
************************************************************************
************************************************************************
* *
SUBROUTINE TETRAEDRE (NBNE,NBI,KSI,ETA,DZETA,WI,PHI,DPHI)
* $ *
implicit none
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
* BUT: Interpolation pour un tetraedre. *
* $ *
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
* VARIABLES: *
* *
* ..................................... en entree *
* *
integer NBNE ! nombre de noeuds de l'element
integer NBI ! nombre de pts d'integration
* *
* ..................................... en sortie *
* *
real*8 KSI(NBI),ETA(NBI),DZETA(NBI)
! coordonnees des points d'integration
real*8 WI(NBI) ! poids d'integration du volume
real*8 PHI(NBNE,NBI),DPHI(3,NBNE,NBI)
! fonctions d'interpolation nodale et leur derivees
! PHI(r,ni) valeur de la r ieme fonction au point ni
! DPHI(i,r,ni) valeur de sa derivee suivant i
* $ *
* ...................................... internes *
*
|