===========================================================
 
      Write lines for plotting resonance lines.
      It writes two files.
 
       first  file on unit 80 ( 4 coordinates of a line + nor)
       second file on unit 83 (nx, ny, nw, angle)
 
 ===========================================================
 
subroutine linea(nx,ny,nw,nor,flag)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  cccp
 
micromap-index
Mon Jul 17 08:57:34 CEST 2017