program testvariable
      double precision x,y,z
      character*20 nama
!  the following line will ask the user to input 3 values
      print*, 'key in values for x, y and z'
      read*, x,y,z
      print 30, x,y,z
30    format('you have typed in ',d11.3,', ',/,d13.5,' and ',/,d10.2)
!      print*,'please type your name'
!      read*,nama
!     print*,'so, your name is ',nama,'?'
!      print 20, x,y,z
20    format(f6.3,f5.3,f5.3)
      end