added shared.f90