logical         surfl,boufl,disfl,forfl,angfl,reafl,intfl,sidfl,
     &                cprfl
      common /corset/ surfl,boufl,disfl,forfl,angfl,reafl,intfl,sidfl,
     &                cprfl