fork download

	program esfera
        implicit none
 
	integer :: i
	real :: xi, xf, tp, y, x, n, k, nc, dydx
 
	xi=0.
	xf=5.
	tp=.1
	y=0.
	x=xi
        n=2.
	k=5.
 
	nc=(xf-xi)/tp  !intervalo
 
 
        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:1.1:

 program esfera
 1
Warning: Nonconforming tab character at (1)
prog.f95:4.1:

 integer :: i
 1
Warning: Nonconforming tab character at (1)
prog.f95:5.1:

 real :: xi, xf, tp, y, x, n, k, nc, dydx
 1
Warning: Nonconforming tab character at (1)
prog.f95:7.1:

 xi=0.
 1
Warning: Nonconforming tab character at (1)
prog.f95:8.1:

 xf=5.
 1
Warning: Nonconforming tab character at (1)
prog.f95:9.1:

 tp=.1
 1
Warning: Nonconforming tab character at (1)
prog.f95:10.1:

 y=0.
 1
Warning: Nonconforming tab character at (1)
prog.f95:11.1:

 x=xi
 1
Warning: Nonconforming tab character at (1)
prog.f95:13.1:

 k=5.
 1
Warning: Nonconforming tab character at (1)
prog.f95:15.1:

 nc=(xf-xi)/tp  !intervalo
 1
Warning: Nonconforming tab character at (1)
prog.f95:22.9:

         dydx=9.81-9.81*k*(y**n)
         1
Warning: Nonconforming tab character at (1)
prog.f95:23.1:

  y=y+tp*dxdy
 1
Warning: Nonconforming tab character at (1)
prog.f95:24.1:

  x=x+tp
 1
Warning: Nonconforming tab character at (1)
prog.f95:26.9:

         Print *, x, y
         1
Warning: Nonconforming tab character at (1)
prog.f95:30.1:

 end program esfera
 1
Warning: Nonconforming tab character at (1)
prog.f95:23.13:

  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