mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-31 17:10:47 +08:00
[svn-r10657] Purpose:
Configuration feature Description: Fortran integer types (not reals) are now automatically detected at build-time. Solution: Two helper programs are used, one to detect what types the Fortran compiler has access to, and one to generate header files for C and Fortran matching up types. Platforms tested: mir, copper, modi4, pommier (last week) Misc. update: MANIFEST updated, H5f90fortran_types.f90 removed from configure.in, since it is not longer generated by configure.
This commit is contained in:
James Laird
parent
1cc3666a27
commit
a05061f512
4
MANIFEST
4
MANIFEST
@ -588,8 +588,10 @@
|
||||
./fortran/src/H5f90i.h
|
||||
./fortran/src/H5f90kit.c
|
||||
./fortran/src/H5f90proto.h
|
||||
./fortran/src/H5fortran_detect.f90
|
||||
./fortran/src/H5fortran_detect_gen.f90
|
||||
./fortran/src/H5fortran_flags.f90
|
||||
./fortran/src/H5fortran_types.f90.in
|
||||
./fortran/src/H5match_types.c
|
||||
./fortran/src/HDF5.f90
|
||||
./fortran/src/HDF5mpio.f90
|
||||
./fortran/src/Makefile.am
|
||||
|
||||
3
configure
vendored
3
configure
vendored
@ -50426,7 +50426,7 @@ if test -n "$TESTPARALLEL"; then
|
||||
fi
|
||||
fi
|
||||
|
||||
ac_config_files="$ac_config_files src/libhdf5.settings Makefile src/Makefile test/Makefile testpar/Makefile testpar/testph5.sh perform/Makefile tools/Makefile tools/h5dump/Makefile tools/h5dump/testh5dump.sh tools/h5import/Makefile tools/h5diff/Makefile tools/h5jam/Makefile tools/h5jam/testh5jam.sh tools/h5repack/Makefile tools/h5repack/h5repack.sh tools/h5ls/Makefile tools/lib/Makefile tools/misc/Makefile tools/misc/h5cc tools/gifconv/Makefile examples/Makefile doc/Makefile doc/html/Makefile doc/html/ed_libs/Makefile doc/html/ed_styles/Makefile doc/html/ADGuide/Makefile doc/html/Graphics/Makefile doc/html/Intro/Makefile doc/html/PSandPDF/Makefile doc/html/TechNotes/Makefile doc/html/Tutor/Makefile doc/html/Tutor/Graphics/Makefile doc/html/Tutor/examples/Makefile doc/html/cpplus/Makefile doc/html/fortran/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/examples/Makefile fortran/Makefile fortran/src/h5fc fortran/src/H5fortran_types.f90 fortran/src/libhdf5_fortran.settings fortran/src/Makefile fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile hl/Makefile hl/src/Makefile hl/test/Makefile hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile"
|
||||
ac_config_files="$ac_config_files src/libhdf5.settings Makefile src/Makefile test/Makefile testpar/Makefile testpar/testph5.sh perform/Makefile tools/Makefile tools/h5dump/Makefile tools/h5dump/testh5dump.sh tools/h5import/Makefile tools/h5diff/Makefile tools/h5jam/Makefile tools/h5jam/testh5jam.sh tools/h5repack/Makefile tools/h5repack/h5repack.sh tools/h5ls/Makefile tools/lib/Makefile tools/misc/Makefile tools/misc/h5cc tools/gifconv/Makefile examples/Makefile doc/Makefile doc/html/Makefile doc/html/ed_libs/Makefile doc/html/ed_styles/Makefile doc/html/ADGuide/Makefile doc/html/Graphics/Makefile doc/html/Intro/Makefile doc/html/PSandPDF/Makefile doc/html/TechNotes/Makefile doc/html/Tutor/Makefile doc/html/Tutor/Graphics/Makefile doc/html/Tutor/examples/Makefile doc/html/cpplus/Makefile doc/html/fortran/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/examples/Makefile fortran/Makefile fortran/src/h5fc fortran/src/libhdf5_fortran.settings fortran/src/Makefile fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile hl/Makefile hl/src/Makefile hl/test/Makefile hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile"
|
||||
|
||||
|
||||
cat >confcache <<\_ACEOF
|
||||
@ -51078,7 +51078,6 @@ do
|
||||
"c++/examples/Makefile" ) CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;;
|
||||
"fortran/Makefile" ) CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;;
|
||||
"fortran/src/h5fc" ) CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;;
|
||||
"fortran/src/H5fortran_types.f90" ) CONFIG_FILES="$CONFIG_FILES fortran/src/H5fortran_types.f90" ;;
|
||||
"fortran/src/libhdf5_fortran.settings" ) CONFIG_FILES="$CONFIG_FILES fortran/src/libhdf5_fortran.settings" ;;
|
||||
"fortran/src/Makefile" ) CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;;
|
||||
"fortran/test/Makefile" ) CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;;
|
||||
|
||||
@ -2940,7 +2940,6 @@ AC_CONFIG_FILES([src/libhdf5.settings
|
||||
c++/examples/Makefile
|
||||
fortran/Makefile
|
||||
fortran/src/h5fc
|
||||
fortran/src/H5fortran_types.f90
|
||||
fortran/src/libhdf5_fortran.settings
|
||||
fortran/src/Makefile
|
||||
fortran/test/Makefile
|
||||
|
||||
@ -186,7 +186,7 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes,
|
||||
*---------------------------------------------------------------------------*/
|
||||
int_f
|
||||
nh5init_flags_c( int_f *h5d_flags, int_f *h5f_flags,
|
||||
int_f *h5fd_flags, hid_t *h5fd_hid_flags,
|
||||
int_f *h5fd_flags, hid_t_f *h5fd_hid_flags,
|
||||
int_f *h5g_flags, int_f *h5i_flags,
|
||||
int_f *h5p_flags, int_f *h5r_flags, int_f *h5s_flags,
|
||||
int_f *h5t_flags, int_f *h5z_flags)
|
||||
|
||||
@ -22,17 +22,17 @@
|
||||
|
||||
#include "H5private.h"
|
||||
|
||||
/*
|
||||
* Include generated header. This header defines integer types,
|
||||
* so this file only needs to define _fcd and real_f.
|
||||
*/
|
||||
#include "H5f90i_gen.h"
|
||||
|
||||
#if (defined (UNICOS) || (defined (_UNICOS)))
|
||||
|
||||
#include <fortran.h>
|
||||
|
||||
/*typedef char* _fcd;*/
|
||||
typedef long haddr_t_f;
|
||||
typedef long hsize_t_f;
|
||||
typedef long hssize_t_f;
|
||||
typedef long size_t_f;
|
||||
typedef long int_f;
|
||||
typedef long hid_t_f;
|
||||
typedef double real_f;
|
||||
|
||||
#endif /* UNICOS */
|
||||
@ -40,12 +40,6 @@ typedef double real_f;
|
||||
#if defined(IBM6000) || defined(_AIX)
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
#endif /*IBM6000*/
|
||||
@ -53,12 +47,6 @@ typedef float real_f;
|
||||
/* MAC APPLE definitions with IBM XL compiler*/
|
||||
#if defined(__APPLE__)
|
||||
typedef char *_fcd;
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
@ -69,47 +57,24 @@ typedef float real_f;
|
||||
|
||||
/* Common definitions */
|
||||
typedef char *_fcd;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
/* IA32 specific definitions */
|
||||
#if (defined(i386) || defined(__i386) || defined(__i386__))
|
||||
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
|
||||
/* AMD64 specific definitions */
|
||||
#elif defined __x86_64__
|
||||
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
|
||||
/* IA64 specific definitions */
|
||||
#elif defined __ia64
|
||||
|
||||
typedef long haddr_t_f;
|
||||
typedef long hsize_t_f;
|
||||
typedef long hssize_t_f;
|
||||
typedef long size_t_f;
|
||||
|
||||
#endif /* IA64 */
|
||||
#endif /* LINUX*/
|
||||
|
||||
#if defined(IRIX) || defined(IRIS4) || defined(sgi) || defined(__sgi__) || defined(__sgi)
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef long haddr_t_f;
|
||||
typedef long hsize_t_f;
|
||||
typedef long hssize_t_f;
|
||||
typedef long size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
#endif /* IRIX */
|
||||
@ -117,12 +82,6 @@ typedef float real_f;
|
||||
#if (defined(SUN) || defined(sun) || defined(__sun__) || defined(__SUNPRO_C)) & !defined(__i386)
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef int size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
@ -131,12 +90,6 @@ typedef float real_f;
|
||||
#if defined DEC_ALPHA || (defined __alpha && defined __unix__ && !defined __linux__)
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef long haddr_t_f;
|
||||
typedef long hsize_t_f;
|
||||
typedef long hssize_t_f;
|
||||
typedef long size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
@ -145,12 +98,6 @@ typedef float real_f;
|
||||
#if defined __alpha__ && defined __linux__
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef long long size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
@ -159,27 +106,14 @@ typedef float real_f;
|
||||
#if defined(HP9000) || (!defined(__convexc__) && (defined(hpux) || defined(__hpux)))
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef long size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
#endif /* HP9000 */
|
||||
|
||||
|
||||
#if defined _WINDOWS || defined WIN32
|
||||
|
||||
typedef char *_fcd;
|
||||
typedef int haddr_t_f;
|
||||
typedef int hsize_t_f;
|
||||
typedef int hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
|
||||
#define _fcdtocp(desc) (desc)
|
||||
@ -191,32 +125,9 @@ typedef float real_f;
|
||||
|
||||
/* Common definitions */
|
||||
typedef char *_fcd;
|
||||
typedef int int_f;
|
||||
typedef int hid_t_f;
|
||||
typedef float real_f;
|
||||
#define _fcdtocp(desc) (desc)
|
||||
|
||||
/* IA32 specific definitions */
|
||||
#if (defined(i386) || defined(__i386) || defined(__i386__))
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
/* AMD64 specific definitions */
|
||||
#elif defined __x86_64__
|
||||
typedef long long haddr_t_f;
|
||||
typedef long long hsize_t_f;
|
||||
typedef long long hssize_t_f;
|
||||
typedef int size_t_f;
|
||||
/* IA64 specific definitions */
|
||||
#elif defined __ia64
|
||||
typedef long haddr_t_f;
|
||||
typedef long hsize_t_f;
|
||||
typedef long hssize_t_f;
|
||||
typedef long size_t_f;
|
||||
#endif /* IA64 */
|
||||
|
||||
|
||||
#endif /* FreeBSD */
|
||||
|
||||
#endif /* _H5f90i_H */
|
||||
|
||||
@ -650,7 +650,7 @@ H5_FCDLL int_f nh5open_c(void);
|
||||
H5_FCDLL int_f nh5close_c(void);
|
||||
H5_FCDLL int_f nh5init_types_c(hid_t_f *types, hid_t_f * floatingtypes, hid_t_f * integertypes);
|
||||
H5_FCDLL int_f nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f * floatingtypes, int_f * floatinglen, hid_t_f * integertypes, int_f * integerlen);
|
||||
H5_FCDLL int_f nh5init_flags_c( int_f *h5d_flags, int_f *h5f_flags,
|
||||
H5_FCDLL int_f nh5init_flags_c( int_f *h5d_flags, int_f *h5f_flags,
|
||||
int_f *h5fd_flags, hid_t_f *h5fd_hid_flags,
|
||||
int_f *h5g_flags, int_f *h5i_flags,
|
||||
int_f *h5p_flags, int_f *h5r_flags, int_f *h5s_flags,
|
||||
|
||||
95
fortran/src/H5fortran_detect.f90
Normal file
95
fortran/src/H5fortran_detect.f90
Normal file
@ -0,0 +1,95 @@
|
||||
program int_kind
|
||||
write(*,*) " /*generating header file*/ "
|
||||
call i01()
|
||||
call i02()
|
||||
call i04()
|
||||
call i08()
|
||||
end program int_kind
|
||||
subroutine i01()
|
||||
implicit none
|
||||
integer( 1 ) :: a
|
||||
integer :: a_size
|
||||
a_size = bit_size(a)
|
||||
if (a_size .eq. 8) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_1"
|
||||
endif
|
||||
if (a_size .eq. 16) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_2"
|
||||
endif
|
||||
if (a_size .eq. 32) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_4"
|
||||
endif
|
||||
if (a_size .eq. 64) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_8"
|
||||
endif
|
||||
if (a_size .eq. 128) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_16"
|
||||
endif
|
||||
return
|
||||
end subroutine
|
||||
subroutine i02()
|
||||
implicit none
|
||||
integer( 2 ) :: a
|
||||
integer :: a_size
|
||||
a_size = bit_size(a)
|
||||
if (a_size .eq. 8) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_1"
|
||||
endif
|
||||
if (a_size .eq. 16) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_2"
|
||||
endif
|
||||
if (a_size .eq. 32) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_4"
|
||||
endif
|
||||
if (a_size .eq. 64) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_8"
|
||||
endif
|
||||
if (a_size .eq. 128) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_16"
|
||||
endif
|
||||
return
|
||||
end subroutine
|
||||
subroutine i04()
|
||||
implicit none
|
||||
integer( 4 ) :: a
|
||||
integer :: a_size
|
||||
a_size = bit_size(a)
|
||||
if (a_size .eq. 8) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_1"
|
||||
endif
|
||||
if (a_size .eq. 16) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_2"
|
||||
endif
|
||||
if (a_size .eq. 32) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_4"
|
||||
endif
|
||||
if (a_size .eq. 64) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_8"
|
||||
endif
|
||||
if (a_size .eq. 128) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_16"
|
||||
endif
|
||||
return
|
||||
end subroutine
|
||||
subroutine i08()
|
||||
implicit none
|
||||
integer( 8 ) :: a
|
||||
integer :: a_size
|
||||
a_size = bit_size(a)
|
||||
if (a_size .eq. 8) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_1"
|
||||
endif
|
||||
if (a_size .eq. 16) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_2"
|
||||
endif
|
||||
if (a_size .eq. 32) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_4"
|
||||
endif
|
||||
if (a_size .eq. 64) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_8"
|
||||
endif
|
||||
if (a_size .eq. 128) then
|
||||
write(*,*) "#define H5_FORTRAN_HAS_INTEGER_16"
|
||||
endif
|
||||
return
|
||||
end subroutine
|
||||
59
fortran/src/H5fortran_detect_gen.f90
Normal file
59
fortran/src/H5fortran_detect_gen.f90
Normal file
@ -0,0 +1,59 @@
|
||||
! H5test_kind.f90
|
||||
!
|
||||
! This fortran program generates H5fortran_detect.f90
|
||||
!
|
||||
program test_kind
|
||||
integer :: i, j, last, kind_numbers(10)
|
||||
last = -1
|
||||
ii = 0
|
||||
j = selected_int_kind(18)
|
||||
! write(*,*) j
|
||||
do i = 1,100
|
||||
j = selected_int_kind(i)
|
||||
if(j .ne. last) then
|
||||
if(last .ne. -1) then
|
||||
ii = ii + 1
|
||||
kind_numbers(ii) = last
|
||||
endif
|
||||
last = j
|
||||
if(j .eq. -1) exit
|
||||
endif
|
||||
enddo
|
||||
! write(*,*) kind_numbers(1:ii)
|
||||
! Generate a program
|
||||
write(*,*) "program int_kind"
|
||||
write(*,*) "write(*,*) "" /*generating header file*/ """
|
||||
do i = 1, ii
|
||||
j = kind_numbers(i)
|
||||
write(*, "("" call i"", i2.2,""()"")") j
|
||||
enddo
|
||||
write(*,*) "end program int_kind"
|
||||
do i = 1, ii
|
||||
j = kind_numbers(i)
|
||||
write(*, "("" subroutine i"" i2.2,""()"")") j
|
||||
write(*,*)" implicit none"
|
||||
write(*,*)" integer(",j,") :: a"
|
||||
write(*,*)" integer :: a_size"
|
||||
write(*,*)" a_size = bit_size(a)"
|
||||
write(*,*)" if (a_size .eq. 8) then"
|
||||
write(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_INTEGER_1"" "
|
||||
write(*,*)" endif"
|
||||
write(*,*)" if (a_size .eq. 16) then"
|
||||
write(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_INTEGER_2"" "
|
||||
write(*,*)" endif"
|
||||
write(*,*)" if (a_size .eq. 32) then"
|
||||
write(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_INTEGER_4"" "
|
||||
write(*,*)" endif"
|
||||
write(*,*)" if (a_size .eq. 64) then"
|
||||
write(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_INTEGER_8"" "
|
||||
write(*,*)" endif"
|
||||
write(*,*)" if (a_size .eq. 128) then"
|
||||
write(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_INTEGER_16"" "
|
||||
write(*,*)" endif"
|
||||
write(*,*)" return"
|
||||
write(*,*)" end subroutine"
|
||||
enddo
|
||||
end program
|
||||
|
||||
|
||||
|
||||
@ -1,45 +0,0 @@
|
||||
|
||||
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
! Copyright by the Board of Trustees of the University of Illinois. *
|
||||
! All rights reserved. *
|
||||
! *
|
||||
! This file is part of HDF5. The full HDF5 copyright notice, including *
|
||||
! terms governing use, modification, and redistribution, is contained in *
|
||||
! the files COPYING and Copyright.html. COPYING can be found at the root *
|
||||
! of the source code distribution tree; Copyright.html can be found at the *
|
||||
! root level of an installed copy of the electronic HDF5 document set and *
|
||||
! is linked from the top-level documents page. It can also be found at *
|
||||
! http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
||||
! access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
||||
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
!
|
||||
!
|
||||
! This file contains HDF5 Fortran90 type definitions
|
||||
!
|
||||
MODULE H5FORTRAN_TYPES
|
||||
!
|
||||
! HDF5 integers
|
||||
!
|
||||
! Each of the arguments of SELECTED_INT_KIND function should be
|
||||
! determined by configure.
|
||||
! R_LARGE is the number of digits for the biggest integer supported.
|
||||
! R_INTEGER is the number of digits in INTEGER
|
||||
! For example:
|
||||
! On 64 bit machine ( DEC ALPHA) R_LARGE = 18 and R_INTEGER = 9
|
||||
! On 32 bit machines ( Sparc Solaris ) R_LARGE = 9 and R_INTEGER = 9
|
||||
!
|
||||
INTEGER, PARAMETER :: R_LARGE = @R_LARGE@
|
||||
INTEGER, PARAMETER :: R_INTEGER = @R_INTEGER@
|
||||
INTEGER, PARAMETER :: HADDR_T = @HADDR_T@
|
||||
INTEGER, PARAMETER :: HSIZE_T = @HSIZE_T@
|
||||
INTEGER, PARAMETER :: HSSIZE_T = @HSSIZE_T@
|
||||
INTEGER, PARAMETER :: HID_T = @HID_T@
|
||||
INTEGER, PARAMETER :: SIZE_T = @SIZE_T@
|
||||
|
||||
!
|
||||
! Some HDF5 FORTARN90 default values ( here for now 8/5/99 EIP )
|
||||
!
|
||||
|
||||
INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = @OBJECT_NAMELEN_DEFAULT_F@
|
||||
|
||||
END MODULE H5FORTRAN_TYPES
|
||||
352
fortran/src/H5match_types.c
Normal file
352
fortran/src/H5match_types.c
Normal file
@ -0,0 +1,352 @@
|
||||
/* C Program to find type sizes */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <assert.h>
|
||||
|
||||
#include "H5public.h"
|
||||
/* Include H5Ipublic.h for hid_t type */
|
||||
#include "H5Ipublic.h"
|
||||
|
||||
/* Definitions of which fortran type sizes exist */
|
||||
#include "H5fort_type_defines.h"
|
||||
|
||||
/* File pointers for files */
|
||||
FILE * c_header;
|
||||
FILE * fort_header;
|
||||
|
||||
#define CFILE "H5f90i_gen.h"
|
||||
#define FFILE "H5fortran_types.f90"
|
||||
|
||||
void initCfile()
|
||||
{
|
||||
fprintf(c_header,
|
||||
"/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\
|
||||
* Copyright by the Board of Trustees of the University of Illinois. *\n\
|
||||
* All rights reserved. *\n\
|
||||
* *\n\
|
||||
* This file is part of HDF5. The full HDF5 copyright notice, including *\n\
|
||||
* terms governing use, modification, and redistribution, is contained in *\n\
|
||||
* the files COPYING and Copyright.html. COPYING can be found at the root *\n\
|
||||
* of the source code distribution tree; Copyright.html can be found at the *\n\
|
||||
* root level of an installed copy of the electronic HDF5 document set and *\n\
|
||||
* is linked from the top-level documents page. It can also be found at *\n\
|
||||
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *\n\
|
||||
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *\n\
|
||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */\n\
|
||||
\n\n\
|
||||
\#ifndef _H5f90i_gen_H\n\
|
||||
\#define _H5f90i_gen_H\n\
|
||||
\n\
|
||||
/* This file is automatically generated by H5match_types.c at build time. */\n\n");
|
||||
}
|
||||
|
||||
void initFfile()
|
||||
{
|
||||
fprintf(fort_header,
|
||||
"! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \n\
|
||||
! Copyright by the Board of Trustees of the University of Illinois. *\n\
|
||||
! All rights reserved. *\n\
|
||||
! *\n\
|
||||
! This file is part of HDF5. The full HDF5 copyright notice, including *\n\
|
||||
! terms governing use, modification, and redistribution, is contained in *\n\
|
||||
! the files COPYING and Copyright.html. COPYING can be found at the root *\n\
|
||||
! of the source code distribution tree; Copyright.html can be found at the *\n\
|
||||
! root level of an installed copy of the electronic HDF5 document set and *\n\
|
||||
! is linked from the top-level documents page. It can also be found at *\n\
|
||||
! http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *\n\
|
||||
! access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *\n\
|
||||
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\
|
||||
!\n!\n\
|
||||
! This file is automatically generated and contains HDF5 Fortran90 type definitions.\n!\n\
|
||||
MODULE H5FORTRAN_TYPES\n\
|
||||
!\n\
|
||||
! HDF5 integers\n\
|
||||
!\n");
|
||||
|
||||
}
|
||||
|
||||
void endCfile()
|
||||
{
|
||||
fprintf(c_header, "\n#endif /* _H5f90i_gen_H */\n");
|
||||
}
|
||||
void endFfile()
|
||||
{
|
||||
fprintf(fort_header, "\n INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = -1\n\n");
|
||||
fprintf(fort_header, " END MODULE H5FORTRAN_TYPES\n");
|
||||
}
|
||||
|
||||
/* Define a c_int_x type in the C header */
|
||||
void writeTypedef(const char* c_type, unsigned int size)
|
||||
{
|
||||
fprintf(c_header, "#define c_int_%d %s\n", size, c_type);
|
||||
}
|
||||
|
||||
/* Call this function if there is no matching C type for sizes > 1 */
|
||||
void writeTypedefDefault(unsigned int size)
|
||||
{
|
||||
assert(size %2 == 0);
|
||||
|
||||
fprintf(c_header, "typedef struct {c_int_%d a; c_int_%d b;} c_int_%d\n", size / 2, size / 2, size);
|
||||
}
|
||||
|
||||
/* Create matching Fortran and C types by writing to both files */
|
||||
void writeToFiles(const char* fortran_type, const char* c_type, unsigned int size)
|
||||
{
|
||||
fprintf(fort_header, " INTEGER, PARAMETER :: %s = %d\n", fortran_type, size);
|
||||
fprintf(c_header, "typedef c_int_%d %s;\n", size, c_type);
|
||||
}
|
||||
|
||||
/* hid_t and hssize_t don't have their sizes defined anywhere.
|
||||
* Use sizeof() instead. */
|
||||
#define H5_SIZEOF_HID_T sizeof(hid_t)
|
||||
#define H5_SIZEOF_HSSIZE_T sizeof(hssize_t)
|
||||
|
||||
int main()
|
||||
{
|
||||
/* Open target files */
|
||||
c_header = fopen(CFILE, "w");
|
||||
fort_header = fopen(FFILE, "w");
|
||||
|
||||
/* Write copyright, boilerplate to both files */
|
||||
initCfile();
|
||||
initFfile();
|
||||
|
||||
/* First, define c_int_x */
|
||||
if(sizeof(long long) == 1)
|
||||
writeTypedef("long long", 1);
|
||||
else if(sizeof(long) == 1)
|
||||
writeTypedef("long", 1);
|
||||
else if(sizeof(int) == 1)
|
||||
writeTypedef("int", 1);
|
||||
else if(sizeof(short) == 1)
|
||||
writeTypedef("short", 1);
|
||||
else
|
||||
writeTypedef("char", 1);
|
||||
/* Actually, char is not necessarily one byte.
|
||||
* But if char isn't, then nothing is, so this
|
||||
* is as close as we can get. */
|
||||
|
||||
if(sizeof(long long) == 2)
|
||||
writeTypedef("long long", 2);
|
||||
else if(sizeof(long) == 2)
|
||||
writeTypedef("long", 2);
|
||||
else if(sizeof(int) == 2)
|
||||
writeTypedef("int", 2);
|
||||
else if(sizeof(short) == 2)
|
||||
writeTypedef("short", 2);
|
||||
else
|
||||
writeTypedefDefault(2);
|
||||
|
||||
if(sizeof(long long) == 4)
|
||||
writeTypedef("long long", 4);
|
||||
else if(sizeof(long) == 4)
|
||||
writeTypedef("long", 4);
|
||||
else if(sizeof(int) == 4)
|
||||
writeTypedef("int", 4);
|
||||
else if(sizeof(short) == 4)
|
||||
writeTypedef("short", 4);
|
||||
else
|
||||
writeTypedefDefault(4);
|
||||
|
||||
if(sizeof(long long) == 8)
|
||||
writeTypedef("long long", 8);
|
||||
else if(sizeof(long) == 8)
|
||||
writeTypedef("long", 8);
|
||||
else if(sizeof(int) == 8)
|
||||
writeTypedef("int", 8);
|
||||
else if(sizeof(short) == 8)
|
||||
writeTypedef("short", 8);
|
||||
else
|
||||
writeTypedefDefault(8);
|
||||
|
||||
/* Now begin defining fortran types. */
|
||||
fprintf(c_header, "\n");
|
||||
|
||||
/* haddr_t */
|
||||
if( H5_SIZEOF_HADDR_T >= 8) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_8
|
||||
writeToFiles("HADDR_T", "haddr_t_f", 8);
|
||||
goto hsize_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HADDR_T >= 4) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_4
|
||||
writeToFiles("HADDR_T", "haddr_t_f", 4);
|
||||
goto hsize_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HADDR_T >= 2) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_2
|
||||
writeToFiles("HADDR_T", "haddr_t_f", 2);
|
||||
goto hsize_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HADDR_T >= 1) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_1
|
||||
writeToFiles("HADDR_T", "haddr_t_f", 1);
|
||||
goto hsize_t_start;
|
||||
#endif
|
||||
}
|
||||
/* Error: couldn't find a size for haddr_t */
|
||||
return -1;
|
||||
|
||||
hsize_t_start:
|
||||
|
||||
/* hsize_t */
|
||||
if( H5_SIZEOF_HSIZE_T >= 8) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_8
|
||||
writeToFiles("HSIZE_T", "hsize_t_f", 8);
|
||||
goto hssize_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HSIZE_T >= 4) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_4
|
||||
writeToFiles("HSIZE_T", "hsize_t_f", 4);
|
||||
goto hssize_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HSIZE_T >= 2) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_2
|
||||
writeToFiles("HSIZE_T", "hsize_t_f", 2);
|
||||
goto hssize_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HSIZE_T >= 1) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_1
|
||||
writeToFiles("HSIZE_T", "hsize_t_f", 1);
|
||||
goto hssize_t_start;
|
||||
#endif
|
||||
}
|
||||
/* Error: couldn't find a size for hsize_t */
|
||||
return -1;
|
||||
|
||||
hssize_t_start:
|
||||
|
||||
/* hssize_t */
|
||||
if( H5_SIZEOF_HSSIZE_T >= 8) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_8
|
||||
writeToFiles("HSSIZE_T", "hssize_t_f", 8);
|
||||
goto size_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HSSIZE_T >= 4) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_4
|
||||
writeToFiles("HSSIZE_T", "hssize_t_f", 4);
|
||||
goto size_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HSSIZE_T >= 2) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_2
|
||||
writeToFiles("HSSIZE_T", "hssize_t_f", 2);
|
||||
goto size_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HSSIZE_T >= 1) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_1
|
||||
writeToFiles("HSSIZE_T", "hssize_t_f", 1);
|
||||
goto size_t_start;
|
||||
#endif
|
||||
}
|
||||
/* Error: couldn't find a size for hssize_t */
|
||||
return -1;
|
||||
|
||||
|
||||
size_t_start:
|
||||
/* size_t */
|
||||
if( H5_SIZEOF_SIZE_T >= 8) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_8
|
||||
writeToFiles("SIZE_T", "size_t_f", 8);
|
||||
goto int_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_SIZE_T >= 4) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_4
|
||||
writeToFiles("SIZE_T", "size_t_f", 4);
|
||||
goto int_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_SIZE_T >= 2) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_2
|
||||
writeToFiles("SIZE_T", "size_t_f", 2);
|
||||
goto int_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_SIZE_T >= 1) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_1
|
||||
writeToFiles("SIZE_T", "size_t_f", 1);
|
||||
goto int_start;
|
||||
#endif
|
||||
}
|
||||
/* Error: couldn't find a size for size_t */
|
||||
return -1;
|
||||
|
||||
int_start:
|
||||
/* int */
|
||||
if( H5_SIZEOF_INT >= 8) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_8
|
||||
writeToFiles("INT", "int_f", 8);
|
||||
goto hid_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_INT >= 4) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_4
|
||||
writeToFiles("INT", "int_f", 4);
|
||||
goto hid_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_INT >= 2) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_2
|
||||
writeToFiles("INT", "int_f", 2);
|
||||
goto hid_t_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_INT >= 1) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_1
|
||||
writeToFiles("INT", "int_f", 1);
|
||||
goto hid_t_start;
|
||||
#endif
|
||||
}
|
||||
/* Error: couldn't find a size for int */
|
||||
return -1;
|
||||
|
||||
hid_t_start:
|
||||
/* hid_t */
|
||||
if( H5_SIZEOF_HID_T >= 8) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_8
|
||||
writeToFiles("HID_T", "hid_t_f", 8);
|
||||
goto real_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HID_T >= 4) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_4
|
||||
writeToFiles("HID_T", "hid_t_f", 4);
|
||||
goto real_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HID_T >= 2) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_2
|
||||
writeToFiles("HID_T", "hid_t_f", 2);
|
||||
goto real_start;
|
||||
#endif
|
||||
}
|
||||
if( H5_SIZEOF_HID_T >= 1) {
|
||||
#ifdef H5_FORTRAN_HAS_INTEGER_1
|
||||
writeToFiles("HID_T", "hid_t_f", 1);
|
||||
goto real_start;
|
||||
#endif
|
||||
}
|
||||
/* Error: couldn't find a size for hid_t */
|
||||
return -1;
|
||||
|
||||
real_start:
|
||||
goto done;
|
||||
done:
|
||||
|
||||
/* Close files */
|
||||
endCfile();
|
||||
endFfile();
|
||||
fclose(c_header);
|
||||
fclose(fort_header);
|
||||
return 0;
|
||||
}
|
||||
|
||||
@ -50,7 +50,12 @@ libhdf5_fortran_la_SOURCES=H5fortran_flags.f90 H5f90global.f90 \
|
||||
|
||||
# h5fc and libhdf5_fortran.settings are generated during configure.
|
||||
# Remove them only when distclean.
|
||||
DISTCLEANFILES=h5fc H5fortran_types.f90 libhdf5_fortran.settings
|
||||
DISTCLEANFILES=h5fc libhdf5_fortran.settings
|
||||
|
||||
# H5fortran_types.f90 and H5f90i.h are automatically generaed by
|
||||
# H5match_types, and must be cleaned explicitly. H5fort_type_defines.h
|
||||
# is generated by H5fortran_detect
|
||||
MOSTLYCLEANFILES=H5fortran_types.f90 H5f90i_gen.h H5fort_type_defines.h
|
||||
|
||||
# Fortran module files can have different extensions and different names
|
||||
# (e.g., different capitalizations) on different platforms. Write rules
|
||||
@ -92,6 +97,42 @@ else
|
||||
H5FC_NAME = h5fc
|
||||
endif
|
||||
|
||||
# Rules for automatically detecting which fortran types are present
|
||||
# and matching them to C types. This is accomplished using helper
|
||||
# programs.
|
||||
# It's a bit tricky to make sure that Automake builds things in the right
|
||||
# order (especially when using 'gmake -j ...'
|
||||
# H5fortran_detect.f90 needs to be compiled into H5fortran_detect.
|
||||
# This program is run, and its output is saved in H5fort_type_defines.h
|
||||
# H5match_types.c then includes this file and can be compiled into
|
||||
# H5match_types. When H5match_types is run, it creates H5f90i_gen.h
|
||||
# and H5fortran_types.f90, which are needed by the Fortran library.
|
||||
|
||||
# These are the helper programs we need to build.
|
||||
noinst_PROGRAMS = H5match_types H5fortran_detect
|
||||
|
||||
# Tell Automake to create H5f90i_gen.h before it does anything else.
|
||||
# When it creates H5f90i_gen.h, it will create H5fortran_types.f90 as
|
||||
# a side effect.
|
||||
BUILT_SOURCES = H5f90i_gen.h
|
||||
|
||||
# Specify what Automake needs to create: first the H5fort_type_defines.h
|
||||
# header, then H5match_types which includes that header, then
|
||||
# it needs to run H5match_types.
|
||||
H5fortran_types.f90 H5f90i_gen.h: H5match_types.c
|
||||
$(MAKE) $(AM_MAKEFLAGS) H5fort_type_defines.h
|
||||
$(MAKE) $(AM_MAKEFLAGS) H5match_types
|
||||
$(RUNSERIAL) ./H5match_types
|
||||
|
||||
# H5fort_type_defines.h is created by running H5fortran_detect.
|
||||
# Obviously, H5fortran_detect needs to be built first.
|
||||
H5fort_type_defines.h: H5fortran_detect
|
||||
$(RUNSERIAL) ./H5fortran_detect > H5fort_type_defines.h
|
||||
|
||||
# Automake knows how to build fortran programs if we tell it the source
|
||||
# files.
|
||||
H5fortran_detect_SOURCES = H5fortran_detect.f90
|
||||
|
||||
# Mark this directory as part of the Fortran API
|
||||
HDF_FORTRAN=yes
|
||||
|
||||
|
||||
@ -31,7 +31,8 @@
|
||||
#
|
||||
|
||||
|
||||
SOURCES = $(libhdf5_fortran_la_SOURCES)
|
||||
|
||||
SOURCES = $(libhdf5_fortran_la_SOURCES) $(H5fortran_detect_SOURCES) H5match_types.c
|
||||
|
||||
srcdir = @srcdir@
|
||||
top_srcdir = @top_srcdir@
|
||||
@ -55,11 +56,11 @@ PRE_UNINSTALL = :
|
||||
POST_UNINSTALL = :
|
||||
build_triplet = @build@
|
||||
host_triplet = @host@
|
||||
DIST_COMMON = README $(srcdir)/H5fortran_types.f90.in \
|
||||
$(srcdir)/Makefile.am $(srcdir)/Makefile.in $(srcdir)/h5fc.in \
|
||||
$(srcdir)/libhdf5_fortran.settings.in \
|
||||
DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
|
||||
$(srcdir)/h5fc.in $(srcdir)/libhdf5_fortran.settings.in \
|
||||
$(top_srcdir)/config/commence.am \
|
||||
$(top_srcdir)/config/conclude.am
|
||||
noinst_PROGRAMS = H5match_types$(EXEEXT) H5fortran_detect$(EXEEXT)
|
||||
subdir = fortran/src
|
||||
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
|
||||
am__aclocal_m4_deps = $(top_srcdir)/configure.in
|
||||
@ -67,7 +68,7 @@ am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
|
||||
$(ACLOCAL_M4)
|
||||
mkinstalldirs = $(SHELL) $(top_srcdir)/bin/mkinstalldirs
|
||||
CONFIG_HEADER = $(top_builddir)/src/H5config.h
|
||||
CONFIG_CLEAN_FILES = h5fc H5fortran_types.f90 libhdf5_fortran.settings
|
||||
CONFIG_CLEAN_FILES = h5fc libhdf5_fortran.settings
|
||||
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
|
||||
am__vpath_adj = case $$p in \
|
||||
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
|
||||
@ -94,6 +95,13 @@ am_libhdf5_fortran_la_OBJECTS = H5fortran_flags.lo H5f90global.lo \
|
||||
H5Gf.lo H5If.lo H5Pf.lo H5Rf.lo H5Sf.lo H5Tf.lo H5Zf.lo \
|
||||
$(am__objects_1)
|
||||
libhdf5_fortran_la_OBJECTS = $(am_libhdf5_fortran_la_OBJECTS)
|
||||
PROGRAMS = $(noinst_PROGRAMS)
|
||||
am_H5fortran_detect_OBJECTS = H5fortran_detect.$(OBJEXT)
|
||||
H5fortran_detect_OBJECTS = $(am_H5fortran_detect_OBJECTS)
|
||||
H5fortran_detect_LDADD = $(LDADD)
|
||||
H5match_types_SOURCES = H5match_types.c
|
||||
H5match_types_OBJECTS = H5match_types.$(OBJEXT)
|
||||
H5match_types_LDADD = $(LDADD)
|
||||
DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir)/src
|
||||
depcomp = $(SHELL) $(top_srcdir)/bin/depcomp
|
||||
am__depfiles_maybe = depfiles
|
||||
@ -110,8 +118,10 @@ LTFCCOMPILE = $(LIBTOOL) --mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
|
||||
FCLD = $(FC)
|
||||
FCLINK = $(LIBTOOL) --mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) \
|
||||
$(AM_LDFLAGS) $(LDFLAGS) -o $@
|
||||
SOURCES = $(libhdf5_fortran_la_SOURCES)
|
||||
DIST_SOURCES = $(am__libhdf5_fortran_la_SOURCES_DIST)
|
||||
SOURCES = $(libhdf5_fortran_la_SOURCES) $(H5fortran_detect_SOURCES) \
|
||||
H5match_types.c
|
||||
DIST_SOURCES = $(am__libhdf5_fortran_la_SOURCES_DIST) \
|
||||
$(H5fortran_detect_SOURCES) H5match_types.c
|
||||
settingsDATA_INSTALL = $(INSTALL_DATA)
|
||||
DATA = $(settings_DATA)
|
||||
ETAGS = etags
|
||||
@ -352,7 +362,12 @@ libhdf5_fortran_la_SOURCES = H5fortran_flags.f90 H5f90global.f90 \
|
||||
|
||||
# h5fc and libhdf5_fortran.settings are generated during configure.
|
||||
# Remove them only when distclean.
|
||||
DISTCLEANFILES = h5fc H5fortran_types.f90 libhdf5_fortran.settings
|
||||
DISTCLEANFILES = h5fc libhdf5_fortran.settings
|
||||
|
||||
# H5fortran_types.f90 and H5f90i.h are automatically generaed by
|
||||
# H5match_types, and must be cleaned explicitly. H5fort_type_defines.h
|
||||
# is generated by H5fortran_detect
|
||||
MOSTLYCLEANFILES = H5fortran_types.f90 H5f90i_gen.h H5fort_type_defines.h
|
||||
|
||||
# Install libhdf5_fortran.settings in lib directory
|
||||
settingsdir = $(libdir)
|
||||
@ -363,6 +378,15 @@ settings_DATA = libhdf5_fortran.settings
|
||||
# is configured for parallel mode
|
||||
@BUILD_PARALLEL_CONDITIONAL_TRUE@H5FC_NAME = h5pfc
|
||||
|
||||
# Tell Automake to create H5f90i_gen.h before it does anything else.
|
||||
# When it creates H5f90i_gen.h, it will create H5fortran_types.f90 as
|
||||
# a side effect.
|
||||
BUILT_SOURCES = H5f90i_gen.h
|
||||
|
||||
# Automake knows how to build fortran programs if we tell it the source
|
||||
# files.
|
||||
H5fortran_detect_SOURCES = H5fortran_detect.f90
|
||||
|
||||
# Mark this directory as part of the Fortran API
|
||||
HDF_FORTRAN = yes
|
||||
|
||||
@ -378,7 +402,8 @@ PROGS = $(bin_PROGRAMS) $(bin_SCRIPTS) $(noinst_PROGRAMS) $(noinst_SCRIPTS) \
|
||||
$(EXTRA_PROG)
|
||||
|
||||
TESTS = $(check_PROGRAMS) $(check_SCRIPTS) $(EXTRA_TEST)
|
||||
all: all-am
|
||||
all: $(BUILT_SOURCES)
|
||||
$(MAKE) $(AM_MAKEFLAGS) all-am
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .f90 .lo .o .obj
|
||||
@ -413,8 +438,6 @@ $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
|
||||
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
|
||||
h5fc: $(top_builddir)/config.status $(srcdir)/h5fc.in
|
||||
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
|
||||
H5fortran_types.f90: $(top_builddir)/config.status $(srcdir)/H5fortran_types.f90.in
|
||||
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
|
||||
libhdf5_fortran.settings: $(top_builddir)/config.status $(srcdir)/libhdf5_fortran.settings.in
|
||||
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
|
||||
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
|
||||
@ -447,6 +470,19 @@ clean-libLTLIBRARIES:
|
||||
libhdf5_fortran.la: $(libhdf5_fortran_la_OBJECTS) $(libhdf5_fortran_la_DEPENDENCIES)
|
||||
$(FCLINK) -rpath $(libdir) $(libhdf5_fortran_la_LDFLAGS) $(libhdf5_fortran_la_OBJECTS) $(libhdf5_fortran_la_LIBADD) $(LIBS)
|
||||
|
||||
clean-noinstPROGRAMS:
|
||||
@list='$(noinst_PROGRAMS)'; for p in $$list; do \
|
||||
f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \
|
||||
echo " rm -f $$p $$f"; \
|
||||
rm -f $$p $$f ; \
|
||||
done
|
||||
H5fortran_detect$(EXEEXT): $(H5fortran_detect_OBJECTS) $(H5fortran_detect_DEPENDENCIES)
|
||||
@rm -f H5fortran_detect$(EXEEXT)
|
||||
$(FCLINK) $(H5fortran_detect_LDFLAGS) $(H5fortran_detect_OBJECTS) $(H5fortran_detect_LDADD) $(LIBS)
|
||||
H5match_types$(EXEEXT): $(H5match_types_OBJECTS) $(H5match_types_DEPENDENCIES)
|
||||
@rm -f H5match_types$(EXEEXT)
|
||||
$(LINK) $(H5match_types_LDFLAGS) $(H5match_types_OBJECTS) $(H5match_types_LDADD) $(LIBS)
|
||||
|
||||
mostlyclean-compile:
|
||||
-rm -f *.$(OBJEXT)
|
||||
|
||||
@ -467,6 +503,7 @@ distclean-compile:
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/H5Zf.Plo@am__quote@
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/H5_f.Plo@am__quote@
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/H5f90kit.Plo@am__quote@
|
||||
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/H5match_types.Po@am__quote@
|
||||
|
||||
.c.o:
|
||||
@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \
|
||||
@ -603,13 +640,15 @@ distdir: $(DISTFILES)
|
||||
done
|
||||
check-am: all-am
|
||||
$(MAKE) $(AM_MAKEFLAGS) check-TESTS
|
||||
check: check-am
|
||||
all-am: Makefile $(LTLIBRARIES) $(DATA) all-local
|
||||
check: $(BUILT_SOURCES)
|
||||
$(MAKE) $(AM_MAKEFLAGS) check-am
|
||||
all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(DATA) all-local
|
||||
installdirs:
|
||||
for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(settingsdir)"; do \
|
||||
test -z "$$dir" || $(mkdir_p) "$$dir"; \
|
||||
done
|
||||
install: install-am
|
||||
install: $(BUILT_SOURCES)
|
||||
$(MAKE) $(AM_MAKEFLAGS) install-am
|
||||
install-exec: install-exec-am
|
||||
install-data: install-data-am
|
||||
uninstall: uninstall-am
|
||||
@ -624,6 +663,7 @@ install-strip:
|
||||
`test -z '$(STRIP)' || \
|
||||
echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
|
||||
mostlyclean-generic:
|
||||
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
|
||||
|
||||
clean-generic:
|
||||
|
||||
@ -634,10 +674,11 @@ distclean-generic:
|
||||
maintainer-clean-generic:
|
||||
@echo "This command is intended for maintainers to use"
|
||||
@echo "it deletes files that may require special tools to rebuild."
|
||||
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
|
||||
clean: clean-am
|
||||
|
||||
clean-am: clean-generic clean-libLTLIBRARIES clean-libtool clean-local \
|
||||
mostlyclean-am
|
||||
clean-noinstPROGRAMS mostlyclean-am
|
||||
|
||||
distclean: distclean-am
|
||||
-rm -rf ./$(DEPDIR)
|
||||
@ -689,10 +730,10 @@ uninstall-am: uninstall-info-am uninstall-libLTLIBRARIES \
|
||||
|
||||
.PHONY: CTAGS GTAGS all all-am all-local check check-TESTS check-am \
|
||||
clean clean-generic clean-libLTLIBRARIES clean-libtool \
|
||||
clean-local ctags distclean distclean-compile \
|
||||
distclean-generic distclean-libtool distclean-local \
|
||||
distclean-tags distdir dvi dvi-am html html-am info info-am \
|
||||
install install-am install-data install-data-am \
|
||||
clean-local clean-noinstPROGRAMS ctags distclean \
|
||||
distclean-compile distclean-generic distclean-libtool \
|
||||
distclean-local distclean-tags distdir dvi dvi-am html html-am \
|
||||
info info-am install install-am install-data install-data-am \
|
||||
install-data-local install-exec install-exec-am \
|
||||
install-exec-local install-info install-info-am \
|
||||
install-libLTLIBRARIES install-man install-settingsDATA \
|
||||
@ -733,6 +774,19 @@ uninstall-local:
|
||||
install-exec-local:
|
||||
$(INSTALL) h5fc $(bindir)/$(H5FC_NAME)
|
||||
|
||||
# Specify what Automake needs to create: first the H5fort_type_defines.h
|
||||
# header, then H5match_types which includes that header, then
|
||||
# it needs to run H5match_types.
|
||||
H5fortran_types.f90 H5f90i_gen.h: H5match_types.c
|
||||
$(MAKE) $(AM_MAKEFLAGS) H5fort_type_defines.h
|
||||
$(MAKE) $(AM_MAKEFLAGS) H5match_types
|
||||
$(RUNSERIAL) ./H5match_types
|
||||
|
||||
# H5fort_type_defines.h is created by running H5fortran_detect.
|
||||
# Obviously, H5fortran_detect needs to be built first.
|
||||
H5fort_type_defines.h: H5fortran_detect
|
||||
$(RUNSERIAL) ./H5fortran_detect > H5fort_type_defines.h
|
||||
|
||||
# Hardcode the dependencies of these files. There isn't a known way of
|
||||
# determining this automagically (like we do with the C files). So, when
|
||||
# doing a parallel make, some modules could be made way before the
|
||||
|
||||
@ -21,7 +21,7 @@ include $(top_srcdir)/config/commence.am
|
||||
|
||||
# Include files
|
||||
AM_FCFLAGS=-I$(top_builddir)/fortran/src $(F9XMODFLAG)$(top_builddir)/fortran/src
|
||||
INCLUDES=-I$(top_srcdir)/src
|
||||
INCLUDES=-I$(top_srcdir)/src -I$(top_builddir)/fortran/src
|
||||
|
||||
# Fortran libraries are linked statically to solve a build problem.
|
||||
AM_LDFLAGS=-static
|
||||
|
||||
@ -343,7 +343,7 @@ H5FC_PP = $(bindir)/h5pfc
|
||||
|
||||
# Include files
|
||||
AM_FCFLAGS = -I$(top_builddir)/fortran/src $(F9XMODFLAG)$(top_builddir)/fortran/src
|
||||
INCLUDES = -I$(top_srcdir)/src
|
||||
INCLUDES = -I$(top_srcdir)/src -I$(top_builddir)/fortran/src
|
||||
|
||||
# Fortran libraries are linked statically to solve a build problem.
|
||||
AM_LDFLAGS = -static
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user