1 : C MANUC6 SOURCE CHAT 06/08/24 21:52:09 5529 2 : SUBROUTINE MANUC6(IPMODL,MLMOT1,MLMOT2,MLMOT3,MLMOTS,MLREE1, 3 : . MLENT2,LETYP,JER1,ISUP,ICARA,itart) 4 : *----------------------------------------------------------------------- 5 : * CREATION D'UN CHAMELEM A PARTIR D'UN MMODEL 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 : IMPLICIT REAL*8(A-H,O-Z) 12 : -INC CCOPTIO 13 : -INC SMLMOTS 14 : -INC SMLREEL 15 : -INC SMLENTI 16 : CHARACTER*(*) LETYP 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 : * MLREE1 (E) POINTEUR SUR UN LISTREEL 26 : * MLENT2 (E) | POINTEURS SUR DES LISTENTI 27 : * LETYP (E) TYPE DU CHAMELEM A CREER 28 : * IPMODL (E) POINTEUR D'OBJET MODELE 29 : * ISUP (E) NUMERO DE SUPPORT DEMANDE 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 : * P DOWLATYARI JANVIER 92 41 : * (ADAPTATION DE MANUC4) 42 : * LANGAGE: 43 : * -------- 44 : * 45 : * ESOPE + FORTRAN77 46 : * 47 : ************************************************************************ 48 : * 49 : ICARA=0 50 : ICAR1=0 51 : ICAR2=0 52 : SEGACT,MLMOT1 53 : SEGACT,MLMOT2 54 : * 55 : * TRAITEMENT PARTICULIER DES COMPOSANTES REPRESENTEES PAR DES 56 : * REELS 57 : * 58 : IF (MLMOT1.MOTS(/2).GT.0) THEN 58 : CALL MANUC7(IPMODL,MLMOT1,MLREE1,'REAL*8 ',MLMOT3,MLMOTS, 59 : . LETYP,JER1,ISUP,ICAR1,itart) 60 : * 61 : IF (IERR.NE.0)THEN 62 : SEGDES,MLMOT1 63 : SEGDES,MLMOT2 64 : RETURN 65 : ENDIF 66 : ENDIF 67 : * 68 : * TRAITEMENT DES COMPOSANTES REPRESENTEES PAR DES 69 : * OBJETS D'UN AUTRE TYPE ( A PRIORI QUELQUONQUE ) 70 : * 71 : 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) THEN 74 : SEGDES,MLMOT1 75 : SEGDES,MLMOT2 76 : RETURN 77 : ENDIF 78 : ENDIF 79 : * 80 : SEGDES,MLMOT1 81 : SEGDES,MLMOT2 82 : * 83 : IF (ICAR1.EQ.0.AND.ICAR2.EQ.0) THEN 83 : CALL ERREUR(215) 84 : ICARA=0 85 : RETURN 86 : ENDIF 87 : * 88 : * REUNION DES CHAMELEM 89 : * 90 : IF(ICAR1.NE.0.AND.ICAR2.NE.0) THEN 90 : CALL FUSCHL(ICAR1,ICAR2,ICARA) 91 : ELSE 92 : ICARA=MAX(ICAR1,ICAR2) 93 : ENDIF 94 : RETURN 95 : END 96 : 97 : 98 :
© Cast3M 2003 - All rights reserved.
Disclaimer