Télécharger la plaquette Cast3M


fr en

Télécharger trlini.eso

Retour à la liste

Numérotation des lignes : 

trlini

  1. C TRLINI    SOURCE    GOUNAND   21/04/06    21:15:39     10940          
  2.       SUBROUTINE TRLINI(NELMOY,NNM,ityp,TRAVL)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : TRLINI
  7. C DESCRIPTION : Initialisation d'un segment TRAVL et de ses sous-objets.
  8. C
  9. C LANGAGE     : ESOPE
  10. C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  11. C               mél : gounand@semt2.smts.cea.fr
  12. C***********************************************************************
  13. C APPELES          : 
  14. C APPELES (E/S)    : 
  15. C APPELES (BLAS)   :
  16. C APPELES (CALCUL) :
  17. C APPELE PAR       :
  18. C***********************************************************************
  19. C SYNTAXE GIBIANE    :
  20. C ENTREES            :
  21. C ENTREES/SORTIES    :
  22. C SORTIES            :
  23. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  24. C***********************************************************************
  25. C VERSION    : v1, 07/11/2017, version initiale
  26. C HISTORIQUE : v1, 07/11/2017, création
  27. C HISTORIQUE :
  28. C HISTORIQUE :
  29. C***********************************************************************
  30. -INC PPARAM
  31. -INC CCOPTIO
  32. -INC TMATOP2
  33. -INC TMATOP1
  34. *-INC SMELEMX
  35.       POINTEUR LMCANS.MELEMX
  36.       POINTEUR IPBTL.MELEMX
  37. -INC SMLENTI
  38.       POINTEUR LIDXCA.MLENTI
  39.       POINTEUR LOKVOL.MLENTI
  40.       POINTEUR LNQUAL.MLENTI
  41.       POINTEUR LINDI.MLENTI
  42.       POINTEUR LINDJ.MLENTI
  43. -INC SMLREEL
  44.       POINTEUR LQUALS.MLREEL
  45. *-INC STRAVL
  46.       logical lchang
  47.       INTEGER IMPR,IRET
  48. *     
  49. * Executable statements
  50. *
  51.       if (impr.ge.5) WRITE(IOIMP,*) 'Entrée dans trlini.eso'
  52. *
  53.       SEGINI TRAVL
  54. *!!! A changer !      
  55.       TRAVL.NCMAX=NELMOY
  56. *      NNMAX=KEXTO.NUM(/1)
  57.       NNMAX=NNM
  58. *!!! A changer !      
  59.       NLMAX=TRAVL.NCMAX*NELMOY
  60. *      NLMAX=0
  61.       SEGINI LMCANS
  62. *      LMCANS.ITYPEX=KEXTO.ITYPEL
  63.       LMCANS.ITYPEX=ityp
  64.       LMCANS.NNCOU=NNMAX
  65.       TRAVL.MCANS=LMCANS
  66.       JG=TRAVL.NCMAX+1
  67.       SEGINI LIDXCA
  68.       LIDXCA.LECT(1)=1
  69.       TRAVL.IDXCA=LIDXCA
  70.       JG=TRAVL.NCMAX
  71.       SEGINI LOKVOL
  72.       TRAVL.OKVOL=LOKVOL
  73.       JG=LMCANS.NUMX(/2)
  74.       SEGINI LQUALS
  75.       TRAVL.QUALS=LQUALS
  76.       JG=TRAVL.NCMAX
  77.       SEGINI LNQUAL
  78.       TRAVL.NQUAL=LNQUAL
  79.       JG=TRAVL.NCMAX
  80.       SEGINI LINDI
  81.       TRAVL.INDI=LINDI
  82.       JG=TRAVL.NCMAX
  83.       SEGINI LINDJ
  84.       TRAVL.INDJ=LINDJ
  85. *      
  86. *!!! A changer !      
  87. *      NNC=2
  88. *      NNL=NNC*IDIMP
  89. *      CALL TRLADJ(TRAVL,NNC,NNL,lchang,'trlini : TRAVL')
  90. *      if (ierr.ne.0) return
  91.  
  92. *
  93. *     Segment de travail pour stocker les points du contour
  94. *      
  95.       NNMAX=1
  96.       NLMAX=NELMOY
  97.       SEGINI IPBTL
  98.       IPBTL.NNINI=NNMAX
  99.       IPBTL.NNCOU=NNMAX
  100.       IPBTL.NLINI=NLMAX
  101.       IPBTL.NLCOU=0
  102.       IPBTL.ITYPEX=1
  103.       TRAVL.PBTL=IPBTL
  104.  
  105. *
  106. * Normal termination
  107. *
  108.       RETURN
  109. *
  110. * Format handling
  111. *
  112.  286  FORMAT ('Segment TRAV=',I8,' nbel max ajusté de ',I6,' à ',I6,
  113.      $     ' (nbel. courant=',I6,')') 
  114. * 187  FORMAT (5X,10I8)
  115. * 188  FORMAT ('Apres point IELEM(',I2,',1)=',I6,' ; NBL=')
  116. * 189  FORMAT ('Le noeud ',I2,'/',I2,' de IELEM de numero',I6
  117. *     $     ,' a le plus petit nb de voisins :',I3)
  118. *     
  119. * Error handling     
  120. *     
  121.  9999 CONTINUE
  122.       MOTERR(1:8)='TRLINI  '
  123. * 349 2
  124. *Problème non prévu dans le s.p. %m1:8 contactez votre assistance
  125.       CALL ERREUR(349)
  126.       RETURN
  127. *
  128. * End of subroutine TRLINI
  129. *
  130.       END
  131.  
  132.  
  133.  

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