sion_serial.c

Go to the documentation of this file.

/****************************************************************************
**  SIONLIB     http://www.fz-juelich.de/jsc/sionlib                       **
*****************************************************************************
**  Copyright (c) 2008-2019                                                **
**  Forschungszentrum Juelich, Juelich Supercomputing Centre               **
**                                                                         **
**  See the file COPYRIGHT in the package base directory for details       **
****************************************************************************/
 
#define _XOPEN_SOURCE 700
 
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <assert.h>
 
#include <sys/time.h>
 
#include "sion_debug.h"
#include "sion_filedesc.h"
#include "sion_internal.h"
#include "sion_printts.h"
 
#include "sion_const.h"
#include "sion_common.h"
#include "sion_serial.h"
 
 
int sion_open(char *fname, const char *file_mode, int *ntasks, int *nfiles, sion_int64 **chunksizes, sion_int32 *fsblksize, int **globalranks, FILE **fileptr)
{
 
  int     sid=0;
 
  DPRINTFP((1, "sion_open", 0, "enter open of file %s in %s mode\n", fname, file_mode));
  
  sid=_sion_open(fname,file_mode,ntasks,nfiles,chunksizes,fsblksize,globalranks,fileptr);
 
  return (sid);
 
}
 
int sion_open_rank(char *fname, const char *file_mode, sion_int64 *chunksize, sion_int32 *fsblksize, int *rank, FILE **fileptr)
{
  int             sid;
 
  /*                                                                      */ DPRINTFTS(*rank, "before open rank");
  DPRINTFP((1, "sion_open_rank", *rank, "enter open of file %s in %s mode\n", fname, file_mode));
  sid=_sion_open_rank(fname, file_mode, chunksize, fsblksize, rank, fileptr);
  DPRINTFP((1, "sion_open_rank", 0, "leave open of file %s in %s mode sid=%d\n", fname, file_mode,sid));
  /*                                                                      */ DPRINTFTS(*rank, "after open rank");
 
  return (sid);
 
}
 
int sion_close(int sid)
{
 
  int       rc = 0;
  DPRINTFP((1, "sion_close", -1, "enter close   sid=%d\n", sid));
  rc=_sion_close_sid(sid);
  DPRINTFP((1, "sion_close", -1, "leave close   sid=%d\n", sid));
 
  sion_dclose();
 
  return (rc);
}