Subroutine le_disk

subroutine le_disk

        ! Variables
    integer :: N
    integer :: flag
    double precision, dimension (1:N) :: d
    double precision, dimension (1:N) :: u
    integer :: i
    double precision :: c1
    double precision :: c2
    double precision :: c3

end subroutine le_disk

Description of Variables

N

integer :: N

flag

integer :: flag

d

double precision, dimension (1:N) :: d

u

double precision, dimension (1:N) :: u

i

integer :: i

c1

double precision :: c1

c2

double precision :: c2

c3

double precision :: c3