-
- Double_t zaa1,zaa2,alf1,alf2,alf3;
- Int_t kaai,kaa,maa;
- kaai=*kai;
- kaa=*ka;
- maa=*ma;
- zaa1=*za1;
- zaa2=*za2;
- alf1=*al1;
- alf2=*al2;
- alf3=*al3;
-
- if (kaai==0 ) {
- fa11 = fdBpx[kaa][0][0];
- fa12 = fdBpx[kaa][0][maa];
- fa13 = fdBpx[kaa][0][maa+1];
- fa21 = fdBpx[kaa+1][0][0];
- fa22 = fdBpx[kaa+1][0][maa];
- fa23 = fdBpx[kaa+1][0][maa+1];
- }
- if (kaai==1 ) {
- fa11 = fdBpy[kaa][0][0];
- fa12 = fdBpy[kaa][0][maa];
- fa13 = fdBpy[kaa][0][maa+1];
- fa21 = fdBpy[kaa+1][0][0];
- fa22 = fdBpy[kaa+1][0][maa];
- fa23 = fdBpy[kaa+1][0][maa+1];
- }
- if (kaai==2 ) {
- fa11 = fdBpz[kaa][0][0];
- fa12 = fdBpz[kaa][0][maa];
- fa13 = fdBpz[kaa][0][maa+1];
- fa21 = fdBpz[kaa+1][0][0];
- fa22 = fdBpz[kaa+1][0][maa];
- fa23 = fdBpz[kaa+1][0][maa+1];
+
+ switch (kaai) {
+ case 0:
+ fa11 = fBpx[kaa][0][0];
+ fa12 = fBpx[kaa][0][maa];
+ fa13 = fBpx[kaa][0][maa+1];
+ fa21 = fBpx[kaa+1][0][0];
+ fa22 = fBpx[kaa+1][0][maa];
+ fa23 = fBpx[kaa+1][0][maa+1];
+ break;
+ case 1:
+ fa11 = fBpy[kaa][0][0];
+ fa12 = fBpy[kaa][0][maa];
+ fa13 = fBpy[kaa][0][maa+1];
+ fa21 = fBpy[kaa+1][0][0];
+ fa22 = fBpy[kaa+1][0][maa];
+ fa23 = fBpy[kaa+1][0][maa+1];
+ break;
+ case 2:
+ fa11 = fBpz[kaa][0][0];
+ fa12 = fBpz[kaa][0][maa];
+ fa13 = fBpz[kaa][0][maa+1];
+ fa21 = fBpz[kaa+1][0][0];
+ fa22 = fBpz[kaa+1][0][maa];
+ fa23 = fBpz[kaa+1][0][maa+1];
+ break;
+ default:
+ Fatal("Ba","Invalid value of kaai %d\n",kaai);
+ exit(1);