subroutine char the_key
!show vari
make ztab 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