diff options
Diffstat (limited to 'src/macro/TRT_guts.h')
-rw-r--r-- | src/macro/TRT_guts.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/macro/TRT_guts.h b/src/macro/TRT_guts.h index 1424ba8..0a27f17 100644 --- a/src/macro/TRT_guts.h +++ b/src/macro/TRT_guts.h @@ -24,7 +24,7 @@ & UPPERMET_UYZ) - if (shift_state /= SHIFT_INACTIVE) then + if (shift_state .ne. 0) then TRT_TRT = TRT_TRT - TRT_IALP2*(TRT_TXX*TRT_BX*TRT_BX & + TRT_TYY*TRT_BY*TRT_BY + TRT_TZZ*TRT_BZ*TRT_BZ @@ -46,7 +46,7 @@ UPPERMET_UYZ) - if (shift) + if (shift_state != 0) { TRT_TRT = TRT_TRT - TRT_IALP2*(TRT_TXX*TRT_BX*TRT_BX + TRT_TYY*TRT_BY*TRT_BY + TRT_TZZ*TRT_BZ*TRT_BZ |