/[MITgcm]/MITgcm/eesupp/src/fool_the_compiler.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/fool_the_compiler.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by edhill, Sat Mar 27 03:51:51 2004 UTC revision 1.9 by jmc, Sun Aug 2 20:16:14 2009 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6    C--  File fool_the_compiler.F: Routines to prevent compiler to skip pieces of code
7    C--   Contents
8    C--   o FOOL_THE_COMPILER
9    C--   o FOOL_THE_COMPILER_R8
10    
11    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
12  CBOP  CBOP
13    
14  C      !ROUTINE: FOOL_THE_COMPILER  C      !ROUTINE: FOOL_THE_COMPILER
# Line 12  C      !INTERFACE: Line 18  C      !INTERFACE:
18         IMPLICIT NONE         IMPLICIT NONE
19  C      !DESCRIPTION:  C      !DESCRIPTION:
20  C      *=================================================================*  C      *=================================================================*
21  C      | SUBROUTINE FOOL\_THE\_COMPILER                                  |  C      | SUBROUTINE FOOL\_THE\_COMPILER
22  C      | o Dummy routine used to supress compiler behavior.              |  C      | o Dummy routine used to supress compiler behavior.
23  C      *=================================================================*  C      *=================================================================*
24  C      | Routine is used to stop compiler optimizations in which global  |  C      | Routine is used to stop compiler optimizations in which global
25  C      | data is held in a register while it is updated by a separate    |  C      | data is held in a register while it is updated by a separate
26  C      | thread. Calling this routine introduces the possibility of side |  C      | thread. Calling this routine introduces the possibility of side
27  C      | effects on global data ensuring that memory locs. are reread.   |  C      | effects on global data ensuring that memory locs. are reread.
28  C      *=================================================================*  C      *=================================================================*
29  CEOP  CEOP
30         INTEGER foolishArg         INTEGER foolishArg
31         RETURN         RETURN
32         END         END
33    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
34    CBOP
35    
36    C      !ROUTINE: FOOL_THE_COMPILER_R8
37    
38    C      !INTERFACE:
39           SUBROUTINE FOOL_THE_COMPILER_R8( foolishArg )
40           IMPLICIT NONE
41    C      !DESCRIPTION:
42    C      *=================================================================*
43    C      | SUBROUTINE FOOL\_THE\_COMPILER\_R8
44    C      | o Dummy routine used to supress compiler behavior.
45    C      *=================================================================*
46    C      | Routine is used to stop compiler optimizations in which global
47    C      | data is held in a register while it is updated by a separate
48    C      | thread. Calling this routine introduces the possibility of side
49    C      | effects on global data ensuring that memory locs. are reread.
50    C      *=================================================================*
51    CEOP
52           Real*8 foolishArg
53           RETURN
54           END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22