Télécharger pendi3.eso

Retour à la liste

Numérotation des lignes :

  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 '
  59. CALL KRCHP1(MTYPE, IFAC, ICHGRA, IMOT)
  60. IF(IERR.NE.0) GOTO 9999
  61. C
  62. CALL RLEXF3(ICHPO,ICHCL1,ICHCL2,INORM,ICOEFF,ICHGRA)
  63. IF(IERR.NE.0)GOTO 9999
  64. C
  65. 9999 RETURN
  66. END
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  

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