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

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