cubic_roots_rosendo Subroutine

public subroutine cubic_roots_rosendo(parameters, real_roots, complex_roots, flag)

Uses

Arguments

Type IntentOptional Attributes Name
real(kind=pr), intent(in) :: parameters(4)
real(kind=pr), intent(out) :: real_roots(3)
complex(kind=pr), intent(out) :: complex_roots(3)
integer, intent(out) :: flag

Variables

Type Visibility Attributes Name Initial
real(kind=16), public :: A
real(kind=16), public :: B
real(kind=16), public :: Q
real(kind=16), public :: R
real(kind=16), public :: alp
real(kind=16), public :: bet
real(kind=16), public :: d1
real(kind=16), public :: d2
real(kind=16), public :: d3
real(kind=16), public :: gam
integer, public :: i
real(kind=pr), public, parameter :: pi = atan(1.0_pr)*4.0_pr
real(kind=16), public :: theta