Ignore:
Timestamp:
Jan 12, 2009 4:04:16 PM (13 years ago)
Author:
letzel
Message:
  • Bugfixes for nonparallel execution
File:
1 edited

Legend:

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

    r198 r222  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix for nonparallel execution
    77!
    88! Former revisions:
     
    125125!--    Write cpu-times sorted by size
    126126       CALL check_open( 18 )
     127#if defined( __parallel )
    127128       WRITE ( 18, 100 )  TRIM( run_description_header ),        &
    128129                          numprocs * threads_per_task, pdims(1), pdims(2), &
    129130                          threads_per_task
     131#else
     132       WRITE ( 18, 100 )  TRIM( run_description_header ),        &
     133                          numprocs * threads_per_task, 1, 1, &
     134                          threads_per_task
     135#endif
    130136       DO
    131137          ii = MAXLOC( sum )
Note: See TracChangeset for help on using the changeset viewer.