Herezh_dev/Elements/Geometrie/ElemGeom/volume/GeomHexaqua.cc

1 line
38 KiB
C++
Raw Normal View History

************************************************************************ * 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: Thu Feb 4 12:58:37 WET 1993 * * $ * * AUTEUR: J-P HILY * * $ * * PROJET: EF3 * * $ * ************************************************************************ ************************************************************************ * * * VERIFICATION: * * * * $ * * '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' * * MODIFICATIONS: * * * * ! date ! auteur ! but ! * * ------------------------------------------------------------ * * ! ! ! ! * * ! ! ! ! * * * * $ * * * ************************************************************************ ************************************************************************ * * SUBROUTINE HEXAQUA (NBNE,NBI,PHI,DPHI,WI, & NBFE,NBNF,NONF,NBIS,PHIS,DPHIS,WIS) * $ * implicit none * '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' * * BUT: Valeurs des fonctions d'interpolations et de leurs * * derivees aux points d'integration dans le cas * * quadratique. * * $ * * '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' * * VARIABLES: * * ..................................... en entree * * * integer NBNE ! nombre de noeuds par element integer NBFE ! nombre de faces par element integer NBNF ! nombre de noeuds par face integer NONF(NBNF,NBFE) ! connexion des noeuds des faces par ! rapport a ceux des elements integer NBI ! nombre de point d'integration pour les elements integer NBIS ! nombre de point d'integration pour les faces * * * ..................................... en sortie * * * c pour les elements real*8 PHI(NBNE,NBI) ! fonctions d'interp