83       SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT )  subroutine
91       INTEGER            KNT, LMAX
92       REAL               RMAX
95       INTEGER            NINFO( 2 )
101       REAL               ZERO, HALF, ONE
103       REAL               TWO, THREE
105       INTEGER            LWORK
109       INTEGER            I, IA, IA11, IA12, IA21, IA22, IAM, IB, IC,
110      $                   IC11, IC12, IC21, IC22, ICM, INFO, J  local
111       REAL               BIGNUM, EPS, RES, SMLNUM, TNRM
114       REAL               Q( 4, 4 ), RESULT( 2 ), T( 4, 4 ), T1( 4, 4 ),
115      $                   VAL( 9 ), VM( 2 ), WORK( LWORK )
118       REAL               SLAMCH
192    10          CONTINUE
193    20       CONTINUE
194    30    CONTINUE
195    40 CONTINUE
245    50                   CONTINUE
246    60                CONTINUE
247    70             CONTINUE
248    80          CONTINUE
249    90       CONTINUE
250   100    CONTINUE
251   110 CONTINUE
301   120                   CONTINUE
302   130                CONTINUE
303   140             CONTINUE
304   150          CONTINUE
305   160       CONTINUE
306   170    CONTINUE
307   180 CONTINUE
347   190                                  CONTINUE
348   200                               CONTINUE
400 *     End of SGET34  argument