C     @(#)chival0.f	1.2     03/24/98
C
      character*(*) function chival0 (number)

      integer number

c   **************************************************************
c   * an integer*4 is supplied in NUMBER,  this function will plant
c   *      it right justified into the CHIVAL0 character string with
c   *      leading zeros - will put in stars if number is too large
c   * uses DEC Fortran extensions
c   **************************************************************
c  old version was    call chvxi0 (ival, chival0, 10)


      call chvxi0 (number, chival0, 10)


cjw   lenchi = len(chival0)
cjw   if (number .ge. 0) then
cjw     write (chival0, '(i<lenchi>.<lenchi>)'), number
cjw   else
cjw     write (chival0, '(i<lenchi>.<lenchi-1>)'), number
cjw   end if

ccc        character*20 formt
ccc   lenchi = len(chival0)
cccc     write(6,*) 'chival0: ', number,lenchi
ccc        if(number.ge.0) then
ccc     write(formt,'(''(i'',i3.3,''.'',i3.3,'')'')') lenchi,lenchi
ccc        else
ccc     write(formt,'(''(i'',i3.3,''.'',i3.3,'')'')') lenchi,lenchi-1
ccc        endif
cccc     write(6,*) ':'//formt//':'
ccc        write(chival0,formt) number
cccc     write(6,*) 'chival0: thru'


      return
      end