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

      

      
    
      
      

        23
        
        0:839f52ef7657
        louridas
        
      Write( *,9999 ) srname, info


      

      
    
      
      

        24
        
        0:839f52ef7657
        louridas
        
      Stop


      

      
    
      
      

        25
        
        0:839f52ef7657
        louridas
        
! ---------------------------------------------------------------------


      

      
    
      
      

        26
        
        0:839f52ef7657
        louridas
        
 9999 Format ( ' ** On entry to ', A6, ' parameter number ', I2,


      

      
    
      
      

        27
        
        0:839f52ef7657
        louridas
        
     &         ' had an illegal value' )


      

      
    
      
      

        28
        
        0:839f52ef7657
        louridas
        
! ---------------------------------------------------------------------


      

      
    
      
      

        29
        
        0:839f52ef7657
        louridas
        
      End Subroutine eberr