You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
269 B
13 lines
269 B
subroutine pvIpiksrt(n,arr)
|
|
integer::n,arr(n),i,j,a
|
|
do 12 j=2,n
|
|
a=arr(j)
|
|
do 11 i=j-1,1,-1
|
|
if(arr(i).le.a)goto 10
|
|
arr(i+1)=arr(i)
|
|
11 continue
|
|
i=0
|
|
10 arr(i+1)=a
|
|
12 continue
|
|
return
|
|
END
|