CALL SEQUENCE... fullmix INFILE OUT1 OUT2 INPUT OUTPUT [ -n VAL1 -m VAL2 -plv VAL3 ] AUTHOR - B.Dugas, fevrier 23/88. LAST REVISION: $Header: Autres-corrections-d-usages-de-MAXW-NWDS-modifs-dans-GGSIGN-SIGNAG @ 2018-06-05 17:00:06 -0400 (dugas) $ DESCRIPTION... CREATION DE DEUX FICHIERS DE DONNEES PERMETTANT LA COMPARAISONS DEUX A DEUX DES TOUS LES ENREGISTREMENTS DU FICHIER INFILE I.E. ON AURA QUE (SI NOMBRE D'ENREGISTREMENT SUR IN = M) : UNIT#2(1) = UNIT#1(1) ET UNIT#3(1) = UNIT#1(2), UNIT#2(2) = UNIT#1(1) ET UNIT#3(2) = UNIT#1(3), . . . UNIT#2(M-1) = UNIT#1(1) ET UNIT#3(M-1) = UNIT#1(M), UNIT#2(M) = UNIT#1(2) ET UNIT#3(M) = UNIT#1(3), . . . UNIT#2(2M-3) = UNIT#1(2) ET UNIT#3(2M-3) = UNIT#1(M), UNIT#2(2M-2) = UNIT#1(3) ET UNIT#3(2M-2) = UNIT#1(4), . . . UNIT#2(M(M-1)/2) = UNIT#1(M-1) ET UNIT#3(M(M-1)/2) = UNIT#1(M), JUSQU'A CE L'ON AIT TOUTES LES M(M-1)/2 PAIRES. ON LIT LES NUMEROS DES PREMIERS ET DERNIERS ENREGISTREMENTS A CONSIDERER SUR UNIT#5. SI LE PREMIER NOMBRE EST VIDE ON LES UTLISE TOUS. PARAMETRE... M1 (m) = PREMIER ENREGISTREMENT CONSIDERE (DEFAUT = PREMIER) M2 (n) = DERNIER ENREGISTREMENT CONSIDERE (DEFAUT = DERNIER) NIV (plv) = ORDINAL DU NIVEAU VERTICAL RETENU (DEFAUT = PREMIER) READ(5,5000) M1,M2,NIV 5000 FORMAT(10X,3I5) EXAMPLE OF INPUT CARD... FULLMIX 1 10 500 0123456789012345678901234567890123456789012345678901234567890 1 2 3 4 5 6 7 EXIT CONDITIONS... 0 NO PROBLEMS 1 TOO MANY OR NOT ENOUGH LEVELS 2 M1,M2 INCONSISTENT WITH NUMBER OF RECORDS IN INFILE 3 REQUESTED LEVEL NIV UNAVAILABLE 4 PROBLEMS READING FILE IN 5 PREMATURE END OF FILE ON INPUT 6 PREMATURE END OF FILE ON INFILE 7 MORE THAN ONE TYPE OF DATA IN INFILE 8 MEMORY ALLOCATION PROBLEM