Commit e00aaee7 authored by Gregor Michalicek's avatar Gregor Michalicek

Added missing bracket in io/cdnpot_io_hdf.F90

parent 05f3baf3
......@@ -2497,7 +2497,7 @@ MODULE m_cdnpot_io_hdf
CALL h5screate_simple_f(3,dims(:3),rhcsSpaceID,hdfError)
CALL h5dcreate_f(cdncGroupID, "rhcs", H5T_NATIVE_DOUBLE, rhcsSpaceID, rhcsSetID, hdfError)
CALL h5sclose_f(rhcsSpaceID,hdfError)
CALL io_write_real3(rhcsSetID,(/1,1,1/),dimsInt(:3),rhcs(:dimsInt(1),:dimsInt(2),:dimsInt(3))
CALL io_write_real3(rhcsSetID,(/1,1,1/),dimsInt(:3),rhcs(:dimsInt(1),:dimsInt(2),:dimsInt(3)))
CALL h5dclose_f(rhcsSetID, hdfError)
dims(:2)=(/atoms%ntype,DIMENSION%jspd/)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment