Bonjour à tous,
Je viens d'écrire mon programme avec code::blocks en utilisant Fortran comme language de programmation
mon compilateur est: "GNU Fortran compiler".
En compilant ,je me retrouve avec O errreurs, 13 warnings, y a-t-il quelq'uun qui pourra m'aider à s'en sortir?
Dans ci-dessous le programme et le message d'erreur.
Message d'erreur:
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102 Program MAIN use Mod_donnees use construction_matrice implicit none Integer :: i,j,l Real(8) :: dr,dz Real(8) :: somme Real(8) :: residu=0.0D0 Real(8) :: euclid_norm=0.0D0 Real(8),DIMENSION (m) :: r Real(8),DIMENSION (n) :: z Real(8),DIMENSION (1:n*m,1:n*m) :: A Real(8),DIMENSION (1:n*m,1:1) :: vect Real(8),ALLOCATABLE, DIMENSION (:,:) :: Ap Real(8),ALLOCATABLE, DIMENSION (:,:) :: vectb Real(8),ALLOCATABLE, DIMENSION (:,:) :: T ALLOCATE (Ap(n*m,n*m),vectb(n*m,1), T(n,m)) !****construction du systéme***************** call maillage ( dr,dz,r,z) call MATRICE (r,z,dr,dz,vect,A) !****impression dans un fichier************** open(10,file= 'r(j).dat') open(11,file= 'z(i).dat') open(12,file= 'A(i,j).dat') open(13,file= 'vect(j,1).dat') open(15,file= 'T(i,j).dat') !*****r(j)*********************************** do j=1,m write(10,*) r(j) end do !*****z(i)*********************************** do i=1,n write(11,*) z(i) end do !*****A(i,j)********************************* do i=1,n*m do j=1,n*m write(12,*) A(i,j) Ap(i,j)=A(i,j) end do write(12,*) ' ' end do !****vect(j,1)******************************* do j=1,n*m write(13,*) vect(j,1) vectb(j,1)=vect(j,1) euclid_norm = euclid_norm + vectb(j,1)**2 end do euclid_norm = sqrt(euclid_norm) !***application de gauss-j******************* CALL gaussj(Ap(1:n*m,1:n*m),vectb(1:n*m,1:1)) do i = 1,n*m somme = 0.0D0 do j =1,n*m somme = somme + A(i,j)*vectb(j,1) end do residu = residu+(vect(i,1)-somme)**2 end do WRITE(*,*) "residu relatif = ", residu !/euclid_norm !*****résultats******************************* do l=1,m*n j=(l-1)/n+1 i=l-n*(j-1) T(i,j)=vectb(l,1) end do do i=1,n do j=1,m write (15,*) T(i,j) end do write(15,*) ' ' end do OPEN(7,FILE='T.PLT') WRITE(7,*)' TITLE = " T"' WRITE(7,*)' VARIABLES = "z","r","T"' ! ,"QX","QY"' WRITE(7,*)' ZONE T=" ",','i=',n,',j=',m,',F=BLOCK' WRITE(7,*) ((z(i),i=1,n),j=1,m) WRITE(7,*) ((r(j),i=1,n),j=1,m) WRITE(7,*) ((T(i,j),i=1,n),j=1,m) CLOSE(7) !****************************************************************** ! Déallocations ------------------------------------------------- DEALLOCATE ( Ap, vectb, T) END PROGRAM
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
29
30
31
32 C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|62|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 62 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|63|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 63 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|64|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 64 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|65|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 65 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|66|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 66 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|67|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 67 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|68|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 68 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|70|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 70 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|74|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 74 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|88|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 88 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|89|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 89 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|90|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 90 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|91|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 91 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|92|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 92 .1:| ||Warning: Nonconforming tab character | C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90|93|C:\Users\manaii\Desktop\projet2\MAIN_PROGRAM.f90 93 .1:| ||Warning: Nonconforming tab character | | ||=== Build finished: 0 errors, 13 warnings (0 minutes, 0 seconds) ===|
Partager