00101 {
00102 Real64 res =
00103 SB(1 ,0,band,1)*SB(0,1,band,2)*SB(0,0,band,0)+
00104 SB(1 ,0,band,2)*SB(0,1,band,0)*SB(0,0,band,1)+
00105 SB(1,0,band,0)*SB(0,1,band,1)*SB(0,0,band,2)-
00106 SB(1,0,band,0)*SB(0,1,band,2)*SB(0,0,band,1)-
00107 SB(1,0,band,1)*SB(0,1,band,0)*SB(0,0,band,2)-
00108 SB(1,0,band,2)*SB(0,1,band,1)*SB(0,0,band,0);
00109
00110 res/=(SB(0,0,band,2)*SB(0,0,band,1)*SB(0,0,band,0));
00111 return res;
00112 }