SUBROUTINE FINDPRECONE(iprec,isig,val)

C     FINDPRECONE FINDS THE PRECISION OF A VALUE

c***********************************************
c
c    Passed Variables:
c
c     iprec - precision of value
c     isig - number of significant figures in value
c     val - value in question
c
c***********************************************

c***********************************************
c
c   Find the number of significant figures left of the decimal
c
c************************************************

      if ( isig .ge. 0 ) then
       jsig = 0
       call findsignif(jsig,0,val)
       if ( isig .le. 0 ) isig=jsig

c************************************************
c
c    Find precision
c
c************************************************

       iprec = isig - jsig
       if ( iprec .lt. 0 ) iprec=0

c**************************************************************
c
c      See if the precision needs to be adjusted for trace values
c
c**************************************************************

       xp = 10**(iprec)

       if ( val .lt. 1. .and. val .gt. 0.
     *  .and. isig .gt. 0 ) then

        itempt = xp * val
        if ( itempt .eq. 0 ) then
         iprec = iprec+1
        endif

       endif

c    Add this line for values less than 1.0 and
c    greater than -1.0

       if ( val .lt. 1. .and. val .gt. -1. .and.
     *      iprec .eq. 0 ) iprec=1

      else

       iprec=0

      endif

      return
      end