Commit 4c098d17 authored by Florence Monna's avatar Florence Monna

adding a Fortran interface for libnrm

parent 37e1a6ea
......@@ -37,5 +37,5 @@ AM_CONDITIONAL([PMPI_API],[test "x$pmpi" = xtrue])
AC_CONFIG_HEADERS([src/config.h])
AC_CONFIG_FILES([Makefile src/Makefile libnrm.pc])
AC_CONFIG_FILES([Makefile src/Makefile libnrm.pc libf_nrm.pc])
AC_OUTPUT
prefix=@prefix@
exec_prefix=@prefix@
libdir=@libdir@
includedir=@includedir@
Name: libf_nrm
Description: Argo Node Resource Manager Client API Fortran wrappers
Version: 0.0.1
Requires: libzmq libnrm
Libs: -L${libdir} -lnrm -lf_nrm
Cflags: -I${includedir}
......@@ -2,13 +2,19 @@ AM_CPPFLAGS = @LIBZMQ_CFLAGS@
lib_LTLIBRARIES = libnrm.la
lib_LTLIBRARIES += libf-nrm.la
if PMPI_API
lib_LTLIBRARIES += libnrm-pmpi.la
endif
libnrm_la_SOURCES = downstream_api.c nrm.h
libnrm_la_LIBADD = @LIBZMQ_LIBS@
libf_nrm_la_SOURCES = downstream_api.c f_downstream_api.c nrm.h
libf_nrm_la_LIBADD = @LIBZMQ_LIBS@
libnrm_pmpi_la_SOURCES = downstream_api.c mpi_api.c nrm.h
libnrm_pmpi_la_LIBADD = @LIBZMQ_LIBS@
include_HEADERS = nrm.h
include_HEADERS = nrm.h f_nrm.h
#include "nrm.h"
#include <stdlib.h>
int f_nrm_init_(void * *ctxt, char* uuid)
{
// struct nrm_context ctxt;
return nrm_init(*ctxt, uuid);
}
int f_nrm_fini_(void* *ctxt)
{
return (int) nrm_fini(*ctxt);
}
int f_nrm_send_progress_(void* *ctxt, unsigned long progress)
{
return (int) nrm_send_progress(*ctxt, progress);
}
int f_nrm_send_phase_context_(void* *ctxt, unsigned int cpu, unsigned int aggregation, unsigned long long int computeTime, unsigned long long int totalTime)
{
return nrm_send_phase_context(*ctxt, cpu, aggregation, computeTime, totalTime);
}
integer NRM_PTR
parameter(NRM_PTR=8)
integer*8 f_nrm_init
external f_nrm_init
integer f_nrm_fini
external f_nrm_fini
integer f_nrm_send_progress
external f_nrm_send_progress
integer f_nrm_send_phase_context
external f_nrm_send_phase_context
Markdown is supported
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