Esope source files

   1 : C PENDI1    SOURCE    CHAT      05/01/13    02:11:58     5004           
   2 :       SUBROUTINE PENDI1(IMOT,IFAC,ICHPO,ICHCL,ICOEFF,ICHGRA)
   3 : C************************************************************************
   4 : C     
   5 : C PROJET            :  CASTEM 2000
   6 : C     
   7 : C NOM               :  PENDI1 
   8 : C     
   9 : C DESCRIPTION       :  Appelle par PENDIA
  10 : C     
  11 : C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  12 : C     
  13 : C AUTEUR            :  A. BECCANTINI
  14 : C     
  15 : C************************************************************************
  16 : C     
  17 : C
  18 : C**** Variables de COOPTIO
  19 : C
  20 : C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  21 : C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  22 : C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  23 : C     &        ,IECHO,   IIMPI,  IOSPI
  24 : C     &        ,IDIM
  25 : C     &        ,MCOORD      
  26 : C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  27 : C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  28 : C     &        ,NORINC,NORVAL,NORIND,NORVAD
  29 : C     &        ,NUCROU, IPSAUV
  30 : C
  31 :       IMPLICIT INTEGER(I-N)
  32 : -INC CCOPTIO
  33 :       INTEGER JGN, JGM
  34 : -INC SMLMOTS
  35 : C
  36 :       INTEGER IMOT,IFAC,ICHPO,ICHCL,ICOEFF,ICHGRA,I1,I2,NCOMP
  37 :       CHARACTER*(8) MTYPE
  38 :       
  39 : C
  40 :       CHARACTER*4 NOMCOM(27)
  41 :       DATA NOMCOM  /'P1DX','P1DY','P1DZ',
  42 :      &     'P2DX','P2DY','P2DZ',
  43 :      &     'P3DX','P3DY','P3DZ',
  44 :      &     'P4DX','P4DY','P4DZ',
  45 :      &     'P5DX','P5DY','P5DZ',
  46 :      &     'P6DX','P6DY','P6DZ',
  47 :      &     'P7DX','P7DY','P7DZ',
  48 :      &     'P8DX','P8DY','P8DZ',
  49 :      &     'P9DX','P9DY','P9DZ'/
  50 : C
  51 : C
  52 : C***** Creation de ICHGRA (gradient aux faces)
  53 : C
  54 :       MLMOTS=IMOT
  55 :       SEGACT MLMOTS
  56 :       NCOMP=MLMOTS.MOTS(/2)
  57 :       SEGDES MLMOTS
  58 :       JGN=4
  59 :       JGM=NCOMP*IDIM
  60 :       SEGINI MLMOT1
  61 :       DO  I1 = 1, NCOMP
  62 :          DO  I2 = 1, IDIM
  63 :             MLMOT1.MOTS((I1-1)*IDIM+I2) = NOMCOM((I1-1)*3+I2)
  64 :          ENDDO
  65 :       ENDDO
  66 : C
  67 :       MTYPE='FACE    '
  67 :       CALL KRCHP1(MTYPE, IFAC, ICHGRA, MLMOT1)
  68 :       IF(IERR.NE.0) GOTO 9999
  69 : C
  69 :       CALL RLEXF2(ICHPO,ICHCL,ICOEFF,ICHGRA)
  70 :       IF(IERR.NE.0)GOTO 9999
  71 : C
  72 :       SEGSUP MLMOT1
  73 : C      
  74 :  9999 RETURN
  75 :       END
  76 :  
  77 : 
  78 : 
  79 : 
  80 : 
  81 : 
  82 :  
  83 :  
  84 :  
  85 :  
  86 :  
  87 :