Commit 3f3ac7a3 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent f999f454
! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 1.8.0
! Fortran interface for CDI library version 1.8.1
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, March 2017
! Uwe Schulzweida, MPI-MET, Hamburg, April 2017
!
INTEGER CDI_MAX_NAME
......@@ -1846,28 +1846,24 @@
!
! gridDefParamLCC
! (INTEGER gridID,
! DOUBLEPRECISION originLon,
! DOUBLEPRECISION originLat,
! DOUBLEPRECISION lonParY,
! DOUBLEPRECISION lat1,
! DOUBLEPRECISION lat2,
! DOUBLEPRECISION xinc,
! DOUBLEPRECISION yinc,
! INTEGER projflag,
! INTEGER scanflag)
! DOUBLEPRECISION a,
! DOUBLEPRECISION rf,
! DOUBLEPRECISION xval_0,
! DOUBLEPRECISION yval_0,
! DOUBLEPRECISION lon_0,
! DOUBLEPRECISION lat_1,
! DOUBLEPRECISION lat_2)
EXTERNAL gridDefParamLCC
! gridInqParamLCC
! (INTEGER gridID,
! DOUBLEPRECISION originLon,
! DOUBLEPRECISION originLat,
! DOUBLEPRECISION lonParY,
! DOUBLEPRECISION lat1,
! DOUBLEPRECISION lat2,
! DOUBLEPRECISION xinc,
! DOUBLEPRECISION yinc,
! INTEGER projflag,
! INTEGER scanflag)
! DOUBLEPRECISION a,
! DOUBLEPRECISION rf,
! DOUBLEPRECISION xval_0,
! DOUBLEPRECISION yval_0,
! DOUBLEPRECISION lon_0,
! DOUBLEPRECISION lat_1,
! DOUBLEPRECISION lat_2)
EXTERNAL gridInqParamLCC
! gridDefArea
......
......@@ -397,8 +397,8 @@ FCALLSCSUB5 (gridInqParamGME, GRIDINQPARAMGME, gridinqparamgme, INT, PINT, PINT,
/* Lambert Conformal Conic grid (GRIB version) */
FCALLSCSUB10 (gridDefParamLCC, GRIDDEFPARAMLCC, griddefparamlcc, INT, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, INT, INT)
FCALLSCSUB10 (gridInqParamLCC, GRIDINQPARAMLCC, gridinqparamlcc, INT, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PINT, PINT)
FCALLSCSUB8 (gridDefParamLCC, GRIDDEFPARAMLCC, griddefparamlcc, INT, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE)
FCALLSCSUB8 (gridInqParamLCC, GRIDINQPARAMLCC, gridinqparamlcc, INT, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE)
FCALLSCSUB2 (gridDefArea, GRIDDEFAREA, griddefarea, INT, DOUBLEV)
FCALLSCSUB2 (gridInqArea, GRIDINQAREA, gridinqarea, INT, DOUBLEV)
FCALLSCFUN1 (INT, gridHasArea, GRIDHASAREA, gridhasarea, INT)
......
......@@ -15,7 +15,7 @@
#endif
//#include "config.h"
#define VERSION "1.8.0"
#define VERSION "1.8.1"
typedef struct
{
size_t naline;
......
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