C ELM7D        WORK SPACE FOR CALCULATING BEAM CENTROID
C
C COT(6)       NEW CENTROID POSITION TO SPECIFIED ORDER
C
      REAL            COT(6)
C
      COMMON /ELM7D/  COT