roessler_analytical_fp_csp Subroutine

public subroutine roessler_analytical_fp_csp(fp1, fp2)

Arguments

Type IntentOptional Attributes Name
class(state_vector_csp), intent(out) :: fp1
class(state_vector_csp), intent(out) :: fp2

Source Code

    subroutine roessler_analytical_fp_csp(fp1, fp2)
        class(state_vector_csp), intent(out) :: fp1, fp2

        complex(sp) :: d

        d = sqrt(c_sp**2 - 4*one_im_csp*a_sp*b_sp)

        fp1%z = ( c_sp - d)/(2*one_im_csp*a_sp)
        fp1%x = one_im_csp*a_sp*fp1%z
        fp1%y = -one_im_csp*fp1%z

        fp2%z = ( c_sp + d)/(2*one_im_csp*a_sp)
        fp2%x = one_im_csp*a_sp*fp2%z
        fp2%y = -one_im_csp*fp2%z
    end subroutine roessler_analytical_fp_csp