Lines Matching refs:WGAP
291 $ RTOL1, RTOL2, W, WERR, WGAP, argument
308 $ WGAP( * ), WORK( * ) local
590 $ WORK(WBEGIN),WGAP(WBEGIN),WERR(WBEGIN),
605 WGAP( WBEGIN+OLDFST-2 ) =
606 $ MAX(WGAP(WBEGIN+OLDFST-2),
611 WGAP( WBEGIN+OLDLST-1 ) =
612 $ MAX(WGAP(WBEGIN+OLDLST-1),
630 ELSE IF ( WGAP( WBEGIN + J -1).GE.
681 LGAP = WGAP( WBEGIN+NEWFST-2 )
683 RGAP = WGAP( WBEGIN+NEWLST-1 )
700 $ WORK(WBEGIN),WGAP(WBEGIN),
726 $ WGAP(WBEGIN), WERR(WBEGIN),
805 LGAP = WGAP(WINDMN)
815 RGAP = WGAP(WINDEX)
833 SAVGAP = WGAP(WINDEX)
834 WGAP(WINDEX) = GAP
855 $ WORK(WBEGIN),WGAP(WBEGIN),
1014 WGAP( WINDMN ) = MAX( WGAP(WINDMN),
1019 WGAP( WINDEX ) = MAX( SAVGAP,