.NTE1Nw.MjYyNjcx

0001 * 0002 * 0003 * RECONNAISSANCE DES ZONES DE DRAINAGE 16/11/77 0004 * 0005 # 0006 i JUMP 50 0007 * 0008 * RECONSTITUTION DE GRAINS 0009 * 0010 5 K0=0 0011 6 DIL 1, (BY, BZ)(BZ, TR)(AR, Kl) 0012 7 IF (KO. EQ. Kl) 10. S 0013 8 KO—K1 0014 9 JUMP 6 0015 10 NOL (BY, EZ)(BZ, TR)(AR, KO) 0016 il EXIT 0017 * 0018 * SQUELETTE DE GRAINS DE BY DANS LE CHAMP EX 0020 20 KO-O 0021 21 LDC 1, (BY;0, il 00 )(BZ,TR) 0022 22 NOL (BY, BZ, UN)(BY) 0024 24 NÛL (BZ,BY,UN)(BY) 0025 25 LDC i, (BY; O, 0 11 0)(BZ,TR) 0026 26 NOL (BY,BZ; UN)(BY) 0027 27 LDC 1, (BY; 0, 00 11 )<BZ,TR) 0030 30 NOL (BY, BZ,UN)(BY) 0031 31 LDC 1, (BY; 0,1 00 1)(BZ,TR) 0032 32 COV 0, (BY, BZ, UN; BX ) (BY, TR) ( AR, Kl ) 0033 33 IF (KO. EQ. Kl)38, 34 0034 34 K0«*K1 0035 35 JUMP 21 0036 * 0040 41 KO--K1 0041 42 JUMP 38 0042 44 EXIT 0044 * PROGRAMME PRINCIPAL 0045 * 0046 50 NDSK 0 0047 52 TYPE NO IMAGES DE 0 A NO 0048 54 TYPE 17,J7, 18, JS 0049 0050 60 NOL (SV, SC)(BX,BY,BZ,BR) 0054 68 J6—J8—1 0055 * 0056 * DETECTION DES MINIMA LOCAUX 0057 * 0058 70 FOR N=l, NO, 1 0059 72 VISU (BR) 0060 74 LODR *N 0061 76 TYPE L 0062 78 IF (L. EQ. 0)74, 80 0064 82 VISU (BY,BZ) 0065 84 CALL 5 0066 86 NOL (BZ, CO)(BR, TR) 0067 87 NOL (BY, BR)(BZ, TR) 0069 90 NEXT N 0070 92 SFLD (15, J5)(16, J6> 0071 94 NOL (SV, SC, UN)(BX, TR) 0072 95 ERG 1, ( BX ) ( BX, CO, TR) 0073 96 NOL (BX, BZ, UN)(BR) 0074 97 SAVR MINIMA 0075 98 SFLD (17, J7)(18, J8) 0076 99 NOL (BZ)(BY) 0077 # 0078 * RECONSTITUTION DES ZONES DE DRAINAGE 0079 * <BX>= COTE N + MINIMA LOCAUX NON UTILSES 0080 * <BY>- MINIMA LOCAUX DEJA UTILISES 0081 * 0082 100 FOR N=i,NO, 1 0083 102 VISU (BR) 0084 104 LODR *N 0086 108 IF (L. EQ. 0)104, 110 0087 110 VISU (BX, BY,BZ) 0090 116 CALL 20 0091 118 NEXT N 0092 120 NOL (BY)(BR) 0093 122 SAVR DRAINE 0094 /*