modified:   b.f90