FUNCTION2

 !program name: FUNCTION2

real :: r

func(r) = (4*atan(1.0))*r**2

Print *, 'give the radius of the circle: '

Read *, r

print *, 'the area of the circle is: ', func(r)

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA