/*----< usage() >-------------------------------------------------------------*/
static void
usage(int rank, char *progname)
{
#define USAGE "\
Compare the contents of two netCDF files.\n\
[-b] Verbose output\n\
[-q] quiet mode (no output if two files are the same)\n\
[-h] Compare header information only, no variables\n\
[-v var1[,...]] Compare variable(s) <var1>,... only\n\
file1 file2 File names of two input netCDF files to be compared\n"
if (rank == 0) {
printf(" %s [-b] [-q] [-h] [-v ...] file1 file2\n%s", progname, USAGE);
printf(" PnetCDF library version %s\n", ncmpi_inq_libvers());
}
MPI_Finalize();
exit(1);
}
void
IOR_SetVersion_NCMPI(IOR_param_t * test)
{
sprintf(test->apiVersion, "%s (%s)",
test->api, ncmpi_inq_libvers());
} /* IOR_SetVersion_NCMPI() */
/*
* Determine api version.
*/
static void NCMPI_SetVersion(IOR_param_t * test)
{
sprintf(test->apiVersion, "%s (%s)", test->api, ncmpi_inq_libvers());
}
*
* This file is automatically generated by buildiface -infile=../lib/pnetcdf.h -deffile=defs
* DO NOT EDIT
*/
#include "mpinetcdf_impl.h"
#ifdef F77_NAME_UPPER
#define nfmpi_xinq_libvers_ NFMPI_XINQ_LIBVERS
#elif defined(F77_NAME_LOWER_2USCORE)
#define nfmpi_xinq_libvers_ nfmpi_xinq_libvers__
#elif !defined(F77_NAME_LOWER_USCORE)
#define nfmpi_xinq_libvers_ nfmpi_xinq_libvers
/* Else leave name alone */
#endif
/* Prototypes for the Fortran interfaces */
#include "mpifnetcdf.h"
FORTRAN_API int FORT_CALL nfmpi_xinq_libvers_ ( char *v1 FORT_MIXED_LEN(d1) FORT_END_LEN(d1) ){
const char *p = ncmpi_inq_libvers();
int i;
/* d1 is the length of the string passed into the routine */
for (i=0; i<d1 && *p; i++) {
v1[i] = *p++;
}
/* Blank pad */
for (; i<d1; i++) v1[i] = ' ';
return 0;
}
static void usage(void)
{
derror("Usage: %s [ -b ] [ -c ] [ -f ] [ -v version ] [ -x ] [ -o outfile] [ file ... ]",
progname);
derror("PnetCDF library version %s", ncmpi_inq_libvers());
}
