state.f

网络带宽测试工具

      Subroutine state(prgnam)
!-----------------------------------------------------------------------
!- This subroutine prints some information about the testing
!  circumstances and the name of the calling module.
!
!  Parameters
!  ----------
!
!  modnam - Character string that represents the name of the calling
!           module.
!
!  Authors: Aad van der Steen
!  Date   : September 1997.
!-----------------------------------------------------------------------
!
      Implicit None

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

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

!                     123456789 123456789 123456789 123456789 12345678

      Data machin  / 'Machine type???                                 '/
      Data memory  / 'Amount of memory???                             '/
      Data compil  / 'Compiler version ???                            '/
      Data option  / 'Compiler options???                             '/
      Data os      / 'Operation system type and version???            '/
      Data prec    / ' 64-bits precision                              '/
      Data runby   / 'Name of Benchmarker???                          '/
      Data comins  / 'Name of affiliation???                          '/
!-----------------------------------------------------------------------
! --- Number of bits in floating-point representation.      
      Write( prec(1:3), '(i3)' ) 8*8
      Print 9010, prgnam, machin, memory, compil, option, os,
     &            prec, runby, comins

! --- Report Date and time of calling.

      Call date_and_time( date, time )
      Print 9020,  date(7:8), date(5:6), date(1:4),
     &             time(1:2), time(3:4), time(5:10)
!-----------------------------------------------------------------------
 9010 Format( ' EuroBen Efficiency benchmark, program ',a8/
     &        1x, 75('-')/
     &        ' Testing circumstances:'/
     &        ' Computer                  ', a48/
     &        ' Memory size               ', a48/
     &        ' Compiler version          ', a48/
     &        ' Compiler options          ', a48/
     &        ' Operating System version  ', a48/
     &        ' Working precision         ', a48/
     &        ' Run by                    ', a48/
     &        ' Company/Institute         ', a48/ )
 9020 Format( ' Day:   ', a2,
     &        3x, 'Month: ', a3,
     &        3x, 'Year:  ', a4/
     &        ' It is now ', a2, ' hours, ', a2, ' minutes and ', a2,
     &        ' seconds'/
     &        1x, 75('-') )
!-----------------------------------------------------------------------
      End Subroutine state