===================================================
 
 
      PERIODIC DISPERSION UP TO THE THIRD ORDER
 
 
 ===================================================
 
SUBROUTINE PERIODICDISPERSION3(xs, ETA1,ETAP1,ETA2,ETAP2,ETA3,ETAP3)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  DYNMAP
  FIND_D3
 
micromap-index
Mon Jul 17 08:57:33 CEST 2017