Skip to content
Snippets Groups Projects
Commit e5378d2d authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

Remove automatically generated files of the Fortran interface.

parent 063cbbe8
No related branches found
No related tags found
2 merge requests!34Version 2.2.0,!16Remove Fortran interface files from the repo
Expand all Hide whitespace changes
Inline Side-by-side
src/Makefile.am
+ 10
− 17
View file @ e5378d2d
......@@ -286,30 +286,23 @@ endif
endif
if MAINTAINER_MODE
cdiFortran.c cdi.inc: $(srcdir)/cdi.h make_fint
cdiFortran.c cdi.inc: cdi.h make_fint
$(AM_V_GEN)$(top_builddir)/libtool --mode=execute ./make_fint -o $(@D) $<
cdi.inc: cdiFortran.c
cdipioFortran.c cdipio.inc: $(srcdir)/cdipio.h make_fint
cdipioFortran.c cdipio.inc: cdipio.h make_fint
$(AM_V_GEN)$(top_builddir)/libtool --mode=execute ./make_fint -o $(@D) $<
cdipio.inc: cdipioFortran.c
mo_cdi.f90: $(srcdir)/cdi.h $(top_srcdir)/interfaces/f2003/bindGen.rb
mo_cdi.f90: cdi.h $(top_srcdir)/interfaces/f2003/bindGen.rb
$(AM_V_GEN)$(RUBY) $(top_srcdir)/interfaces/f2003/bindGen.rb $< $@
# Update files in $(srcdir) when building out-of-source:
$(srcdir)/cdiFortran.c $(srcdir)/cdi.inc:
$(srcdir)/cdipioFortran.c $(srcdir)/cdipio.inc:
$(srcdir)/mo_cdi.f90:
# Update files in any configuration:
BUILT_SOURCES = \
cdi.inc \
cdiFortran.c \
cdipio.inc \
cdipioFortran.c \
mo_cdi.f90
endif MAINTAINER_MODE
else !MAINTAINER_MODE
cdiFortran.c cdi.inc cdipioFortran.c cdipio.inc mo_cdi.f90:
@:;{ \
echo "ERROR: cannot generate '$@' when the maintainer mode is disabled:"; \
echo " re-configure with the '--enable-maintainer-mode' option"; \
} >&2; exit 1
endif !MAINTAINER_MODE
if FORTRAN_MOD_UC
MO_CDI.$(FCMODEXT): mo_cdi.lo
......
src/cdi.inc deleted 100644 → 0
+ 0
− 2601
View file @ 063cbbe8
This diff is collapsed.
src/cdiFortran.c deleted 100644 → 0
+ 0
− 802
View file @ 063cbbe8
This diff is collapsed.
src/cdipio.inc deleted 100644 → 0
+ 0
− 197
View file @ 063cbbe8
! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 1.9.4rc1
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, February 2018
!
!
! parallel IO IOMode
!
INTEGER PIO_NONE
PARAMETER (PIO_NONE = 0)
INTEGER PIO_MPI
PARAMETER (PIO_MPI = 1)
INTEGER PIO_WRITER
PARAMETER (PIO_WRITER = 2)
INTEGER PIO_ASYNCH
PARAMETER (PIO_ASYNCH = 3)
INTEGER PIO_FPGUARD
PARAMETER (PIO_FPGUARD = 4)
INTEGER PIO_MPI_FW_ORDERED
PARAMETER (PIO_MPI_FW_ORDERED = 5)
INTEGER PIO_MPI_FW_AT_ALL
PARAMETER (PIO_MPI_FW_AT_ALL = 6)
INTEGER PIO_MPI_FW_AT_REBLOCK
PARAMETER (PIO_MPI_FW_AT_REBLOCK = 7)
INTEGER PIO_MINIOMODE
PARAMETER (PIO_MINIOMODE = PIO_NONE)
INTEGER PIO_MAXIOMODE
PARAMETER (PIO_MAXIOMODE = PIO_MPI_FW_AT_REBLOCK)
INTEGER PIO_ROLE_CLIENT
PARAMETER (PIO_ROLE_CLIENT = 0)
INTEGER PIO_ROLE_COLLECTOR
PARAMETER (PIO_ROLE_COLLECTOR = 1)
INTEGER PIO_ROLE_WRITER
PARAMETER (PIO_ROLE_WRITER = 2)
INTEGER PIO_ROLE_WRITER_COLLECTOR
PARAMETER (PIO_ROLE_WRITER_COLLECTOR = 3)
INTEGER PIO_ROLE_FPGUARD
PARAMETER (PIO_ROLE_FPGUARD = 4)
!
! parallel IO routines
!
! pioEndDef
EXTERNAL pioEndDef
! pioEndTimestepping
EXTERNAL pioEndTimestepping
! pioFinalize
EXTERNAL pioFinalize
! cdiPioNoPostCommSetup
EXTERNAL cdiPioNoPostCommSetup
INTEGER pioInit
! (INTEGER commSuper,
! INTEGER nProcsIO,
! INTEGER IOMode,
! INTEGER pioNamespace,
! REAL partInflate,
! PROCEDURE postCommSetupActions)
EXTERNAL pioInit
INTEGER cdiPioInit
! (INTEGER commSuper,
! INTEGER confResH,
! INTEGER pioNamespace)
EXTERNAL cdiPioInit
! pioWriteTimestep
EXTERNAL pioWriteTimestep
! cdiPioRDMAProgress
EXTERNAL cdiPioRDMAProgress
! streamWriteVarPart
! (INTEGER streamID,
! INTEGER varID,
! CHOICE data,
! INTEGER nmiss,
! TYPE(XT_IDXLIST)partDesc)
EXTERNAL streamWriteVarPart
! streamWriteScatteredVarPart
! (INTEGER streamID,
! INTEGER varID,
! CHOICE data,
! INTEGER numBlocks,
! INTEGER blocklengths(*),
! INTEGER displacements(*),
! INTEGER nmiss,
! TYPE(XT_IDXLIST)partDesc)
EXTERNAL streamWriteScatteredVarPart
INTEGER cdiPioCSRLastN
! (INTEGER commSuper,
! INTEGER IOMode,
! INTEGER nProcsIO)
EXTERNAL cdiPioCSRLastN
INTEGER cdiPioCSRFirstN
! (INTEGER commSuper,
! INTEGER IOMode,
! INTEGER nProcsIO)
EXTERNAL cdiPioCSRFirstN
INTEGER cdiPioCSRBalanced
! (INTEGER commSuper,
! INTEGER IOMode,
! INTEGER nProcsIO)
EXTERNAL cdiPioCSRBalanced
INTEGER cdiPioStr2IOMode
! (CHARACTER*(*) modeStr)
EXTERNAL cdiPioStr2IOMode
INTEGER cdiPioConfCreate
EXTERNAL cdiPioConfCreate
! cdiPioConfDestroy
! (INTEGER confResH)
EXTERNAL cdiPioConfDestroy
! cdiPioConfSetPartInflate
! (INTEGER confResH,
! REAL partInflate)
EXTERNAL cdiPioConfSetPartInflate
REAL cdiPioConfGetPartInflate
! (INTEGER confResH)
EXTERNAL cdiPioConfGetPartInflate
! cdiPioConfSetIOMode
! (INTEGER confResH,
! INTEGER IOMode)
EXTERNAL cdiPioConfSetIOMode
INTEGER cdiPioConfGetIOMode
! (INTEGER confResH)
EXTERNAL cdiPioConfGetIOMode
! cdiPioConfSetCSRole
! (INTEGER confResH,
! INTEGER CSRole)
EXTERNAL cdiPioConfSetCSRole
INTEGER cdiPioConfGetCSRole
! (INTEGER confResH)
EXTERNAL cdiPioConfGetCSRole
! cdiPioConfSetPostCommSetupActions
! (INTEGER confResH,
! PROCEDURE postCommSetupActions)
EXTERNAL cdiPioConfSetPostCommSetupActions
!
! cdiPioConfSetLargePageAlign should block buffer be aligned to
! large pages instead of normal pages?
!
! cdiPioConfSetLargePageAlign
! (INTEGER confResH,
! INTEGER largePageAlign)
EXTERNAL cdiPioConfSetLargePageAlign
INTEGER cdiPioConfGetLargePageAlign
! (INTEGER confResH)
EXTERNAL cdiPioConfGetLargePageAlign
! cdiPioConfSetRedistCache
! (INTEGER confResH,
! INTEGER doCache)
EXTERNAL cdiPioConfSetRedistCache
INTEGER cdiPioConfGetRedistCache
! (INTEGER confResH)
EXTERNAL cdiPioConfGetRedistCache
!
! convert index lists to stripes prior to intersection computation,
! defaults to true
!
! cdiPioConfSetStripeConversion
! (INTEGER confResH,
! INTEGER doStripify)
EXTERNAL cdiPioConfSetStripeConversion
!
! are index lists of parts converted stripes before being passed
! to the xmap constructor?
!
INTEGER cdiPioConfGetStripeConversion
! (INTEGER confResH)
EXTERNAL cdiPioConfGetStripeConversion
src/cdipioFortran.c deleted 100644 → 0
+ 0
− 142
View file @ 063cbbe8
/* Automatically generated by make_fint.c, don't edit! */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#if !defined(CDIPIO_H_)
#include "cdipio.h"
#endif
#if defined(HAVE_CF_INTERFACE)
#include <limits.h>
#include <assert.h>
#if !defined(__CFORTRAN_LOADED)
#if defined __clang__
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wreserved-id-macro"
#endif
#include "cfortran.h"
#if defined __clang__
#pragma GCC diagnostic pop
#endif
#endif
/* These functions are meant to be called from Fortran and don't
* need an interface declaration in a C header. */
#if defined __clang__
#pragma GCC diagnostic ignored "-Wmissing-prototypes"
#endif
static inline int
size_t_c2f(size_t value_size_t)
{
assert(value_size_t < INT_MAX);
return (int) value_size_t;
}
/* parallel IO IOMode */
/* parallel IO routines */
FCALLSCSUB0(pioEndDef, PIOENDDEF, pioenddef)
FCALLSCSUB0(pioEndTimestepping, PIOENDTIMESTEPPING, pioendtimestepping)
FCALLSCSUB0(pioFinalize, PIOFINALIZE, piofinalize)
FCALLSCSUB0(cdiPioNoPostCommSetup, CDIPIONOPOSTCOMMSETUP, cdipionopostcommsetup)
#undef ROUTINE_6
#define ROUTINE_6 (void (*)(void))
static int
pioInit_fwrap(int commSuper, int nProcsIO, int IOMode, int *pioNamespace, float partInflate, void (*postCommSetupActions)(void))
{
MPI_Comm v;
v = pioInit(MPI_Comm_f2c(commSuper), nProcsIO, IOMode, pioNamespace, partInflate, postCommSetupActions);
return MPI_Comm_c2f(v);
}
FCALLSCFUN6(INT, pioInit_fwrap, PIOINIT, pioinit, INT, INT, INT, PINT, FLOAT, ROUTINE)
static int
cdiPioInit_fwrap(int commSuper, int confResH, int *pioNamespace)
{
MPI_Comm v;
v = cdiPioInit(MPI_Comm_f2c(commSuper), confResH, pioNamespace);
return MPI_Comm_c2f(v);
}
FCALLSCFUN3(INT, cdiPioInit_fwrap, CDIPIOINIT, cdipioinit, INT, INT, PINT)
FCALLSCSUB0(pioWriteTimestep, PIOWRITETIMESTEP, piowritetimestep)
FCALLSCSUB0(cdiPioRDMAProgress, CDIPIORDMAPROGRESS, cdipiordmaprogress)
static void
streamWriteVarPart_fwrap(int streamID, int varID, const void *data, int nmiss, void *partDesc)
{
streamWriteVarPart(streamID, varID, data, (size_t) nmiss, (*(Xt_idxlist *) partDesc));
}
FCALLSCSUB5(streamWriteVarPart_fwrap, STREAMWRITEVARPART, streamwritevarpart, INT, INT, PVOID, INT, PVOID)
static void
streamWriteScatteredVarPart_fwrap(int streamID, int varID, const void *data, int numBlocks, const int blocklengths[],
const int displacements[], int nmiss, void *partDesc)
{
streamWriteScatteredVarPart(streamID, varID, data, numBlocks, blocklengths, displacements, (size_t) nmiss,
(*(Xt_idxlist *) partDesc));
}
FCALLSCSUB8(streamWriteScatteredVarPart_fwrap, STREAMWRITESCATTEREDVARPART, streamwritescatteredvarpart, INT, INT, PVOID, INT, INTV,
INTV, INT, PVOID)
static int
cdiPioCSRLastN_fwrap(int commSuper, int IOMode, int nProcsIO)
{
int v;
v = cdiPioCSRLastN(MPI_Comm_f2c(commSuper), IOMode, nProcsIO);
return v;
}
FCALLSCFUN3(INT, cdiPioCSRLastN_fwrap, CDIPIOCSRLASTN, cdipiocsrlastn, INT, INT, INT)
static int
cdiPioCSRFirstN_fwrap(int commSuper, int IOMode, int nProcsIO)
{
int v;
v = cdiPioCSRFirstN(MPI_Comm_f2c(commSuper), IOMode, nProcsIO);
return v;
}
FCALLSCFUN3(INT, cdiPioCSRFirstN_fwrap, CDIPIOCSRFIRSTN, cdipiocsrfirstn, INT, INT, INT)
static int
cdiPioCSRBalanced_fwrap(int commSuper, int IOMode, int nProcsIO)
{
int v;
v = cdiPioCSRBalanced(MPI_Comm_f2c(commSuper), IOMode, nProcsIO);
return v;
}
FCALLSCFUN3(INT, cdiPioCSRBalanced_fwrap, CDIPIOCSRBALANCED, cdipiocsrbalanced, INT, INT, INT)
FCALLSCFUN1(INT, cdiPioStr2IOMode, CDIPIOSTR2IOMODE, cdipiostr2iomode, STRING)
FCALLSCFUN0(INT, cdiPioConfCreate, CDIPIOCONFCREATE, cdipioconfcreate)
FCALLSCSUB1(cdiPioConfDestroy, CDIPIOCONFDESTROY, cdipioconfdestroy, INT)
FCALLSCSUB2(cdiPioConfSetPartInflate, CDIPIOCONFSETPARTINFLATE, cdipioconfsetpartinflate, INT, FLOAT)
FCALLSCFUN1(FLOAT, cdiPioConfGetPartInflate, CDIPIOCONFGETPARTINFLATE, cdipioconfgetpartinflate, INT)
FCALLSCSUB2(cdiPioConfSetIOMode, CDIPIOCONFSETIOMODE, cdipioconfsetiomode, INT, INT)
FCALLSCFUN1(INT, cdiPioConfGetIOMode, CDIPIOCONFGETIOMODE, cdipioconfgetiomode, INT)
FCALLSCSUB2(cdiPioConfSetCSRole, CDIPIOCONFSETCSROLE, cdipioconfsetcsrole, INT, INT)
FCALLSCFUN1(INT, cdiPioConfGetCSRole, CDIPIOCONFGETCSROLE, cdipioconfgetcsrole, INT)
#undef ROUTINE_2
#define ROUTINE_2 (void (*)(void))
FCALLSCSUB2(cdiPioConfSetPostCommSetupActions, CDIPIOCONFSETPOSTCOMMSETUPACTIONS, cdipioconfsetpostcommsetupactions, INT, ROUTINE)
/* cdiPioConfSetLargePageAlign should block buffer be aligned to
* large pages instead of normal pages? */
FCALLSCSUB2(cdiPioConfSetLargePageAlign, CDIPIOCONFSETLARGEPAGEALIGN, cdipioconfsetlargepagealign, INT, INT)
FCALLSCFUN1(INT, cdiPioConfGetLargePageAlign, CDIPIOCONFGETLARGEPAGEALIGN, cdipioconfgetlargepagealign, INT)
FCALLSCSUB2(cdiPioConfSetRedistCache, CDIPIOCONFSETREDISTCACHE, cdipioconfsetredistcache, INT, INT)
FCALLSCFUN1(INT, cdiPioConfGetRedistCache, CDIPIOCONFGETREDISTCACHE, cdipioconfgetredistcache, INT)
/* convert index lists to stripes prior to intersection computation,
* defaults to true */
FCALLSCSUB2(cdiPioConfSetStripeConversion, CDIPIOCONFSETSTRIPECONVERSION, cdipioconfsetstripeconversion, INT, INT)
/* are index lists of parts converted stripes before being passed
* to the xmap constructor? */
FCALLSCFUN1(INT, cdiPioConfGetStripeConversion, CDIPIOCONFGETSTRIPECONVERSION, cdipioconfgetstripeconversion, INT)
#if defined __clang__
#pragma GCC diagnostic pop
#endif
#endif
src/mo_cdi.f90 deleted 100644 → 0
+ 0
− 6092
View file @ 063cbbe8
This diff is collapsed.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Imprint | Privacy Policy