FUNCTION4

 !Program name: FUNCTION4

function f(a,b)

integer :: a

real :: b, f

f=b**2-4*a*b

return

end function

 

program function4

real :: f

print *, 'a=4; b=2.2', '  b^2-4ab= ', f(4, 2.2)

end program

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA