Télécharger la plaquette Cast3M


fr en

Télécharger lekdiv.eso

Retour à la liste

Numérotation des lignes : 

lekdiv

  1. C LEKDIV    SOURCE    CB215821  20/11/25    13:33:32     10792          
  2.       SUBROUTINE LEKDIV(MTABD,NU,MTABX,KINC,MCHELM,KPOIND)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C
  7. C Ce sous programme lit le NUième coefficient d'un opérateur, stocké
  8. C à l'indice ARGnu de la table KIZX de pointeur MTABX associée à
  9. C l'opérateur en cours de traitement.
  10. C Le coefficient est de type ENTIER, FLOTTANT, POINT, CHPOINT ou MOT.
  11. C Dans le cas MOT, on récupère la donnée se trouvant à l'indice MOT
  12. C de la table INCO.
  13. C Ce Sp lit lit le coefficient et rend un MCHAML quoi qu'il arrive
  14. C Le MCHAML en retour est jetable il est calcule aux pts d'integrations
  15. C----------------------------------------------------------------------
  16. C HISTORIQUE : 20/10/01 : Création
  17. C
  18. C HISTORIQUE :
  19. C
  20. C
  21. C---------------------------
  22. C Paramètres Entrée/Sortie :
  23. C---------------------------
  24. C
  25. C E/  MTABD  : Objet model de la zone
  26. C E/  NU     : Rang du coefficient à aller chercher (ENTIER)
  27. C E/  MTABX  : Pointeur de la table contenant le coefficient
  28. C E/  KINC   : Pointeur de la table INCO dans laquelle on va chercher
  29. C              les valeurs des indices lorsque ceux-ci sont des MOTS.
  30. C  /S MCHELM : Chamelem pts d'intégration pour le COEF
  31. C E/  KPOIND : ENTIER type du support GÉométrique DUAL du shéma
  32. C              d'intégration => pour la création du Chamelem
  33. C----------------------------------------------------------------------
  34. C KPOIN = 0->SOMMET 1-> FACE     2-> CENTRE  3-> CENTREP0 4-> CENTREP1 5-> MSOMMET
  35. C----------------------------------------------------------------------
  36. C************************************************************************
  37.  
  38. -INC SMCHAML
  39. -INC SMCHPOI
  40. -INC SMELEME
  41. -INC SMCOORD
  42. -INC PPARAM
  43. -INC CCOPTIO
  44. -INC CCGEOME
  45.       CHARACTER*8 TYPE,NOM,NARG
  46.       LOGICAL LOGI
  47.       DIMENSION XPOI(3)
  48. C*****************************************************************************
  49. CLEKDIV
  50. C
  51. C- Récupération du TYPE du NUième argument de l'opérateur
  52. C
  53. c     write(6,*)' DEBUT LEKDIV NU=',NU
  54.  
  55.       IF (NU.LE.0 .OR. NU.GE.100) THEN
  56.          INTERR(1) = NU
  57.          INTERR(2) = 1
  58.          INTERR(3) = 99
  59.          CALL ERREUR(789)
  60.          RETURN
  61.       ENDIF
  62.       IF (NU.LE.9) THEN
  63.          WRITE(NARG,FMT='(A3,I1)')'ARG',Nu
  64.       ELSE
  65.          WRITE(NARG,FMT='(A3,I2)')'ARG',Nu
  66.       ENDIF
  67.       TYPE = ' '
  68.       CALL LENCHA(NARG,LC)
  69.       CALL ACCTAB(MTABX,'MOT',   0,0.D0,NARG(1:LC),LOGI,     0,
  70.      &                  TYPE ,IVAL,COEF,       NOM,LOGI,MCHPOI)
  71.  
  72. c     write(6,*)' TYPE     ,MCHPOI     =',TYPE     ,MCHPOI
  73.       IF(TYPE.EQ.'MOT')THEN
  74.       TYPE=' '
  75.       CALL ACMO(KINC,NOM,TYPE,MCHPOI)
  76.       ENDIF
  77.  
  78.  
  79.       IF(TYPE.NE.'CHPOINT ')THEN
  80. C On ne veut pas d'objet de type %m1:8
  81.       MOTERR(1: 8) = TYPE
  82.       CALL ERREUR(39)
  83.       RETURN
  84.       ENDIF
  85.  
  86.       CALL MELDIV(MTABD,MCHPOI,MCHELM,KPOIND)
  87.  
  88. c     write(6,*)' FIN LEKDIV '
  89.       RETURN
  90.  1001 FORMAT(20(1X,I5))
  91.  1002 FORMAT(10(1X,1PE11.4))
  92.       END
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  

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