SUBROUTINE2
!Program name: SUBROUTINE2
program subroutine
implicit none
real :: x, y, z, disc
x = 1.0
y = 5.0
z = 2.0
call discriminant(x, y, z, disc)
Print *, "The value of the discriminant
is"
Print *, disc
end program subroutine
subroutine discriminant (a, b,
c, d)
implicit none
! dummy arguments
real :: a
real :: b
real :: c
real :: d
d = b * b - 4.0 * a * c
end subroutine discriminant
Comentários
Postar um comentário