Télécharger la plaquette Cast3M


fr en

Télécharger pendi3.eso

Retour à la liste

Numérotation des lignes : 

pendi3

  1. C PENDI3    SOURCE    OF166741  24/12/13    21:16:52     12097          
  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.       IMPLICIT INTEGER(I-N)
  39.       INTEGER IMOT,IFAC,ICHPO,ICHCL1,ICHCL2,ICOEFF,ICHGRA,INORM
  40.       CHARACTER*(8) MTYPE
  41.  
  42. -INC PPARAM
  43. -INC CCOPTIO
  44. C
  45. C***** Creation de ICHGRA (gradient aux faces)
  46. C
  47.       MTYPE='FACE    '
  48.       CALL KRCHP1(MTYPE, IFAC, ICHGRA, IMOT)
  49.       IF(IERR.NE.0) GOTO 9999
  50. C
  51.       CALL RLEXF3(ICHPO,ICHCL1,ICHCL2,INORM,ICOEFF,ICHGRA)
  52.       IF(IERR.NE.0)GOTO 9999
  53. C
  54.  9999 RETURN
  55.       END
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  

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