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.  
  46. -INC PPARAM
  47. -INC CCOPTIO
  48.  
  49. -INC SMLMOTS
  50. -INC SMMODEL
  51.  
  52. CHARACTER*(*) LETYP
  53.  
  54. ICARA = 0
  55. ICAR1 = 0
  56. ICAR2 = 0
  57. *
  58. * TRAITEMENT PARTICULIER DES COMPOSANTES REPRESENTEES PAR DES
  59. * REELS
  60. *
  61. IF (MLMOT1.MOTS(/2).GT.0) THEN
  62. CALL MANUC7(IPMODL,MLMOT1,MLREE1,'REAL*8 ',MLMOT3,MLMOTS,
  63. & LETYP,JER1,ISUP,ICAR1,itart)
  64. IF (IERR.NE.0) GOTO 900
  65. ENDIF
  66. *
  67. * TRAITEMENT DES COMPOSANTES REPRESENTEES PAR DES
  68. * OBJETS D'UN AUTRE TYPE ( A PRIORI QUELCONQUE )
  69. *
  70. IF (MLMOT2.MOTS(/2).GT.0) THEN
  71. CALL MANUC7(IPMODL,MLMOT2,MLENT2,'POINTEUR',MLMOT3,MLMOTS,
  72. & LETYP,JER1,ISUP,ICAR2,itart)
  73. IF (IERR.NE.0) GOTO 900
  74. ENDIF
  75. *
  76. IF (ICAR1.EQ.0.AND.ICAR2.EQ.0) THEN
  77. CALL ERREUR(215)
  78. GOTO 900
  79. ENDIF
  80. *
  81. * REUNION DES CHAMELEM
  82. *
  83. IF (ICAR1.NE.0 .AND. ICAR2.NE.0) THEN
  84. CALL ETMCHL(ICAR1,ICAR2,ICARA)
  85. ELSE
  86. ICARA = MAX(ICAR1,ICAR2)
  87. ENDIF
  88.  
  89. 900 CONTINUE
  90.  
  91. END
  92.  
  93.  
  94.  

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