.ENABLE SUBSTITUTION
F77 'P1'='P1'/-TR/-WR