diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-28 15:01:37 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-28 15:01:37 (GMT) |
| commit | 0560c11c20476a8c99316bd88f1b6924afa057f9 (patch) | |
| tree | 63ee4d86f1a05c4348969e139988be0cd559be39 /configure | |
| parent | d1feb5307de48c3d69ec8c509862714ac88ec99f (diff) | |
| download | hdf5-0560c11c20476a8c99316bd88f1b6924afa057f9.zip hdf5-0560c11c20476a8c99316bd88f1b6924afa057f9.tar.gz hdf5-0560c11c20476a8c99316bd88f1b6924afa057f9.tar.bz2 | |
[svn-r27119] handles INTEGER*16 case
Diffstat (limited to 'configure')
| -rwxr-xr-x | configure | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |