program f90_MANNING_RECT
    implicit none
    real(8),parameter::gg=9.8
    integer::j,jmax
    real(8)::dh,h,A,R,v,Q
    real(8)::BB,ii,nn
    character(len=50)::dummy

    call getarg(1,dummy);read(dummy,*) BB
    call getarg(2,dummy);read(dummy,*) ii
    call getarg(3,dummy);read(dummy,*) nn


    write(6,'(i4,3f10.5)') 0,BB,ii,nn

    dh=0.01
    jmax=200
    do j=1,jmax
        h=dh*dble(j)
        A=BB*h
        R=BB*h/(BB+2.0D0*h)
        v=1.0D0/nn*R**(2.0D0/3.0D0)*sqrt(ii)
        Q=A*v
        write(6,'(i4,3f10.5)') j,h,Q,v
    end do

end program f90_MANNING_RECT