Lines Matching refs:KFJ
69777 KFJ=2*KMUL+1
69778 IF(KMUL.EQ.2) KFJ=10003
69779 IF(KMUL.EQ.3) KFJ=10001
69780 IF(KMUL.EQ.4) KFJ=20003
69781 IF(KMUL.EQ.5) KFJ=5
69821 IF(IDIAG.GT.0) KF=110*IDIAG+KFJ
69822 IF(IDIAG.EQ.0) KF=(100*KFLA+10*KFLB+KFJ)*KFS*(-1)**KFLA
70328 KFJ=2*KMUL+1
70329 IF(KMUL.EQ.2) KFJ=10003
70330 IF(KMUL.EQ.3) KFJ=10001
70331 IF(KMUL.EQ.4) KFJ=20003
70332 IF(KMUL.EQ.5) KFJ=5
70346 KFM=100*KFLA+10*KFLB+KFJ
70355 KFM=110*(ID-2)+KFJ