Mauvaise exécution du programme
salut
j'ai un programme quand je le compile aucune erreur mais à l'exécution il ne donne pas les résultats
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| DIMENSION VAL(4)
open(unit=10,file='bmat.dat',s tatus='old')
open(unit=12,file='result.txt' ,status='unknown')
read(10,*)(EL,W,E,EI,x=3,6)
R=1/(E*EI)
I=0
DO 10 X=3,6
I=I+1
A=(X**3)*(EL*W)/48.0
B=(X-(EL/2))**4*(W/24.)
C=((EL)**3)*X*(7./384.)
VAL(I)=R*(A-B-C)
10CONTINUE
WRITE (12,6)(VAL(I),I=1,4)
6 format (1(2x,E8.4))
STOP
END |
s'il est bien comment je dois déclarer les données ?
merci d'avance
