_RL ratio_ad
ratio_ad = ABS( adxxmemo - gfd )
ratio_ad = 1. - gfd/adxxmemo
tmpplot2(itilepos,jtilepos,layer,itile,jtile) = ratio_ad
ratioadmem ( ichknum ) = ratio_ad
& adxxmemo, gfd, ratio_ad
ratio_ad = ratioadmem (i)
ratio_RMS = ratio_RMS + ratio_ad*ratio_ad
& i, gfd, adxxmemo, ratio_ad