======================================================
 
 
      COMPUTE COMPACTION MOMENTUM UP TO THE THIRD ORDER
      (Accelerated version!)
 
 ======================================================
 
SUBROUTINE COMPACTION3A(AP1,AP2,AP3)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  DYNMAP
  FIND_D3
 
micromap-index
Mon Jul 17 08:57:32 CEST 2017