======================================================================
 
subroutine mult(x1,z1,x2,z2, vpos, r,ncol)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:35 CEST 2017