Commit 56650ede authored by S.Rost's avatar S.Rost

small fix for last commit

parent 228baf99
...@@ -269,7 +269,7 @@ SUBROUTINE writeBasis(input,noco,kpts,atoms,sym,cell,enpara,vTot,mpi,DIMENSION,r ...@@ -269,7 +269,7 @@ SUBROUTINE writeBasis(input,noco,kpts,atoms,sym,cell,enpara,vTot,mpi,DIMENSION,r
CALL h5screate_simple_f(1,dims(:1),atomicNumbersSpaceID,hdfError) CALL h5screate_simple_f(1,dims(:1),atomicNumbersSpaceID,hdfError)
CALL h5dcreate_f(atomsGroupID, "ztype", H5T_NATIVE_INTEGER, atomicNumbersSpaceID, atomicNumbersSetID, hdfError) CALL h5dcreate_f(atomsGroupID, "ztype", H5T_NATIVE_INTEGER, atomicNumbersSpaceID, atomicNumbersSetID, hdfError)
CALL h5sclose_f(atomicNumbersSpaceID,hdfError) CALL h5sclose_f(atomicNumbersSpaceID,hdfError)
CALL io_write_integer1(atomicNumbersSetID,(/1/),dimsInt(:1),atoms%zatom) CALL io_write_integer1(atomicNumbersSetID,(/1/),dimsInt(:1),atoms%nz)
CALL h5dclose_f(atomicNumbersSetID, hdfError) CALL h5dclose_f(atomicNumbersSetID, hdfError)
dims(:1)=(/atoms%nat/) dims(:1)=(/atoms%nat/)
......
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