C      do the common calculation
       assign 5500 to N
       goto 1100
 5500  continue