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.

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
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
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) ===|