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    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.  
  55. -INC PPARAM
  56. -INC CCOPTIO
  57. C
  58. C***** Creation de ICHGRA (gradient aux faces)
  59. C
  60.       MTYPE='FACE    '
  61.       CALL KRCHP1(MTYPE, IFAC, ICHGRA, IMOT)
  62.       IF(IERR.NE.0) GOTO 9999
  63. C
  64.       CALL RLEXF3(ICHPO,ICHCL1,ICHCL2,INORM,ICOEFF,ICHGRA)
  65.       IF(IERR.NE.0)GOTO 9999
  66. C
  67.  9999 RETURN
  68.       END
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  

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