Create spr_inject.f90