1 : C RACLI2 SOURCE CHAT 05/01/13 02:44:26 5004 2 : SUBROUTINE RACLI2(IPF,L2, NL2) 3 : ************************************************************************ 4 : * 5 : * R A C L I 2 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * CREER UNE LIGNE 'NL2' COMMENCANT AU POINT F 12 : * ET S'APPUYANT SUR LA LIGNE 'L2' 13 : * L'ORIENTATION EST POINT-LIGNE 14 : * 15 : * MODULES UTILISES: 16 : * ----------------- 17 : * 18 : IMPLICIT INTEGER(I-N) 19 : -INC CCOPTIO 20 : -INC SMELEME 21 : * 22 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 23 : * ----------- 24 : * 25 : * IPF (E) POINT 26 : * L2 (E) LIGNE 27 : * NL2 (S) LIGNE DE RACCORDEMENT POINT-LIGNE 28 : * 29 : * AUTEUR, DATE DE CREATION: 30 : * ------------------------- 31 : * 32 : * LIONEL VIVAN 23 NOVEMBRE 1987 33 : * 34 : * LANGAGE: 35 : * -------- 36 : * 37 : * ESOPE + FORTRAN77 38 : * 39 : ************************************************************************ 40 : * 41 : * 41 : CALL ECROBJ('MAILLAGE',L2) 41 : CALL PRINVE 42 : IF (IERR.NE.0) RETURN 42 : CALL LIROBJ('MAILLAGE',L2B,1,IRETOU) 43 : IF (IERR.NE.0) RETURN 43 : CALL RACLI1(L2B,IPF,NL2B) 44 : IF (IERR.NE.0) RETURN 44 : CALL ECROBJ('MAILLAGE',NL2B) 44 : CALL PRINVE 45 : IF (IERR.NE.0) RETURN 45 : CALL LIROBJ('MAILLAGE',NL2,1,IRETOU) 46 : IF (IERR.NE.0) RETURN 47 : * 48 : MELEME=L2B 49 : SEGSUP,MELEME 50 : MELEME=NL2B 51 : SEGSUP,MELEME 52 : * 53 : END 54 :
© Cast3M 2003 - All rights reserved.
Disclaimer