character*8 function strcnv(dp)
      double precision dp
      character*8 temp
      write(temp,'(a8)') dp
      strcnv=temp
      return
      end