- my $decompsym = ($data{$c}->{decompsym} or "0");
- my $cfsym = ($data{$c}->{cfsym} or "0");
- my $compsym = ($data{$c}->{compsym} or "0");
+ my $decompsym = ($d->{decompsym} or "0");
+ my $cfsym = ($d->{cfsym} or "0");
+ my $compsym = ($d->{compsym} or "0");
+ my $ccc = ($d->{ccc} or "0");
+ my $gc = ($d->{gc} or "Cn");