Numérotation des lignes :

C DOUBLO    SOURCE    PV        06/03/31    21:03:52     5366      SUBROUTINE DOUBLO(IEN,IND,NC,N, NF,IDU)C_______________________________________________________________________CC     DETECTION DE DOUBLON DANS UNE LISTE DE NC-UPLETCC    Entrees:C    --------C          IEN=COLLECTION DE N NC-UPLET PARAMETRES CARACTERISTIQUESC          IND=ORDRE INITIAL DANS IENCC   Sorties:C   --------C          NF =NOMBRE DE NC-UPLET DIFFERENTC          IDU=NOMBRE DE DOUBLON ASSOCIE A CHAQUE NC-UPLET DIFFERENTC          IEN=COLLECTION DES NC-UPLET DIFFERENTC          IND=ORDRE FINAL DES IDEX DES NC-UPLETCC   Appele par: NLOVEPC   -----------CC   P.PEGON 9/11/92C_______________________________________________________________________C       IMPLICIT INTEGER(I-N)      DIMENSION IND(N),IEN(NC,N),IDU(N)      LOGICAL LOKCC     INITIALISATIONC      NF=1      IDU(1)=1      IF (N.EQ.1)RETURNCC     MISE EN ORDRE DES NC-UPLETCC      DO IR=1,N-1        DO IA=IR+1,N          LOK=(IA.EQ.IA)          DO IC=1,NC            LOK=LOK.AND.(IEN(IC,IA).EQ.IEN(IC,IR))          ENDDO          IF (LOK)THEN            IDUM=IND(IR+1)            IND(IR+1)=IND(IA)            IND(IA)=IDUM            DO IC=1,NC              IDUM=IEN(IC,IR+1)              IEN(IC,IR+1)=IEN(IC,IA)              IEN(IC,IA)=IDUM            ENDDO            GOTO 1          ENDIF        ENDDO 1      CONTINUE      ENDDOCC     DETECTION DES DOUBLONSC      DO IR=2,N        LOK=(IR.EQ.IR)        DO IC=1,NC          LOK=LOK.AND.(IEN(IC,NF).EQ.IEN(IC,IR))        ENDDO        IF(LOK)THEN          IDU(NF)=IDU(NF)+1        ELSE          NF=NF+1          IDU(NF)=1          DO IC=1,NC            IEN(IC,NF)=IEN(IC,IR)          ENDDO        ENDIF      ENDDOC      RETURN      END

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