src/genmacros.h

Go to the documentation of this file.

#ifndef GENMACROS_H
#define GENMACROS_H

#define retype_arraycp( to_t, to, from, size )                          \
  {                                                                     \
    for( size_t _k = 0; _k < (size); ++_k ) (to)[_k] = (to_t) (from)[_k]; \
  }

#define NC_STATUS_CHECK( f )                                            \
  {                                                                     \
    int status = (f);                                                   \
    if ( status != NC_NOERR )                                           \
      {                                                                 \
        fprintf( stderr, __FILE__ ":%d, netCDF API: ", __LINE__);       \
        fprintf( stderr, "%s\n", nc_strerror( status ) );               \
        exit( status );                                                 \
      }                                                                 \
  }

#ifdef MPI_VERSION

# define message(...)                                                 \
  {                                                                   \
    int my_rank;                                                      \
    MPI_Comm_rank ( MPI_COMM_WORLD, &my_rank );                       \
    if ( my_rank == 0 )                                               \
      {                                                               \
        printf( "(" PROGRAM_NAME_BRIEF ") " __VA_ARGS__ );            \
        printf( "\n" );                                               \
      }                                                               \
  }

#else

# define message(...)                                      \
  {                                                        \
    printf( "(" PROGRAM_NAME_BRIEF ") " __VA_ARGS__ );     \
    printf( "\n" );                                        \
  }

#endif

#define fatal( errcode, ... )                                          \
  {                                                                     \
    fprintf( stderr, __FILE__ ":%d\n", __LINE__ );                      \
    fprintf( stderr, "    Error %d (" PROGRAM_NAME_BRIEF                \
             ") at function %s:\n", errcode, __func__ );                \
    fprintf( stderr, "    " __VA_ARGS__ );                              \
    fprintf( stderr, "\n" );                                            \
    exit( errcode );                                                    \
  }

#define warning( ... )                                                  \
  {                                                                     \
    fprintf( stderr, __FILE__ ":%d\n", __LINE__ );                      \
    fprintf( stderr, "    Warning (" PROGRAM_NAME_BRIEF                 \
             ") at function %s:\n", __func__ );                         \
    fprintf( stderr, "    " __VA_ARGS__ );                              \
    fprintf( stderr, "\n" );                                            \
  }


#endif

---