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    OF166741  24/12/13    21:16:51     12097          
  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.       IMPLICIT INTEGER(I-N)
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21.       INTEGER JGN, JGM
  22. -INC SMLMOTS
  23. C
  24.       INTEGER IMOT,IFAC,ICHPO,ICHCL,ICOEFF,ICHGRA,I1,I2,NCOMP
  25.       CHARACTER*(8) MTYPE
  26.  
  27.       CHARACTER*4 NOMCOM(27)
  28.       DATA NOMCOM  /'P1DX','P1DY','P1DZ',
  29.      &     'P2DX','P2DY','P2DZ',
  30.      &     'P3DX','P3DY','P3DZ',
  31.      &     'P4DX','P4DY','P4DZ',
  32.      &     'P5DX','P5DY','P5DZ',
  33.      &     'P6DX','P6DY','P6DZ',
  34.      &     'P7DX','P7DY','P7DZ',
  35.      &     'P8DX','P8DY','P8DZ',
  36.      &     'P9DX','P9DY','P9DZ'/
  37. C
  38. C
  39. C***** Creation de ICHGRA (gradient aux faces)
  40. C
  41.       MLMOTS=IMOT
  42.       SEGACT MLMOTS
  43.       NCOMP=MLMOTS.MOTS(/2)
  44.       SEGDES MLMOTS
  45.       JGN=4
  46.       JGM=NCOMP*IDIM
  47.       SEGINI MLMOT1
  48.       DO  I1 = 1, NCOMP
  49.          DO  I2 = 1, IDIM
  50.             MLMOT1.MOTS((I1-1)*IDIM+I2) = NOMCOM((I1-1)*3+I2)
  51.          ENDDO
  52.       ENDDO
  53. C
  54.       MTYPE='FACE    '
  55.       CALL KRCHP1(MTYPE, IFAC, ICHGRA, MLMOT1)
  56.       IF(IERR.NE.0) GOTO 9999
  57. C
  58.       CALL RLEXF2(ICHPO,ICHCL,ICOEFF,ICHGRA)
  59.       IF(IERR.NE.0)GOTO 9999
  60. C
  61.       SEGSUP MLMOT1
  62. C
  63.  9999 RETURN
  64.       END
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  

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