vconmo
C VCONMO SOURCE CB215821 24/04/12 21:17:25 11897 C_______________________________________________________________________ C C V(ERIFICATION DU MODELE POUR LES) CON(NECTIVITES DU) MO(DEL) C C -- LE MODELE A UN SEUL CONSTITUENT C -- LE MODELE EST GEOMETRIQUEMENT SIMPLE C C Entrees: C ________ C C IPMODL Pointeur sur un objet MMODEL C C Sorties: C ________ C C IRET 1 ou 0 suivant OK ou non C C Appele par CONNEC C ---------- C C Appel a MADJAC test l'adjacence de 2 maillage (CLB) C -------- C C P.PEGON 26/10/92 C_______________________________________________________________________ C IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) LOGICAL LOG1 C -INC SMMODEL -INC PPARAM -INC CCOPTIO -INC SMELEME -INC SMLENTI -INC SMCOORD C C ACTIVATION DU MODELE C MMODEL=IPMODL NSOUS=KMODEL(/1) C C SI NSOUS=1 TOUT EST PARFAIT ET ON SORT C IRET=1 IF(NSOUS.EQ.1)RETURN C C SINON .... C ACTIVATION DES ZONES ELEMENTAIRES DU MAILLAGE C DO 1 ISOUS=1,NSOUS IMODEL=KMODEL(ISOUS) MELEME=IMAMOD 1 CONTINUE C C VOYONS LE CONSTITUANT C IMODEL=KMODEL(1) CONSTI=CONMOD DO 2 ISOUS=2,NSOUS IMODEL=KMODEL(ISOUS) IRET=0 RETURN ENDIF 2 CONTINUE C C VOYONS L'ADJACENCE C JG=NSOUS SEGINI,MLENTI DO 3 ISOUS=1,NSOUS IMODEL=KMODEL(ISOUS) LECT(ISOUS)=IMAMOD 3 CONTINUE C C ON SELECTIONE LA PREMIERE ZONE ET L'ON BOUCLE C EN VERIFIANT QUE UNE DES ZONES NON ENCORE SELECTIONNEES C EST ADJACENTE A L'UNE DES ZONES DEJA SELECTIONNEES C DO 7 ISOUS=2,NSOUS DO 5 JSOUS=ISOUS,NSOUS MEL1=LECT(JSOUS) DO 4 KSOUS=1,ISOUS-1 C C WARNING !!!! ON NE PEUT PAS ECRIRE C CALL MADJAC(LECT(JSOUS),LECT(KSOUS),LOG1) C CAR MADJAC RESTE UNE ROUTINE ESOPE C MEL2=LECT(KSOUS) IF (LOG1) GOTO 6 4 CONTINUE 5 CONTINUE IRET=0 GOTO 8 6 IDUM=LECT(ISOUS) LECT(ISOUS)=LECT(JSOUS) LECT(JSOUS)=IDUM 7 CONTINUE C C ON FERME C 8 SEGSUP,MLENTI END
© Cast3M 2003 - Tous droits réservés.
Mentions légales