subroutine char the_key
! show vari
make ztab init from ctab select the_key end
calculate internal select the_key end
rename atom aaaa select the_key end auto
topology append select the_key end
return