=====================================================
 
SUBROUTINE TENGMAT(xs,AM1,An2,Am3,AN4)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  lineariz_k1_j1_lattice
  DYNMAP
  lineariz_k1_j1_lattice_back
 
micromap-index
Mon Jul 17 08:57:36 CEST 2017