Searched refs:BCvecs (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genbc.f | 193 real*8 BCvecs(2,nsd) local
439 BCvecs(1,1:3)=e1(:)
440 BCvecs(2,1:3)=e2(:)
442 BCtmp(nn,4:6)=BCvecs(ivec(1),1:3)
443 BCtmp(nn,8:10)=BCvecs(ivec(2),1:3)
445 BCtmp(nn,4:6)=BCvecs(ivec(1),1:3)
446 BCtmp(nn,8:10)=BCvecs(ivec(3),1:3)
448 BCtmp(nn,4:6)=BCvecs(ivec(2),1:3)
449 BCtmp(nn,8:10)=BCvecs(ivec(3),1:3)
|