1C
2C
3C
4      SUBROUTINE ZZLGIN( XT , PWRTEN , NLOG )
5C
6C  Return PWRTEN and NTEN such that
7C
8C   PWRTEN .LE. XT .LT. 10*PWRTEN      AND    PWRTEN = 10**NLOG
9C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
10      XL = LOG10( XT ) + .00001
11      NL = MAX( INT( XL ) , -36 )
12      IF( XL .LT. 0. )NL = NL - 1
13      PWRTEN = 10.0 ** NL
14      NLOG   = NL
15      RETURN
16      END
17