Changeset 200


Ignore:
Timestamp:
Sep 17, 2008 9:49:06 AM (13 years ago)
Author:
raasch
Message:

format adjustments in header allowing output of larger revision numbers

File:
1 edited

Legend:

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

    r198 r200  
    99! -----------------
    1010! $Id$
     11!
     12! 198 2008-09-17 08:55:28Z raasch
     13! Format adjustments allowing output of larger revision numbers
    1114!
    1215! 197 2008-09-16 15:29:03Z raasch
     
    8487    CHARACTER (LEN=10) ::  coor_chr, host_chr
    8588    CHARACTER (LEN=16) ::  begin_chr
    86     CHARACTER (LEN=21) ::  ver_rev
     89    CHARACTER (LEN=23) ::  ver_rev
    8790    CHARACTER (LEN=40) ::  output_format
    8891    CHARACTER (LEN=70) ::  char1, char2, dopr_chr, &
     
    12751278
    12761279 99 FORMAT (1X,78('-'))
    1277 100 FORMAT (/1X,'*************************',11X,42('-')/        &
    1278             1X,'* ',A,' *',11X,A/                               &
    1279             1X,'*************************',11X,42('-'))
     1280100 FORMAT (/1X,'***************************',9X,42('-')/        &
     1281            1X,'* ',A,' *',9X,A/                               &
     1282            1X,'***************************',9X,42('-'))
    12801283101 FORMAT (37X,'coupled run: ',A/ &
    12811284            37X,42('-'))
    1282 102 FORMAT (/' Date:            ',A8,11X,'Run:       ',A20/      &
    1283             ' Time:            ',A8,11X,'Run-No.:   ',I2.2/     &
    1284             ' Run on host:   ',A10)
     1285102 FORMAT (/' Date:              ',A8,9X,'Run:       ',A20/      &
     1286            ' Time:              ',A8,9X,'Run-No.:   ',I2.2/     &
     1287            ' Run on host:     ',A10)
    12851288#if defined( __parallel )
    1286 103 FORMAT (' Number of PEs:',7X,I4,11X,'Processor grid (x,y): (',I3,',',I3, &
     1289103 FORMAT (' Number of PEs:',8X,I5,9X,'Processor grid (x,y): (',I3,',',I3, &
    12871290              ')',1X,A)
    1288 104 FORMAT (' Number of PEs:',7X,I4,11X,'Tasks:',I4,'   threads per task:',I4/ &
     1291104 FORMAT (' Number of PEs:',8X,I5,9X,'Tasks:',I4,'   threads per task:',I4/ &
    12891292              37X,'Processor grid (x,y): (',I3,',',I3,')',1X,A)
    12901293105 FORMAT (37X,'One additional PE is used to handle'/37X,'the dvrp output!')
Note: See TracChangeset for help on using the changeset viewer.