Adds helper function that zeros out a 3D real(kind=4) array