Fix PEEQ,ENER,ELSE,E.... csv print trailing comma

efirvida · Jan 22, 2024 · cbdcfa4 · cbdcfa4
1 parent 697597b
commit cbdcfa4
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/printoutintcsv.f b/src/printoutintcsv.f
@@ -399,7 +399,7 @@ subroutine printoutintcsv(prlab,ipkon,lakon,stx,eei,xstate,ener,
             endif
 !
             if(iorien.eq.0) then
-               write(s_unit,'(i0,",",i0,6(",",e13.6))')
+               write(s_unit,'(i0,",",i0,","6(e13.6,:,","))')
      &                       nelem,j,(stx(k,j,nelel),k=1,6)
             else
                call transformatrix(orab(1,iorien),coords(1,j),a)
@@ -455,7 +455,7 @@ subroutine printoutintcsv(prlab,ipkon,lakon,stx,eei,xstate,ener,
             endif
 !
             if(iorien.eq.0) then
-               write(e_unit,'(i0,",",i0,6(",",e13.6))')
+               write(e_unit,'(i0,",",i0,","6(e13.6,:,","))')
      &                       nelem,j,(eei(k,j,nelel),k=1,6)
             else
                call transformatrix(orab(1,iorien),coords(1,j),a)
@@ -511,7 +511,7 @@ subroutine printoutintcsv(prlab,ipkon,lakon,stx,eei,xstate,ener,
             endif
 !
             if(iorien.eq.0) then
-               write(me_unit,'(i0,",",i0,6(",",e13.6))')
+               write(me_unit,'(i0,",",i0,","6(e13.6,:,","))')
      &               nelem,j,(eme(k,j,nelel),k=1,6)
             else
                call transformatrix(orab(1,iorien),coords(1,j),a)
@@ -547,12 +547,12 @@ subroutine printoutintcsv(prlab,ipkon,lakon,stx,eei,xstate,ener,
          enddo
       elseif(prlab(ii)(1:4).eq.'PEEQ') then
          do j=1,mint3d
-            write(pe_unit,'(i0,",",i0,6(",",e13.6))') 
+            write(pe_unit,'(i0,",",i0,","6(e13.6,:,","))') 
      &          nelem,j,xstate(1,j,nelel)
          enddo
       elseif(prlab(ii)(1:4).eq.'ENER') then
          do j=1,mint3d
-            write(ener_unit,'(i0,",",i0,6(",",e13.6))')
+            write(ener_unit,'(i0,",",i0,","6(e13.6,:,","))')
      &           nelem,j,ener(1,j,nelel)
          enddo
       elseif(prlab(ii)(1:4).eq.'SDV ') then