Hi brtnfld, now it works !!
However, there immediately emerged another bunch of errors, that I tried to solve in a similar way but still with no success:
The declaration of variables looks like:
integer, parameter :: nb_int=23,nb_real=5
integer, dimension(nb_int) :: para_int
integer, dimension(3 ) :: nx_p
integer :: nl1,nl2,nl3
integer :: i,j,k,l,NNx,NNy,NNz,ish
integer(HID_T) :: file_id !< File identifiers
integer :: error !< Flag to check operation success
integer :: n1,n2,n3,n4
double precision, dimension(nb_real) :: para_real
real, dimension(:,:,:), allocatable :: T1
real :: U,P,T
character(len=23) :: filename
character(len=5 ) :: para_string
It gives the following error messages and warnings:
…/src/hdf/rd_restart_h5.f90:149:63:
call get_1d_array_string_h5(file_id,“geometry”,para_string,5)
1
Error: Type mismatch in argument ‘length’ at (1); passed INTEGER(4) to INTEGER(8)
…/src/hdf/rd_restart_h5.f90:162:20:
u_M = para_real(6)
1
Warning: Array reference at (1) is out of bounds (6 > 5) in dimension 1
…/src/hdf/rd_restart_h5.f90:163:20:
u_L = para_real(7)
1
Warning: Array reference at (1) is out of bounds (7 > 5) in dimension 1
…/src/hdf/rd_restart_h5.f90:164:20:
u_T = para_real(8)
1
Warning: Array reference at (1) is out of bounds (8 > 5) in dimension 1
…/src/hdf/rd_restart_h5.f90:167:78:
call get_1d_array_h5(file_id,“x_glob”,x_glob(1:nx_glob(1)+1,1),nx_glob(1)+1)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:170:82:
all get_1d_array_h5(file_id,“y_glob”,x_glob(1:nx_glob(2)+1,2)/u_L,nx_glob(2)+1)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:173:82:
all get_1d_array_h5(file_id,“z_glob”,x_glob(1:nx_glob(2)+1,3)/u_L,nx_glob(3)+1)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:176:62:
call get_1d_array_h5(file_id,“x”,x(1:nx(1)+1,1)/u_L,nx(1)+1)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:179:62:
call get_1d_array_h5(file_id,“y”,x(1:nx(2)+1,2)/u_L,nx(2)+1)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:182:62:
call get_1d_array_h5(file_id,“z”,x(1:nx(3)+1,3)/u_L,nx(3)+1)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:185:64:
call get_1d_array_h5(file_id,“shift_gr”,shift_gr(1:ndim),ndim)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:191:50:
call get_3d_array_h5(file_id,“rho”,rho,n1,n2,n3)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:195:55:
call get_4d_array_h5(file_id,“rhou”,rhou,n1,n2,n3,n4)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:198:46:
call get_3d_array_h5(file_id,“E”,E,n1,n2,n3)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:204:54:
call get_4d_array_h5(file_id,"fx",fx,n1,n2,n3,n4)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:210:51:
call get_3d_array_h5(file_id,"er",er,n1,n2,n3)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:213:54:
call get_4d_array_h5(file_id,"fr",fr,n1,n2,n3,n4)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:218:53:
call get_3d_array_h5(file_id,"erd",erd,n1,n2,n3)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
…/src/hdf/rd_restart_h5.f90:224:49:
call get_4d_array_h5(file_id,“B”,B,n1,n2,n3,n4)
1
Error: Type mismatch in argument ‘array’ at (1); passed REAL(8) to REAL(16)
Makefile:159: recipe for target ‘rd_restart_h5.o’ failed
make: *** [rd_restart_h5.o] Error 1
Can you please give me a hint ??
Thanks Petr