Esope source files

   1 : C TPOI1     SOURCE    CHAT      05/01/13    03:43:20     5004           
   2 : 
   3 : C=======================================================================
   4 : C=                            T P O I 1                                =
   5 : C=                            ---------                                =
   6 : C=                                                                     =
   7 : C=  Fonction :                                                         =
   8 : C=  ----------                                                         =
   9 : C=   Acquisition des caracteristiques d'integration aux noeuds ou aux  =
  10 : C=   points de Gauss pour l'element POI1 (CONVECTION en 1D)            =
  11 : C=                                                                     =
  12 : C=  Parametres :  (E)=Entree  (S)=Sortie                               =
  13 : C=  ------------                                                       =
  14 : C=   POINTS  (E)   Indique le support d'integration 'NOEUDS'/'GAUSS'   =
  15 : C=   IINTE   (S)   Pointeur sur le segment MINTE associe               =
  16 : C=======================================================================
  17 : 
  18 :       SUBROUTINE TPOI1 (POINTS,IINTE)
  19 : 
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8 (A-H,O-Z)
  22 : 
  23 : -INC SMINTE
  24 : 
  25 :       CHARACTER*(*) POINTS
  26 : 
  27 :       SAVE IPINT1
  28 :       DATA IPINT1 / 0 /
  29 : 
  30 :       IF (IPINT1.NE.0) THEN
  31 :         IINTE=IPINT1
  32 :       ELSE
  33 :         NBNO=1
  34 :         NBPGAU=1
  35 :         SEGINI,MINTE
  36 :         QSIGAU(1)=0.
  37 :         ETAGAU(1)=0.
  38 :         DZEGAU(1)=0.
  39 :         POIGAU(1)=1.
  40 :         SHPTOT(1,1,1)=1.
  41 :         SHPTOT(2,1,1)=0.
  42 :         SEGDES,MINTE
  43 :         IINTE=MINTE
  43 :         CALL SAVSEG(IINTE)
  44 :         IPINT1=IINTE
  45 :       ENDIF
  46 : 
  47 :       RETURN
  48 :       END
  49 :  
  50 :