Subroutine de tri

Version imprimable

Subroutine de tri

Bonjour,
j'ai écris une subroutine de tri pour trier un fichier dans le sens ascendant mais mais quand je fais le build il m'affiche erreur que je ne comprend. voici la subroutine et l'erreur:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 subroutine tri(v,Nym1,c) IMPLICIT REAL*8(A-H,O-Z) Real*8 v(Nym1),c do i=1,Nym1 do j=i+1,Nym1 if(vi(i).gt.v(j))then ccc=v(j) v(j)=v(i) v(i)=c endif enddo enddo return end
l'erreur est:unresolved external sumbol subroutinetri@12
je vous pris de m'expliquer cette erreur est du a quoi? et merci

correction de la subroutine de tri

il y'avait une erreur dans la subroutine que je vous ai donné que je corrige:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
subroutine tri(v,N,c)
 
	IMPLICIT REAL*8(A-H,O-Z)
	Real*8 v(N),c
 
	do i=1,N
		do j=i+1,N
			if(v(i).gt.v(j))then
				c=v(j)
				v(j)=v(i)
				v(i)=c
			endif
		enddo
	enddo
 	return
end

16/06/2011, 01h24
prgasp77

Bonjour,
merci de penser à la balise [code]. De plus, il semble que ton problème soit lié non pas à l'aglorithme, mais au langage (qui est ?). Merci de reposer ta question dans le forum approprié.

Un dernier point, les variables qui s'appelle a, i, o, n ... c'est pas génial ...
16/06/2011, 13h04
souviron34

Citation:

Envoyé par prgasp77

mais au langage (qui est ?).

Fortran :D