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

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

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

Revision 1.9 - (show annotations) (download)
Sun Aug 2 20:16:14 2009 UTC (14 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62c, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint63g, checkpoint64, checkpoint62, checkpoint63, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint62b, checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint61v, checkpoint61w, checkpoint61u, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.8: +35 -7 lines 
changed to pass when compiling with strick checking of arguments across S/R
1 C $Header: /u/gcmpack/MITgcm/eesupp/src/fool_the_compiler.F,v 1.8 2004/03/27 03:51:51 edhill Exp $
2 C $Name: $
3
4 #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
13
14 C !ROUTINE: FOOL_THE_COMPILER
15
16 C !INTERFACE:
17 SUBROUTINE FOOL_THE_COMPILER( foolishArg )
18 IMPLICIT NONE
19 C !DESCRIPTION:
20 C *=================================================================*
21 C | SUBROUTINE FOOL\_THE\_COMPILER
22 C | o Dummy routine used to supress compiler behavior.
23 C *=================================================================*
24 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
26 C | thread. Calling this routine introduces the possibility of side
27 C | effects on global data ensuring that memory locs. are reread.
28 C *=================================================================*
29 CEOP
30 INTEGER foolishArg
31 RETURN
32 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
  ViewVC Help
Powered by ViewVC 1.1.22