interface_test/code/fool_the_compiler.F

C $Header: /u/u0/gcmpack/MITgcm/eesupp/src/fool_the_compiler.F,v 1.6 2001/09/21 03:54:35 cnh Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"

CBOP

C      !ROUTINE: FOOL_THE_COMPILER

C      !INTERFACE:
       SUBROUTINE FOOL_THE_COMPILER
       IMPLICIT NONE
C      !DESCRIPTION:
C      *=================================================================*
C      | SUBROUTINE FOOL_THE_COMPILER                                    |
C      | o Dummy routine used to supress compiler behavior.              |
C      *=================================================================*
C      | Routine is used to stop compiler optimizations in which global  |
C      | data is held in a register while it is updated by a separate    |
C      | thread. Calling this routine introduces the possibility of side |
C      | effects on global data ensuring that memory locs. are reread.   |
C      *=================================================================*
CEOP
       RETURN
       END
1	cnh	1.1	C $Header: /u/u0/gcmpack/MITgcm/eesupp/src/fool_the_compiler.F,v 1.6 2001/09/21 03:54:35 cnh Exp $
2			C $Name: $
3
4			#include "CPP_EEOPTIONS.h"
5
6			CBOP
7
8			C !ROUTINE: FOOL_THE_COMPILER
9
10			C !INTERFACE:
11			SUBROUTINE FOOL_THE_COMPILER
12			IMPLICIT NONE
13			C !DESCRIPTION:
14			C =================================================================
15			C \| SUBROUTINE FOOL_THE_COMPILER \|
16			C \| o Dummy routine used to supress compiler behavior. \|
17			C =================================================================
18			C \| Routine is used to stop compiler optimizations in which global \|
19			C \| data is held in a register while it is updated by a separate \|
20			C \| thread. Calling this routine introduces the possibility of side \|
21			C \| effects on global data ensuring that memory locs. are reread. \|
22			C =================================================================
23			CEOP
24			RETURN
25			END