# tprmpt.f.patch
# K.Furukawa, Sep.18.2006.
# This patch disables multi-line data input prompts
#

*** src/tprmpt.f.org	Sat Aug 19 11:48:37 2000
--- src/tprmpt.f	Mon Sep 18 12:00:08 2006
***************
*** 39,45 ****
            ch=opcode(ipr)
            nc=lnblnk(opcode(ipr))
            pr(1:9)=' ...'//opcode(ipr)(1:nc)//'    '
!           write(lfno,'($,a)')pr(1:9)
          endif
        elseif(lfno .eq. -1)then
          ipr=lfni
--- 39,45 ----
            ch=opcode(ipr)
            nc=lnblnk(opcode(ipr))
            pr(1:9)=' ...'//opcode(ipr)(1:nc)//'    '
! c         write(lfno,'($,a)')pr(1:9)
          endif
        elseif(lfno .eq. -1)then
          ipr=lfni