*=*=*=*= zerophys.html =*=*=*=* SUBROUTINE zerophys
SUBROUTINE zerophys(n,x) IMPLICIT NONE INTEGER n REAL x(n) INTEGER i DO i=1,n x(i)=0. ENDDO RETURN END