my ($initial_enthalpy, $initial_entropy) = $terminal[0] =~ /^[GC]/
    ? ($initial_enths[1], $initial_entros[1])
    : (undef undef);