main

!
program main
    use Degree_row_module
    implicit none
    integer :: str, i
    integer, allocatable :: n(:)
    real(8), allocatable :: x(:), y(:), d(:)
    real(8) :: low, high
    real(8), parameter :: E = 1.0e-15
    !
    write (*,'(a$)') 'Enter number of strings: '
    read (*,*) str
    write (*,'(a$)') 'Enter low and high: '
    read (*,*) low, high
    !
    allocate(n(str))
    allocate(x(str))
    allocate(y(str))
    allocate(d(str))
    !
    n(:) = 0
    d(:) = 0.0d0
    y(:) = 0.0d0
    do i =1,str
        x(i) = low + ( ( (high-low)/(str-1) )*(i-1) )
    end do
    call ryad(str,x,n,y,d,E)
    call output(str,x,n,y,d)
    deallocate(n)
    deallocate(x)
    deallocate(y)
    deallocate(d)
end program main