Lines Matching refs:WGAP
3 $ MINRGP, RTOL1, RTOL2, W, WERR, WGAP, argument
26 $ WGAP( * ), WORK( * ) local
571 $ WORK(WBEGIN),WGAP(WBEGIN),WERR(WBEGIN),
586 WGAP( WBEGIN+OLDFST-2 ) =
587 $ MAX(WGAP(WBEGIN+OLDFST-2),
592 WGAP( WBEGIN+OLDLST-1 ) =
593 $ MAX(WGAP(WBEGIN+OLDLST-1),
611 WGAP(WBEGIN+J-1) = MAX(WGAP(WBEGIN+J-1),
628 IF(WGAP( WBEGIN + J -1).GE.
638 IF ( WGAP( WBEGIN + J -1).GE.
649 IF( (J.EQ.OLDFST).AND.( WGAP(WBEGIN+J-1).GE.
655 $ ( WGAP(WBEGIN+J-2).GE.
657 $ ( WGAP(WBEGIN+J-1).GE.
662 ELSE IF( (J.GT.NEWFST).AND.WGAP(WBEGIN+J-1).GE.
668 $ (WGAP(WBEGIN+J-1).GE.ENUFGP))
680 IF( (J.EQ.OLDFST).AND.( WGAP(WBEGIN+J-1).GE.
686 $ ( WGAP(WBEGIN+J-2).GE.
688 $ ( WGAP(WBEGIN+J-1).GE.
693 ELSE IF( (J.GT.NEWFST).AND.WGAP(WBEGIN+J-1).GE.
699 $ (WGAP( WBEGIN + J -1).GE.
756 LGAP = WGAP( WBEGIN+NEWFST-2 )
758 RGAP = WGAP( WBEGIN+NEWLST-1 )
768 IF(MGAP.LT.WGAP( WBEGIN+K-1 )) THEN
770 MGAP = WGAP( WBEGIN+K-1 )
809 $ WORK(WBEGIN),WGAP(WBEGIN),
823 $ WGAP(WBEGIN), WERR(WBEGIN), TRYMID,
881 $ WORK(WBEGIN),WGAP(WBEGIN),WERR(WBEGIN),
927 LGAP = WGAP(WINDMN)
932 RGAP = WGAP(WINDEX)
947 SAVEGP = WGAP(WINDEX)
948 WGAP(WINDEX) = GAP
972 $ WORK(WBEGIN),WGAP(WBEGIN),
1116 WGAP( WINDMN ) = MAX( WGAP(WINDMN),
1121 WGAP( WINDEX ) = MAX( SAVEGP,