diff options
Diffstat (limited to 'fortran/examples')
-rw-r--r-- | fortran/examples/attrexample.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/compound.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/grpdsetexample.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/grpit.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/hyperslab.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/mountexample.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/refobjexample.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/refregexample.f90 | 4 | ||||
-rw-r--r-- | fortran/examples/rwdsetexample.f90 | 2 | ||||
-rw-r--r-- | fortran/examples/selectele.f90 | 2 |
10 files changed, 11 insertions, 11 deletions
diff --git a/fortran/examples/attrexample.f90 b/fortran/examples/attrexample.f90 index aa46a91..1664568 100644 --- a/fortran/examples/attrexample.f90 +++ b/fortran/examples/attrexample.f90 @@ -41,7 +41,7 @@ CHARACTER(LEN=80), DIMENSION(2) :: attr_data ! Attribute data INTEGER :: error ! Error flag - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims ! diff --git a/fortran/examples/compound.f90 b/fortran/examples/compound.f90 index b2f98c2..0cc7fc5 100644 --- a/fortran/examples/compound.f90 +++ b/fortran/examples/compound.f90 @@ -62,7 +62,7 @@ DOUBLE PRECISION, DIMENSION(dimsize) :: double_member REAL, DIMENSION(dimsize) :: real_member INTEGER :: i - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims data_dims(1) = dimsize ! ! Initialize data buffer. diff --git a/fortran/examples/grpdsetexample.f90 b/fortran/examples/grpdsetexample.f90 index 64d5308..81fe6f6 100644 --- a/fortran/examples/grpdsetexample.f90 +++ b/fortran/examples/grpdsetexample.f90 @@ -43,7 +43,7 @@ INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/3,3/) ! Datasets dimensions INTEGER(HSIZE_T), DIMENSION(2) :: dims2 = (/2,10/)! - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims INTEGER :: rank = 2 ! Datasets rank diff --git a/fortran/examples/grpit.f90 b/fortran/examples/grpit.f90 index 6364e31..a17b577 100644 --- a/fortran/examples/grpit.f90 +++ b/fortran/examples/grpit.f90 @@ -51,7 +51,7 @@ INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/3,3/) ! Dataset dimensions INTEGER(HSIZE_T), DIMENSION(2) :: dims2 = (/2,10/)! INTEGER :: rank = 2 ! Datasets rank - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims ! ! Initialize dset1_data array. diff --git a/fortran/examples/hyperslab.f90 b/fortran/examples/hyperslab.f90 index c1b9eef..f949f11 100644 --- a/fortran/examples/hyperslab.f90 +++ b/fortran/examples/hyperslab.f90 @@ -52,7 +52,7 @@ INTEGER :: i, j, k INTEGER :: error, error_n ! Error flags - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims ! diff --git a/fortran/examples/mountexample.f90 b/fortran/examples/mountexample.f90 index 29d2834..2c5ad11 100644 --- a/fortran/examples/mountexample.f90 +++ b/fortran/examples/mountexample.f90 @@ -82,7 +82,7 @@ ! Data buffers ! INTEGER, DIMENSION(NX,NY) :: data_in, data_out - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims ! ! Initialize FORTRAN interface. diff --git a/fortran/examples/refobjexample.f90 b/fortran/examples/refobjexample.f90 index 6b6de55..127d5c0 100644 --- a/fortran/examples/refobjexample.f90 +++ b/fortran/examples/refobjexample.f90 @@ -50,7 +50,7 @@ TYPE(hobj_ref_t_f), DIMENSION(4) :: ref_out INTEGER, DIMENSION(5) :: data = (/1, 2, 3, 4, 5/) INTEGER :: class - INTEGER, DIMENSION(7) :: data_dims, ref_size + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims, ref_size ! ! Initialize FORTRAN interface. ! diff --git a/fortran/examples/refregexample.f90 b/fortran/examples/refregexample.f90 index 90b4551..5367da8 100644 --- a/fortran/examples/refregexample.f90 +++ b/fortran/examples/refregexample.f90 @@ -50,8 +50,8 @@ INTEGER(HSSIZE_T) , DIMENSION(2,3) :: coord INTEGER(SIZE_T) ::num_points = 3 ! Number of selected points INTEGER :: i, j - INTEGER, DIMENSION(7) :: ref_size - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(1) :: ref_size + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims coord = reshape((/1,1,2,7,1,9/), (/2,3/)) ! Coordinates of selected points data = reshape ((/1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6/), (/2,9/)) ! diff --git a/fortran/examples/rwdsetexample.f90 b/fortran/examples/rwdsetexample.f90 index 8ef00bd..e2c4d4b 100644 --- a/fortran/examples/rwdsetexample.f90 +++ b/fortran/examples/rwdsetexample.f90 @@ -36,7 +36,7 @@ INTEGER :: i, j INTEGER, DIMENSION(4,6) :: dset_data, data_out ! Data buffers - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims ! ! Initialize the dset_data array. diff --git a/fortran/examples/selectele.f90 b/fortran/examples/selectele.f90 index a076692..f476ec5 100644 --- a/fortran/examples/selectele.f90 +++ b/fortran/examples/selectele.f90 @@ -64,7 +64,7 @@ INTEGER :: error ! Error flag LOGICAL :: status - INTEGER, DIMENSION(7) :: data_dims + INTEGER(HSIZE_T), DIMENSION(2) :: data_dims ! |