/[MITgcm]/MITgcm/eesupp/src/tim.c
ViewVC logotype

Diff of /MITgcm/eesupp/src/tim.c

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

revision 1.5 by cnh, Fri Sep 21 03:54:35 2001 UTC revision 1.6 by edhill, Tue Nov 11 20:38:26 2003 UTC
# Line 1  Line 1 
1  /*  /*
2     * $Header$
3     * $Name$
4    
5  //BOP  //BOP
6  // !ROUTINE: cloc  // !ROUTINE: cloc
7  // !INTERFACE:  // !INTERFACE:
8     cloc(  double *curtim )     cloc(  double *curtim )
9  */  */
10  #ifdef TARGET_LINUX  
11  #undef  FORTRAN_MANGLE_TRAILING_UNDERSCORE  /*  Here, we get the definition of the FC_NAMEMANGLE() macro. */
12  #else  #include "FC_NAMEMANGLE.h"
13  #define FORTRAN_MANGLE_TRAILING_UNDERSCORE  
 #endif  
14  #define TIM_USES_GETTIMEOFDAY  #define TIM_USES_GETTIMEOFDAY
15    
 #ifdef FORTRAN_MANGLE_TRAILING_UNDERSCORE  
 #define procedure_cloc cloc_  
 #else  
 #define procedure_cloc cloc  
 #endif  
16  /*  /*
17  // !DESCRIPTION:  // !DESCRIPTION:
18  // *======================================================*  // *======================================================*
# Line 46  void procedure_cloc ( double *curtim ) Line 43  void procedure_cloc ( double *curtim )
43  #include <unistd.h>  #include <unistd.h>
44  #include <assert.h>  #include <assert.h>
45  #include <sys/time.h>  #include <sys/time.h>
46  void procedure_cloc ( double *curtim )  void FC_NAMEMANGLE(cloc) ( double *curtim )
47  {  {
48   struct timeval tv1;   struct timeval tv1;
49   gettimeofday(&tv1 , (void *)NULL );   gettimeofday(&tv1 , (void *)NULL );
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22