Searched refs:SRNAME (Results 1 - 8 of 8) sorted by relevance

/external/eigen/blas/testing/
H A Dcblat2.f3188 SUBROUTINE XERBLA( SRNAME, INFO )
3207 CHARACTER*6 SRNAME local in subroutine:XERBLA
3225 IF( SRNAME.NE.SRNAMT )THEN
3226 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3233 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Dcblat3.f3384 SUBROUTINE XERBLA( SRNAME, INFO )
3405 CHARACTER*6 SRNAME local in subroutine:XERBLA
3423 IF( SRNAME.NE.SRNAMT )THEN
3424 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3431 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Ddblat2.f3085 SUBROUTINE XERBLA( SRNAME, INFO )
3104 CHARACTER*6 SRNAME local in subroutine:XERBLA
3122 IF( SRNAME.NE.SRNAMT )THEN
3123 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3130 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Ddblat3.f2768 SUBROUTINE XERBLA( SRNAME, INFO )
2789 CHARACTER*6 SRNAME local in subroutine:XERBLA
2807 IF( SRNAME.NE.SRNAMT )THEN
2808 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
2815 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Dsblat2.f3085 SUBROUTINE XERBLA( SRNAME, INFO )
3104 CHARACTER*6 SRNAME local in subroutine:XERBLA
3122 IF( SRNAME.NE.SRNAMT )THEN
3123 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3130 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Dsblat3.f2768 SUBROUTINE XERBLA( SRNAME, INFO )
2789 CHARACTER*6 SRNAME local in subroutine:XERBLA
2807 IF( SRNAME.NE.SRNAMT )THEN
2808 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
2815 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Dzblat2.f3196 SUBROUTINE XERBLA( SRNAME, INFO )
3215 CHARACTER*6 SRNAME local in subroutine:XERBLA
3233 IF( SRNAME.NE.SRNAMT )THEN
3234 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3241 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
H A Dzblat3.f3390 SUBROUTINE XERBLA( SRNAME, INFO )
3411 CHARACTER*6 SRNAME local in subroutine:XERBLA
3429 IF( SRNAME.NE.SRNAMT )THEN
3430 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3437 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',

Completed in 731 milliseconds