dupa.f

   1        subroutine dupa(x)
   2        double precision x
   3        read (*,*) x
   4        return
   5        end