Télécharger manuc6.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUC6 SOURCE FANDEUR 16/12/05 21:40:00 9211
  2.  
  3. *-----------------------------------------------------------------------
  4. * CREATION D'UN CHAMELEM A PARTIR D'UN MMODEL
  5. * LES COMPOSANTES POUVANT ETRE REPRESENTEES PAR DES REELS
  6. * OU DES OBJETS DE TYPE AUTRE ( EX :'EVOLUTION' OU 'CHAMELEM' OU
  7. * 'POINT ' ETC . )
  8. *-----------------------------------------------------------------------
  9. *
  10. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  11. * -----------
  12. *
  13. * IPMODL (E) POINTEUR D'OBJET MODELE
  14. * ACTIF EN ENTREE/SORTIE (ainsi que les IMODEL !)
  15. * MLMOT1 (E) |
  16. * MLMOT2 (E) | POINTEURS SUR DES LISTMOTS
  17. * MLMOT3 (E) |
  18. * MLMOTS (E) |
  19. * MLREE1 (E) POINTEUR SUR UN LISTREEL
  20. * MLENT2 (E) | POINTEURS SUR DES LISTENTI
  21. * LETYP (E) TYPE DU CHAMELEM A CREER
  22. * ISUP (E) NUMERO DE SUPPORT DEMANDE
  23. * JER1 (E) LONGUEUR DE LA CHAINE DE CARACTERES LETYP
  24. * ICARA (S) POINTEUR SUR LE CHAMELEM
  25. *
  26. * AUTEUR, DATE DE CREATION:
  27. * -------------------------
  28. *
  29. * P DOWLATYARI JANVIER 92
  30. * (ADAPTATION DE MANUC4)
  31. *
  32. * LANGAGE:
  33. * --------
  34. *
  35. * ESOPE + FORTRAN77
  36. *
  37. ************************************************************************
  38.  
  39. SUBROUTINE MANUC6(IPMODL,MLMOT1,MLMOT2,MLMOT3,MLMOTS,MLREE1,
  40. & MLENT2,LETYP,JER1,ISUP,ICARA,itart)
  41.  
  42. IMPLICIT INTEGER(I-N)
  43. IMPLICIT REAL*8(A-H,O-Z)
  44.  
  45. -INC CCOPTIO
  46.  
  47. -INC SMLMOTS
  48. -INC SMMODEL
  49.  
  50. CHARACTER*(*) LETYP
  51.  
  52. ICARA = 0
  53. ICAR1 = 0
  54. ICAR2 = 0
  55. *
  56. * ACTIVATION DES LISTES DE COMPOSANTES A TRAITER PAR TYPE
  57. *
  58. SEGACT,MLMOT1,MLMOT2
  59. *
  60. * TRAITEMENT PARTICULIER DES COMPOSANTES REPRESENTEES PAR DES
  61. * REELS
  62. *
  63. IF (MLMOT1.MOTS(/2).GT.0) THEN
  64. CALL MANUC7(IPMODL,MLMOT1,MLREE1,'REAL*8 ',MLMOT3,MLMOTS,
  65. & LETYP,JER1,ISUP,ICAR1,itart)
  66. IF (IERR.NE.0) GOTO 900
  67. ENDIF
  68. *
  69. * TRAITEMENT DES COMPOSANTES REPRESENTEES PAR DES
  70. * OBJETS D'UN AUTRE TYPE ( A PRIORI QUELCONQUE )
  71. *
  72. IF (MLMOT2.MOTS(/2).GT.0) THEN
  73. CALL MANUC7(IPMODL,MLMOT2,MLENT2,'POINTEUR',MLMOT3,MLMOTS,
  74. & LETYP,JER1,ISUP,ICAR2,itart)
  75. IF (IERR.NE.0) GOTO 900
  76. ENDIF
  77. *
  78. IF (ICAR1.EQ.0.AND.ICAR2.EQ.0) THEN
  79. CALL ERREUR(215)
  80. GOTO 900
  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. ELSE
  88. ICARA = MAX(ICAR1,ICAR2)
  89. ENDIF
  90.  
  91. 900 CONTINUE
  92. SEGDES,MLMOT1,MLMOT2
  93.  
  94. RETURN
  95. END
  96.  
  97.  
  98.  

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