double precision ois,oir,oi12,eeis,eeir,eei12, + eei1i2,eb,eeb,tm3 common/bseo/ois,oir,oi12,eeis,eeir,eei12, + eei1i2,eb,eeb,tm3(6,4,3)