===================================================== SUBROUTINE TENGINVARIANT(xs,X,W1,W2) COMMONS: common-initi.f common-mml-lattice.f SUBROUTINES USED: TENGPARAM micromap-index Mon Jul 17 08:57:36 CEST 2017