Ignore:
Timestamp:
Mar 11, 2009 3:17:42 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine

File:
1 edited

Legend:

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

    r4 r257  
    22!------------------------------------------------------------------------------
    33!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    145146       CALL LOCAL_GETENV( 'OMP_NUM_THREADS', 15, cdummy, idummy )
    146147       READ ( cdummy, '(I8)' )  n_omp_threads
    147        IF ( myid == 0  .AND.  n_omp_threads > 1 )  THEN
    148           PRINT*, '*** poisfft_hybrid_ini:  Number of OpenMP threads = ', &
    149                   n_omp_threads
     148       IF ( n_omp_threads > 1 )  THEN
     149          WRITE( message_string, * ) 'Number of OpenMP threads = ', &
     150                                     n_omp_threads
     151          CALL message( 'poisfft_hybrid_ini', 'PA0280', 0, 0, 0, 6, 0 )
    150152       ENDIF
    151153#else
     
    175177                ENDIF
    176178
    177                 IF ( myid == 0  .AND.  tasks_per_logical_node > -1 )  THEN
    178                    PRINT*, '*** poisfft_hybrid_ini:  running optimized ', &
    179                            'multinode version'
    180                    PRINT*, '    switch_per_lpar        = ', switch_per_lpar
    181                    PRINT*, '    tasks_per_lpar         = ', tasks_per_node
    182                    PRINT*, '    tasks_per_logical_node = ', &
    183                                                          tasks_per_logical_node
     179                IF ( tasks_per_logical_node > -1 )  THEN
     180
     181                   WRITE( message_string, * ) 'running optimized ',         &
     182                                              'multinode version',          &
     183                                              '&switch_per_lpar        = ', &
     184                                              switch_per_lpar,              &
     185                                              '&tasks_per_lpar         = ', &
     186                                              tasks_per_node,               &
     187                                              'tasks_per_logical_node = ',  &
     188                                              tasks_per_logical_node
     189                   CALL message( 'poisfft_hybrid_ini', 'PA0281', 0, 0, 0, 6, 0 )
     190
    184191                ENDIF
    185192
     
    215222!                     tasks_per_logical_node
    216223#else
    217           PRINT*, '+++ poisfft_hybrid_ini: parallel environment (MPI) required'
    218           CALL local_stop
     224          message_string = 'parallel environment (MPI) required'
     225          CALL message( 'poisfft_hybrid_ini', 'PA0282', 1, 2, 0, 6, 0 )
    219226#endif
    220227       ENDIF
Note: See TracChangeset for help on using the changeset viewer.