fixed c&p error in parasm.f90