функция minloc в фортране

Я хочу найти местоположение минимального значения элемента в 2D-массиве. Массив сложный, а первый индекс для первого измерения равен нулю. Однако я хочу, чтобы функция выполняла поиск элементов массива с индексами больше нуля. Могу ли я сделать это ограничение? Код:

Program Prvi

Implicit none

Integer,parameter::Ncv=3,Nsa=4
Complex::A(0:Ncv-1,Nsa)

..........
.........
! and after all calculation i want to find location of minimum element

Write(*,*) minloc(abs(A))

Stop
End program Prvi

person Community    schedule 20.09.2015    source источник