Update get3d.f90