Line data Source code
1 : !!****m* ABINIT/m_pretty_rec
2 : !! NAME
3 : !! m_pretty_rec
4 : !!
5 : !! FUNCTION
6 : !! This module provides some minor functions applied in the
7 : !! recursion
8 : !!
9 : !! COPYRIGHT
10 : !! Copyright (C) 2002-2026 ABINIT group (XG)
11 : !! This file is distributed under the terms of the
12 : !! GNU General Public License, see ~abinit/COPYING
13 : !! or http://www.gnu.org/copyleft/gpl.txt .
14 : !! For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
15 : !!
16 : !! NOTES
17 : !!
18 : !!
19 : !! SOURCE
20 :
21 : #if defined HAVE_CONFIG_H
22 : #include "config.h"
23 : #endif
24 :
25 : #include "abi_common.h"
26 :
27 :
28 : MODULE m_pretty_rec
29 :
30 : use defs_basis
31 : use m_abicore
32 :
33 : implicit none
34 :
35 : private
36 :
37 : public :: prtwork ! calculate the work done during recursion
38 :
39 : interface prtwork
40 : module procedure prtworksim
41 : module procedure prtworksiRe
42 : module procedure prtworkadv
43 : end interface prtwork
44 :
45 : CONTAINS !===========================================================
46 : !!***
47 :
48 : !!****f* m_pretty_rec/prtworksim
49 : !! NAME
50 : !! prtworksim
51 : !!
52 : !! FUNCTION
53 : !! Calculate the work done during recursion
54 : !!
55 : !! INPUTS
56 : !! counter
57 : !!
58 : !! SIDE EFFECTS
59 : !!
60 : !! OUTPUT
61 : !! SOURCE
62 :
63 17280 : subroutine prtworksim(work_now)
64 :
65 : !Arguments ------------------------------------
66 : ! scalars
67 : integer,intent(in) :: work_now
68 : ! arrays
69 : !Local ---------------------------
70 : integer,save :: work_done=0
71 : integer :: ii,pt
72 : character(500) :: msg
73 : ! *********************************************************************
74 17280 : if(mod(work_done-work_now,5)==0 .and. work_now/=work_done .and. work_now <105) then
75 646 : work_done = work_now
76 646 : pt = work_done/5
77 15504 : write(msg,'(a,23a,i3,a)')'work done:',('-',ii=1,pt),(' ',ii=1,23-pt),work_done,'%'
78 646 : call wrtout(std_out,msg,'COLL')
79 : endif
80 :
81 17280 : end subroutine prtworksim
82 : !!***
83 :
84 : !!****f* m_pretty_rec/prtworksiRe
85 : !! NAME
86 : !! prtworksiRe
87 : !!
88 : !! FUNCTION
89 : !! Calculate the work done during recursion
90 : !!
91 : !! INPUTS
92 : !! counter
93 : !!
94 : !! SIDE EFFECTS
95 : !!
96 : !! OUTPUT
97 : !! SOURCE
98 :
99 189 : subroutine prtworksiRe(work_now)
100 :
101 : !Arguments ------------------------------------
102 : ! scalars
103 : real(dp),intent(in) :: work_now
104 : ! arrays
105 : !Local ---------------------------
106 : integer,save :: work_done=0
107 : integer :: ii,pt,work_now_int
108 : character(500) :: msg
109 : ! *********************************************************************
110 189 : work_now_int = int(work_now)
111 189 : if(mod(work_done-work_now_int,5)==0 .and. work_now_int/=work_done .and. work_now_int <105) then
112 42 : work_done = work_now_int
113 42 : pt = work_done/5
114 1008 : write(msg,'(a,23a,i3,a)')'work done:',('-',ii=1,pt),(' ',ii=1,23-pt),work_done,'%'
115 42 : call wrtout(std_out,msg,'COLL')
116 : endif
117 :
118 189 : end subroutine prtworksiRe
119 : !!***
120 :
121 : !!****f* m_pretty_rec/prtworkadv
122 : !! NAME
123 : !! prtworkadv
124 : !!
125 : !! FUNCTION
126 : !! Calculate the work done during recursion
127 : !!
128 : !! INPUTS
129 : !! counter
130 : !!
131 : !! SIDE EFFECTS
132 : !!
133 : !! OUTPUT
134 : !! SOURCE
135 :
136 0 : subroutine prtworkadv(work_now,adv)
137 :
138 : !Arguments ------------------------------------
139 : ! scalars
140 : integer,intent(in) :: work_now
141 : character(1),intent(in) ::adv
142 : ! arrays
143 : !Local ---------------------------
144 : integer,save :: work_done=0, first_wk=0
145 : ! *********************************************************************
146 : if(adv /= 'no' .or. adv/='yes' ) then
147 0 : write(std_out, "(a,i3,i3)")'nn'
148 : end if
149 0 : if(work_now >=100 .and. first_wk ==0) return
150 0 : if(work_now == 0 .and. first_wk==0) then
151 0 : write(std_out,"(a)")' work done: '
152 0 : first_wk=1
153 : end if
154 0 : if(mod(work_done-work_now,10)==0 .and. work_now/=work_done) then
155 0 : work_done = work_now
156 : !write(std_out, "(a,$)")'|'
157 0 : write(std_out, "(a,i3,i3)")'work_done',work_done,work_now
158 0 : if(work_done == 100) then
159 0 : write(std_out,"(a)")' '
160 0 : first_wk = 0
161 0 : work_done = 0
162 : end if
163 : endif
164 :
165 : end subroutine prtworkadv
166 : !!***
167 :
168 : END MODULE m_pretty_rec
169 : !!***
|
