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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
/**
* Copyright 1981-2016 ECMWF.
*
* This software is licensed under the terms of the Apache Licence
* Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
*
* In applying this licence, ECMWF does not waive the privileges and immunities
* granted to it by virtue of its status as an intergovernmental organisation
* nor does it submit to any jurisdiction.
*/
#define SHAREDGG sharedgg_
#ifdef linux
#ifndef __USE_LARGEFILE64
#define __USE_LARGEFILE64
#endif
#include <sys/stat.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sys/types.h>
#include <unistd.h>
#include <sys/mman.h>
#include <string.h>
#include "sharedlib.h"
#include "common/fortint.h"
#include "common/JPointer.h"
#include <sys/ipc.h>
#include <sys/shm.h>
/* extern int sharedlib_dbg = 0; */
#ifdef FORTRAN_NO_UNDERSCORE
#define SHAREDLL sharedll
#define PBOPEN pbopen
#define PBCLOSE pbclose
#else
#define SHAREDLL sharedll_
#define PBOPEN pbopen_
#define PBCLOSE pbclose_
#endif
fortint SHAREDGG(
JPointer* ipdum,
fortint* iktrunc,
fortint* knum )
/*
C
C**** SHAREDGG
C
C IPDUM - Dummy array for mapping legendre function file
C KNUM - Gaussian grid number
C KTRUNC - Spherical truncation
C KRET - Return status, 0 = OK.
C
*/
{
#if (defined hpR64) || (defined hpiaR64)
long l1, l2;
#else
fortint l1, l2;
#endif
char filedum[128], filename[128];
#ifdef REAL_8
char ypfn[21] = "CF_xxxx_nnnn";
#else
char ypfn[21] = "cf_xxxx_nnnn";
#endif
static char yold[21] = "xxxxxxxxxxxxxxxxxxxx";
char defaultDirectory[] = "./";
int kbuild ;
char * fn;
static fortint fpindex;
static FILE * fp;
static void * result = 0;
fortint kret =0;
int exist = 0;
int status;
pid_t process_id;
int ktrunc = (int) (*iktrunc);
/*
// Setup the file name
*/
sprintf( ypfn+3, "%04d", ktrunc);
sprintf( ypfn+7, "_%04d", *knum);
/*
// See if the file has already been created.
*/
fn = getenv("PPDIR");
if(fn == NULL) fn = defaultDirectory;
if( (fn != NULL) && (strlen(fn) != 0) ) {
strcpy( filename, fn );
strcat( filename, "/");
strcat( filename, ypfn);
l1 = strlen(filename);
l2 = 1;
}
/* printf("gg share_file filename=%s\n",filename); */
result = (void *) share_file(filename);
if (result == NULL) kret = 1;
*ipdum = (JPointer) result;
return kret;
}
|
