Télécharger la plaquette Cast3M


fr en

Télécharger manuc4.eso

Retour à la liste

Numérotation des lignes : 

manuc4

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

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