请教给数组排序的GS程序如何编写

rhythm9806

01、选择法排序
算法思想：
    1）对有n+1个数的序列（存放在数组a(n)中），从中选出最小（升序）或最大（降序）的数，与第1个数交换位置；
    2）除第1 个数外，其余n个数中选最小或最大的数，与第2个数交换位置；
    3）依次类推，选择了n次后，这个数列已按升序排列。
! 选择排序法的子程序
!
subroutine selection_sort(a,n)
implicit none
integer :: n,a(n)
integer i,j ! 循环计数器
integer min ! 找出每一轮中的最小值
integer temp ! 交换数据时使用
!枚举排序
do i=1,n-1
min=a(i) ! 暂时令a(i)是最小值
do j=i+1,n
if ( min > a(j) ) then ! 发现a(i)不是最小
temp=a(j) ! 把a(i)\a(j)交换
a(j)=a(i)
a(i)=temp
min=a(i)
end if
end do
end do
return
end subroutine


这个子程序要是写成GS文件如何实现呢，求救

aa22556688

坐等高手来知道，grads里面的定义数组什么的确实太然人头疼了。