Ignore:
Timestamp:
Jun 10, 2016 12:06:59 PM (5 years ago)
Author:
suehring
Message:

Rename multigrid into multigrid_noopt and multigrid_fast into multigrid, subroutines poismg is renamed into poismg_noopt and poismg_fast_mod into poismg_mod

File:
1 edited

Legend:

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

    r1851 r1931  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Adjustment in character length and format statement
    2222!
    2323! Former revisions:
     
    155155       REAL(wp)           ::  vector     !<
    156156       INTEGER(iwp)       ::  counts     !<
    157        CHARACTER (LEN=20) ::  place      !<
     157       CHARACTER (LEN=25) ::  place      !<
    158158    END TYPE logpoint
    159159
     
    550550   101 FORMAT (/'special measures:'/ &
    551551               &'-----------------------------------------------------------', &
    552                &'--------------------')
    553 
    554    102 FORMAT (A20,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
     552               &'------------------------')
     553
     554   102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
    555555   103 FORMAT (/'Barriers are set in front of collective operations')
    556556   104 FORMAT (/'No barriers are set in front of collective operations')
     
    560560   108 FORMAT ('Accelerator boards per node: ',14X,I2)
    561561   109 FORMAT ('Accelerator boards: ',23X,I2)
    562    110 FORMAT ('----------------------------------------------------------',   &
    563                &'------------'//&
    564                &'place:                        mean        counts      min  ', &
     562   110 FORMAT ('-------------------------------------------------------------',     &
     563               &'---------'//&
     564               &'place:                              mean        counts      min  ',&
    565565               &'     max       rms'/ &
    566                &'                           sec.      %                sec. ', &
     566               &'                                sec.      %                sec. ', &
    567567               &'     sec.      sec.'/  &
    568                &'-----------------------------------------------------------', &
    569                &'-------------------')
     568               &'-----------------------------------------------------------',      &
     569               &'------------------------')
    570570   111 FORMAT (/'Barriers are set at beginning (start/continue) of measurements')
    571571
Note: See TracChangeset for help on using the changeset viewer.