small changes to polymer.f90