Discussion :

[bmoumen27]

slt tout le monde; j'ai eu un code contenan pas mal de lignes que j'ai pas compris:
que font ces lignes:
1- DATA HPOL/6HLINEAR ,5HRIGHT ,4HLEFT/
2- DATA PNET/6H ,2H ,6HSTRAIG,2HHT,6HCROSSE,1HD/
3- WRITE(3,146)
4- READ(2,125)AIN,(COM(I,KCOM),I=1,19) ???!!!there were files opened for read and write!!!???
####################################################
que veut dire UNIT 8 dans:
OPEN (UNIT=8,FILE='PLTDAT.DAT',STATUS='UNKNOWN',ERR=14)
####################################################
comment peut on écrire le code suivant en utilisant des structures conditionnelles standard???
remarquer qu'il n y a pas de THEN ou ENDIF dans le bloc IF précédent
et pas de ENDDO dans le bloc DO:

2 KCOM=KCOM+1
IF (KCOM.GT.5) KCOM=5
READ(2,125)AIN,(COM(I,KCOM),I=1,19)
IF(KCOM.GT.1)GO TO 3

WRITE(3,126)

3 WRITE(3,129) (COM(I,KCOM),I=1,19)
IF (AIN.EQ.ATST(11)) GO TO 2
IF (AIN.EQ.ATST(1)) GO TO 4

WRITE(3,130)
STOP

4 CONTINUE
DO 5 I=1,LD
5 ZARRAY(I)=(0.,0.)
MPCNT=0
IMAT=0
####################################################

[mipicard]

Quelques réponses en vrac

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DATA HPOL/6HLINEAR ,5HRIGHT ,4HLEFT/

C'est du très vieux fortran. Ici on initialise un tableau de caractères de 3 éléments à HPOL(1)='LINEAR' (6H veut dire 6 caractères), HPOL(2)='RIGHT' et HPOL(3)='LEFT'
A modifier, ce n'est plus supporté !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WRITE(3,146)

Veut dire écrit dans l'unité logique 3 le contenu du format n°146. Tu dois avois une instruction du type 146 FORMAT(..., elle est parfois en fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

READ(2,125)AIN,(COM(I,KCOM),I=1,19)

Veut dire : lit dans l'unité logique 2 et suivant le format n°125 AIN et les 19 premières valeurs de la colonne KCOM du tableau COM. l'unité logique 2 a du être ouverte par un OPEN(UNIT=2,...

[mipicard]

Et pour la programmation un peu plus ordonnée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
2 CONTINUE   ! peut être enlevé si il n'y a pas de go to 2 dans le code
DO 
    KCOM=KCOM+1
    IF (KCOM.GT.5) THEN
        KCOM=5
    ENDIF
    READ(2,125)AIN,(COM(I,KCOM),I=1,19)
    IF(KCOM.LE.1) THEN
        WRITE(3,126)
    ENDIF
    3 CONTINUE   ! peut être enlevé si il n'y a pas de go to 3 dans le code
 
    WRITE(3,129) (COM(I,KCOM),I=1,19)
    IF (AIN.NE.ATST(11)) EXIT
ENDDO
 
IF (AIN.NE.ATST(1)) THEN
    WRITE(3,130)
    STOP
ENDIF
4 CONTINUE   ! peut être enlevé si il n'y a pas de go to 4 dans le code
 
DO I=1,LD
    ZARRAY(I)=(0.,0.)
ENDDO
5 CONTINUE   ! peut être enlevé si il n'y a pas de go to 5 dans le code
MPCNT=0
IMAT=0