diff options
author | Allen Byrne <byrn@hdfgroup.org> | 2020-05-12 20:45:22 (GMT) |
---|---|---|
committer | Allen Byrne <byrn@hdfgroup.org> | 2020-05-12 20:45:22 (GMT) |
commit | 415647d63a0783a566402d98baad2b65677ab812 (patch) | |
tree | aaeb7234705bc5c8197e4f17e83ff8603479c05d /fortran/examples/nested_derived_type.f90 | |
parent | 5b441f84c9a09d216a018c34eb488c241db0a060 (diff) | |
download | hdf5-415647d63a0783a566402d98baad2b65677ab812.zip hdf5-415647d63a0783a566402d98baad2b65677ab812.tar.gz hdf5-415647d63a0783a566402d98baad2b65677ab812.tar.bz2 |
Whitespace cleanup
Diffstat (limited to 'fortran/examples/nested_derived_type.f90')
-rw-r--r-- | fortran/examples/nested_derived_type.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fortran/examples/nested_derived_type.f90 b/fortran/examples/nested_derived_type.f90 index 68354ac..651830c 100644 --- a/fortran/examples/nested_derived_type.f90 +++ b/fortran/examples/nested_derived_type.f90 @@ -1,4 +1,4 @@ -! +! ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! Copyright by the Board of Trustees of the University of Illinois. * ! All rights reserved. * @@ -82,10 +82,10 @@ PROGRAM main INTEGER(SIZE_T) :: offset, sizeof_compound INTEGER :: hdferr TYPE(C_PTR) :: f_ptr - - INTEGER(SIZE_T) :: type_sizei ! Size of the integer datatype - INTEGER(SIZE_T) :: type_sizer ! Size of the real datatype - INTEGER(SIZE_T) :: type_sized ! Size of the double datatype + + INTEGER(SIZE_T) :: type_sizei ! Size of the integer datatype + INTEGER(SIZE_T) :: type_sizer ! Size of the real datatype + INTEGER(SIZE_T) :: type_sized ! Size of the double datatype INTEGER(hid_t) :: tid3 ! /* Nested Array Datatype ID */ INTEGER(HSIZE_T), DIMENSION(1) :: tdims1=(/7/) INTEGER(HSIZE_T), DIMENSION(1) :: tdims1a=(/4/) @@ -136,7 +136,7 @@ PROGRAM main ! ! Write data to the dataset ! - + f_ptr = C_LOC(s1(1)) CALL H5Dwrite_f(dataset, s1_tid, f_ptr, hdferr) @@ -153,7 +153,7 @@ PROGRAM main ! CALL H5Fopen_f(H5FILE_NAME, H5F_ACC_RDONLY_F, file, hdferr) - + CALL H5Dopen_f(file, DATASETNAME, dataset,hdferr) ! ! Create a data type for s2 |