sion_fortran_omp.c File Reference

Fortran API. More...

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "sion.h"
#include "sion_debug.h"
#include "sion_fd.h"
#include "sion_filedesc.h"
#include "sion_omp.h"
#include "sion_fortran_omp.h"

Include dependency graph for sion_fortran_omp.c:

Go to the source code of this file.

Macros
#define	_XOPEN_SOURCE   700

Functions
void	fsion_paropen_omp_c (char *fname, char *file_mode, sion_int64 *chunksize, sion_int32 *fsblksize, int *globalrank, char *newfname, int *sid, int fname_len, int file_mode_len, int newfname_len)
	Fortran wrapper function that calls sion_paropen_omp. More...
void	fsion_parclose_omp_c (int *sid, int *ierr)
	Fortran procedure to close a sion file opened with OpenMP in parallel. More...

Detailed Description

Fortran API.

Author

Ventsislav Petkov

David Montoya

Definition in file sion_fortran_omp.c.

Function Documentation

fsion_parclose_omp_c()

void fsion_parclose_omp_c	(	int *	sid,
		int *	ierr
	)

Fortran procedure to close a sion file opened with OpenMP in parallel.

This function closes the sion in parallel on all tasks included in comm. The communicator should be the same used in the parallel open statement.

Parameters

[in]

sid

sion file handle

Return values

ierr	1 if close is ok

Definition at line 104 of file sion_fortran_omp.c.

fsion_paropen_omp_c()

void fsion_paropen_omp_c	(	char *	fname,
		char *	file_mode,
		sion_int64 *	chunksize,
		sion_int32 *	fsblksize,
		int *	globalrank,
		char *	newfname,
		int *	sid,
		int	fname_len,
		int	file_mode_len,
		int	newfname_len
	)

Fortran wrapper function that calls sion_paropen_omp.

Parameters

[in]	fname	name of file, should equal on all tasks
[in]	file_mode	like the type parameter of fopen ("rb", "wb")
[in,out]	chunksize	chunksize for this task
[in,out]	fsblksize	filesystem blocksize, must be equal on all processors
[in,out]	globalrank	any global unique id for this task will be stored in sion file
[out]	newfname	filename of the new file
[in]	fname_len	(internal) length of the fname string *
[in]	file_mode_len	(internal) length of the file_mode string
[out]	newfname_len	(internal) length of the newfname string
[out]	sid	sion file handle or -1 if error occured

Definition at line 49 of file sion_fortran_omp.c.