ratio_ftl = ratioftlmem (i)
& gfd, ftlxxmemo, ratio_ftl
_RL ratio_ftl
ratio_ftl = abs( ftlxxmemo - gfd )
ratio_ftl = 1. - gfd/ftlxxmemo
& = ratio_ftl
ratioftlmem ( ichknum ) = ratio_ftl
& ftlxxmemo, gfd, ratio_ftl