validated f90 version of marching0.f