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
|
--- a/cgx_2.21/src/improveMesh.c
+++ b/cgx_2.21/src/improveMesh.c
@@ -274,7 +274,7 @@
/* was [3][3] */, d1, d2, d3, d4, etopt, xiopt;
integer ii;
doublereal et[9] /* was [3][3] */, xi[9] /* was [3][3] */;
- extern /* Subroutine */ int distattach_();
+ extern /* Subroutine */ int distattach_(doublereal*, doublereal*, doublereal*, integer*, doublereal*, doublereal*, doublereal*);
doublereal distmin;
@@ -695,12 +695,13 @@
integer npec, node, npet, location, node1=0, node2=0, i__, j, l;
doublereal x, y, z__;
integer niter;
- extern /* Subroutine */ int clasnodes_();
+ extern /* Subroutine */ int clasnodes_(doublereal*, integer*, integer*, integer*, integer*, integer*, integer*, integer*,
+ integer*, integer*, integer*, integer*);
doublereal dc, dd;
integer ii;
doublereal dx, dy, dz;
doublereal n1[3], n2[3], nm[3];
- extern /* Subroutine */ int attach_();
+ extern /* Subroutine */ int attach_(doublereal*, integer*, integer*, doublereal*, integer*, integer*);
/* smoothes a mesh by means of a length weighted Laplacian */
@@ -932,12 +933,13 @@
integer npec, node, npet, location, node1=0, node2=0, i__, j, l, k;
doublereal x[30], y[30], z__[30];
integer niter,j1,j2,j1max,j2max=0;
- extern /* Subroutine */ int clasnodes_();
+ extern /* Subroutine */ int clasnodes_(doublereal*, integer*, integer*, integer*, integer*, integer*, integer*, integer*,
+ integer*, integer*, integer*, integer*);
doublereal dd[30];
integer ii;
doublereal dx, dy, dz, prod,prodmax;
doublereal n1[3], n2[3], nm[3];
- extern /* Subroutine */ int attach_();
+ extern /* Subroutine */ int attach_(doublereal*, integer*, integer*, doublereal*, integer*, integer*);
integer slave_node[100], iii;
@@ -1220,9 +1222,10 @@
/* Local variables */
integer ieltyp;
integer npec, node, npet, node1=0, node2=0, i__, j, l;
- extern /* Subroutine */ int clasnodes_();
+ extern /* Subroutine */ int clasnodes_(doublereal*, integer*, integer*, integer*, integer*, integer*, integer*, integer*,
+ integer*, integer*, integer*, integer*);
doublereal n1[3], n2[3], nm[3];
- extern /* Subroutine */ int attach_();
+ extern /* Subroutine */ int attach_(doublereal*, integer*, integer*, doublereal*, integer*, integer*);
integer iii;
--- a/cgx_2.21/src/pickFunktions.c
+++ b/cgx_2.21/src/pickFunktions.c
@@ -8727,7 +8727,7 @@
int foundNode,elnod,newnodeFlag=0;
int *elNodeRef;
static Rsort *rsort=NULL;
- extern int compareRsort();
+ extern int compareRsort(Rsort*, Rsort*);
int nearParams, nearParam[CUTS],ncorner,nelem;
double cg[3];
--- a/cgx_2.21/src/sendSet.c
+++ b/cgx_2.21/src/sendSet.c
@@ -195,7 +195,7 @@
static Datasets *lcase2=NULL;
static CQuad4 *face4=NULL;
static Normalen *norm2=NULL;
- extern int compareInt();
+ extern int compareInt(int*, int*);
strcpy ( prognam, setname);
setNr=getSetNr(setname);
--- a/cgx_2.21/src/setFunktions.c
+++ b/cgx_2.21/src/setFunktions.c
@@ -9357,7 +9357,7 @@
}
else if(m>0)
{
- printf("c:%d e:%d m:%d unknown case\n",c, e, m);
+ printf("c:%d e:%d m:%d unknow case\n",c, e, m);
goto next_elem;
}
}
@@ -19418,7 +19418,7 @@
Datasets *lpre=NULL;
Sets *spre=NULL;
int *isort=NULL;
- extern int compareInt();
+ extern int compareInt(int*, int*);
int *newnode=NULL, *newelem=NULL;
char addDispFlagLocal=0;
char **buf;
@@ -23979,7 +23979,7 @@
Elements *elem2;
Datasets *lcase2=NULL;
static int *isort=NULL;
- extern int compareInt();
+ extern int compareInt(int*, int*);
static int step_number2=0;
FILE *handle;
double dx,dy,dz, sum_l=0.;
|
