1 line
38 KiB
C++
1 line
38 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: 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
|