-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdigi_zip.c
42 lines (39 loc) · 874 Bytes
/
digi_zip.c
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
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <mpi.h>
#include <unistd.h>
#define NF 500
// argv[1] - the first digi file number
int main(int argc, char *argv[])
{
int serial;
char str[4096];
char fname[1024];
int fnum;
int irc;
int i, fn;
// Get our run number
MPI_Init(&argc, &argv);
if (argc < 2) {
printf("Usage %s first_run_number\n", argv[0]);
goto fin;
}
fn = strtol(argv[1], NULL, 0);
MPI_Comm_rank(MPI_COMM_WORLD, &serial);
fn += serial*NF;
for (i=0; i<NF; i++) {
// check that file exists
fnum = fn + i;
sprintf(fname, "/home/clusters/rrcmpi/alekseev/igor/digi/v2.1/%3.3dxxx/danss_data_%6.6d_phys_rawrec.digi", fnum/1000, fnum);
irc = access(fname, R_OK);
if (irc) continue;
// The run itself
sprintf(str, "bzip2 -f %s", fname);
system(str);
// time and print
}
fin:
MPI_Finalize();
}