*
      real bcs_pp, bcs_uu, bcs_vv, bcs_ww, bcs_bb, bcs_hu, bcs_tr,
     $     bcs_ppa, bcs_uua, bcs_vva, bcs_wwa, bcs_bba, bcs_hua, bcs_tra
      pointer 
     $   (pbcspp, bcs_pp(*)), (pbcsuu, bcs_uu(*)), (pbcsvv, bcs_vv(*)), 
     $   (pbcsww, bcs_ww(*)), (pbcsbb, bcs_bb(*)), (pbcshu, bcs_hu(*)), 
     $   (pbcstr, bcs_tr(*)),
     $   (pbcsppa,bcs_ppa(*)),(pbcsuua,bcs_uua(*)),(pbcsvva,bcs_vva(*)),
     $   (pbcswwa,bcs_wwa(*)),(pbcsbba,bcs_bba(*)),(pbcshua,bcs_hua(*)),
     $   (pbcstra,bcs_tra(*))
*
      common /bcsmem1/ pbcspp,pbcsuu,pbcsvv,pbcsww,pbcsbb,pbcshu,pbcstr,
     $          pbcsppa,pbcsuua,pbcsvva,pbcswwa,pbcsbba,pbcshua,pbcstra
*