z.akbar...@gmail.com
unread,Dec 2, 2015, 9:57:17 AM12/2/15You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
program p5
IMPLICIT NONE
INTEGER, PARAMETER :: N = 500
REAL, DIMENSION(N) :: List1 ,list2
INTEGER I
open(100,file='n.txt')
open(200,file='1.txt')
open(300,file='Ascending.txt')
open(400,file='Descending.txt')
do 2 i=1,500
read(100,*) list1(i)
2 CONTINUE
write (*, 10) List1
10 FORMAT( 500F20.11 )
write (200, '(20f14.11)' ) list1
write(*,*) '******************************************************************************************************************************************************************************************************************************* Ascending: '
CALL Bubble_Sorta( List1,N ,list2)
write(*,10)list2
write (300,'(20f14.11)' ) list2
write(*,*) '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Descending: '
CALL Bubble_Sortb( List1,N,list2 )
write (*, 10) list2
write (400,'(20f14.11)' ) list2
close (100)
close(200)
close(300)
close(400)
CONTAINS
SUBROUTINE Bubble_Sorta( X,NUM,Y)
IMPLICIT NONE
REAL, DIMENSION(:) :: X ,Y
INTEGER :: Num
REAL Temp
INTEGER J, K
TEMP=0
do k=0,num-1
DO J = 0, Num-1
IF (X(J) > X(J+1)) THEN
Temp = X(J)
X(J) = X(J+1)
X(J+1) = Temp
END IF
END DO
END DO
Y=X
return
END SUBROUTINE
SUBROUTINE Bubble_Sortb( U,NUM ,Y)
IMPLICIT NONE
REAL, DIMENSION(:) :: U ,Y
INTEGER :: Num
REAL Temp
INTEGER J, K
do k=0,num-1
DO J = 1, Num-1
IF (U(J) < U(J+1)) THEN
Temp = U(J)
U(J) = U(J+1)
U(J+1) = Temp
END IF
END DO
END DO
Y=U
return
END SUBROUTINE
END