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 |