1 : C MANUC2 SOURCE CHAT 05/01/13 01:28:28 5004 2 : SUBROUTINE MANUC2(VALFLU,IPGEOM,NCOMP,IPCHPO) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : ************************************************************************ 6 : * 7 : * M A N U C 2 8 : * ----------- 9 : * 10 : * FONCTION: 11 : * --------- 12 : * 13 : * CREER UN CHPOINT CONTENANT UNE OU PLUSIEURS COMPOSANTES A VALEUR 14 : * ALGEBRIQUE CONSTANTE SUR UN MAILLAGE 15 : * 16 : * MODULES UTILISES: 17 : * ----------------- 18 : * 19 : -INC CCOPTIO 20 : * 21 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 22 : * ----------- 23 : * 24 : * VALFLU (E) VALEUR ALGEBRIQUE DE LA COMPOSANTE 25 : * IPGEOM (E) POINTEUR SUR L'OBJET MAILLAGE 26 : * NCOMP (E) DESIGNE LE NOMBRE DE COMPOSANTES 27 : * IPCHPO (S) POINTEUR SUR LE CHPOINT RESULTAT 28 : * 29 : CHARACTER*4 MOCOMP(5) 30 : DATA MOCOMP/'COM1','COM2','COM3','COM4','COM5'/ 31 : * 32 : * AUTEUR, DATE DE CREATION: 33 : * ------------------------- 34 : * 35 : * DENIS ROBERT,LE 28/01/88. 36 : * 37 : * LANGAGE: 38 : * -------- 39 : * 40 : * FORTRAN77 41 : * 42 : ************************************************************************ 43 : * 44 : IF(NCOMP.GT.5)THEN 44 : CALL ERREUR(5) 45 : RETURN 46 : ENDIF 47 : IF(NCOMP.EQ.1)THEN 47 : CALL ECRREE(VALFLU) 47 : CALL ECRCHA('SCAL') 47 : CALL ECRENT(1) 47 : CALL ECROBJ('MAILLAGE',IPGEOM) 47 : CALL MANUCH 48 : ELSE 49 : DO 10 ICOMP=1,NCOMP 49 : CALL ECRREE(VALFLU) 49 : CALL ECRCHA(MOCOMP(ICOMP)) 50 : 10 CONTINUE 50 : CALL ECRENT(NCOMP) 50 : CALL ECROBJ('MAILLAGE',IPGEOM) 50 : CALL MANUCH 51 : ENDIF 52 : * 52 : CALL LIROBJ('CHPOINT',IPCHPO,1,IRET) 53 : IF (IERR.NE.0) RETURN 54 : * 55 : END 56 :
© Cast3M 2003 - All rights reserved.
Disclaimer