netlib rpoly.f frustration
zwang5_at_hotmail.com
Date: 03/26/05
- Next message: James Van Buskirk: "Re: netlib rpoly.f frustration"
- Previous message: Toon Moene: "Re: Free Fortran compiler that handles Cray-style pointers available?"
- Next in thread: James Van Buskirk: "Re: netlib rpoly.f frustration"
- Reply: James Van Buskirk: "Re: netlib rpoly.f frustration"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 26 Mar 2005 10:48:36 -0800
Dear all,
I am having trouble to use rpoly subroutine found from
http://www.netlib.org/port/prop.upd/rpoly.f
Here is part of the example and I don't know why I got the error
message "leading coeeficient is zero"?
Thanks!
*******
double precision alpha1(3)
print *,'alpha1= ',alpha1
print *,'alpha1(1)=',alpha1(1)
print *,'alpha1(2)=',alpha1(2)
print *,'alpha1(3)=',alpha1(3)
call rpoly(2,alpha1,rootr,rooti)
*******
Output
alpha1= 1. 0.01 0.03
alpha1(1)= 1.
alpha1(2)= 0.01
alpha1(3)= 0.03
ERROR 2 IN
RPOLY - LEADING COEFFICIENT IS ZERO
*****
SUBROUTINE RPOLY(DEGREE,COEFF,ZEROR,ZEROI)
C
C FINDS THE ZEROS OF A POLYNOMIAL WITH REAL COEFFICIENTS.
C
C INPUTS -
C
C COEFF - REAL VECTOR OF THE COEFFICIENTS
C IN ORDER OF DECREASING POWERS.
C
C DEGREE - INTEGER DEGREE OF POLYNOMIAL.
C
C OUTPUTS -
C
C ZEROR, ZEROI - REAL VECTORS OF THE REAL
C AND IMAGINARY PARTS OF THE ZEROS.
C
C
C ERROR STATES -
C
C 1 - DEGREE IS LESS THAN 1
C 2 - LEADING COEFFICIENT IS ZERO
- Next message: James Van Buskirk: "Re: netlib rpoly.f frustration"
- Previous message: Toon Moene: "Re: Free Fortran compiler that handles Cray-style pointers available?"
- Next in thread: James Van Buskirk: "Re: netlib rpoly.f frustration"
- Reply: James Van Buskirk: "Re: netlib rpoly.f frustration"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|