subroutine maxm2(k,n,a,b)
    implicit none
    integer,intent(in)::n
    integer,dimension(n),intent(in)::k
    integer,intent(out)::a,b
    ineger,dimension(n)::m
    integer::i,j
    
    
    
    do i=1,n-1
        do j=1,n-i
            if(k(j)<k(j+1)) then
                m(j)=j+1
                m(j+1)=j
            endif
        enddo
    enddo
    
    a=m(1)
    b=m(2)
    return
   end subroutine

算法部分没有看，不知道正不正确，至少定义变量是按照这个方式，好像这个算法效率不怎么高