Commit 2dd8dbbf authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

make_fint.c update

parent 6cf2bfbd
! This file was automatically created, don't edit!
!
! Fortran interface for CDI library version 1.2.1
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, October 2008
!
INTEGER CDI_UNDEFID
......@@ -1527,6 +1532,18 @@
! (INTEGER taxisID)
EXTERNAL taxisHasBounds
! taxisDefVdateBounds
! (INTEGER taxisID,
! INTEGER vdate_lb,
! INTEGER vdate_ub)
EXTERNAL taxisDefVdateBounds
! taxisDefVtimeBounds
! (INTEGER taxisID,
! INTEGER vtime_lb,
! INTEGER vtime_ub)
EXTERNAL taxisDefVtimeBounds
! taxisInqVdateBounds
! (INTEGER taxisID,
! INTEGER vdate_lb,
......
......@@ -329,6 +329,8 @@ FCALLSCSUB2 (taxisDefVtime, TAXISDEFVTIME, taxisdefvtime, INT, INT)
FCALLSCSUB2 (taxisDefRdate, TAXISDEFRDATE, taxisdefrdate, INT, INT)
FCALLSCSUB2 (taxisDefRtime, TAXISDEFRTIME, taxisdefrtime, INT, INT)
FCALLSCFUN1 (INT, taxisHasBounds, TAXISHASBOUNDS, taxishasbounds, INT)
FCALLSCSUB3 (taxisDefVdateBounds, TAXISDEFVDATEBOUNDS, taxisdefvdatebounds, INT, INT, INT)
FCALLSCSUB3 (taxisDefVtimeBounds, TAXISDEFVTIMEBOUNDS, taxisdefvtimebounds, INT, INT, INT)
FCALLSCSUB3 (taxisInqVdateBounds, TAXISINQVDATEBOUNDS, taxisinqvdatebounds, INT, PINT, PINT)
FCALLSCSUB3 (taxisInqVtimeBounds, TAXISINQVTIMEBOUNDS, taxisinqvtimebounds, INT, PINT, PINT)
FCALLSCSUB2 (taxisDefCalendar, TAXISDEFCALENDAR, taxisdefcalendar, INT, INT)
......
......@@ -2,6 +2,7 @@
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <time.h>
#include "config.h"
......@@ -80,6 +81,18 @@ void fortran_interface(char *fname, char *fnameinc, char *fnameint)
int funcargtype[20];
int funcargc;
char *strsort[99999];
char timestr[30];
time_t date_and_time_in_sec;
struct tm *date_and_time;
date_and_time_in_sec = time(NULL);
timestr[0] = 0;
if ( date_and_time_in_sec != -1 )
{
date_and_time = localtime(&date_and_time_in_sec);
(void) strftime(timestr, sizeof(timestr), "%B %Y", date_and_time);
}
/*
for ( i = 0; i < 8; i++ ) strsort[i] = cname[i];
......@@ -101,8 +114,13 @@ void fortran_interface(char *fname, char *fnameinc, char *fnameint)
/* fortran include */
fprintf(fpinc, "! This file was automatically created, don't edit!\n");
fprintf(fpinc, "!\n");
fprintf(fpinc, "! Fortran interface for CDI library version %s\n", VERSION);
fprintf(fpinc, "!\n");
fprintf(fpinc, "! Author:\n");
fprintf(fpinc, "! -------\n");
fprintf(fpinc, "! Uwe Schulzweida, MPI-MET, Hamburg, %s\n", timestr);
fprintf(fpinc, "!\n\n");
/* fortran interface */
......
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