Télécharger manuc4.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUC4 SOURCE CHAT 05/01/13 01:28:41 5004
  2. SUBROUTINE MANUC4(MLENT1,MLMOT1,MLMOT2,MLMOT3,MLMOTS,MLREE1,
  3. . MLENT2,LETYP,JER1,MLMOT4,ICARA)
  4. *-----------------------------------------------------------------------
  5. * CREATION D'UN CHAMELEM
  6. * LES COMPOSANTES POUVANT ETRE REPRESENTEES PAR DES REELS
  7. * OU DES OBJETS DE TYPE AUTRE ( EX :'EVOLUTION' OU 'CHAMELEM' OU
  8. * 'POINT ' ETC . )
  9. *-----------------------------------------------------------------------
  10. IMPLICIT INTEGER(I-N)
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMLMOTS
  15. -INC SMLREEL
  16. -INC SMLENTI
  17. CHARACTER*(*) LETYP
  18. CHARACTER*16 LECONS
  19. *
  20. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  21. * -----------
  22. *
  23. * MLMOT1 (E) |
  24. * MLMOT2 (E) | POINTEURS SUR DES LISTMOTS
  25. * MLMOT3 (E) |
  26. * MLMOTS (E) |
  27. * MLMOT4 (E) |
  28. * MLREE1 (E) POINTEUR SUR UN LISTREEL
  29. * MLENT1 (E) |
  30. * MLENT2 (E) | POINTEURS SUR DES LISTENTI
  31. * LETYP (E) TYPE DU CHAMELEM A CREER
  32. * JER1 (E) LONGUEUR DE LA CHAINE DE CARACTERES LETYP
  33. * ICARA (S) POINTEUR SUR LE CHAMELEM
  34. *
  35. * VARIABLES:
  36. * ----------
  37. *
  38. *
  39. * AUTEUR, DATE DE CREATION:
  40. * -------------------------
  41. *
  42. * DENIS ROBERT,VERSION EN COURS DU 21 DECEMBRE 1987.
  43. *
  44. * LANGAGE:
  45. * --------
  46. *
  47. * ESOPE + FORTRAN77
  48. *
  49. ************************************************************************
  50. *
  51. ICAR1=0
  52. ICAR2=0
  53. SEGACT,MLMOT1
  54. SEGACT,MLMOT2
  55. *
  56. * TRAITEMENT PARTICULIER DES COMPOSANTES REPRESENTEES PAR DES
  57. * REELS
  58. *
  59. IF (MLMOT1.MOTS(/2).GT.0) THEN
  60. CALL MANUC3(MLENT1,MLMOT1,MLREE1,'REAL*8 ',MLMOT3,MLMOTS,
  61. . LETYP,JER1,MLMOT4,ICAR1)
  62. *
  63. IF (IERR.NE.0) RETURN
  64. ENDIF
  65. *
  66. * TRAITEMENT DES COMPOSANTES REPRESENTEES PAR DES
  67. * OBJETS D'UN AUTRE TYPE ( A PRIORI QUELQUONQUE )
  68. *
  69. IF (MLMOT2.MOTS(/2).GT.0) THEN
  70. CALL MANUC3(MLENT1,MLMOT2,MLENT2,'POINTEUR',MLMOT3,MLMOTS,
  71. . LETYP,JER1,MLMOT4,ICAR2)
  72. IF (IERR.NE.0) RETURN
  73. ENDIF
  74. *
  75. SEGDES MLENT1
  76. SEGDES,MLMOT1
  77. SEGDES,MLMOT2
  78. *
  79. IF (ICAR1.EQ.0.AND.ICAR2.EQ.0) THEN
  80. CALL ERREUR(215)
  81. ICARA=0
  82. RETURN
  83. ENDIF
  84. *
  85. * REUNION DES CHAMELEM
  86. *
  87. IF(ICAR1.NE.0.AND.ICAR2.NE.0) THEN
  88. CALL FUSCHL(ICAR1,ICAR2,ICARA)
  89. IF (IERR.NE.0) RETURN
  90. ELSE
  91. ICARA=MAX(ICAR1,ICAR2)
  92. ENDIF
  93. RETURN
  94. END
  95.  
  96.  

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