banner.f90

巨正则系综蒙特卡罗算法的源程序；可以用来进行吸附等分子模拟；最大的好处在于可以插入或删除原子

subroutine banner( FileName, Startstring, Infostring, & 
                   Hostname, Datestring, Timestring, Newflag )

! This subroutine prints the output banner
! to any file requested.
! Startstring is a string put before each line printed.

use portlib       ! # MS Fortran 

implicit none

character*30, intent(in)		:: FileName

!  This string is put before printing anything else at each line.

character*(*), intent(in)		:: Startstring

!  Newflag==.TRUE. if the current date and time are to be obtained.

logical,       intent(in)		:: Newflag 

!  Hostname, Date and Time as character variables

character*80,  intent(inout)     :: Hostname, Infostring, &
                                    Datestring, Timestring

! Local Stuff

integer             :: u    ! Output unit; local variable

! Used for timing (DATE_AND_TIME subroutine); local variables.
character*8         :: Dat  ! Date:	YYYYMMDD
character*5         :: Zon  ! Time zone: +-HHMM (difference from GMT)
character*10        :: Tim  ! Time: HHMMSS.SSS

open(60, file = FileName )

! Get the current date and time.
if ( Newflag ) then
    u = HOSTNAM( Hostname )    ! # MS Fortran

!	Hostname = ' SP2 '         ! # SP2 code
    
	! Get current date, time and time-zone.
    call DATE_AND_TIME( TIME=Tim, ZONE=Zon, DATE=Dat )
	             
    Datestring = Dat(5:6)//'/'//Dat(7:8)//'/'//Dat(1:4)     ! US format

	Timestring = Tim(1:2)//':'//Tim(3:4) //          &
         '  ' // Zon(1:3)//':'//Zon(4:5) //          &
		 ' (hours from GMT) '

  	Infostring = ' Installation: ' // trim(Hostname)   // &
	             '     Run date: ' // trim(DateString) // &
	             ' ' // Tim(1:2)//':'//Tim(3:4) //':'//Tim(5:6)
endif

write (60,"(A)") trim( Startstring )
write (60,"(A)") trim( Startstring ) // &
  '*************************************************************************'
write (60,"(A)") trim( Startstring ) // &
  ' EXPANDED HAMILTONIAN SCALING GCMC - last change 12/10/98'
write (60,"(A)") trim( Startstring ) // &
  '*************************************************************************'
write (60,"(A)") trim( Startstring ) // &
  ' Programmers: J. R. Errington,  A. Z. Panagiotopoulos '
write (60,"(A)") trim( Startstring )
write (60,"(A)") trim( Startstring ) // Infostring
write (60,"(A)") trim( Startstring )

close(60)

end subroutine banner