philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r27119] handles INTEGER*16 case

Browse Source
This commit is contained in:
Scot Breitenfeld
2015-05-28 10:01:37 -05:00
parent d1feb5307d
commit 0560c11c20
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
configure vendored
View File

@@ -7041,8 +7041,8 @@ else
ENDIF
IF (k .LE. 0) EXIT
ENDDO
IF (k.NE.lastkind) WRITE(8,'(I0,A)',ADVANCE='NO') k, " "
WRITE(8,'(/)')
IF (lastkind.NE.-1) WRITE(8,'(I0,A)',ADVANCE='NO') lastkind, " "
WRITE(8,'(/)')
WRITE(8,'("rk:")',ADVANCE='NO') ! Find real KINDs
lastkind=SELECTED_REAL_KIND(1)
DO ik=2,30
@@ -7197,8 +7197,8 @@ else
ENDIF
IF (k .LE. 0) EXIT
ENDDO
IF (k.NE.lastkind) WRITE(8,'(I0,A)',ADVANCE='NO') k, " "
WRITE(8,'(/)')
IF (lastkind.NE.-1) WRITE(8,'(I0,A)',ADVANCE='NO') lastkind, " "
WRITE(8,'(/)')
WRITE(8,'("rk:")',ADVANCE='NO') ! Find real KINDs
lastkind=SELECTED_REAL_KIND(1)
DO ik=2,30

2
fortran/src/H5match_types.c
View File

@@ -131,7 +131,7 @@ void writeTypedef(const char* c_typedef, const char* c_type, int size)
void writeTypedefDefault(const char* c_typedef, int size)
{
assert(size %2 == 0);
fprintf(c_header, "typedef struct {c_%s_%u a; c_%s_%u b;} c_%s_%u\n", c_typedef, size / 2, c_typedef, size / 2, c_typedef, size);
fprintf(c_header, "typedef struct {c_%s_%u a; c_%s_%u b;} c_%s_%u;\n", c_typedef, size / 2, c_typedef, size / 2, c_typedef, size);
}
/* Create matching Fortran and C types by writing to both files */

4
m4/aclocal_fc.m4
View File

@@ -308,8 +308,8 @@ AC_RUN_IFELSE([
ENDIF
IF (k .LE. 0) EXIT
ENDDO
IF (k.NE.lastkind) WRITE(8,'(I0,A)',ADVANCE='NO') k, " "
dnl WRITE(8,'(I0,A)',ADVANCE='NO') lastkind, " "
dnl IF (k.NE.lastkind) WRITE(8,'(I0,A)',ADVANCE='NO') k, " "
IF (lastkind.NE.-1) WRITE(8,'(I0,A)',ADVANCE='NO') lastkind, " "
WRITE(8,'(/)')
WRITE(8,'("rk:")',ADVANCE='NO') ! Find real KINDs
lastkind=SELECTED_REAL_KIND(1)