fork download

copy

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

prog.f95:23.27:

                y=y+tp*dxdy
                           1
Error: Symbol 'dxdy' at (1) has no IMPLICIT type
prog.f95:20.15:

        do i=1, nc
               1
Error: Deleted feature: End expression in DO loop at (1) must be integer

Standard output is empty