Home
last modified time | relevance | path

Searched refs:my_nmax (Results 1 – 8 of 8) sorted by relevance

/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dqs_nl_hash_table_types.F165 my_nmax = 1
166 IF (PRESENT(nmax)) my_nmax = nmax
230 my_nmax = hash_table%obj%nmax
231 IF (PRESENT(nmax)) my_nmax = nmax
236 DO WHILE (two_to_power .LT. my_nmax)
239 my_nmax = two_to_power
244 ALLOCATE (hash_table%obj%table(my_nmax))
247 ALLOCATE (hash_table%obj%table(my_nmax))
249 hash_table%obj%nmax = my_nmax
310 my_nmax = MAX(nmax, hash_table%obj%nelements)
[all …]
H A Dqs_fb_hash_table_types.F163 my_nmax = 1
164 IF (PRESENT(nmax)) my_nmax = nmax
166 nmax=my_nmax)
239 my_nmax = hash_table%obj%nmax
240 IF (PRESENT(nmax)) my_nmax = nmax
244 DO WHILE (2**power .LT. my_nmax)
247 my_nmax = 2**power
254 ALLOCATE (hash_table%obj%table(my_nmax))
256 hash_table%obj%nmax = my_nmax
302 my_nmax = hash_table%obj%nmax
[all …]
H A Dqs_fb_matrix_data_types.F251 INTEGER :: my_nmax local
256 my_nmax = matrix_data%obj%nmax
257 IF (PRESENT(nmax)) my_nmax = nmax
258 my_nmax = MAX(my_nmax, 1)
262 CALL fb_hash_table_create(matrix_data%obj%ind, my_nmax)
H A Dqs_fb_distribution_methods.F574 INTEGER :: ii, my_nmax local
576 my_nmax = 0
577 IF (PRESENT(nmax)) my_nmax = nmax
582 IF (my_nmax .GT. 0) THEN
583 ALLOCATE (dist%list(my_nmax))
606 INTEGER :: ii, my_nmax local
611 my_nmax = MAX(nmax, 1)
612 ALLOCATE (dist%list(my_nmax))
614 my_nmax = MAX(nmax, dist%nelements)
615 ALLOCATE (new_list(my_nmax))
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dqs_nl_hash_table_types.F165 my_nmax = 1
166 IF (PRESENT(nmax)) my_nmax = nmax
230 my_nmax = hash_table%obj%nmax
231 IF (PRESENT(nmax)) my_nmax = nmax
236 DO WHILE (two_to_power .LT. my_nmax)
239 my_nmax = two_to_power
244 ALLOCATE (hash_table%obj%table(my_nmax))
247 ALLOCATE (hash_table%obj%table(my_nmax))
249 hash_table%obj%nmax = my_nmax
310 my_nmax = MAX(nmax, hash_table%obj%nelements)
[all …]
H A Dqs_fb_hash_table_types.F163 my_nmax = 1
164 IF (PRESENT(nmax)) my_nmax = nmax
166 nmax=my_nmax)
239 my_nmax = hash_table%obj%nmax
240 IF (PRESENT(nmax)) my_nmax = nmax
244 DO WHILE (2**power .LT. my_nmax)
247 my_nmax = 2**power
254 ALLOCATE (hash_table%obj%table(my_nmax))
256 hash_table%obj%nmax = my_nmax
302 my_nmax = hash_table%obj%nmax
[all …]
H A Dqs_fb_matrix_data_types.F251 INTEGER :: my_nmax local
256 my_nmax = matrix_data%obj%nmax
257 IF (PRESENT(nmax)) my_nmax = nmax
258 my_nmax = MAX(my_nmax, 1)
262 CALL fb_hash_table_create(matrix_data%obj%ind, my_nmax)
H A Dqs_fb_distribution_methods.F574 INTEGER :: ii, my_nmax local
576 my_nmax = 0
577 IF (PRESENT(nmax)) my_nmax = nmax
582 IF (my_nmax .GT. 0) THEN
583 ALLOCATE (dist%list(my_nmax))
606 INTEGER :: ii, my_nmax local
611 my_nmax = MAX(nmax, 1)
612 ALLOCATE (dist%list(my_nmax))
614 my_nmax = MAX(nmax, dist%nelements)
615 ALLOCATE (new_list(my_nmax))