{$DS.}Function FFORMA2D7(r1,r2,Fij$) If (Fij$='F12') Then FFORMA2D7=1 EndIf If (Fij$='F21') Then FFORMA2D7=r1/r2 EndIf If (Fij$='F22') Then FFORMA2D7=1-(r1/r2) EndIf End