#N101
TEXT(point source, various schemes)
PATCH(SOURCE,VOLUME,3,3,3,3,1,NZ,1,LSTEP)
VALINY=0.0;VALINX=0.0
DO II=NPH1,NPHI
 COVAL(INL1,:II:,FLOLX,VALINY);COVAL(INL2,:II:,FLOLY,VALINX)
 COVAL(SOURCE,:II:,FIXFLU,4.0)
ENDDO
STOP