Statistics
| Branch: | Revision:

root / synthbench / euroben-ports / base / Fortran-MPI / mod2a / .svn / text-base / eberr.f.svn-base @ 0:839f52ef7657

History | View | Annotate | Download (1.2 kB)

1
      Subroutine eberr( srname, info )
2
! ---------------------------------------------------------------------
3
      Integer     :: info
4
      Character*6 :: srname
5
! ---------------------------------------------------------------------
6
! --- EBERR is an error handler for the EuroBen mod2a routines.
7
!     It is called by the EuroBen mod2a routines if an input parameter
8
!     is invalid.
9
!
10
!     Parameters
11
!     ==========
12
!     SRNAME - Character*6.
13
!              On entry, SRNAME specifies the name of the routine which
14
!              called EBERR.
15
!     INFO   - INTEGER.
16
!              On entry, INFO specifies the position of the invalid
17
!              parameter in the parameter-list of the calling routine.
18
!
19
!     This routine is similar to and after the XERBLA routine for
20
!     the Levels 2 and 3 BLAS.
21
! ---------------------------------------------------------------------
22

    
23
      Write( *,9999 ) srname, info
24
      Stop
25
! ---------------------------------------------------------------------
26
 9999 Format ( ' ** On entry to ', A6, ' parameter number ', I2,
27
     &         ' had an illegal value' )
28
! ---------------------------------------------------------------------
29
      End Subroutine eberr