subroutine c2fstr( cstr, fstr )

      implicit none

      byte cstr(*)
      character*(*) fstr

      integer*4 i, j

      j = 0
      do i = 1, LEN( fstr )
         if( cstr(i) .eq. 0 ) j = 1
         if( j .eq. 0 ) then
            fstr(i:i) = CHAR( cstr(i) )
         else
            fstr(i:i) = ' '
         end if
      end do

      end