Télécharger manuc6.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUC6 SOURCE CB215821 19/07/30 21:17:13 10273
  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. * TRAITEMENT PARTICULIER DES COMPOSANTES REPRESENTEES PAR DES
  57. * REELS
  58. *
  59. IF (MLMOT1.MOTS(/2).GT.0) THEN
  60. CALL MANUC7(IPMODL,MLMOT1,MLREE1,'REAL*8 ',MLMOT3,MLMOTS,
  61. & LETYP,JER1,ISUP,ICAR1,itart)
  62. IF (IERR.NE.0) GOTO 900
  63. ENDIF
  64. *
  65. * TRAITEMENT DES COMPOSANTES REPRESENTEES PAR DES
  66. * OBJETS D'UN AUTRE TYPE ( A PRIORI QUELCONQUE )
  67. *
  68. IF (MLMOT2.MOTS(/2).GT.0) THEN
  69. CALL MANUC7(IPMODL,MLMOT2,MLENT2,'POINTEUR',MLMOT3,MLMOTS,
  70. & LETYP,JER1,ISUP,ICAR2,itart)
  71. IF (IERR.NE.0) GOTO 900
  72. ENDIF
  73. *
  74. IF (ICAR1.EQ.0.AND.ICAR2.EQ.0) THEN
  75. CALL ERREUR(215)
  76. GOTO 900
  77. ENDIF
  78. *
  79. * REUNION DES CHAMELEM
  80. *
  81. IF (ICAR1.NE.0 .AND. ICAR2.NE.0) THEN
  82. CALL ETMCHL(ICAR1,ICAR2,ICARA)
  83. ELSE
  84. ICARA = MAX(ICAR1,ICAR2)
  85. ENDIF
  86.  
  87. 900 CONTINUE
  88.  
  89. END
  90.  
  91.  
  92.  

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