I irecglob,
integer ivar, irec, irecglob,active_varnum
& irecglob)
vec_tmp(nactive_var+1)=irecglob
integer irec, irecglob,active_varnum