Statistics
| Branch: | Revision:

root / synthbench / euroben-dm / mod2b / xerbla.f @ 0:839f52ef7657

History | View | Annotate | Download (286 Bytes)

1 
      Subroutine XERBLA(SRName,Info)
2 
      Implicit None
3 
      Character*6 :: SRName
4 
      Integer     :: Info
5 
      Write(*,FMT=9999) SRName,Info
6 
      Stop
7 
 9999 Format(' ** On entry to ',A6,' parameter number ',I2,' had ',
8 
     &      'an illegal value')
9 
      End Subroutine XERBLA