=======================================================================
  (c) Copyright, 2003 by the "brigata meccanica" (c/o Armando Bazzani)
                             Department of Physics, Bologna University
 =======================================================================
 
SUBROUTINE SPECTRUM_B(X,XP,MAXN,TUNE,ZPESI,NARM)
 
COMMONS: 
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:44 CEST 2017