SSG44

【機能】

    3次方程式の解を求める


【使用形式】

    CALL  SSG44(ZA,ZB,ZC,ZD,X,IR)


【引数説明】

    ［INPUT］
        ZA〜ZD : 3次方程式の係数（ZA≠0）

    ［OUTPUT］                  X       
        X(3)       : 実根   +----+   
                            | X1 |   
                            +----+   
                            | X2 |   
                            +----+   
                            | X3 |   
                            +----+   
        IR       : リターンフラグ  
                      0 ; 1実根     
                      1 ; 2実根     
                      2 ; 3実根     
                     -1 ; 入力エラー 

【機能説明】

    ・2次方程式ax**3+bx**2+cx+d=0（a≠0）の実根を求める。
    ・ZA=0の時、IR=-1を出力する。