| 24 | 
  | 
 | 
| 25 | 
  | 
  double comf2, comf3, comf4; | 
| 26 | 
  | 
  double dcsidx, dcsidy, dcsidz, dcskdx, dcskdy, dcskdz; | 
| 27 | 
< | 
  double dcsjdx, dcsjdy, dcsjdz; | 
| 27 | 
> | 
  // double dcsjdx, dcsjdy, dcsjdz; | 
| 28 | 
  | 
  double dadxi, dadyi, dadzi; | 
| 29 | 
< | 
  double dadxk, dadyk, dadzk, dadxj, dadyj, dadzj; | 
| 29 | 
> | 
  double dadxk, dadyk, dadzk;//, dadxj, dadyj, dadzj; | 
| 30 | 
  | 
  double daxi, dayi, dazi, daxk, dayk, dazk, daxj, dayj, dazj; | 
| 31 | 
  | 
   | 
| 32 | 
  | 
 | 
| 80 | 
  | 
  dcskdy = dy*denom - comf3*gy; | 
| 81 | 
  | 
  dcskdz = dz*denom - comf3*gz; | 
| 82 | 
  | 
   | 
| 83 | 
< | 
  dcsjdx = -dcsidx - dcskdx; | 
| 84 | 
< | 
  dcsjdy = -dcsidy - dcskdy; | 
| 85 | 
< | 
  dcsjdz = -dcsidz - dcskdz; | 
| 83 | 
> | 
//   dcsjdx = -dcsidx - dcskdx; | 
| 84 | 
> | 
//   dcsjdy = -dcsidy - dcskdy; | 
| 85 | 
> | 
//   dcsjdz = -dcsidz - dcskdz; | 
| 86 | 
  | 
 | 
| 87 | 
  | 
  dadxi = -sinai*dcsidx; | 
| 88 | 
  | 
  dadyi = -sinai*dcsidy; | 
| 92 | 
  | 
  dadyk = -sinai*dcskdy; | 
| 93 | 
  | 
  dadzk = -sinai*dcskdz; | 
| 94 | 
  | 
 | 
| 95 | 
< | 
  dadxj = -dadxi - dadxk; | 
| 96 | 
< | 
  dadyj = -dadyi - dadyk; | 
| 97 | 
< | 
  dadzj = -dadzi - dadzk; | 
| 95 | 
> | 
//   dadxj = -dadxi - dadxk; | 
| 96 | 
> | 
//   dadyj = -dadyi - dadyk; | 
| 97 | 
> | 
//   dadzj = -dadzi - dadzk; | 
| 98 | 
  | 
 | 
| 99 | 
  | 
  daxi = comf4*dadxi; | 
| 100 | 
  | 
  dayi = comf4*dadyi; |