SUB initial(Lx,Ly,R2cum(),ndiff)
    LET Lx = 5
    LET Ly = 5
    LET ndiff = 10                ! maximum time difference
    FOR idiff = 1 to ndiff
        LET R2cum(idiff) = 0
    NEXT idiff
END SUB