gfd = gfdmem (i)
& gfd, ftlxxmemo, ratio_ftl
& gfd, adxxmemo, ratio_ad
_RL gfd
gfd = (fcpertplus-fcpertminus)
ratio_ad = abs( adxxmemo - gfd )
ratio_ad = 1. - gfd/adxxmemo
ratio_ftl = abs( ftlxxmemo - gfd )
ratio_ftl = 1. - gfd/ftlxxmemo
& = gfd
gfdmem ( ichknum ) = gfd
& ftlxxmemo, gfd, ratio_ftl
& adxxmemo, gfd, ratio_ad