1 /* -- translated by f2c (version 20191129). 2 You must link the resulting object file with libf2c: 3 on Microsoft Windows system, link with libf2c.lib; 4 on Linux or Unix systems, link with .../path/to/libf2c.a -lm 5 or, if you install libf2c.a in a standard place, with -lf2c -lm 6 -- in that order, at the end of the command line, as in 7 cc *.o -lf2c -lm 8 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g., 9 10 http://www.netlib.org/f2c/libf2c.zip 11 */ 12 13 #include "f2c.h" 14 15 /* Table of constant values */ 16 17 static integer c__1 = 1; 18 19 /* > \brief \b XERBLA 20 21 =========== DOCUMENTATION =========== 22 23 Online html documentation available at 24 http://www.netlib.org/lapack/explore-html/ 25 26 > \htmlonly 27 > Download XERBLA + dependencies 28 > <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/xerbla. 29 f"> 30 > [TGZ]</a> 31 > <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/xerbla. 32 f"> 33 > [ZIP]</a> 34 > <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/xerbla. 35 f"> 36 > [TXT]</a> 37 > \endhtmlonly 38 39 Definition: 40 =========== 41 42 SUBROUTINE XERBLA( SRNAME, INFO ) 43 44 CHARACTER*(*) SRNAME 45 INTEGER INFO 46 47 48 > \par Purpose: 49 ============= 50 > 51 > \verbatim 52 > 53 > XERBLA is an error handler for the LAPACK routines. 54 > It is called by an LAPACK routine if an input parameter has an 55 > invalid value. A message is printed and execution stops. 56 > 57 > Installers may consider modifying the STOP statement in order to 58 > call system-specific exception-handling facilities. 59 > \endverbatim 60 61 Arguments: 62 ========== 63 64 > \param[in] SRNAME 65 > \verbatim 66 > SRNAME is CHARACTER*(*) 67 > The name of the routine which called XERBLA. 68 > \endverbatim 69 > 70 > \param[in] INFO 71 > \verbatim 72 > INFO is INTEGER 73 > The position of the invalid parameter in the parameter list 74 > of the calling routine. 75 > \endverbatim 76 77 Authors: 78 ======== 79 80 > \author Univ. of Tennessee 81 > \author Univ. of California Berkeley 82 > \author Univ. of Colorado Denver 83 > \author NAG Ltd. 84 85 > \date November 2011 86 87 > \ingroup auxOTHERauxiliary 88 89 ===================================================================== igraphxerbla_(char * srname,integer * info,ftnlen srname_len)90 Subroutine */ int igraphxerbla_(char *srname, integer *info, ftnlen srname_len) 91 { 92 /* Format strings */ 93 static char fmt_9999[] = "(\002 ** On entry to \002,a,\002 parameter num" 94 "ber \002,i2,\002 had \002,\002an illegal value\002)"; 95 96 /* Builtin functions */ 97 integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void); 98 /* Subroutine */ int s_stop(char *, ftnlen); 99 100 /* Local variables */ 101 extern integer igraphlen_trim__(char *, ftnlen); 102 103 /* Fortran I/O blocks */ 104 static cilist io___1 = { 0, 6, 0, fmt_9999, 0 }; 105 106 107 108 /* -- LAPACK auxiliary routine (version 3.4.0) -- 109 -- LAPACK is a software package provided by Univ. of Tennessee, -- 110 -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 111 November 2011 112 113 114 ===================================================================== */ 115 116 117 s_wsfe(&io___1); 118 do_fio(&c__1, srname, igraphlen_trim__(srname, srname_len)); 119 do_fio(&c__1, (char *)&(*info), (ftnlen)sizeof(integer)); 120 e_wsfe(); 121 122 s_stop("", (ftnlen)0); 123 124 125 /* End of XERBLA */ 126 127 return 0; 128 } /* igraphxerbla_ */ 129 130