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

new_com: print command format

parent 9e9c11f7

sources/new_com.F90

+2 −2
Original line number Diff line number Diff line
@@ -1255,8 +1255,8 @@ CONTAINS 
          goto 8888

       endif

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

       write(6,'(10(1x,e13.6))') (rpar(i),i=1,ipars)

       write(99,'(10(1x,e13.6))') (rpar(i),i=1,ipars)

       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)

       goto 8888

    endif