================================================================
 
subroutine load_pinch_dipole(n)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  messages_n
 
micromap-index
Mon Jul 17 08:57:48 CEST 2017