Xerbla.java

package org.mklab.sdpj.gpack.blaswrap;

/**
 * @author koga
 * @version $Revision$, 2009/04/24
 */
public class Xerbla {

  /*
   * -- LAPACK auxiliary routine (preliminary version) -- Univ. of Tennessee,
   * Univ. of California Berkeley, NAG Ltd., Courant Institute, Argonne
   * National Lab, and Rice University February 29, 1992
   * 
   * 
   * Purpose =======
   * 
   * XERBLA is an error handler for the LAPACK routines. It is called by an
   * LAPACK routine if an input parameter has an invalid value. A message is
   * printed and execution stops.
   * 
   * Installers may consider modifying the STOP statement in order to call
   * system-specific exception-handling facilities.
   * 
   * Arguments =========
   * 
   * SRNAME (input) CHARACTER6 The name of the routine which called XERBLA.
   * 
   * INFO (input) INTEGER The position of the invalid parameter in the
   * parameter list of the calling routine.
   */

  /**
   * @param srname srname
   * @param info info
   * @return result
   */
  public int execute(String srname, int info) {
    /* Table of constant values */
    // /* Format strings */
    String fmt_9999 = "(\002 ** On entry to \002,a6,\002 parameter nu" + "mber \002,i2,\002 had \002,\002an illegal value\002)"; //$NON-NLS-1$ //$NON-NLS-2$
    // /* Builtin functions */
    // Cilist io___1 = new Cilist(0, 6, 0, fmt_9999, 0);
    //
    // LibI77.s_wsfe(io___1);
    // LibI77.do_fio(c__1, srname, 6);
    // LibI77.do_fio(c__1, ""+(char)info.intValue(),
    // 4);//sizeof(ineger)は4に設定（暫定）
    // LibI77.e_wsfe();
    //
    // LibI77.s_stop("", 0);
    //
    // /* End of XERBLA */
    System.err.println(fmt_9999);
    return 0;
  }
}