Télécharger la plaquette Cast3M


fr en

Télécharger pendi1.eso

Retour à la liste

Numérotation des lignes : 

pendi1

  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.  
  33. -INC PPARAM
  34. -INC CCOPTIO
  35.       INTEGER JGN, JGM
  36. -INC SMLMOTS
  37. C
  38.       INTEGER IMOT,IFAC,ICHPO,ICHCL,ICOEFF,ICHGRA,I1,I2,NCOMP
  39.       CHARACTER*(8) MTYPE
  40.  
  41. C
  42.       CHARACTER*4 NOMCOM(27)
  43.       DATA NOMCOM  /'P1DX','P1DY','P1DZ',
  44.      &     'P2DX','P2DY','P2DZ',
  45.      &     'P3DX','P3DY','P3DZ',
  46.      &     'P4DX','P4DY','P4DZ',
  47.      &     'P5DX','P5DY','P5DZ',
  48.      &     'P6DX','P6DY','P6DZ',
  49.      &     'P7DX','P7DY','P7DZ',
  50.      &     'P8DX','P8DY','P8DZ',
  51.      &     'P9DX','P9DY','P9DZ'/
  52. C
  53. C
  54. C***** Creation de ICHGRA (gradient aux faces)
  55. C
  56.       MLMOTS=IMOT
  57.       SEGACT MLMOTS
  58.       NCOMP=MLMOTS.MOTS(/2)
  59.       SEGDES MLMOTS
  60.       JGN=4
  61.       JGM=NCOMP*IDIM
  62.       SEGINI MLMOT1
  63.       DO  I1 = 1, NCOMP
  64.          DO  I2 = 1, IDIM
  65.             MLMOT1.MOTS((I1-1)*IDIM+I2) = NOMCOM((I1-1)*3+I2)
  66.          ENDDO
  67.       ENDDO
  68. C
  69.       MTYPE='FACE    '
  70.       CALL KRCHP1(MTYPE, IFAC, ICHGRA, MLMOT1)
  71.       IF(IERR.NE.0) GOTO 9999
  72. C
  73.       CALL RLEXF2(ICHPO,ICHCL,ICOEFF,ICHGRA)
  74.       IF(IERR.NE.0)GOTO 9999
  75. C
  76.       SEGSUP MLMOT1
  77. C
  78.  9999 RETURN
  79.       END
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales