Subroutine leptos

subroutine leptos

        ! Variables
    integer, intent(in) :: n
    double precision, intent(in), dimension (0:n) :: p
    double precision, intent(in), dimension (0:n,0:n) :: b
    double precision, intent(inout), dimension (0:n) :: s
    integer :: i
    integer :: j
    integer :: k

end subroutine leptos

Description of Variables

n

integer, intent(in) :: n

p

double precision, intent(in), dimension (0:n) :: p

b

double precision, intent(in), dimension (0:n,0:n) :: b

s

double precision, intent(inout), dimension (0:n) :: s

i

integer :: i

j

integer :: j

k

integer :: k