← Back to branch summary

~chaffra/+junk/trilinos

« back to all changes in this revision

Viewing changes to packages/zoltan/src/fort/set_numchild.fn.lbfn

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Prud'homme, Christophe Prud'homme, Johannes Ring
  • Date: 2009-12-13 12:53:22 UTC
  • mfrom: (5.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20091213125322-in0nrdjc55deqsw9
Tags: 10.0.3.dfsg-1
[Christophe Prud'homme]
* New upstream release

[Johannes Ring]
* debian/patches/libname.patch: Add prefix 'libtrilinos_' to all
  libraries. 
* debian/patches/soname.patch: Add soversion to libraries.
* debian/watch: Update download URL.
* debian/control:
  - Remove python-numeric from Build-Depends (virtual package).
  - Remove automake and autotools from Build-Depends and add cmake to
    reflect switch to CMake.
  - Add python-support to Build-Depends.
* debian/rules: 
  - Cleanup and updates for switch to CMake.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/zoltan/src/fort/set_numchild.fn.lbfn
1
1
 
2
2
function LBf90_Set_Num_Child_Fn0f(lb,fn_ptr)
3
3
integer(Zoltan_INT) :: LBf90_Set_Num_Child_Fn0f
4
 
type(LB_Struct) INTENT_IN lb
 
4
type(LB_Struct) , intent(in) :: lb
5
5
interface
6
6
  function fn_ptr(dummy, num_gid_entries, num_lid_entries, global_id, local_id, ierr)
7
7
  use zoltan_types
18
18
do i=1,nbytes
19
19
   lb_addr(i) = ichar(lb%addr%addr(i:i))
20
20
end do
21
 
#ifdef NASOFTWARE
22
 
LBf90_Set_Num_Child_Fn0f = Zfw_Set_Fn0f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr))
23
 
#else
24
21
LBf90_Set_Num_Child_Fn0f = Zfw_Set_Fn0f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr)
25
 
#endif
26
22
end function LBf90_Set_Num_Child_Fn0f
27
23
 
28
24
 
29
25
function LBf90_Set_Num_Child_Fn1f(lb,fn_ptr,data)
30
26
integer(Zoltan_INT) :: LBf90_Set_Num_Child_Fn1f
31
 
type(LB_Struct) INTENT_IN lb
 
27
type(LB_Struct) , intent(in) :: lb
32
28
interface
33
29
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
34
30
    ierr)
35
31
  use zoltan_types
36
32
  integer(Zoltan_INT) :: fn_ptr
37
 
  integer(Zoltan_INT) INTENT_IN data(*)
 
33
  integer(Zoltan_INT) , intent(in) :: data(*)
38
34
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
39
35
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
40
36
  integer(Zoltan_INT), intent(out) :: ierr
41
37
  end function fn_ptr
42
38
end interface
43
 
integer(Zoltan_INT) INTENT_IN data(*)
 
39
integer(Zoltan_INT) , intent(in) :: data(*)
44
40
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
45
41
integer(Zoltan_INT) :: nbytes, i
46
42
nbytes = Zoltan_PTR_LENGTH
47
43
do i=1,nbytes
48
44
   lb_addr(i) = ichar(lb%addr%addr(i:i))
49
45
end do
50
 
#ifdef NASOFTWARE
51
 
LBf90_Set_Num_Child_Fn1f = Zfw_Set_Fn1f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
52
 
#else
53
46
LBf90_Set_Num_Child_Fn1f = Zfw_Set_Fn1f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
54
 
#endif
55
47
end function LBf90_Set_Num_Child_Fn1f
56
48
 
57
49
 
58
50
function LBf90_Set_Num_Child_Fn2f(lb,fn_ptr,data)
59
51
integer(Zoltan_INT) :: LBf90_Set_Num_Child_Fn2f
60
 
type(LB_Struct) INTENT_IN lb
 
52
type(LB_Struct) , intent(in) :: lb
61
53
interface
62
54
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
63
55
    ierr)
64
56
  use zoltan_types
65
57
  integer(Zoltan_INT) :: fn_ptr
66
 
  real(Zoltan_FLOAT) INTENT_IN data(*)
 
58
  real(Zoltan_FLOAT) , intent(in) :: data(*)
67
59
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
68
60
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
69
61
  integer(Zoltan_INT), intent(out) :: ierr
70
62
  end function fn_ptr
71
63
end interface
72
 
real(Zoltan_FLOAT) INTENT_IN data(*)
 
64
real(Zoltan_FLOAT) , intent(in) :: data(*)
73
65
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
74
66
integer(Zoltan_INT) :: nbytes, i
75
67
nbytes = Zoltan_PTR_LENGTH
76
68
do i=1,nbytes
77
69
   lb_addr(i) = ichar(lb%addr%addr(i:i))
78
70
end do
79
 
#ifdef NASOFTWARE
80
 
LBf90_Set_Num_Child_Fn2f = Zfw_Set_Fn2f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
81
 
#else
82
71
LBf90_Set_Num_Child_Fn2f = Zfw_Set_Fn2f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
83
 
#endif
84
72
end function LBf90_Set_Num_Child_Fn2f
85
73
 
86
74
 
87
75
function LBf90_Set_Num_Child_Fn3f(lb,fn_ptr,data)
88
76
integer(Zoltan_INT) :: LBf90_Set_Num_Child_Fn3f
89
 
type(LB_Struct) INTENT_IN lb
 
77
type(LB_Struct) , intent(in) :: lb
90
78
interface
91
79
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
92
80
    ierr)
93
81
  use zoltan_types
94
82
  integer(Zoltan_INT) :: fn_ptr
95
 
  real(Zoltan_DOUBLE) INTENT_IN data(*)
 
83
  real(Zoltan_DOUBLE) , intent(in) :: data(*)
96
84
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
97
85
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
98
86
  integer(Zoltan_INT), intent(out) :: ierr
99
87
  end function fn_ptr
100
88
end interface
101
 
real(Zoltan_DOUBLE) INTENT_IN data(*)
 
89
real(Zoltan_DOUBLE) , intent(in) :: data(*)
102
90
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
103
91
integer(Zoltan_INT) :: nbytes, i
104
92
nbytes = Zoltan_PTR_LENGTH
105
93
do i=1,nbytes
106
94
   lb_addr(i) = ichar(lb%addr%addr(i:i))
107
95
end do
108
 
#ifdef NASOFTWARE
109
 
LBf90_Set_Num_Child_Fn3f = Zfw_Set_Fn3f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
110
 
#else
111
96
LBf90_Set_Num_Child_Fn3f = Zfw_Set_Fn3f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
112
 
#endif
113
97
end function LBf90_Set_Num_Child_Fn3f
114
98
 
115
99
 
116
100
function LBf90_Set_Num_Child_Fn8f(lb,fn_ptr,data)
117
101
integer(Zoltan_INT) :: LBf90_Set_Num_Child_Fn8f
118
 
type(LB_Struct) INTENT_IN lb
 
102
type(LB_Struct) , intent(in) :: lb
119
103
interface
120
104
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
121
105
    ierr)
123
107
  use lb_user_const
124
108
  use zoltan_user_data
125
109
  integer(Zoltan_INT) :: fn_ptr
126
 
  type(LB_User_Data_1) INTENT_IN data
 
110
  type(LB_User_Data_1) , intent(in) :: data
127
111
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
128
112
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
129
113
  integer(Zoltan_INT), intent(out) :: ierr
130
114
  end function fn_ptr
131
115
end interface
132
 
type(LB_User_Data_1) INTENT_IN data
 
116
type(LB_User_Data_1) , intent(in) :: data
133
117
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
134
118
integer(Zoltan_INT) :: nbytes, i
135
119
nbytes = Zoltan_PTR_LENGTH
136
120
do i=1,nbytes
137
121
   lb_addr(i) = ichar(lb%addr%addr(i:i))
138
122
end do
139
 
#ifdef NASOFTWARE
140
 
LBf90_Set_Num_Child_Fn8f = Zfw_Set_Fn8f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
141
 
#else
142
123
LBf90_Set_Num_Child_Fn8f = Zfw_Set_Fn8f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
143
 
#endif
144
124
end function LBf90_Set_Num_Child_Fn8f
145
125
 
146
126
 
147
127
function LBf90_Set_Num_Child_Fn9f(lb,fn_ptr,data)
148
128
integer(Zoltan_INT) :: LBf90_Set_Num_Child_Fn9f
149
 
type(LB_Struct) INTENT_IN lb
 
129
type(LB_Struct) , intent(in) :: lb
150
130
interface
151
131
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
152
132
    ierr)
154
134
  use lb_user_const
155
135
  use zoltan_user_data
156
136
  integer(Zoltan_INT) :: fn_ptr
157
 
  type(LB_User_Data_2) INTENT_IN data
 
137
  type(LB_User_Data_2) , intent(in) :: data
158
138
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
159
139
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
160
140
  integer(Zoltan_INT), intent(out) :: ierr
161
141
  end function fn_ptr
162
142
end interface
163
 
type(LB_User_Data_2) INTENT_IN data
 
143
type(LB_User_Data_2) , intent(in) :: data
164
144
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
165
145
integer(Zoltan_INT) :: nbytes, i
166
146
nbytes = Zoltan_PTR_LENGTH
167
147
do i=1,nbytes
168
148
   lb_addr(i) = ichar(lb%addr%addr(i:i))
169
149
end do
170
 
#ifdef NASOFTWARE
171
 
LBf90_Set_Num_Child_Fn9f = Zfw_Set_Fn9f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
172
 
#else
173
150
LBf90_Set_Num_Child_Fn9f = Zfw_Set_Fn9f(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
174
 
#endif
175
151
end function LBf90_Set_Num_Child_Fn9f
176
152
 
177
153
 
178
154
function LBf90_Set_Num_Child_FnAf(lb,fn_ptr,data)
179
155
integer(Zoltan_INT) :: LBf90_Set_Num_Child_FnAf
180
 
type(LB_Struct) INTENT_IN lb
 
156
type(LB_Struct) , intent(in) :: lb
181
157
interface
182
158
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
183
159
    ierr)
185
161
  use lb_user_const
186
162
  use zoltan_user_data
187
163
  integer(Zoltan_INT) :: fn_ptr
188
 
  type(LB_User_Data_3) INTENT_IN data
 
164
  type(LB_User_Data_3) , intent(in) :: data
189
165
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
190
166
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
191
167
  integer(Zoltan_INT), intent(out) :: ierr
192
168
  end function fn_ptr
193
169
end interface
194
 
type(LB_User_Data_3) INTENT_IN data
 
170
type(LB_User_Data_3) , intent(in) :: data
195
171
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
196
172
integer(Zoltan_INT) :: nbytes, i
197
173
nbytes = Zoltan_PTR_LENGTH
198
174
do i=1,nbytes
199
175
   lb_addr(i) = ichar(lb%addr%addr(i:i))
200
176
end do
201
 
#ifdef NASOFTWARE
202
 
LBf90_Set_Num_Child_FnAf = Zfw_Set_FnAf(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
203
 
#else
204
177
LBf90_Set_Num_Child_FnAf = Zfw_Set_FnAf(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
205
 
#endif
206
178
end function LBf90_Set_Num_Child_FnAf
207
179
 
208
180
 
209
181
function LBf90_Set_Num_Child_FnBf(lb,fn_ptr,data)
210
182
integer(Zoltan_INT) :: LBf90_Set_Num_Child_FnBf
211
 
type(LB_Struct) INTENT_IN lb
 
183
type(LB_Struct) , intent(in) :: lb
212
184
interface
213
185
  function fn_ptr(data, num_gid_entries, num_lid_entries, global_id, local_id, &
214
186
    ierr)
216
188
  use lb_user_const
217
189
  use zoltan_user_data
218
190
  integer(Zoltan_INT) :: fn_ptr
219
 
  type(LB_User_Data_4) INTENT_IN data
 
191
  type(LB_User_Data_4) , intent(in) :: data
220
192
  integer(Zoltan_INT), intent(in)  :: num_gid_entries, num_lid_entries
221
193
  integer(Zoltan_INT), intent(in)  :: global_id(*), local_id(*)
222
194
  integer(Zoltan_INT), intent(out) :: ierr
223
195
  end function fn_ptr
224
196
end interface
225
 
type(LB_User_Data_4) INTENT_IN data
 
197
type(LB_User_Data_4) , intent(in) :: data
226
198
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: lb_addr
227
199
integer(Zoltan_INT) :: nbytes, i
228
200
nbytes = Zoltan_PTR_LENGTH
229
201
do i=1,nbytes
230
202
   lb_addr(i) = ichar(lb%addr%addr(i:i))
231
203
end do
232
 
#ifdef NASOFTWARE
233
 
LBf90_Set_Num_Child_FnBf = Zfw_Set_FnBf(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,loc(fn_ptr),data)
234
 
#else
235
204
LBf90_Set_Num_Child_FnBf = Zfw_Set_FnBf(lb_addr,nbytes,ZOLTAN_NUM_CHILD_FN_TYPE%choice,fn_ptr,data)
236
 
#endif
237
205
end function LBf90_Set_Num_Child_FnBf
238
206
 
239
207