============================================================== write the resonance line in the file of unit 80 ============================================================== subroutine resline(qxmin,qxmax,qymin,qymax,nsuper,norder) COMMONS: common-initi.f SUBROUTINES USED: linea micromap-index Mon Jul 17 08:57:35 CEST 2017