bug: Remove extra item in IO list in write_subs

e7c542bd · Alberto Garcia · Alberto · 99c7bd1e · e7c542bd
Commit e7c542bd authored Dec 01, 2020 by Alberto Garcia Committed by Alberto Dec 01, 2020
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 1 deletion

Src/write_subs.F Src/write_subs.F +0 -1

No files found.
--- a/Src/write_subs.F
+++ b/Src/write_subs.F
@@ -115,7 +115,6 @@
               ps = mstress + kin_stress
               write(6,'(/,a,6f12.2)')
     .   'Inter molecular stress Voigt[x,y,z,yz,xz,xy] (kbar):',
-     .           ' (kbar):',
     .           (ps(jx,jx)/kbar,jx=1,3),
     $            ps(2,3)/kbar,
     $            ps(1,3)/kbar,