Ian Jauslin
summaryrefslogtreecommitdiff
blob: 3587728fddecdd8c2c20b8d9451a4cc3c2c9c3c7 (plain)
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
## Copyright 2021-2023 Ian Jauslin
## 
## Licensed under the Apache License, Version 2.0 (the "License");
## you may not use this file except in compliance with the License.
## You may obtain a copy of the License at
## 
##     http://www.apache.org/licenses/LICENSE-2.0
## 
## Unless required by applicable law or agreed to in writing, software
## distributed under the License is distributed on an "AS IS" BASIS,
## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
## See the License for the specific language governing permissions and
## limitations under the License.

# print progress
@everywhere function progress(
  j::Int64,
  tot::Int64,
  freq::Int64
)
  if (j-1)%ceil(Int,tot/freq)==0
    if j>1
      @printf(stderr,"\r")
    end
    @printf(stderr,"%d/%d",j,tot)
  end
  if j==tot
    @printf(stderr,"\r")
    @printf(stderr,"%d/%d\n",j,tot)
  end
end

# print progress of two indices at once
@everywhere function progress_mat(
  j1::Int64,
  tot1::Int64,
  j2::Int64,
  tot2::Int64,
  freq::Int64
)
  if ((j1-1)*tot2+j2-1)%ceil(Int,tot1*tot2/freq)==0
    if j1>1 || j2>1
      @printf(stderr,"\r")
    end
    @printf(stderr,"%2d/%2d, %2d/%2d",j1,tot1,j2,tot2)
  end
  if j1==tot1 && j2==tot2
    @printf(stderr,"\r")
    @printf(stderr,"%2d/%2d, %2d/%2d\n",j1,tot1,j2,tot2)
  end
end