Commit ac57d346 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

minor user interface tweeks 

print term     (variable) - will now just print to terminal
print filename (variable) - will print to filename and terminal
parent d82f2f9e

sources/drspine.f90

+3 −0
Original line number Diff line number Diff line
@@ -330,6 +330,9 @@ program drspine 
  istat = add_tab_expansion('verbose off')

  istat = add_tab_expansion('verbose default')

  !

  istat = add_tab_expansion('print')

  istat = add_tab_expansion('print term')

  !

  istat = add_tab_expansion('prompt')

  istat = add_tab_expansion('prompt version')

  istat = add_tab_expansion('prompt default')

sources/new_com.F90

+7 −4
Original line number Diff line number Diff line
@@ -1254,10 +1254,13 @@ CONTAINS 
          write(6,*)'print: needs filename'

          goto 8888

       endif

       ! (paz) if filename is "term" or "TERM" - just print to the terminal

       if ( vname(1) /= 'term' .and. vname(1) /= 'TERM' ) then

            open(99,file=vname(1),status='unknown',position='append')

       write(6,'(10(1x,g0.8))') (rpar(i),i=1,ipars)  ! (paz, better format, was e13.6)

            write(99,'(10(1x,g0.8))') (rpar(i),i=1,ipars)

            close(99)

       end if

       write(6,'(10(1x,g0.8))') (rpar(i),i=1,ipars) ! (paz, better format, was e13.6)

       goto 8888

    endif

    !