C-----------------------------------------------------------------------
                             C O M M O N /BOCO/
     & PDB(LB,2),TB(LB,LM,2),QB(LB,LM,2),UB(LB,LM,2),VB(LB,LM,2)
     &,         Q2B(LB,LM,2),          CWMB(LB,LM,2)
C-----------------------------------------------------------------------
                             save /BOCO/