| /dports/devel/ga/ga-5.8/global/src/ |
| H A D | base.c | 1533 GA[ga_handle].elemsize = GAsizeofM(GA[ga_handle].type); in pnga_set_data()
2075 GA[ga_handle].old_lo[i] = GA[ga_handle].lo[i]; in pnga_set_property()
2081 GA[ga_handle].old_mapc[i] = GA[ga_handle].mapc[i]; in pnga_set_property()
2092 GA[ga_handle].old_handle = GA[ga_handle].p_handle; in pnga_set_property()
2378 GA[ga_handle].lo[i] = GA[ga_handle].old_lo[i]; in pnga_unset_property()
2385 GA[ga_handle].mapc[i] = GA[ga_handle].old_mapc[i]; in pnga_unset_property()
2409 GA[ga_handle].p_handle = GA[ga_handle].old_handle; in pnga_unset_property()
2414 GA[ga_handle].type, &GA[ga_handle].id, GA[ga_handle].p_handle, in pnga_unset_property()
2418 GA[ga_handle].type, &GA[ga_handle].id, GA[ga_handle].p_handle); in pnga_unset_property()
3767 (int)GA[ga_handle].type, &GA[ga_handle].id, in pnga_duplicate()
[all …]
|
| H A D | base.h | 184 #define gam_find_block_indices(ga_handle,nblock,index) { \ argument
186 int _ndim = GA[ga_handle].ndim; \
188 index[0] = _itmp%GA[ga_handle].num_blocks[0]; \
190 _itmp = (_itmp-index[_i-1])/GA[ga_handle].num_blocks[_i-1]; \
223 index[0] = _itmp%GA[ga_handle].nblock[0]; \
240 ga_ownsM_no_handle(GA[ga_handle].ndim, GA[ga_handle].dims, \
241 GA[ga_handle].nblock, GA[ga_handle].mapc, \
245 ga_ownsM_no_handle(GA[ga_handle].ndim, GA[ga_handle].dims, \
246 GA[ga_handle].nblock, GA[ga_handle].mapc, \
267 if (hi[_i] > GA[ga_handle].dims[_i]) hi[_i]=GA[ga_handle].dims[_i]; \
[all …]
|
| H A D | ga_iterator.h | 38 #define gam_find_block_indices(ga_handle,nblock,index) { \
40 int _ndim = GA[ga_handle].ndim; \
42 index[0] = _itmp%GA[ga_handle].num_blocks[0]; \
44 _itmp = (_itmp-index[_i-1])/GA[ga_handle].num_blocks[_i-1]; \
45 index[_i] = _itmp%GA[ga_handle].num_blocks[_i]; \
51 #define gam_find_proc_indices(ga_handle,proc,index) { \
53 Integer _ndim = GA[ga_handle].ndim; \
55 index[0] = _itmp%GA[ga_handle].nblock[0]; \
57 _itmp = (_itmp-index[_i-1])/GA[ga_handle].nblock[_i-1]; \
58 index[_i] = _itmp%GA[ga_handle].nblock[_i]; \
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/smdlib/ |
| H A D | smd_global.F | 129 integer ga_handle
249 integer ga_handle
335 integer ga_handle
373 call ga_copy(ga_handle,gh)
475 integer ga_handle
506 call ga_print(ga_handle)
532 integer ga_handle
545 if(.not.ga_destroy(ga_handle)) call errquit(
552 if(.not.ga_destroy(ga_handle)) call errquit(
559 if(.not.ga_destroy(ga_handle)) call errquit(
[all …]
|
| H A D | smd_fragment.F | 353 subroutine smd_fragment_charge_handle(ga_handle) argument
360 integer ga_handle local
373 call smd_data_get_int(sp,"charge",1,ga_handle,result)
433 subroutine smd_fragment_energy_handle(ga_handle) argument
440 integer ga_handle local
453 call smd_data_get_int(sp,"energy",1,ga_handle,result)
|
| H A D | smd_geom.F | 977 integer ga_handle, ilo,ihi
1067 call smd_data_get_int(sp_global,"charges",1,ga_handle,result)
1077 call nga_put(ga_handle,ilo,ihi, dbl_mb(i_q1), 1)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/smdlib/ |
| H A D | smd_global.F | 129 integer ga_handle
249 integer ga_handle
335 integer ga_handle
373 call ga_copy(ga_handle,gh)
475 integer ga_handle
506 call ga_print(ga_handle)
532 integer ga_handle
545 if(.not.ga_destroy(ga_handle)) call errquit(
552 if(.not.ga_destroy(ga_handle)) call errquit(
559 if(.not.ga_destroy(ga_handle)) call errquit(
[all …]
|
| H A D | smd_fragment.F | 353 subroutine smd_fragment_charge_handle(ga_handle) argument
360 integer ga_handle
373 call smd_data_get_int(sp,"charge",1,ga_handle,result)
433 subroutine smd_fragment_energy_handle(ga_handle) argument
440 integer ga_handle
453 call smd_data_get_int(sp,"energy",1,ga_handle,result)
|
| H A D | smd_geom.F | 977 integer ga_handle, ilo,ihi
1067 call smd_data_get_int(sp_global,"charges",1,ga_handle,result)
1077 call nga_put(ga_handle,ilo,ihi, dbl_mb(i_q1), 1)
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-serial/ |
| H A D | smd_fragment.F | 353 subroutine smd_fragment_charge_handle(ga_handle) argument
360 integer ga_handle
373 call smd_data_get_int(sp,"charge",1,ga_handle,result)
433 subroutine smd_fragment_energy_handle(ga_handle) argument
440 integer ga_handle
453 call smd_data_get_int(sp,"energy",1,ga_handle,result)
|
| H A D | smd_charge.F | 556 subroutine smd_charge_ga_handle(ga_handle) argument
563 integer ga_handle local
565 ga_handle = smd_charge_ga
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-9-10-08/ |
| H A D | smd_fragment.F | 353 subroutine smd_fragment_charge_handle(ga_handle) argument
360 integer ga_handle local
373 call smd_data_get_int(sp,"charge",1,ga_handle,result)
433 subroutine smd_fragment_energy_handle(ga_handle) argument
440 integer ga_handle local
453 call smd_data_get_int(sp,"energy",1,ga_handle,result)
|
| H A D | smd_charge.F | 556 subroutine smd_charge_ga_handle(ga_handle) argument
563 integer ga_handle local
565 ga_handle = smd_charge_ga
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-serial/ |
| H A D | smd_fragment.F | 353 subroutine smd_fragment_charge_handle(ga_handle) argument
360 integer ga_handle
373 call smd_data_get_int(sp,"charge",1,ga_handle,result)
433 subroutine smd_fragment_energy_handle(ga_handle) argument
440 integer ga_handle
453 call smd_data_get_int(sp,"energy",1,ga_handle,result)
|
| H A D | smd_charge.F | 556 subroutine smd_charge_ga_handle(ga_handle) argument
563 integer ga_handle
565 ga_handle = smd_charge_ga
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-9-10-08/ |
| H A D | smd_fragment.F | 353 subroutine smd_fragment_charge_handle(ga_handle) argument
360 integer ga_handle
373 call smd_data_get_int(sp,"charge",1,ga_handle,result)
433 subroutine smd_fragment_energy_handle(ga_handle) argument
440 integer ga_handle
453 call smd_data_get_int(sp,"energy",1,ga_handle,result)
|
| H A D | smd_charge.F | 556 subroutine smd_charge_ga_handle(ga_handle) argument
563 integer ga_handle
565 ga_handle = smd_charge_ga
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-new/ |
| H A D | smd_charge.F | 561 subroutine smd_charge_ga_handle(ga_handle) argument
568 integer ga_handle
570 ga_handle = smd_charge_ga
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-subgroups/ |
| H A D | smd_charge.F | 562 subroutine smd_charge_ga_handle(ga_handle) argument
569 integer ga_handle
571 ga_handle = smd_charge_ga
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-new/ |
| H A D | smd_charge.F | 561 subroutine smd_charge_ga_handle(ga_handle) argument
568 integer ga_handle
570 ga_handle = smd_charge_ga
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-subgroups/ |
| H A D | smd_charge.F | 562 subroutine smd_charge_ga_handle(ga_handle) argument
569 integer ga_handle
571 ga_handle = smd_charge_ga
|