summaryrefslogtreecommitdiffstats
path: root/pablo/PabloHDF.c
diff options
context:
space:
mode:
authorDan Wells <dwells@cs.uiuc.edu>2000-08-29 15:41:58 (GMT)
committerDan Wells <dwells@cs.uiuc.edu>2000-08-29 15:41:58 (GMT)
commit369193599aab29bb9c47e1d5566cce7944ab3dd4 (patch)
tree7d40bda354fc7c5e9fb2a7491dfbab47fb950269 /pablo/PabloHDF.c
parentf62ab9363ab75fa35772778510104d3c988d1cfc (diff)
downloadhdf5-369193599aab29bb9c47e1d5566cce7944ab3dd4.zip
hdf5-369193599aab29bb9c47e1d5566cce7944ab3dd4.tar.gz
hdf5-369193599aab29bb9c47e1d5566cce7944ab3dd4.tar.bz2
[svn-r2487] Added support for fortran. Also made the Makefile more universal.
Diffstat (limited to 'pablo/PabloHDF.c')
-rw-r--r--pablo/PabloHDF.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/pablo/PabloHDF.c b/pablo/PabloHDF.c
index 512a984..8a61687 100644
--- a/pablo/PabloHDF.c
+++ b/pablo/PabloHDF.c
@@ -132,7 +132,7 @@ extern void preInitIOTrace( void );
void HDFinitTrace_RT ( const char *, int );
void HDFinitTrace_SDDF ( const char *, int );
-void hinittracex_ ( int [], int *, int[], int *,unsigned * );
+void hinittracex_ ( char [], int *, int[], int *,unsigned * );
void hdfendtrace_ ( void ) ;
void HDFendTrace_RT (int);
void HDFendTrace_SDDF(int);
@@ -163,12 +163,10 @@ double ReadTotals = 0.0;
// None. *
//======================================================================*/
/*======================================================================*
-// fortran to C interface. To insure portability, the character array *
-// passed in Fortran is converted to an integer array using the ICHAR *
-// function. This program converts it from integer to char, then *
-// passes it to the C initialization routine. *
+// fortran to C interface. *
+// This is called from hdfinittracef_ *
//======================================================================*/
-void hinittracex_( int *file, int *len, int flags[], int *nflags,
+void hinittracex_( char *file, int *len, int flags[], int *nflags,
unsigned *out_sw )
{
char *traceFileName;