C --- SIMPLE DEMO FORTRAN SOURCE PROGRAM ---
C (SEE f_to_web.web FOR ITS web TRANSLATION)

	program main
        integer i
        real x
        common/test/ x,i

C Initialize values.
        x = -3.14159e-11
        i = 1

C Print results.
        call see
        end

        subroutine see
        integer i
        real x
        common/test x,i

        write(6,100) x,i
100     format('x = ',1pe10.2,', i = ',i2)
        return
        end

        integer function f(a,b,n)
        integer n
        real a(0:n-1),b(0:n-1)

        integer k

        do 10 k=0,n-1
                a(k) = k
                b(k) = k**2
10      continue

        f = n
        return
        end
