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 |