-
Notifications
You must be signed in to change notification settings - Fork 0
/
m_head.f90
95 lines (91 loc) · 4.05 KB
/
m_head.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
!-------------------------------------------------------------------------------------
! MELQUIADES: Metropolis Monte Carlo Program !
!-------------------------------------------------------------------------------------
!bop
!
! !Module: m_head
!
! !Description: This module shows the MELQUIADES's info.
!\\
!\\
! !Interface:
!
module m_head
!
! !Use:
use m_unit
!
implicit none
!
! !Public member functions:
!
private
public :: r_info, r_foot
!
! !Revision history:
! 05Aug 2015 Asdrubal Lozada
!
!eop
!-------------------------------------------------------------------------------------
contains
!
!bop
!
! !Iroutine: r_info
!\\
!\\
! !Interface:
!
subroutine r_info
!
!Revision history:
! 05Aug 2015 Asdrubal Lozada
!
!eop
!-------------------------------------------------------------------------------------
write(*,*) '--------------------------------------------------------------------------------------------------'
write(*,*) ' M E L Q U I A D E S '
write(*,*) '--------------------------------------------------------------------------------------------------'
write(*,*) ' Metropolis Monte Carlo Program for interaction energy calculation '
write(*,*) '--------------------------------------------------------------------------------------------------'
write(*,*) ' by '
write(*,*) ' Asdrubal Lozada Blanco '
write(*,*) ' Laboratorio de Química Teorica - LQT '
write(*,*) ' Departamento de Química '
write(*,*) ' Universidade Federal de São Carlos '
write(*,*) ' Brazil '
write(*,*) ' 2015 '
write(*,*) '--------------------------------------------------------------------------------------------------'
write(*,*) '--------------------------------------------------------------------------------------------------'
write(*,*)
!--------------------------------------------------------------------------
end subroutine r_info
subroutine r_foot
!
!Revision history:
! 05Aug 2015 Asdrubal Lozada
!
!eop
!-------------------------------------------------------------------------------------
implicit none
character(8) :: date
character(10) :: time
character(5) :: zone
integer,dimension(8) :: values
call date_and_time(date,time,zone,values)
call date_and_time(DATE=date,ZONE=zone)
call date_and_time(TIME=time)
call date_and_time(VALUES=values)
write(*,'(" End calculation: ", a,2x,a,2x,a)') date, time, zone
write(*,'(8i5)') values
write(*,*) '--------------------------------------------------------------------------------------------------'
write(*,*) 'M E L Q U I A D E S '
write(*,*) 'Laboratorio de Química Teorica - LQT '
write(*,*) 'Departamento de Química '
write(*,*) 'Universidade Federal de São Carlos '
write(*,*) 'Brazil '
write(*,*) '[email protected] 2015 '
write(*,*) '--------------------------------------------------------------------------------------------------'
!---------------------------------------------------------------------------
end subroutine r_foot
end module m_head