scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix GNU warning.

This commit is contained in:
Ye Luo 2021-06-27 13:28:11 -05:00
parent fb444989ad
commit 06e5783b72
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
UtilXlib/print_mem.f90
View File

@ -39,5 +39,8 @@ subroutine print_gpu_mem(out_unit)
usedMB = (totalMem-freeMem)/(1024*1024);
write(out_unit,'(5X, "GPU memory used/free/total (MiB): ", I0, A3, I0,A3, I0)') &
& usedMB, " / ", freeMB, " / ", totalMB
#else
implicit none
integer, intent(in) :: out_unit
#endif
end subroutine