fork download

        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
        V=0.0
        t=xi
        n=2.0
        k=-0.5
 
        nc=20
 
 
        print*,t,V
 
        do i=1,nc
 
                dVdt=9.81-9.81*k*(V**n)
                y=y+tp*dVdt
                t=t+tp
 
                Print *, t, V
 
        enddo
 
        end program esfera

prog.f95:22.20:

                dVdt=9.81-9.81*k*(V**n)
                    1
Error: Symbol 'dvdt' at (1) has no IMPLICIT type
prog.f95:23.17:

                y=y+tp*dVdt
                 1
Error: Symbol 'y' at (1) has no IMPLICIT type

Standard output is empty