diff --git a/fortran/trimspNL.F b/fortran/trimspNL.F
index acda783..0f1ecba 100644
--- a/fortran/trimspNL.F
+++ b/fortran/trimspNL.F
@@ -2367,6 +2367,8 @@ C
  1412    FORMAT(/1X,I3,6H.LAYER,1X,1F8.2,2F7.2,5F6.0,5F7.2,5F6.3)
  5113    FORMAT(6X,'ADDITIONAL ELEMENTS:     J      Z       M       C')
  5111    FORMAT(6X,23X,I3,1X,F6.0,1X,F7.2,1X,F8.5)
+ 5114    FORMAT(6X,'ADDITIONAL ELEMENTS:     J    SBE      ED      BE')
+ 5115    FORMAT(6X,23X,I3,1X,F6.2,1X,F7.2,1X,F8.2)
       ENDDO
       WRITE(21,1414)
  1414 FORMAT(//27X,'***',2X,'SBE(LAYER,ELEMENT)',2X,'***',5X
@@ -2376,9 +2378,9 @@ C
          WRITE(21,1418) I,(SBE(I,J),J=1,5),(ED(I,J),J=1,5),(BE(I,J),J=1
      &        ,5)
          IF(NJ(I).GT.5) THEN
-            WRITE(21,5113)
+            WRITE(21,5114)
             DO J=6,NJ(I)
-               WRITE(21,5111) J,SBE(I,J),ED(I,J),BE(I,J)
+               WRITE(21,5115) J,SBE(I,J),ED(I,J),BE(I,J)
             ENDDO
          ENDIF
  1418    FORMAT(/1X,I3,6H.LAYER,17X,5F6.2,3X,5F7.2,3X,5F6.2)