* numb3.f
        Program BIG
        Real x, y, u, v

        x = 1.5E38
        y = 1000*x
        Print *, x, y
        u = 1/x
        v = 1/y
        Print *, u, v

        End