summaryrefslogtreecommitdiffstats
path: root/fortran/examples
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/examples')
-rw-r--r--fortran/examples/attrexample.f902
-rw-r--r--fortran/examples/compound.f902
-rw-r--r--fortran/examples/grpdsetexample.f902
-rw-r--r--fortran/examples/grpit.f902
-rw-r--r--fortran/examples/hyperslab.f902
-rw-r--r--fortran/examples/mountexample.f902
-rw-r--r--fortran/examples/refobjexample.f902
-rw-r--r--fortran/examples/refregexample.f904
-rw-r--r--fortran/examples/rwdsetexample.f902
-rw-r--r--fortran/examples/selectele.f902
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
!