doacross3.f90 7.2 KB