| /dports/science/siconos/siconos-4.4.0/externals/netlib/dftemplates/double/ |
| H A D | Tester.f | 442 DOUBLE PRECISION DNRM2, SCALEDRESID, SRESID( 9 ) local
474 SRESID( I ) = SCALEDRESID( ANORM, N, X( 1,I ), RK, TOL )
525 IF ( SRESID( I ).LE.SCALEDTOL ) THEN
529 WRITE(10,991) METHOD( I ), RESID( I ), SRESID( I ),
531 WRITE(*,991) METHOD( I ), RESID( I ), SRESID( I ),
536 WRITE(10,992) METHOD( I ), RESID( I ), SRESID( I ),
538 WRITE(*,992) METHOD( I ), RESID( I ), SRESID( I ),
550 WRITE(10,993) METHOD( I ), RESID( I ), SRESID( I ),
552 WRITE(*,993) METHOD( I ), RESID( I ), SRESID( I ),
|
| /dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
| H A D | pclltdriver.f | 94 REAL ANORM, ANORM1, FRESID, RCOND, SRESID, SRESID2,
612 $ ANORM, SRESID, MEM( IPW ) )
614 IF( IAM.EQ.0 .AND. SRESID.GT.THRESH )
615 $ WRITE( NOUT, FMT = 9985 ) SRESID
631 IF( ( SRESID.LE.THRESH ).AND.
632 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
641 SRESID = SRESID - SRESID
828 IF( CHECK .AND. SRESID.GT.THRESH ) THEN
|
| H A D | pdlltdriver.f | 93 $ SRESID, SRESID2, TMFLOPS
607 $ ANORM, SRESID, MEM( IPW ) )
609 IF( IAM.EQ.0 .AND. SRESID.GT.THRESH )
610 $ WRITE( NOUT, FMT = 9985 ) SRESID
626 IF( ( SRESID.LE.THRESH ).AND.
627 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
636 SRESID = SRESID - SRESID
823 IF( CHECK .AND. SRESID.GT.THRESH ) THEN
|
| H A D | pzlltdriver.f | 96 $ SRESID, SRESID2, TMFLOPS
612 $ ANORM, SRESID, MEM( IPW ) )
614 IF( IAM.EQ.0 .AND. SRESID.GT.THRESH )
615 $ WRITE( NOUT, FMT = 9985 ) SRESID
631 IF( ( SRESID.LE.THRESH ).AND.
632 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
641 SRESID = SRESID - SRESID
828 IF( CHECK .AND. SRESID.GT.THRESH ) THEN
|
| H A D | pslltdriver.f | 91 REAL ANORM, ANORM1, FRESID, RCOND, SRESID, SRESID2, variable
608 $ ANORM, SRESID, MEM( IPW ) )
610 IF( IAM.EQ.0 .AND. SRESID.GT.THRESH )
611 $ WRITE( NOUT, FMT = 9985 ) SRESID
627 IF( ( SRESID.LE.THRESH ).AND.
628 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
637 SRESID = SRESID - SRESID
824 IF( CHECK .AND. SRESID.GT.THRESH ) THEN
|
| H A D | pddtdriver.f | 105 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS,
648 SRESID = ZERO
660 $ IBSEED, ANORM, SRESID,
664 IF( SRESID.GT.THRESH )
665 $ WRITE( NOUT, FMT = 9985 ) SRESID
670 IF( ( SRESID.LE.THRESH ).AND.
671 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pcdtdriver.f | 106 REAL ANORM, SRESID, THRESH
650 SRESID = ZERO
662 $ IBSEED, ANORM, SRESID,
666 IF( SRESID.GT.THRESH )
667 $ WRITE( NOUT, FMT = 9985 ) SRESID
672 IF( ( SRESID.LE.THRESH ).AND.
673 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pzdtdriver.f | 107 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS, variable
651 SRESID = ZERO
663 $ IBSEED, ANORM, SRESID,
667 IF( SRESID.GT.THRESH )
668 $ WRITE( NOUT, FMT = 9985 ) SRESID
673 IF( ( SRESID.LE.THRESH ).AND.
674 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | psdtdriver.f | 104 REAL ANORM, SRESID, THRESH variable
648 SRESID = ZERO
660 $ IBSEED, ANORM, SRESID,
664 IF( SRESID.GT.THRESH )
665 $ WRITE( NOUT, FMT = 9985 ) SRESID
670 IF( ( SRESID.LE.THRESH ).AND.
671 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pcgbdriver.f | 114 REAL ANORM, SRESID, THRESH variable
666 SRESID = ZERO
672 $ IBSEED, ANORM, SRESID,
676 IF( SRESID.GT.THRESH )
677 $ WRITE( NOUT, FMT = 9985 ) SRESID
682 IF( ( SRESID.LE.THRESH ).AND.
683 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pdgbdriver.f | 113 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS,
664 SRESID = ZERO
670 $ IBSEED, ANORM, SRESID,
674 IF( SRESID.GT.THRESH )
675 $ WRITE( NOUT, FMT = 9985 ) SRESID
680 IF( ( SRESID.LE.THRESH ).AND.
681 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pdpbdriver.f | 105 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS,
632 SRESID = ZERO
637 $ IBSEED, ANORM, SRESID,
641 IF( SRESID.GT.THRESH )
642 $ WRITE( NOUT, FMT = 9985 ) SRESID
647 IF( ( SRESID.LE.THRESH ).AND.
648 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pdptdriver.f | 105 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS, variable
638 SRESID = ZERO
649 $ IBSEED, ANORM, SRESID,
653 IF( SRESID.GT.THRESH )
654 $ WRITE( NOUT, FMT = 9985 ) SRESID
659 IF( ( SRESID.LE.THRESH ).AND.
660 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pspbdriver.f | 104 REAL ANORM, SRESID, THRESH variable
632 SRESID = ZERO
637 $ IBSEED, ANORM, SRESID,
641 IF( SRESID.GT.THRESH )
642 $ WRITE( NOUT, FMT = 9985 ) SRESID
647 IF( ( SRESID.LE.THRESH ).AND.
648 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pcptdriver.f | 106 REAL ANORM, SRESID, THRESH
653 SRESID = ZERO
664 $ IBSEED, ANORM, SRESID,
668 IF( SRESID.GT.THRESH )
669 $ WRITE( NOUT, FMT = 9985 ) SRESID
674 IF( ( SRESID.LE.THRESH ).AND.
675 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pcpbdriver.f | 106 REAL ANORM, SRESID, THRESH
634 SRESID = ZERO
639 $ IBSEED, ANORM, SRESID,
643 IF( SRESID.GT.THRESH )
644 $ WRITE( NOUT, FMT = 9985 ) SRESID
649 IF( ( SRESID.LE.THRESH ).AND.
650 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pddbdriver.f | 105 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS,
648 SRESID = ZERO
654 $ IBSEED, ANORM, SRESID,
658 IF( SRESID.GT.THRESH )
659 $ WRITE( NOUT, FMT = 9985 ) SRESID
664 IF( ( SRESID.LE.THRESH ).AND.
665 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pzdbdriver.f | 107 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS, variable
651 SRESID = ZERO
657 $ IBSEED, ANORM, SRESID,
661 IF( SRESID.GT.THRESH )
662 $ WRITE( NOUT, FMT = 9985 ) SRESID
667 IF( ( SRESID.LE.THRESH ).AND.
668 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pzgbdriver.f | 115 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS, variable
667 SRESID = ZERO
673 $ IBSEED, ANORM, SRESID,
677 IF( SRESID.GT.THRESH )
678 $ WRITE( NOUT, FMT = 9985 ) SRESID
683 IF( ( SRESID.LE.THRESH ).AND.
684 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pcdbdriver.f | 106 REAL ANORM, SRESID, THRESH variable
650 SRESID = ZERO
656 $ IBSEED, ANORM, SRESID,
660 IF( SRESID.GT.THRESH )
661 $ WRITE( NOUT, FMT = 9985 ) SRESID
666 IF( ( SRESID.LE.THRESH ).AND.
667 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | psdbdriver.f | 104 REAL ANORM, SRESID, THRESH
648 SRESID = ZERO
654 $ IBSEED, ANORM, SRESID,
658 IF( SRESID.GT.THRESH )
659 $ WRITE( NOUT, FMT = 9985 ) SRESID
664 IF( ( SRESID.LE.THRESH ).AND.
665 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | psgbdriver.f | 112 REAL ANORM, SRESID, THRESH
664 SRESID = ZERO
670 $ IBSEED, ANORM, SRESID,
674 IF( SRESID.GT.THRESH )
675 $ WRITE( NOUT, FMT = 9985 ) SRESID
680 IF( ( SRESID.LE.THRESH ).AND.
681 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | psptdriver.f | 104 REAL ANORM, SRESID, THRESH
638 SRESID = ZERO
649 $ IBSEED, ANORM, SRESID,
653 IF( SRESID.GT.THRESH )
654 $ WRITE( NOUT, FMT = 9985 ) SRESID
659 IF( ( SRESID.LE.THRESH ).AND.
660 $ ( (SRESID-SRESID).EQ.0.0E+0 ) ) THEN
|
| H A D | pzpbdriver.f | 107 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS, variable
635 SRESID = ZERO
640 $ IBSEED, ANORM, SRESID,
644 IF( SRESID.GT.THRESH )
645 $ WRITE( NOUT, FMT = 9985 ) SRESID
650 IF( ( SRESID.LE.THRESH ).AND.
651 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|
| H A D | pzptdriver.f | 107 DOUBLE PRECISION ANORM, NOPS, NOPS2, SRESID, TMFLOPS, variable
654 SRESID = ZERO
665 $ IBSEED, ANORM, SRESID,
669 IF( SRESID.GT.THRESH )
670 $ WRITE( NOUT, FMT = 9985 ) SRESID
675 IF( ( SRESID.LE.THRESH ).AND.
676 $ ( (SRESID-SRESID).EQ.0.0D+0 ) ) THEN
|