Numérotation des lignes :

C NUNISO    SOURCE    CHAT      05/01/13    02:03:40     5004C      SUBROUTINE NUNISO(NOETRI,NBN,NUM,NBISOL,IERR)C     *****************************************************************C     OBJET NUNISO : PROPOSE UNE RENUMEROTATION POUR METTRE EN FIN LESC     OBJET          NOEUDS ISOLES.CC     EN ENTREE:C      NOETRI: TABLEAU DES ELEMENTS INCIDENTS AUX NOEUDSC      NBN   : NOMBRE DE NOEUDSCC     EN SORTIE:C       NBISOL : NOMBRE DE NOEUDS ISOLESC       NUM    : NOUVELLE NUMEROTATIONC                NUM(I) =  NOUVEAU NUMERO DU NOEUD IC                NUM EST UN TABLEAU DE TAILLE NBNCC     CONDITION D'APPLICATION : TOUT MAILLAGEC     *****************************************************************      IMPLICIT INTEGER(I-N)      INTEGER    NOETRI(*),NBN      INTEGER    NUM(*),NBISOL,IERRC      INTEGER IC      NBISOL = 0      I = 1   10 IF(I.GT.(NBN-NBISOL))GOTO 9999C     --- LE NOEUD EST ISOLE ---      IF( NOETRI(I).EQ.0 )THENCC       --- RECHERCHE D'UN NOEUD (A LA FIN) POUR PERMUTER ---   20   IF( NOETRI(NBN-NBISOL).EQ. 0 )THEN           NUM(NBN-NBISOL) = NBN-NBISOL           NBISOL = NBISOL + 1C          --- TOUS LES NOEUDS SONT ISOLES ---           IF( NBISOL.EQ.NBN )GOTO 9999C          --- ON A TROUVE TOUS LES NOEUDS ISOLES ---           IF( I.GT.(NBN-NBISOL))GOTO 9999           GOTO 20        ENDIFCC       --- ON A LE NOEUD POUR PERMUTER ---        NUM(NBN-NBISOL) = I        NUM(I) = NBN-NBISOL        NBISOL = NBISOL + 1      ELSE        NUM(I) = I      ENDIF      I = I + 1      GOTO 10C 9999 END

© Cast3M 2003 - Tous droits réservés.
Mentions légales