← Back to branch summary

~chaffra/+junk/trilinos

« back to all changes in this revision

Viewing changes to packages/zoltan/src/fort/set_borderobjlist.fn

  • 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_borderobjlist.fn
1
1
 
2
2
function Zf90_Set_Border_Obj_List_Fn0s(zz,fn_ptr)
3
3
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn0s
4
 
type(Zoltan_Struct) INTENT_IN zz
 
4
type(Zoltan_Struct) , intent(in) :: zz
5
5
interface
6
6
  subroutine fn_ptr(dummy,num_gid_entries, num_lid_entries, nbor_proc, &
7
7
    global_id, local_id, wdim, objwgts, ierr)
21
21
do i=1,nbytes
22
22
   zz_addr(i) = ichar(zz%addr%addr(i:i))
23
23
end do
24
 
#ifdef NASOFTWARE
25
 
Zf90_Set_Border_Obj_List_Fn0s = Zfw_Set_Fn0s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr))
26
 
#else
27
24
Zf90_Set_Border_Obj_List_Fn0s = Zfw_Set_Fn0s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr)
28
 
#endif
29
25
end function Zf90_Set_Border_Obj_List_Fn0s
30
26
 
31
27
 
32
28
function Zf90_Set_Border_Obj_List_Fn1s(zz,fn_ptr,data)
33
29
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn1s
34
 
type(Zoltan_Struct) INTENT_IN zz
 
30
type(Zoltan_Struct) , intent(in) :: zz
35
31
interface
36
32
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
37
33
    global_id, local_id, wdim, objwgts, ierr)
38
34
  use zoltan_types
39
 
  integer(Zoltan_INT) INTENT_IN data(*)
 
35
  integer(Zoltan_INT) , intent(in) :: data(*)
40
36
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
41
37
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
42
38
  integer(Zoltan_INT), intent(in)  :: nbor_proc
45
41
  integer(Zoltan_INT), intent(out) :: ierr
46
42
  end subroutine fn_ptr
47
43
end interface
48
 
integer(Zoltan_INT) INTENT_IN data(*)
 
44
integer(Zoltan_INT) , intent(in) :: data(*)
49
45
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
50
46
integer(Zoltan_INT) :: nbytes, i
51
47
nbytes = Zoltan_PTR_LENGTH
52
48
do i=1,nbytes
53
49
   zz_addr(i) = ichar(zz%addr%addr(i:i))
54
50
end do
55
 
#ifdef NASOFTWARE
56
 
Zf90_Set_Border_Obj_List_Fn1s = Zfw_Set_Fn1s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
57
 
#else
58
51
Zf90_Set_Border_Obj_List_Fn1s = Zfw_Set_Fn1s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
59
 
#endif
60
52
end function Zf90_Set_Border_Obj_List_Fn1s
61
53
 
62
54
 
63
55
function Zf90_Set_Border_Obj_List_Fn2s(zz,fn_ptr,data)
64
56
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn2s
65
 
type(Zoltan_Struct) INTENT_IN zz
 
57
type(Zoltan_Struct) , intent(in) :: zz
66
58
interface
67
59
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
68
60
    global_id, local_id, wdim, objwgts, ierr)
69
61
  use zoltan_types
70
 
  real(Zoltan_FLOAT) INTENT_IN data(*)
 
62
  real(Zoltan_FLOAT) , intent(in) :: data(*)
71
63
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
72
64
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
73
65
  integer(Zoltan_INT), intent(in)  :: nbor_proc
76
68
  integer(Zoltan_INT), intent(out) :: ierr
77
69
  end subroutine fn_ptr
78
70
end interface
79
 
real(Zoltan_FLOAT) INTENT_IN data(*)
 
71
real(Zoltan_FLOAT) , intent(in) :: data(*)
80
72
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
81
73
integer(Zoltan_INT) :: nbytes, i
82
74
nbytes = Zoltan_PTR_LENGTH
83
75
do i=1,nbytes
84
76
   zz_addr(i) = ichar(zz%addr%addr(i:i))
85
77
end do
86
 
#ifdef NASOFTWARE
87
 
Zf90_Set_Border_Obj_List_Fn2s = Zfw_Set_Fn2s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
88
 
#else
89
78
Zf90_Set_Border_Obj_List_Fn2s = Zfw_Set_Fn2s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
90
 
#endif
91
79
end function Zf90_Set_Border_Obj_List_Fn2s
92
80
 
93
81
 
94
82
function Zf90_Set_Border_Obj_List_Fn3s(zz,fn_ptr,data)
95
83
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn3s
96
 
type(Zoltan_Struct) INTENT_IN zz
 
84
type(Zoltan_Struct) , intent(in) :: zz
97
85
interface
98
86
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
99
87
    global_id, local_id, wdim, objwgts, ierr)
100
88
  use zoltan_types
101
 
  real(Zoltan_DOUBLE) INTENT_IN data(*)
 
89
  real(Zoltan_DOUBLE) , intent(in) :: data(*)
102
90
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
103
91
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
104
92
  integer(Zoltan_INT), intent(in)  :: nbor_proc
107
95
  integer(Zoltan_INT), intent(out) :: ierr
108
96
  end subroutine fn_ptr
109
97
end interface
110
 
real(Zoltan_DOUBLE) INTENT_IN data(*)
 
98
real(Zoltan_DOUBLE) , intent(in) :: data(*)
111
99
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
112
100
integer(Zoltan_INT) :: nbytes, i
113
101
nbytes = Zoltan_PTR_LENGTH
114
102
do i=1,nbytes
115
103
   zz_addr(i) = ichar(zz%addr%addr(i:i))
116
104
end do
117
 
#ifdef NASOFTWARE
118
 
Zf90_Set_Border_Obj_List_Fn3s = Zfw_Set_Fn3s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
119
 
#else
120
105
Zf90_Set_Border_Obj_List_Fn3s = Zfw_Set_Fn3s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
121
 
#endif
122
106
end function Zf90_Set_Border_Obj_List_Fn3s
123
107
 
124
108
 
125
109
function Zf90_Set_Border_Obj_List_Fn4s(zz,fn_ptr,data)
126
110
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn4s
127
 
type(Zoltan_Struct) INTENT_IN zz
 
111
type(Zoltan_Struct) , intent(in) :: zz
128
112
interface
129
113
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
130
114
    global_id, local_id, wdim, objwgts, ierr)
131
115
  use zoltan_types
132
116
  use lb_user_const
133
117
  use zoltan_user_data
134
 
  type(Zoltan_User_Data_1) INTENT_IN data
 
118
  type(Zoltan_User_Data_1) , intent(in) :: data
135
119
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
136
120
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
137
121
  integer(Zoltan_INT), intent(in)  :: nbor_proc
140
124
  integer(Zoltan_INT), intent(out) :: ierr
141
125
  end subroutine fn_ptr
142
126
end interface
143
 
type(Zoltan_User_Data_1) INTENT_IN data
 
127
type(Zoltan_User_Data_1) , intent(in) :: data
144
128
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
145
129
integer(Zoltan_INT) :: nbytes, i
146
130
nbytes = Zoltan_PTR_LENGTH
147
131
do i=1,nbytes
148
132
   zz_addr(i) = ichar(zz%addr%addr(i:i))
149
133
end do
150
 
#ifdef NASOFTWARE
151
 
Zf90_Set_Border_Obj_List_Fn4s = Zfw_Set_Fn4s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
152
 
#else
153
134
Zf90_Set_Border_Obj_List_Fn4s = Zfw_Set_Fn4s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
154
 
#endif
155
135
end function Zf90_Set_Border_Obj_List_Fn4s
156
136
 
157
137
 
158
138
function Zf90_Set_Border_Obj_List_Fn5s(zz,fn_ptr,data)
159
139
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn5s
160
 
type(Zoltan_Struct) INTENT_IN zz
 
140
type(Zoltan_Struct) , intent(in) :: zz
161
141
interface
162
142
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
163
143
    global_id, local_id, wdim, objwgts, ierr)
164
144
  use zoltan_types
165
145
  use lb_user_const
166
146
  use zoltan_user_data
167
 
  type(Zoltan_User_Data_2) INTENT_IN data
 
147
  type(Zoltan_User_Data_2) , intent(in) :: data
168
148
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
169
149
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
170
150
  integer(Zoltan_INT), intent(in)  :: nbor_proc
173
153
  integer(Zoltan_INT), intent(out) :: ierr
174
154
  end subroutine fn_ptr
175
155
end interface
176
 
type(Zoltan_User_Data_2) INTENT_IN data
 
156
type(Zoltan_User_Data_2) , intent(in) :: data
177
157
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
178
158
integer(Zoltan_INT) :: nbytes, i
179
159
nbytes = Zoltan_PTR_LENGTH
180
160
do i=1,nbytes
181
161
   zz_addr(i) = ichar(zz%addr%addr(i:i))
182
162
end do
183
 
#ifdef NASOFTWARE
184
 
Zf90_Set_Border_Obj_List_Fn5s = Zfw_Set_Fn5s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
185
 
#else
186
163
Zf90_Set_Border_Obj_List_Fn5s = Zfw_Set_Fn5s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
187
 
#endif
188
164
end function Zf90_Set_Border_Obj_List_Fn5s
189
165
 
190
166
 
191
167
function Zf90_Set_Border_Obj_List_Fn6s(zz,fn_ptr,data)
192
168
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn6s
193
 
type(Zoltan_Struct) INTENT_IN zz
 
169
type(Zoltan_Struct) , intent(in) :: zz
194
170
interface
195
171
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
196
172
    global_id, local_id, wdim, objwgts, ierr)
197
173
  use zoltan_types
198
174
  use lb_user_const
199
175
  use zoltan_user_data
200
 
  type(Zoltan_User_Data_3) INTENT_IN data
 
176
  type(Zoltan_User_Data_3) , intent(in) :: data
201
177
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
202
178
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
203
179
  integer(Zoltan_INT), intent(in)  :: nbor_proc
206
182
  integer(Zoltan_INT), intent(out) :: ierr
207
183
  end subroutine fn_ptr
208
184
end interface
209
 
type(Zoltan_User_Data_3) INTENT_IN data
 
185
type(Zoltan_User_Data_3) , intent(in) :: data
210
186
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
211
187
integer(Zoltan_INT) :: nbytes, i
212
188
nbytes = Zoltan_PTR_LENGTH
213
189
do i=1,nbytes
214
190
   zz_addr(i) = ichar(zz%addr%addr(i:i))
215
191
end do
216
 
#ifdef NASOFTWARE
217
 
Zf90_Set_Border_Obj_List_Fn6s = Zfw_Set_Fn6s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
218
 
#else
219
192
Zf90_Set_Border_Obj_List_Fn6s = Zfw_Set_Fn6s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
220
 
#endif
221
193
end function Zf90_Set_Border_Obj_List_Fn6s
222
194
 
223
195
 
224
196
function Zf90_Set_Border_Obj_List_Fn7s(zz,fn_ptr,data)
225
197
integer(Zoltan_INT) :: Zf90_Set_Border_Obj_List_Fn7s
226
 
type(Zoltan_Struct) INTENT_IN zz
 
198
type(Zoltan_Struct) , intent(in) :: zz
227
199
interface
228
200
  subroutine fn_ptr(data, num_gid_entries, num_lid_entries, nbor_proc, &
229
201
    global_id, local_id, wdim, objwgts, ierr)
230
202
  use zoltan_types
231
203
  use lb_user_const
232
204
  use zoltan_user_data
233
 
  type(Zoltan_User_Data_4) INTENT_IN data
 
205
  type(Zoltan_User_Data_4) , intent(in) :: data
234
206
  integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries
235
207
  integer(Zoltan_INT), intent(out) :: global_id(*), local_id(*)
236
208
  integer(Zoltan_INT), intent(in)  :: nbor_proc
239
211
  integer(Zoltan_INT), intent(out) :: ierr
240
212
  end subroutine fn_ptr
241
213
end interface
242
 
type(Zoltan_User_Data_4) INTENT_IN data
 
214
type(Zoltan_User_Data_4) , intent(in) :: data
243
215
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
244
216
integer(Zoltan_INT) :: nbytes, i
245
217
nbytes = Zoltan_PTR_LENGTH
246
218
do i=1,nbytes
247
219
   zz_addr(i) = ichar(zz%addr%addr(i:i))
248
220
end do
249
 
#ifdef NASOFTWARE
250
 
Zf90_Set_Border_Obj_List_Fn7s = Zfw_Set_Fn7s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,loc(fn_ptr),data)
251
 
#else
252
221
Zf90_Set_Border_Obj_List_Fn7s = Zfw_Set_Fn7s(zz_addr,nbytes,ZOLTAN_BORDER_OBJ_LIST_FN_TYPE%choice,fn_ptr,data)
253
 
#endif
254
222
end function Zf90_Set_Border_Obj_List_Fn7s
255
223
 
256
224