Télécharger la plaquette Cast3M


fr en

Télécharger conge.eso

Retour à la liste

Numérotation des lignes : 

conge

  1. C CONGE     SOURCE    PV        22/04/27    21:15:02     11344          
  2.       SUBROUTINE CONGE
  3. ************************************************************************
  4. *
  5. *                             C O N G E
  6. *                             ---------
  7. *
  8. *            SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "CONGE"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. *     CREER UN CONGE DE RACCORDEMENT ENTRE 2 LIGNES.
  14. *
  15. *     C'EST LE VOISINAGE DE LA FIN DE LA PREMIERE LIGNE QUI EST
  16. *     RACCORDE AU VOISINAGE DU DEBUT DE LA DEUXIEME LIGNE.
  17. *     DANS CES VOISINAGES, LES LIGNES DOIVENT ETRE COPLANAIRES.
  18. *
  19. * PHRASE D'APPEL (EN GIBIANE):
  20. * ----------------------------
  21. *
  22. *     NL1 RAC NL2 = CONGE (N) L1 R L2 (DOUBLE) ;
  23. *
  24. * OPERANDES ET RESULTATS:
  25. * -----------------------
  26. *
  27. *     N         'ENTIER  '  NOMBRE D'ELEMENTS A CREER SUR LE CONGE.
  28. *                           LA TAILLE DES ELEMENTS TIENDRA COMPTE DES
  29. *                           DENSITES DES EXTREMITES SI "N" EST NEGATIF.
  30. *     L1        'MAILLAGE'  LIGNE A RACCORDER EN QUEUE.
  31. *     R         'FLOTTANT'  RAYON DE RACCORDEMENT.
  32. *     L2        'MAILLAGE'  LIGNE A RACCORDER EN TETE.
  33. *     NL1       'MAILLAGE'  LIGNE S'APPUYANT SUR "L1" ET S'ARRETANT A
  34. *                           UNE EXTREMITE DU CONGE.
  35. *     NL2       'MAILLAGE'  LIGNE S'APPUYANT SUR "L2" ET S'ARRETANT A
  36. *                           L'AUTRE EXTREMITE DU CONGE.
  37. *     LRAC      'MAILLAGE'  CONGE DE RACCORDEMENT CREE.
  38. *
  39. * MODULES UTILISES:
  40. * -----------------
  41. *
  42.       IMPLICIT INTEGER(I-N)
  43.  
  44. -INC PPARAM
  45. -INC CCOPTIO
  46. -INC CCREEL
  47. *
  48. * VARIABLES:
  49. * ----------
  50. *
  51. *     RCONGE = RAYON DU CONGE DE RACCORDEMENT.
  52. *     TCONGE = TYPE DE CONGE ('SIMPLE' OU 'DOUBLE').
  53. *
  54.       REAL*8 RCONGE
  55.       CHARACTER*8 TCONGE
  56. *
  57. * AUTEUR, DATE DE CREATION:
  58. * -------------------------
  59. *
  60. *     PASCAL MANIGOT     19 NOVEMBRE 1987
  61. *
  62. * LANGAGE:
  63. * --------
  64. *
  65. *     FORTRAN77 + EXTENSION: DECLARATION "REAL*8".
  66. *
  67. ************************************************************************
  68. *
  69.       tconge=' '
  70. *     LECTURE DU TYPE DU CONGE:
  71.       CALL LIRCHA (TCONGE,0,IRETOU)
  72.       IF (IRETOU .EQ. 0) THEN
  73.          TCONGE = 'SIMPLE'
  74.       ELSE IF (TCONGE(1:4).NE.'DOUB') THEN
  75.          TCONGE = 'SIMPLE'
  76.          CALL REFUS
  77.       END IF
  78. *
  79. *     FACTEUR DE DECOUPAGE:
  80.       CALL LIRENT (NCONGE,0,IRETOU)
  81.       IF (IRETOU .EQ. 0) THEN
  82.          NCONGE = 0
  83.       END IF
  84. *
  85. *     LECTURE DU RAYON DE RACCORDEMENT:
  86.       CALL LIRE04 (XPETIT,RCONGE,0,1,IRETOU)
  87.       IF (IERR .NE. 0) RETURN
  88. *
  89. *     LECTURE DES LIGNES A RACCORDER:
  90.       CALL LIROBJ ('MAILLAGE',L1,1,IRETOU)
  91.       IF (IERR .NE. 0) RETURN
  92.       CALL LIROBJ ('MAILLAGE',L2,1,IRETOU)
  93.       IF (IERR .NE. 0) RETURN
  94. *
  95. *     DEFINITION DU CONGE:
  96.       CALL CONGE1 (TCONGE,NCONGE,L1,RCONGE,L2,  NL1,LRAC,NL2)
  97.       IF (IERR .NE. 0) RETURN
  98. *
  99.       CALL ECROBJ ('MAILLAGE',NL2)
  100.       CALL ECROBJ ('MAILLAGE',LRAC)
  101.       CALL ECROBJ ('MAILLAGE',NL1)
  102. *
  103.       END
  104.  
  105.  
  106.  
  107.  
  108.  

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