Ignore:
Timestamp:
May 15, 2008 8:46:15 AM (13 years ago)
Author:
raasch
Message:

optimization of transpositions for 2D decompositions, workaround for using -env option with mpiexec, adjustments for lcxt4

File:
1 edited

Legend:

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

    r139 r164  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Arguments removed from transpose routines
    77!
    88! Former revisions:
     
    152152!--       Transposition z --> x
    153153          CALL cpu_log( log_point_s(5), 'transpo forward', 'start' )
    154           CALL transpose_zx( ar, work, ar, work, ar )
     154          CALL transpose_zx( ar, work, ar )
    155155          CALL cpu_log( log_point_s(5), 'transpo forward', 'pause' )
    156156
     
    162162!--       Transposition x --> y
    163163          CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )
    164           CALL transpose_xy( ar, work, ar, work, ar )
     164          CALL transpose_xy( ar, work, ar )
    165165          CALL cpu_log( log_point_s(5), 'transpo forward', 'pause' )
    166166
     
    172172!--       Transposition y --> z
    173173          CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )
    174           CALL transpose_yz( ar, work, ar, work, ar )
     174          CALL transpose_yz( ar, work, ar )
    175175          CALL cpu_log( log_point_s(5), 'transpo forward', 'stop' )
    176176
     
    185185!--       Transposition z --> y
    186186          CALL cpu_log( log_point_s(8), 'transpo invers', 'start' )
    187           CALL transpose_zy( ar, work, ar, work, ar )
     187          CALL transpose_zy( ar, work, ar )
    188188          CALL cpu_log( log_point_s(8), 'transpo invers', 'pause' )
    189189
     
    195195!--       Transposition y --> x
    196196          CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )
    197           CALL transpose_yx( ar, work, ar, work, ar )
     197          CALL transpose_yx( ar, work, ar )
    198198          CALL cpu_log( log_point_s(8), 'transpo invers', 'pause' )
    199199
     
    205205!--       Transposition x --> z
    206206          CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )
    207           CALL transpose_xz( ar, work, ar, work, ar )
     207          CALL transpose_xz( ar, work, ar )
    208208          CALL cpu_log( log_point_s(8), 'transpo invers', 'stop' )
    209209
Note: See TracChangeset for help on using the changeset viewer.