      IF(KUNIT.GE.0 .AND. IOLEV.GE.0)
      WRITE(KUNIT,160) NPRIV,TIME,EPROP(TOTE),EPROP(TOTKE),EPROP(EPOT),
     1                 EPROP(EPOT)-EPROP(TOTKE),EPROP(TEMPS),
     1                 ETERM(BOND),ETERM(ANGLE),ETERM(DIHE),
     &                 ETERM(IMDIHE),ETERM(VDW),ETERM(ELEC),
     &                 ETERM(HBOND),ETERM(CHARM)
##IF APOLLO
  160 FORMAT(I16,14F16.4)
##ELSE
  160 FORMAT(I16,4F16.4,/,5F16.4,/,5F16.4)
##ENDIF

