Changeset 3160 for palm/trunk


Ignore:
Timestamp:
Jul 20, 2018 11:52:56 AM (6 years ago)
Author:
sward
Message:

Changed C_SIZEOF to STORAGE_SIZE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/multi_agent_system_mod.f90

    r3159 r3160  
    2525! -----------------
    2626! $Id$
     27! Changed C_SIZEOF to STORAGE_SIZE
     28!
     29! 3159 2018-07-20 11:20:01Z sward
    2730! Initial revision
    2831!
     
    11661169       ENDIF
    11671170       CALL MPI_BARRIER( comm2d, ierr )
    1168        agt_size = C_SIZEOF(zero_agent)
     1171       agt_size = STORAGE_SIZE(zero_agent)/8
    11691172       IF ( myid == 0 )  THEN
    11701173!
     
    17881791!--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit
    17891792!--       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
    17911794          CALL MPI_SENDRECV( trla, max(1,trla_count)*par_size, MPI_BYTE, pleft,&
    17921795                    1, rvra, max(1,trra_count_recv)*par_size, MPI_BYTE, pright,&
     
    18091812!--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit
    18101813!--       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
    18121815          CALL MPI_SENDRECV( trra, max(1,trra_count)*par_size, MPI_BYTE,       &
    18131816                             pright, 1, rvla,                                  &
     
    20082011!--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit
    20092012!--       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
    20112014          CALL MPI_SENDRECV( trsa, trsa_count*par_size, MPI_BYTE,              &
    20122015                             psouth, 1, rvna,                                  &
     
    20302033!--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit
    20312034!--       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
    20332036          CALL MPI_SENDRECV( trna, trna_count*par_size, MPI_BYTE,              &
    20342037                             pnorth, 1, rvsa,                                  &
     
    22982301!
    22992302!--       Get bit size of one agent
    2300           agt_size = C_SIZEOF(zero_agent)
     2303          agt_size = STORAGE_SIZE(zero_agent)/8
    23012304!
    23022305!--       Send/receive agents to/from left/right neighbor
     
    24152418!
    24162419!--       Get bit size of one agent
    2417           agt_size = C_SIZEOF(zero_agent)
     2420          agt_size = STORAGE_SIZE(zero_agent)/8
    24182421!
    24192422!--       Send/receive agents to/from south/north neighbor
Note: See TracChangeset for help on using the changeset viewer.