Remove unused file subtr.f90