Esope source files

   1 : C PENDI3    SOURCE    CHAT      05/01/13    02:12:05     5004           
   2 :       SUBROUTINE PENDI3(IMOT,IFAC,ICHPO,ICHCL1,ICHCL2,INORM,ICOEFF
   3 :      $     ,ICHGRA)
   4 : C************************************************************************
   5 : C     
   6 : C PROJET            :  CASTEM 2000
   7 : C     
   8 : C NOM               :  PENDI3 
   9 : C     
  10 : C DESCRIPTION       :  Appelle par PENDI2
  11 : C     
  12 : C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  13 : C     
  14 : C AUTEUR            :  A. BECCANTINI
  15 : C     
  16 : C************************************************************************
  17 : C
  18 : C INPUTS :
  19 : C
  20 : C IMOT    = names of the gradient components
  21 : C
  22 : C IFAC    = 'FACE' 
  23 : C
  24 : C ICHPO   = CHAMPOINT we want to compute the gradient of
  25 : C      
  26 : C ICHCL1  = 0/'Dirichlet bondary condition CHAMPOINT'
  27 : C
  28 : C ICHCL2  = 0/'von Neumann bondary condition CHAMPOINT'
  29 : C
  30 : C INORM   = faces normales
  31 : C
  32 : C ICOEFF  = MCHAML of the coefficients
  33 : C
  34 : C OUTPUT  :
  35 : C
  36 : C ICHGRA  = gradient of ICHPO (with ICHCL1 and ICHCL2 b.c.)
  37 : C
  38 : C**** Variables de COOPTIO
  39 : C
  40 : C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  41 : C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  42 : C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  43 : C     &        ,IECHO,   IIMPI,  IOSPI
  44 : C     &        ,IDIM
  45 : C     &        ,MCOORD      
  46 : C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  47 : C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  48 : C     &        ,NORINC,NORVAL,NORIND,NORVAD
  49 : C     &        ,NUCROU, IPSAUV, IFICLE, IPREFI
  50 : C
  51 :       IMPLICIT INTEGER(I-N)
  52 :       INTEGER IMOT,IFAC,ICHPO,ICHCL1,ICHCL2,ICOEFF,ICHGRA,INORM
  53 :       CHARACTER*(8) MTYPE
  54 : -INC CCOPTIO
  55 : C
  56 : C***** Creation de ICHGRA (gradient aux faces)
  57 : C
  58 :       MTYPE='FACE    '
  58 :       CALL KRCHP1(MTYPE, IFAC, ICHGRA, IMOT)
  59 :       IF(IERR.NE.0) GOTO 9999
  60 : C
  60 :       CALL RLEXF3(ICHPO,ICHCL1,ICHCL2,INORM,ICOEFF,ICHGRA)
  61 :       IF(IERR.NE.0)GOTO 9999
  62 : C      
  63 :  9999 RETURN
  64 :       END
  65 :  
  66 : 
  67 : 
  68 : 
  69 : 
  70 : 
  71 :  
  72 :  
  73 :  
  74 :  
  75 :  
  76 :  
  77 :