program test

      double precision :: a, b
      a = 16988888899.99999
      b = 5553.00000
      knum1=90
      write(knum1)a,b 

      STOP
      END