SUBROUTINE PTXPIP C C This is a trivial subroutine to copy lines from one C logical unit (LOONRS) to another (LOONOU). This exists C mainly to reduce the size of PTX.FTN (134 byte buffer used). C C modification history: C C 21 april 83 hg initial edit C C C================================================================================= C