Subroutine amvprod

subroutine amvprod

        ! Variables
    integer, intent(in) :: m1
    integer, intent(in) :: m2
    integer, intent(in) :: dim
    integer, intent(in) :: flag
    double precision, intent(in), dimension (1:dim) :: D
    double precision, intent(in), dimension (1:dim) :: p
    double precision, intent(inout), dimension (1:m1,1:m2) :: f
    double precision, dimension (1:dim) :: help
    double precision :: l
    double precision :: h
    integer :: i
    integer :: ii
    integer :: j
    integer :: akk
    integer :: count

end subroutine amvprod

Description of Variables

m1

integer, intent(in) :: m1

m2

integer, intent(in) :: m2

dim

integer, intent(in) :: dim

flag

integer, intent(in) :: flag

D

double precision, intent(in), dimension (1:dim) :: D

p

double precision, intent(in), dimension (1:dim) :: p

f

double precision, intent(inout), dimension (1:m1,1:m2) :: f

help

double precision, dimension (1:dim) :: help

l

double precision :: l

h

double precision :: h

i

integer :: i

ii

integer :: ii

j

integer :: j

akk

integer :: akk

count

integer :: count