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

Indentation of the message calls corrected

File:
1 edited

Legend:

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

    r254 r274  
    8282    ELSEIF ( modus == 'pause' )  THEN
    8383       IF ( ( mtime - log_event%mtime ) < 0.0  .AND.  first )  THEN
    84           WRITE( message_string, * ) 'negative time interval occured', &
    85                                      ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),'" new=', &
    86                                       mtime,' last=',log_event%mtime
     84          WRITE( message_string, * ) 'negative time interval occured',         &
     85                      ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),'" new=', &
     86                      mtime,' last=',log_event%mtime
    8787          CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 )
    8888          first = .FALSE.
     
    9393       IF ( ( mtime - log_event%mtime + log_event%isum ) < 0.0  .AND. &
    9494            first )  THEN
    95           WRITE( message_string, * ) 'negative time interval occured', &
    96                                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
    97                                       mtime,' last=',log_event%mtime,' isum=',log_event%isum
     95          WRITE( message_string, * ) 'negative time interval occured',        &
     96                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
     97                      mtime,' last=',log_event%mtime,' isum=',log_event%isum
    9898          CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 )
    9999          first = .FALSE.
     
    103103       log_event%sum      = log_event%sum  + log_event%mtime
    104104       IF ( log_event%sum < 0.0  .AND.  first )  THEN
    105           WRITE( message_string, * ) 'negative time interval occured',&
    106                                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
     105          WRITE( message_string, * ) 'negative time interval occured',        &
     106                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
    107107                                      log_event%sum,' mtime=',log_event%mtime
    108108          CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.