1 line
22 KiB
C++
1 line
22 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 ! *
* ------------------------------------------------------------ *
* !16/11/95!HANZARD.C !AJOUT de l'element LIQU ! *
* ! ! ! ! *
* ! ! ! ! *
* ! ! ! ! *
* ! ! ! ! *
* *
* $ *
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
* MODIFICATIONS: *
* *
* ! date ! auteur ! but ! *
* ------------------------------------------------------------ *
* !19/10/95!H.L & C.H !fct 'dinterpolation pentaedre quadra! *
* *
* $ *
* *
************************************************************************
************************************************************************
* *
SUBROUTINE PENTAEDRE (NBNE,NBIS,NBIH,
& KSI,ETA,DZETA,WIS,WIH,WI,PHI,DPHI)
* $ *
implicit none
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
* BUT: Interpolation pour un pentaedre. *
* $ *
* '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' *
* VARIABLES: *
* *
* ..................................... en entree *
* *
integer NBNE ! nombre de noeuds du pentaedre
integer NBIS ! nombre de pts d'integration sur la surface
integer NBIH ! nombre de pts d'integration dans la hauteur
* *
* ..........................
|