Subroutine leptos2

subroutine leptos2

        ! Variables
    integer, intent(in) :: n
    integer, intent(in) :: nf
    integer, intent(in) :: m
    double precision, intent(in), dimension (0:n,0:n) :: bn
    double precision, intent(in), dimension (0:m,0:m) :: bm
    double precision, intent(inout), dimension (0:nf,0:m) :: f
    double precision, intent(inout), dimension (0:n,0:m) :: s

end subroutine leptos2

Description of Variables

n

integer, intent(in) :: n

nf

integer, intent(in) :: nf

m

integer, intent(in) :: m

bn

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

bm

double precision, intent(in), dimension (0:m,0:m) :: bm

f

double precision, intent(inout), dimension (0:nf,0:m) :: f

s

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