doacross3.f90 7.28 KB