← Back to branch summary

~chaffra/+junk/trilinos

« back to all changes in this revision

Viewing changes to packages/zoltan/src/fort/set_hierpartition.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_hierpartition.fn
1
1
 
2
2
function Zf90_Set_Hier_Part_Fn0f(zz,fn_ptr)
3
3
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn0f
4
 
type(Zoltan_Struct) INTENT_IN zz
 
4
type(Zoltan_Struct) , intent(in) :: zz
5
5
interface
6
6
  function fn_ptr(dummy, level, ierr)
7
7
  use zoltan_types
17
17
do i=1,nbytes
18
18
   zz_addr(i) = ichar(zz%addr%addr(i:i))
19
19
end do
20
 
#ifdef NASOFTWARE
21
 
Zf90_Set_Hier_Part_Fn0f = Zfw_Set_Fn0f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr))
22
 
#else
23
20
Zf90_Set_Hier_Part_Fn0f = Zfw_Set_Fn0f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr)
24
 
#endif
25
21
end function Zf90_Set_Hier_Part_Fn0f
26
22
 
27
23
 
28
24
function Zf90_Set_Hier_Part_Fn1f(zz,fn_ptr,data)
29
25
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn1f
30
 
type(Zoltan_Struct) INTENT_IN zz
 
26
type(Zoltan_Struct) , intent(in) :: zz
31
27
interface
32
28
  function fn_ptr(data,level,ierr)
33
29
  use zoltan_types
34
30
  integer(Zoltan_INT) :: fn_ptr
35
 
  integer(Zoltan_INT) INTENT_IN data(*)
 
31
  integer(Zoltan_INT) , intent(in) :: data(*)
36
32
  integer(Zoltan_INT), intent(in) :: level
37
33
  integer(Zoltan_INT), intent(out) :: ierr
38
34
  end function fn_ptr
39
35
end interface
40
 
integer(Zoltan_INT) INTENT_IN data(*)
 
36
integer(Zoltan_INT) , intent(in) :: data(*)
41
37
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
42
38
integer(Zoltan_INT) :: nbytes, i
43
39
nbytes = Zoltan_PTR_LENGTH
44
40
do i=1,nbytes
45
41
   zz_addr(i) = ichar(zz%addr%addr(i:i))
46
42
end do
47
 
#ifdef NASOFTWARE
48
 
Zf90_Set_Hier_Part_Fn1f = Zfw_Set_Fn1f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
49
 
#else
50
43
Zf90_Set_Hier_Part_Fn1f = Zfw_Set_Fn1f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
51
 
#endif
52
44
end function Zf90_Set_Hier_Part_Fn1f
53
45
 
54
46
 
55
47
function Zf90_Set_Hier_Part_Fn2f(zz,fn_ptr,data)
56
48
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn2f
57
 
type(Zoltan_Struct) INTENT_IN zz
 
49
type(Zoltan_Struct) , intent(in) :: zz
58
50
interface
59
51
  function fn_ptr(data,level,ierr)
60
52
  use zoltan_types
61
53
  integer(Zoltan_INT) :: fn_ptr
62
 
  real(Zoltan_FLOAT) INTENT_IN data(*)
 
54
  real(Zoltan_FLOAT) , intent(in) :: data(*)
63
55
  integer(Zoltan_INT), intent(in) :: level
64
56
  integer(Zoltan_INT), intent(out) :: ierr
65
57
  end function fn_ptr
66
58
end interface
67
 
real(Zoltan_FLOAT) INTENT_IN data(*)
 
59
real(Zoltan_FLOAT) , intent(in) :: data(*)
68
60
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
69
61
integer(Zoltan_INT) :: nbytes, i
70
62
nbytes = Zoltan_PTR_LENGTH
71
63
do i=1,nbytes
72
64
   zz_addr(i) = ichar(zz%addr%addr(i:i))
73
65
end do
74
 
#ifdef NASOFTWARE
75
 
Zf90_Set_Hier_Part_Fn2f = Zfw_Set_Fn2f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
76
 
#else
77
66
Zf90_Set_Hier_Part_Fn2f = Zfw_Set_Fn2f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
78
 
#endif
79
67
end function Zf90_Set_Hier_Part_Fn2f
80
68
 
81
69
 
82
70
function Zf90_Set_Hier_Part_Fn3f(zz,fn_ptr,data)
83
71
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn3f
84
 
type(Zoltan_Struct) INTENT_IN zz
 
72
type(Zoltan_Struct) , intent(in) :: zz
85
73
interface
86
74
  function fn_ptr(data,level,ierr)
87
75
  use zoltan_types
88
76
  integer(Zoltan_INT) :: fn_ptr
89
 
  real(Zoltan_DOUBLE) INTENT_IN data(*)
 
77
  real(Zoltan_DOUBLE) , intent(in) :: data(*)
90
78
  integer(Zoltan_INT), intent(in) :: level
91
79
  integer(Zoltan_INT), intent(out) :: ierr
92
80
  end function fn_ptr
93
81
end interface
94
 
real(Zoltan_DOUBLE) INTENT_IN data(*)
 
82
real(Zoltan_DOUBLE) , intent(in) :: data(*)
95
83
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
96
84
integer(Zoltan_INT) :: nbytes, i
97
85
nbytes = Zoltan_PTR_LENGTH
98
86
do i=1,nbytes
99
87
   zz_addr(i) = ichar(zz%addr%addr(i:i))
100
88
end do
101
 
#ifdef NASOFTWARE
102
 
Zf90_Set_Hier_Part_Fn3f = Zfw_Set_Fn3f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
103
 
#else
104
89
Zf90_Set_Hier_Part_Fn3f = Zfw_Set_Fn3f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
105
 
#endif
106
90
end function Zf90_Set_Hier_Part_Fn3f
107
91
 
108
92
 
109
93
function Zf90_Set_Hier_Part_Fn4f(zz,fn_ptr,data)
110
94
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn4f
111
 
type(Zoltan_Struct) INTENT_IN zz
 
95
type(Zoltan_Struct) , intent(in) :: zz
112
96
interface
113
97
  function fn_ptr(data,level,ierr)
114
98
  use zoltan_types
115
99
  use lb_user_const
116
100
  use zoltan_user_data
117
101
  integer(Zoltan_INT) :: fn_ptr
118
 
  type(Zoltan_User_Data_1) INTENT_IN data
 
102
  type(Zoltan_User_Data_1) , intent(in) :: data
119
103
  integer(Zoltan_INT), intent(in) :: level
120
104
  integer(Zoltan_INT), intent(out) :: ierr
121
105
  end function fn_ptr
122
106
end interface
123
 
type(Zoltan_User_Data_1) INTENT_IN data
 
107
type(Zoltan_User_Data_1) , intent(in) :: data
124
108
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
125
109
integer(Zoltan_INT) :: nbytes, i
126
110
nbytes = Zoltan_PTR_LENGTH
127
111
do i=1,nbytes
128
112
   zz_addr(i) = ichar(zz%addr%addr(i:i))
129
113
end do
130
 
#ifdef NASOFTWARE
131
 
Zf90_Set_Hier_Part_Fn4f = Zfw_Set_Fn4f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
132
 
#else
133
114
Zf90_Set_Hier_Part_Fn4f = Zfw_Set_Fn4f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
134
 
#endif
135
115
end function Zf90_Set_Hier_Part_Fn4f
136
116
 
137
117
 
138
118
function Zf90_Set_Hier_Part_Fn5f(zz,fn_ptr,data)
139
119
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn5f
140
 
type(Zoltan_Struct) INTENT_IN zz
 
120
type(Zoltan_Struct) , intent(in) :: zz
141
121
interface
142
122
  function fn_ptr(data,level,ierr)
143
123
  use zoltan_types
144
124
  use lb_user_const
145
125
  use zoltan_user_data
146
126
  integer(Zoltan_INT) :: fn_ptr
147
 
  type(Zoltan_User_Data_2) INTENT_IN data
 
127
  type(Zoltan_User_Data_2) , intent(in) :: data
148
128
  integer(Zoltan_INT), intent(in) :: level
149
129
  integer(Zoltan_INT), intent(out) :: ierr
150
130
  end function fn_ptr
151
131
end interface
152
 
type(Zoltan_User_Data_2) INTENT_IN data
 
132
type(Zoltan_User_Data_2) , intent(in) :: data
153
133
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
154
134
integer(Zoltan_INT) :: nbytes, i
155
135
nbytes = Zoltan_PTR_LENGTH
156
136
do i=1,nbytes
157
137
   zz_addr(i) = ichar(zz%addr%addr(i:i))
158
138
end do
159
 
#ifdef NASOFTWARE
160
 
Zf90_Set_Hier_Part_Fn5f = Zfw_Set_Fn5f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
161
 
#else
162
139
Zf90_Set_Hier_Part_Fn5f = Zfw_Set_Fn5f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
163
 
#endif
164
140
end function Zf90_Set_Hier_Part_Fn5f
165
141
 
166
142
 
167
143
function Zf90_Set_Hier_Part_Fn6f(zz,fn_ptr,data)
168
144
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn6f
169
 
type(Zoltan_Struct) INTENT_IN zz
 
145
type(Zoltan_Struct) , intent(in) :: zz
170
146
interface
171
147
  function fn_ptr(data,level,ierr)
172
148
  use zoltan_types
173
149
  use lb_user_const
174
150
  use zoltan_user_data
175
151
  integer(Zoltan_INT) :: fn_ptr
176
 
  type(Zoltan_User_Data_3) INTENT_IN data
 
152
  type(Zoltan_User_Data_3) , intent(in) :: data
177
153
  integer(Zoltan_INT), intent(in) :: level
178
154
  integer(Zoltan_INT), intent(out) :: ierr
179
155
  end function fn_ptr
180
156
end interface
181
 
type(Zoltan_User_Data_3) INTENT_IN data
 
157
type(Zoltan_User_Data_3) , intent(in) :: data
182
158
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
183
159
integer(Zoltan_INT) :: nbytes, i
184
160
nbytes = Zoltan_PTR_LENGTH
185
161
do i=1,nbytes
186
162
   zz_addr(i) = ichar(zz%addr%addr(i:i))
187
163
end do
188
 
#ifdef NASOFTWARE
189
 
Zf90_Set_Hier_Part_Fn6f = Zfw_Set_Fn6f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
190
 
#else
191
164
Zf90_Set_Hier_Part_Fn6f = Zfw_Set_Fn6f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
192
 
#endif
193
165
end function Zf90_Set_Hier_Part_Fn6f
194
166
 
195
167
 
196
168
function Zf90_Set_Hier_Part_Fn7f(zz,fn_ptr,data)
197
169
integer(Zoltan_INT) :: Zf90_Set_Hier_Part_Fn7f
198
 
type(Zoltan_Struct) INTENT_IN zz
 
170
type(Zoltan_Struct) , intent(in) :: zz
199
171
interface
200
172
  function fn_ptr(data,level,ierr)
201
173
  use zoltan_types
202
174
  use lb_user_const
203
175
  use zoltan_user_data
204
176
  integer(Zoltan_INT) :: fn_ptr
205
 
  type(Zoltan_User_Data_4) INTENT_IN data
 
177
  type(Zoltan_User_Data_4) , intent(in) :: data
206
178
  integer(Zoltan_INT), intent(in) :: level
207
179
  integer(Zoltan_INT), intent(out) :: ierr
208
180
  end function fn_ptr
209
181
end interface
210
 
type(Zoltan_User_Data_4) INTENT_IN data
 
182
type(Zoltan_User_Data_4) , intent(in) :: data
211
183
integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr
212
184
integer(Zoltan_INT) :: nbytes, i
213
185
nbytes = Zoltan_PTR_LENGTH
214
186
do i=1,nbytes
215
187
   zz_addr(i) = ichar(zz%addr%addr(i:i))
216
188
end do
217
 
#ifdef NASOFTWARE
218
 
Zf90_Set_Hier_Part_Fn7f = Zfw_Set_Fn7f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,loc(fn_ptr),data)
219
 
#else
220
189
Zf90_Set_Hier_Part_Fn7f = Zfw_Set_Fn7f(zz_addr,nbytes,ZOLTAN_HIER_PART_FN_TYPE%choice,fn_ptr,data)
221
 
#endif
222
190
end function Zf90_Set_Hier_Part_Fn7f
223
191
 
224
192