Télécharger pendi1.eso

Retour à la liste

Numérotation des lignes :

  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 '
  68. CALL KRCHP1(MTYPE, IFAC, ICHGRA, MLMOT1)
  69. IF(IERR.NE.0) GOTO 9999
  70. C
  71. CALL RLEXF2(ICHPO,ICHCL,ICOEFF,ICHGRA)
  72. IF(IERR.NE.0)GOTO 9999
  73. C
  74. SEGSUP MLMOT1
  75. C
  76. 9999 RETURN
  77. END
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  

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