Τοποθέτηση τιμών κατ'αυξουσα σειρά.Fortran!!!

[kostaslibe]

Καλησπέρα,

 

Εχω φτιάξει το ακόλουθο προγραμματάκι για ταξινόμηνη τιμών κατά αύξουσα σειρά.Τα δεδομένα δίνονται από το πληκτρολόγιο.

Θέλω να διαβάζει τιμές από ένα αρχείο, να κάνει την ταξινόμηση και να τις αποθηκεύει σε άλλο αρχείο.

Απλό ακούγεται αλλά είμαι καινούριος με Fortran οπότε όποιος μπορεί να βοηθήσει....

 

DIMENSION X(100)

READ (*,*) N, (X(I),I=1,N)

N1=N-1

DO 15 I=1,N1

AMIN=X(I)

M=I+1

DO 25 K=M,N

IF (AMIN.LE.X(K)) GO TO 25

Z=AMIN

AMIN=X(K)

X(K)=Z

25 CONTINUE

15 X(I)=AMIN

WRITE (*,2) (X(I),I=1,N)

2 FORMAT (10(3X,F5.2))

STOP

END