ADAS Subroutine xxbass

      subroutine xxbass(a , ia , b, ib , base)
c-----------------------------------------------------------------------
c
c  ****************** fortran77 subroutine: xxbass *********************
c
c  purpose : to scale a number, given in the form a*base^ia such that
c            base <= a < 1/base.
c
c  calling program: general use
c
c  subroutine:
c
c  input : (r*8)   a        = mantissa of number
c  input : (i*4)   ia       = characteristic
c  input : (r*8)   base     = base of number system
c
c  output: (r*8)   b        = modified mantissa of number
c  output: (i*4)   ib       = modified characteristic of number
c
c routines:
c          routine    source    brief description
c          ------------------------------------------------------------
c          i4unit     adas      fetch unit number for output of messages
c
c author:  Hugh Summers
c          JET K1/1/61
c          Tel. 01235-46-4459
c date:    07-05-2008
c
c
c version  : 1.1
c date     : 07-05-2008
c modified : Hugh Summers
c              - first version.
c-----------------------------------------------------------------------
      INTEGER             IA,          IB
      REAL*8              A,           B,           BASE