_RL ratio_ad
ratio_ad = abs( adxxmemo - gfd )
ratio_ad = 1. - gfd/adxxmemo
& = ratio_ad
ratioadmem ( ichknum ) = ratio_ad
& adxxmemo, gfd, ratio_ad
ratio_ad = ratioadmem (i)
& i, gfd, adxxmemo, ratio_ad