{$DS.}T_SUR[6] = SP[13,1];T_SUR[13] = SP[6,1];eta_Q_SGHX=eta_Q[13]; DELTAT_S_SGHX=DELTAT[13]
call INTHX(Ref$,SP[13,1..6],SP[14,1..6],SP[6,1..6],DELTAT[6],eta_Q[13]:eta_Q[6])