comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

allocate some padding space

Browse source 
svn-origin-rev: 13164
This commit is contained in:
Joost VandeVondele 2013-09-25 07:43:07 +00:00
parent 44a2e9a91b
commit 1b640cd919
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/build_libsmm/mults.f90
View file

@ -92,9 +92,11 @@ CONTAINS
IF (PRESENT(M).AND.PRESENT(N).AND.PRESENT(K).AND.PRESENT(transpose_flavor)) THEN
IF (PRESENT(stack_size_label)) THEN
! +8 ... the buffered routines need to be able to read past the last 'used' elements of the C array.
! the array therefore needs to be padded appropriately.
write(6,'(A)') " "//trdat(data_type)// &
" :: C(M*N*"//TRIM(stack_size_label)// &
"), B(K*N*"//TRIM(stack_size_label)// &
"+8), B(K*N*"//TRIM(stack_size_label)// &
"), A(M*K*"//TRIM(stack_size_label)//")"
ELSE
IF (write_intent) THEN