1 : C SUITE1 SOURCE CHAT 05/01/13 03:26:29 5004
2 : SUBROUTINE SUITE1
3 : ************************************************************************
4 : *
5 : * S U I T E 1
6 : * -----------
7 : *
8 : * FONCTION:
9 : * ---------
10 : *
11 : * CREER UNE SUITE DE 'CHPOINT' ('LISTCHPO').
12 : *
13 : * MODE D'APPEL:
14 : * -------------
15 : *
15 : * CALL SUITE1
16 : *
17 : * SOUS-PROGRAMMES APPELES:
18 : * ------------------------
19 : *
20 : * LIRE, ECRIRE.
21 : *
22 : * AUTEUR, DATE DE CREATION:
23 : * -------------------------
24 : *
25 : * PASCAL MANIGOT 19 FEVRIER 1985
26 : *
27 : * LANGAGE:
28 : * --------
29 : *
30 : * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
31 : *
32 : ************************************************************************
33 : *
34 : IMPLICIT INTEGER(I-N)
35 : -INC SMLCHPO
36 : *
37 : PARAMETER (INFINI = 9999)
38 : *
39 : *
40 : *
41 : N1 = 0
42 : SEGINI,MLCHPO
43 : IPLCHP = MLCHPO
44 : *
45 : ICODE = 0
46 : DO 100 IB100=1,INFINI
46 : CALL LIROBJ ('CHPOINT',IPCHPO,ICODE,IRETOU)
47 : IF (IRETOU .EQ. 1) THEN
48 : ICHPOI(**) = IPCHPO
49 : ELSE
50 : * --> SORTIE DE BOUCLE N.100
51 : GOTO 102
52 : END IF
53 : 100 CONTINUE
54 : * END DO
55 : 102 CONTINUE
56 : *
57 : SEGDES,MLCHPO
58 : *
58 : CALL ECROBJ ('LISTCHPO',IPLCHP)
59 : *
60 : END
61 :
© Cast3M 2003 - All rights reserved.
Disclaimer