_RL ratio_ftl
ratio_ftl = ABS( ftlxxmemo - gfd )
ratio_ftl = 1. - gfd/ftlxxmemo
tmpplot3(itilepos,jtilepos,layer,itile,jtile) = ratio_ftl
ratioftlmem ( ichknum ) = ratio_ftl
& ftlxxmemo, gfd, ratio_ftl
ratio_ftl = ratioftlmem (i)
ratio_RMS = ratio_RMS + ratio_ftl*ratio_ftl
& i, gfd, ftlxxmemo, ratio_ftl