============================================================
 
      This routine will change the cartesian coordinate
      in polar coordinate.
      Input:  (x,y)
      Output: (r,theta) with theta in radians
 
 ============================================================
 
subroutine cccp(x,y)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  messages_n
 
micromap-index
Mon Jul 17 08:57:44 CEST 2017