← Back to branch summary

~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to src/blas/f77reference/xerbla.f

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-06-11 15:58:16 UTC
  • mfrom: (1.1.3 upstream)
  • mto: (2.2.21 experimental)
  • mto: This revision was merged to the branch mainline in revision 26.
  • Revision ID: package-import@ubuntu.com-20130611155816-b72z8f621tuhbzn0
Tags: upstream-3.10.1
Import upstream version 3.10.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/blas/f77reference/xerbla.f
 
1
      SUBROUTINE XERBLA(SRNAME,INFO)
 
2
*
 
3
*  -- LAPACK auxiliary routine (preliminary version) --
 
4
*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
 
5
*     November 2006
 
6
*
 
7
*     .. Scalar Arguments ..
 
8
      INTEGER INFO
 
9
      CHARACTER*6 SRNAME
 
10
*     ..
 
11
*
 
12
*  Purpose
 
13
*  =======
 
14
*
 
15
*  XERBLA  is an error handler for the LAPACK routines.
 
16
*  It is called by an LAPACK routine if an input parameter has an
 
17
*  invalid value.  A message is printed and execution stops.
 
18
*
 
19
*  Installers may consider modifying the STOP statement in order to
 
20
*  call system-specific exception-handling facilities.
 
21
*
 
22
*  Arguments
 
23
*  =========
 
24
*
 
25
*  SRNAME  (input) CHARACTER*6
 
26
*          The name of the routine which called XERBLA.
 
27
*
 
28
*  INFO    (input) INTEGER
 
29
*          The position of the invalid parameter in the parameter list
 
30
*          of the calling routine.
 
31
*
 
32
*
 
33
      WRITE (*,FMT=9999) SRNAME,INFO
 
34
*
 
35
      STOP
 
36
*
 
37
 9999 FORMAT (' ** On entry to ',A6,' parameter number ',I2,' had ',
 
38
     +       'an illegal value')
 
39
*
 
40
*     End of XERBLA
 
41
*
 
42
      END