Télécharger la plaquette Cast3M


fr en

Télécharger manuc6.eso

Retour à la liste

Numérotation des lignes : 

manuc6

  1. C MANUC6    SOURCE    CB215821  24/04/12    21:16:37     11897          
  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.  
  95.  

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