← Back to branch summary

~chaffra/+junk/trilinos

« back to all changes in this revision

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