91 |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
92 |
MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
93 |
MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2) |
MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2) |
94 |
|
ELSE |
95 |
|
Qippp = 0. _d 0 |
96 |
|
Qipp = 0. _d 0 |
97 |
|
Qip = 0. _d 0 |
98 |
|
Qi = 0. _d 0 |
99 |
|
Qim = 0. _d 0 |
100 |
|
Qimm = 0. _d 0 |
101 |
|
Qimmm = 0. _d 0 |
102 |
|
|
103 |
|
MskIpp = 0. _d 0 |
104 |
|
MskIp = 0. _d 0 |
105 |
|
MskI = 0. _d 0 |
106 |
|
MskIm = 0. _d 0 |
107 |
|
MskImm = 0. _d 0 |
108 |
|
MskImmm = 0. _d 0 |
109 |
ENDIF |
ENDIF |
110 |
|
|
111 |
IF (wTrans(i,j).ne.0.) THEN |
IF (wTrans(i,j).ne.0.) THEN |