==================F function =========================
 
subroutine F_function(xs,S2,ff)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  PERIODICDISPERSION
  DYNMAP
  BETANEW
 
micromap-index
Mon Jul 17 08:57:33 CEST 2017