M3_system.h

/*******************************************************************************
*   M3:  M3_system.h                                                           *
*                                                                              *
*   Version 1.0 May 2004                                                       *
*                                                                              *
*   Copyright (C) 2004  J. Borrill                                             *
*                                                                              *
*   This program is free software; you can redistribute it and/or modify       *
*   it under the terms of the GNU General Public License as published by       *
*   the Free Software Foundation; either version 2 of the License, or          *
*   (at your option) any later version.                                        *
*                                                                              *
*   This program is distributed in the hope that it will be useful,            *
*   but WITHOUT ANY WARRANTY; without even the implied warranty of             *
*   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the              *
*   GNU General Public License for more details.                               *
*                                                                              *
*   You should have received a copy of the GNU General Public License          *
*   along with this program; if not, write to the Free Software                *
*   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  *
*                                                                              *
*******************************************************************************/


#ifndef _H_M3_system
#define _H_M3_system

#include <stdint.h>
#include <math.h>

#ifdef MACH_LONG4
#  define f90strlen int32_t
#else
#  define f90strlen int64_t
#endif

#ifndef MACH_FILE64
#  include <sys/types.h>
#  include <sys/stat.h>
#  define stat64 stat
#  define fseeko64 fseek
#endif

#ifdef MACH_T3E
#  define malloc shmalloc
#  include <fortran.h>
#  define MACH_F77_UPPERCASE
#  define charArg(c) _cptofcd(c, 1)
#else
#  define charArg(c) c
#endif

#ifndef M3_DISK_BUFFER_SIZE
#define M3_DISK_BUFFER_SIZE 8388608
#endif

#ifndef M3_MPI_BUFFER_SIZE
#define M3_MPI_BUFFER_SIZE 8388608
#endif

/* If we are compiling with the C99 standard, some math */
/* constants are no longer defined.  Define them here,  */
/* using the values in math.h                           */

#ifdef __STRICT_ANSI__

# define M_E            2.7182818284590452354   /* e */
# define M_LOG2E        1.4426950408889634074   /* log_2 e */
# define M_LOG10E       0.43429448190325182765  /* log_10 e */
# define M_LN2          0.69314718055994530942  /* log_e 2 */
# define M_LN10         2.30258509299404568402  /* log_e 10 */
# define M_PI           3.14159265358979323846  /* pi */
# define M_PI_2         1.57079632679489661923  /* pi/2 */
# define M_PI_4         0.78539816339744830962  /* pi/4 */
# define M_1_PI         0.31830988618379067154  /* 1/pi */
# define M_2_PI         0.63661977236758134308  /* 2/pi */
# define M_2_SQRTPI     1.12837916709551257390  /* 2/sqrt(pi) */
# define M_SQRT2        1.41421356237309504880  /* sqrt(2) */
# define M_SQRT1_2      0.70710678118654752440  /* 1/sqrt(2) */

typedef char* caddr_t;

struct timezone {
  int  tz_minuteswest; /* minutes W of Greenwich */
  int  tz_dsttime;     /* type of dst correction */
};

#endif

#include "M3_fortran.h"

#endif

---