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