~ubuntu-branches/ubuntu/lucid/pdl/lucid

« back to all changes in this revision

Viewing changes to Lib/Slatec/slatec/xerbla.f

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Lib/Slatec/slatec/xerbla.f

 

1

*DECK XERBLA

 

2

      SUBROUTINE XERBLA (SRNAME, INFO)

 

3

C***BEGIN PROLOGUE  XERBLA

 

4

C***SUBSIDIARY

 

5

C***PURPOSE  Error handler for the Level 2 and Level 3 BLAS Routines.

 

6

C***LIBRARY   SLATEC

 

7

C***CATEGORY  R3

 

8

C***TYPE      ALL (XERBLA-A)

 

9

C***KEYWORDS  ERROR MESSAGE

 

10

C***AUTHOR  Dongarra, J. J., (ANL)

 

11

C***DESCRIPTION

 

12

C

 

13

C  Purpose

 

14

C  =======

 

15

C

 

16

C  It is called by Level 2 and 3 BLAS routines if an input parameter

 

17

C  is invalid.

 

18

C

 

19

C  Parameters

 

20

C  ==========

 

21

C

 

22

C  SRNAME - CHARACTER*6.

 

23

C           On entry, SRNAME specifies the name of the routine which

 

24

C           called XERBLA.

 

25

C

 

26

C  INFO   - INTEGER.

 

27

C           On entry, INFO specifies the position of the invalid

 

28

C           parameter in the parameter-list of the calling routine.

 

29

C

 

30

C***REFERENCES  (NONE)

 

31

C***ROUTINES CALLED  XERMSG

 

32

C***REVISION HISTORY  (YYMMDD)

 

33

C   860720  DATE WRITTEN

 

34

C   910610  Routine rewritten to serve as an interface between the

 

35

C           Level 2 and Level 3 BLAS routines and the SLATEC error

 

36

C           handler XERMSG.  (BKS)

 

37

C***END PROLOGUE  XERBLA

 

38

C

 

39

C     ..    Scalar Arguments ..

 

40

      INTEGER            INFO

 

41

      CHARACTER*6        SRNAME

 

42

      CHARACTER*2        XERN1

 

43

C

 

44

C***FIRST EXECUTABLE STATEMENT  XERBLA

 

45

C

 

46

      WRITE (XERN1, '(I2)') INFO

 

47

      CALL XERMSG ('SLATEC', SRNAME, 'On entry to '//SRNAME//

 

48

     $             ' parameter number '//XERN1//' had an illegal value',

 

49

     $             INFO,1)

 

50

C

 

51

      RETURN

 

52

C

 

53

C     End of XERBLA.

 

54

C

 

55

      END

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1