root / synthbench / euroben-dm / mod2f / 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 |
|