diff options
Diffstat (limited to 'fortran/src/H5_ff.f90')
-rw-r--r-- | fortran/src/H5_ff.f90 | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90 index a8cbc3b..5a372b6 100644 --- a/fortran/src/H5_ff.f90 +++ b/fortran/src/H5_ff.f90 @@ -39,8 +39,6 @@ CONTAINS ! Comment: !---------------------------------------------------------------------- SUBROUTINE h5open_f(error) -! -!This definition is needed for Windows DLLs USE H5GLOBAL IMPLICIT NONE @@ -120,8 +118,6 @@ CONTAINS END INTERFACE error_0 = h5open_c() error_1 = h5init_types_c(predef_types, floating_types, integer_types) - print*,'here' - print*,predef_types error_2 = h5init_flags_c(H5D_flags, & H5F_flags, & H5FD_flags, & @@ -165,8 +161,6 @@ CONTAINS !---------------------------------------------------------------------- SUBROUTINE h5close_f(error) -! -!This definition is needed for Windows DLLs USE H5GLOBAL IMPLICIT NONE @@ -227,8 +221,6 @@ CONTAINS !---------------------------------------------------------------------- SUBROUTINE h5get_libversion_f(majnum, minnum, relnum, error) -! -!This definition is needed for Windows DLLs USE H5GLOBAL IMPLICIT NONE @@ -269,8 +261,6 @@ CONTAINS !---------------------------------------------------------------------- SUBROUTINE h5check_version_f(majnum, minnum, relnum, error) -! -!This definition is needed for Windows DLLs USE H5GLOBAL IMPLICIT NONE @@ -310,8 +300,6 @@ CONTAINS !---------------------------------------------------------------------- SUBROUTINE h5garbage_collect_f(error) -! -!This definition is needed for Windows DLLs USE H5GLOBAL IMPLICIT NONE @@ -349,8 +337,6 @@ CONTAINS !---------------------------------------------------------------------- SUBROUTINE h5dont_atexit_f(error) -! -!This definition is needed for Windows DLLs USE H5GLOBAL IMPLICIT NONE |