Changeset 3160 for palm/trunk
- Timestamp:
- Jul 20, 2018 11:52:56 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/multi_agent_system_mod.f90
r3159 r3160 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed C_SIZEOF to STORAGE_SIZE 28 ! 29 ! 3159 2018-07-20 11:20:01Z sward 27 30 ! Initial revision 28 31 ! … … 1166 1169 ENDIF 1167 1170 CALL MPI_BARRIER( comm2d, ierr ) 1168 agt_size = C_SIZEOF(zero_agent)1171 agt_size = STORAGE_SIZE(zero_agent)/8 1169 1172 IF ( myid == 0 ) THEN 1170 1173 ! … … 1788 1791 !-- This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 1789 1792 !-- variables in structure agent_type (due to the calculation of par_size) 1790 par_size = C_SIZEOF(trla(1))1793 par_size = STORAGE_SIZE(trla(1))/8 1791 1794 CALL MPI_SENDRECV( trla, max(1,trla_count)*par_size, MPI_BYTE, pleft,& 1792 1795 1, rvra, max(1,trra_count_recv)*par_size, MPI_BYTE, pright,& … … 1809 1812 !-- This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 1810 1813 !-- variables in structure agent_type (due to the calculation of par_size) 1811 par_size = C_SIZEOF(trra(1))1814 par_size = STORAGE_SIZE(trra(1))/8 1812 1815 CALL MPI_SENDRECV( trra, max(1,trra_count)*par_size, MPI_BYTE, & 1813 1816 pright, 1, rvla, & … … 2008 2011 !-- This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 2009 2012 !-- variables in structure agent_type (due to the calculation of par_size) 2010 par_size = C_SIZEOF(trsa(1))2013 par_size = STORAGE_SIZE(trsa(1))/8 2011 2014 CALL MPI_SENDRECV( trsa, trsa_count*par_size, MPI_BYTE, & 2012 2015 psouth, 1, rvna, & … … 2030 2033 !-- This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 2031 2034 !-- variables in structure agent_type (due to the calculation of par_size) 2032 par_size = C_SIZEOF(trna(1))2035 par_size = STORAGE_SIZE(trna(1))/8 2033 2036 CALL MPI_SENDRECV( trna, trna_count*par_size, MPI_BYTE, & 2034 2037 pnorth, 1, rvsa, & … … 2298 2301 ! 2299 2302 !-- Get bit size of one agent 2300 agt_size = C_SIZEOF(zero_agent)2303 agt_size = STORAGE_SIZE(zero_agent)/8 2301 2304 ! 2302 2305 !-- Send/receive agents to/from left/right neighbor … … 2415 2418 ! 2416 2419 !-- Get bit size of one agent 2417 agt_size = C_SIZEOF(zero_agent)2420 agt_size = STORAGE_SIZE(zero_agent)/8 2418 2421 ! 2419 2422 !-- Send/receive agents to/from south/north neighbor
Note: See TracChangeset
for help on using the changeset viewer.