Commit 9e637cfb authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent b2675aa3
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2020
! Uwe Schulzweida, MPI-MET, Hamburg, November 2020
!
INTEGER CDI_MAX_NAME
......@@ -306,6 +306,8 @@
PARAMETER (ZAXIS_REFERENCE = 25)
INTEGER ZAXIS_CHAR
PARAMETER (ZAXIS_CHAR = 26)
INTEGER ZAXIS_TROPOPAUSE
PARAMETER (ZAXIS_TROPOPAUSE = 27)
!
! SUBTYPE types
!
......@@ -2615,9 +2617,3 @@
! INTEGER revision_version)
EXTERNAL gribapiLibraryVersion
! gaussianLatitudes
! (DOUBLEPRECISION latitudes,
! DOUBLEPRECISION weights,
! INTEGER nlat)
EXTERNAL gaussianLatitudes
/* Automatically generated by make_fint.c, don't edit! */
#ifdef HAVE_CONFIG_H
# include "config.h"
#include "config.h"
#endif
#ifndef CDI_H_
......@@ -848,11 +848,6 @@ FCALLSCFUN3 (INT, subtypeInqTile, SUBTYPEINQTILE, subtypeinqtile, INT, INT, INT)
FCALLSCFUN4 (INT, subtypeInqAttribute, SUBTYPEINQATTRIBUTE, subtypeinqattribute, INT, INT, STRING, PINT)
FCALLSCFUN2 (INT, vlistInqVarSubtype, VLISTINQVARSUBTYPE, vlistinqvarsubtype, INT, INT)
FCALLSCSUB3 (gribapiLibraryVersion, GRIBAPILIBRARYVERSION, gribapilibraryversion, PINT, PINT, PINT)
static void gaussianLatitudes_fwrap(double *latitudes, double *weights, int nlat)
{
gaussianLatitudes(latitudes, weights, (size_t)nlat);
}
FCALLSCSUB3 (gaussianLatitudes_fwrap, GAUSSIANLATITUDES, gaussianlatitudes, PDOUBLE, PDOUBLE, INT)
#if defined __clang__
# pragma GCC diagnostic pop
......
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