Statistics
| Branch: | Revision:

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

History | View | Annotate | Download (2.7 kB)

1
      Subroutine state(prgnam)
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
      Implicit None
17

    
18
      Character :: prgnam*8, machin*48, memory*48, compil*48, option*48,
19
     &            os*48, runby*48, comins*48, prec*48, date*8, time*10
20

    
21
!- Please insert the correct data for the current testing circumstances:
22

    
23
!                     123456789 123456789 123456789 123456789 12345678
24

    
25
      Data machin  / 'Machine type???                                 '/
26
      Data memory  / 'Amount of memory???                             '/
27
      Data compil  / 'Compiler version ???                            '/
28
      Data option  / 'Compiler options???                             '/
29
      Data os      / 'Operation system type and version???            '/
30
      Data prec    / ' 64-bits precision                              '/
31
      Data runby   / 'Name of Benchmarker???                          '/
32
      Data comins  / 'Name of affiliation???                          '/
33
!-----------------------------------------------------------------------
34
! --- Number of bits in floating-point representation.      
35
      Write( prec(1:3), '(i3)' ) 8*8
36
      Print 9010, prgnam, machin, memory, compil, option, os,
37
     &            prec, runby, comins
38

    
39
! --- Report Date and time of calling.
40

    
41
      Call date_and_time( date, time )
42
      Print 9020,  date(7:8), date(5:6), date(1:4),
43
     &             time(1:2), time(3:4), time(5:10)
44
!-----------------------------------------------------------------------
45
 9010 Format( ' EuroBen DM benchmark, program ',A8/
46
     &        1X, 75('-')/
47
     &        ' Testing circumstances:'/
48
     &        ' Computer                  ', A48/
49
     &        ' Memory size               ', A48/
50
     &        ' Compiler version          ', A48/
51
     &        ' Compiler options          ', A48/
52
     &        ' Operating System version  ', A48/
53
     &        ' Working precision         ', A48/
54
     &        ' Run by                    ', A48/
55
     &        ' Company/Institute         ', A48/ )
56
 9020 Format( ' Day:   ', A2,
57
     &        3X, 'Month: ', A3,
58
     &        3X, 'Year:  ', A4/
59
     &        ' It is now ', A2, ' hours, ', A2, ' minutes and ', A2,
60
     &        ' seconds'/
61
     &        1X, 75('-') )
62
!-----------------------------------------------------------------------
63
      End Subroutine state
64