47 |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
48 |
& - diffKr(i,j,k,bi,bj) ) |
& - diffKr(i,j,k,bi,bj) ) |
49 |
#else |
#else |
50 |
& - diffKrT ) |
& - diffKrNrT(k) ) |
51 |
#endif |
#endif |
52 |
ENDDO |
ENDDO |
53 |
ENDDO |
ENDDO |
59 |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
#if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)) |
60 |
& - diffKr(i,j,k,bi,bj) ) |
& - diffKr(i,j,k,bi,bj) ) |
61 |
#else |
#else |
62 |
& - diffKrS ) |
& - diffKrNrS(k) ) |
63 |
#endif |
#endif |
64 |
ENDDO |
ENDDO |
65 |
ENDDO |
ENDDO |