-
Notifications
You must be signed in to change notification settings - Fork 0
/
inclass6.F90
32 lines (30 loc) · 967 Bytes
/
inclass6.F90
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
program inclass6
implicit none
integer :: i
real, dimension(100) :: r
call random_number(r)
r = r * 100
call array_sort(100, r)
do i = 1, 100
print *, r(i)
end do
contains
subroutine array_sort(n, arr)
implicit none
integer :: n, i
logical :: swap = .true.
real, dimension(n) :: arr
real :: temp
do while (swap == .true.)
swap = .false.
do i = 1, n - 1
if (arr(i) > arr(i + 1)) then
temp = arr(i)
arr(i) = arr(i + 1)
arr(i + 1) = temp
swap = .true.
end if
end do
end do
end subroutine array_sort
end program inclass6