12 |
IMPLICIT NONE |
IMPLICIT NONE |
13 |
C !DESCRIPTION: |
C !DESCRIPTION: |
14 |
C *=================================================================* |
C *=================================================================* |
15 |
C | SUBROUTINE FOOL_THE_COMPILER | |
C | SUBROUTINE FOOL\_THE\_COMPILER | |
16 |
C | o Dummy routine used to supress compiler behavior. | |
C | o Dummy routine used to supress compiler behavior. | |
17 |
C *=================================================================* |
C *=================================================================* |
18 |
C | Routine is used to stop compiler optimizations in which global | |
C | Routine is used to stop compiler optimizations in which global | |