double precision lap(nalstm) integer nalv(nam,nam) double complex cebt(nalstm) common / lapc / lap, nalv, cebt