Statistics
| Branch: | Revision:

root / synthbench / euroben-dm / mod2b / state.f @ 0:839f52ef7657

History | View | Annotate | Download (2.7 kB)

1
      Subroutine state (modnam)
2
!
3
!- This subroutine prints some information about the testing
4
!  circumstances and the name of the calling module.
5
!
6
!  Parameters
7
!  ----------
8
!
9
!  modnam - Character string that represents the name of the calling
10
!           module.
11
!
12
!  Authors: Aad van der Steen
13
!  Date   : September 1997.
14
!-----------------------------------------------------------------------
15
!
16
      Use numerics
17
      Use dist_module
18

    
19
      Implicit None
20

    
21
      Character :: modnam*6, machin*48, memory*48, compil*48, option*48,
22
     &            os*48, runby*48, comins*48, prec*48, date*8, time*10,
23
     &            superc*130
24
      Common /machst/ superc
25

    
26
!- Please insert the correct data for the current testing circumstances:
27

    
28
!                     123456789 123456789 123456789 123456789 12345678
29

    
30
      Data machin  / 'Cray T3E,     processor results                 '/
31
      Data memory  / '128 Mbyte / processor                           '/
32
      Data compil  / 'Cray Fortran Version 3.5.0.0                    '/
33
      Data option  / '-O3 -dp -O unroll1                              '/
34
      Data os      / 'UNICOS/mk 2.0.5                                 '/
35
      Data prec    / ' 64-bits precision                              '/
36
      Data runby   / 'Gerrit H. Kolthof                               '/
37
      Data comins  / 'Computational Physics, Utrecht University/NCF   '/
38

    
39
!-----------------------------------------------------------------------
40
! --- Fill SUPERC for use in programs that ask for them (Mod1f).
41

    
42
      superc = machin//compil//os
43
 
44
! --- Number of bits in floating-point representation.
45
      
46
      Write( prec(1:3), '(i3)' ) l_*8  ! 'Double' is inherited from
47
                                           ! 'prec_module'.
48
      Write( machin(11:13), '(i3)' ) Nodes
49
      Print 9010, modnam, machin, memory, compil, option, os,
50
     &            prec, runby, comins
51

    
52
! --- Report Date and time of calling.
53

    
54
      Call date_and_time( date, time )
55
      Print 9020,  date(7:8), date(5:6), date(1:4),
56
     &             time(1:2), time(3:4), time(5:6)
57
!
58
      Return
59
 9010 Format(' EuroBen Benchmark V4.0, module ',A6/
60
     ,1X,66('-')/
61
     ,1X,'Testing circumstances:'/
62
     ,1X,'Computer                  ',A48/
63
     ,1X,'Memory size               ',A48/
64
     ,1X,'Compiler version          ',A48/
65
     ,1X,'Compiler options          ',A48/
66
     ,1X,'Operating System version  ',A48/
67
     ,1X,'Working precision         ',A48/
68
     ,1X,'Run by                    ',A48/
69
     ,1X,'Company/Institute         ',A48/)
70
 9020 Format(1X,'Day:   ',A2,
71
     ,3X,'Month: ',A2,
72
     ,3X,'Year:  ',A4/
73
     ,1X,'It is now ',A2,' hours, ',A2,' minutes and ',A2,' seconds')
74
      End