Commit 0498b8d8 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

update fortran interface

parent 64ecb01b
! This file was automatically created, don't edit!
!
! Fortran interface for CDI library version 1.4.7
! Fortran interface for CDI library version 1.4.8
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, January 2011
! Uwe Schulzweida, MPI-MET, Hamburg, February 2011
!
INTEGER CDI_UNDEFID
......@@ -208,8 +208,8 @@
PARAMETER (GRID_LAEA = 13)
INTEGER GRID_SINUSOIDAL
PARAMETER (GRID_SINUSOIDAL = 14)
INTEGER GRID_NUMBER
PARAMETER (GRID_NUMBER = 15)
INTEGER GRID_REFERENCE
PARAMETER (GRID_REFERENCE = 15)
!
! ZAXIS types
!
......@@ -1366,7 +1366,7 @@
EXTERNAL gridDefGMEni3
!
! Number grid
! Reference grid
!
INTEGER gridInqNumber
! (INTEGER gridID)
......@@ -1386,6 +1386,16 @@
! INTEGER position)
EXTERNAL gridDefPosition
INTEGER gridInqReference
! (INTEGER gridID,
! CHARACTER*(*) reference)
EXTERNAL gridInqReference
! gridDefReference
! (INTEGER gridID,
! CHARACTER*(*) reference)
EXTERNAL gridDefReference
!
! Lambert Conformal Conic grid (GRIB version)
!
......
/* Automatically created with make_cfint.c, don't edit! */
#if ! defined (_CDI_H)
# include "cdi.h"
#endif
/* Automatically created with make_fint.c, don't edit! */
#if defined (HAVE_CONFIG_H)
# include "config.h"
#endif
#if ! defined (_CDI_H)
# include "cdi.h"
#endif
#if defined (HAVE_CF_INTERFACE)
#if ! defined (__CFORTRAN_LOADED)
......@@ -285,12 +285,14 @@ FCALLSCSUB2 (gridDefGMEni2, GRIDDEFGMENI2, griddefgmeni2, INT, INT)
FCALLSCFUN1 (INT, gridInqGMEni3, GRIDINQGMENI3, gridinqgmeni3, INT)
FCALLSCSUB2 (gridDefGMEni3, GRIDDEFGMENI3, griddefgmeni3, INT, INT)
/* Number grid */
/* Reference grid */
FCALLSCFUN1 (INT, gridInqNumber, GRIDINQNUMBER, gridinqnumber, INT)
FCALLSCSUB2 (gridDefNumber, GRIDDEFNUMBER, griddefnumber, INT, INT)
FCALLSCFUN1 (INT, gridInqPosition, GRIDINQPOSITION, gridinqposition, INT)
FCALLSCSUB2 (gridDefPosition, GRIDDEFPOSITION, griddefposition, INT, INT)
FCALLSCFUN2 (INT, gridInqReference, GRIDINQREFERENCE, gridinqreference, INT, PSTRING)
FCALLSCSUB2 (gridDefReference, GRIDDEFREFERENCE, griddefreference, INT, STRING)
/* Lambert Conformal Conic grid (GRIB version) */
......
......@@ -125,16 +125,16 @@ void fortran_interface(char *fname, char *fnameinc, char *fnameint)
/* fortran interface */
fprintf(fpint, "/* Automatically created with make_cfint.c, don't edit! */\n");
fprintf(fpint, "\n");
fprintf(fpint, "#if ! defined (_CDI_H)\n");
fprintf(fpint, "# include \"cdi.h\"\n");
fprintf(fpint, "#endif\n");
fprintf(fpint, "/* Automatically created with make_fint.c, don't edit! */\n");
fprintf(fpint, "\n");
fprintf(fpint, "#if defined (HAVE_CONFIG_H)\n");
fprintf(fpint, "# include \"config.h\"\n");
fprintf(fpint, "#endif\n");
fprintf(fpint, "\n");
fprintf(fpint, "#if ! defined (_CDI_H)\n");
fprintf(fpint, "# include \"cdi.h\"\n");
fprintf(fpint, "#endif\n");
fprintf(fpint, "\n");
fprintf(fpint, "#if defined (HAVE_CF_INTERFACE)\n");
fprintf(fpint, "\n");
fprintf(fpint, "#if ! defined (__CFORTRAN_LOADED)\n");
......
Supports Markdown
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