C******************** F77 file *********************
C  ave.f

        subroutine avef77(m,n,y)
        integer m,n
        real*8 y
C       write(6,*) m
        y = (m+n)/2.0
        return
        end