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 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236
|
c This file was generated by _cython_wrapper_generators.py.
c Do not edit this file directly.
subroutine cdotcwrp(ret, n, cx, incx, cy, incy)
external wcdotc
complex wcdotc
complex ret
integer n
complex cx(n)
integer incx
complex cy(n)
integer incy
ret = wcdotc(n, cx, incx, cy, incy)
end
subroutine cdotuwrp(ret, n, cx, incx, cy, incy)
external wcdotu
complex wcdotu
complex ret
integer n
complex cx(n)
integer incx
complex cy(n)
integer incy
ret = wcdotu(n, cx, incx, cy, incy)
end
subroutine dasumwrp(ret, n, dx, incx)
external dasum
double precision dasum
double precision ret
integer n
double precision dx(n)
integer incx
ret = dasum(n, dx, incx)
end
subroutine dcabs1wrp(ret, z)
external dcabs1
double precision dcabs1
double precision ret
complex*16 z
ret = dcabs1(z)
end
subroutine ddotwrp(ret, n, dx, incx, dy, incy)
external ddot
double precision ddot
double precision ret
integer n
double precision dx(n)
integer incx
double precision dy(n)
integer incy
ret = ddot(n, dx, incx, dy, incy)
end
subroutine dnrm2wrp(ret, n, x, incx)
external dnrm2
double precision dnrm2
double precision ret
integer n
double precision x(n)
integer incx
ret = dnrm2(n, x, incx)
end
subroutine dsdotwrp(ret, n, sx, incx, sy, incy)
external dsdot
double precision dsdot
double precision ret
integer n
real sx(n)
integer incx
real sy(n)
integer incy
ret = dsdot(n, sx, incx, sy, incy)
end
subroutine dzasumwrp(ret, n, zx, incx)
external dzasum
double precision dzasum
double precision ret
integer n
complex*16 zx(n)
integer incx
ret = dzasum(n, zx, incx)
end
subroutine dznrm2wrp(ret, n, x, incx)
external dznrm2
double precision dznrm2
double precision ret
integer n
complex*16 x(n)
integer incx
ret = dznrm2(n, x, incx)
end
subroutine icamaxwrp(ret, n, cx, incx)
external icamax
integer icamax
integer ret
integer n
complex cx(n)
integer incx
ret = icamax(n, cx, incx)
end
subroutine idamaxwrp(ret, n, dx, incx)
external idamax
integer idamax
integer ret
integer n
double precision dx(n)
integer incx
ret = idamax(n, dx, incx)
end
subroutine isamaxwrp(ret, n, sx, incx)
external isamax
integer isamax
integer ret
integer n
real sx(n)
integer incx
ret = isamax(n, sx, incx)
end
subroutine izamaxwrp(ret, n, zx, incx)
external izamax
integer izamax
integer ret
integer n
complex*16 zx(n)
integer incx
ret = izamax(n, zx, incx)
end
subroutine lsamewrp(ret, ca, cb)
external lsame
logical lsame
logical ret
character ca
character cb
ret = lsame(ca, cb)
end
subroutine sasumwrp(ret, n, sx, incx)
external wsasum
real wsasum
real ret
integer n
real sx(n)
integer incx
ret = wsasum(n, sx, incx)
end
subroutine scasumwrp(ret, n, cx, incx)
external wscasum
real wscasum
real ret
integer n
complex cx(n)
integer incx
ret = wscasum(n, cx, incx)
end
subroutine scnrm2wrp(ret, n, x, incx)
external wscnrm2
real wscnrm2
real ret
integer n
complex x(n)
integer incx
ret = wscnrm2(n, x, incx)
end
subroutine sdotwrp(ret, n, sx, incx, sy, incy)
external wsdot
real wsdot
real ret
integer n
real sx(n)
integer incx
real sy(n)
integer incy
ret = wsdot(n, sx, incx, sy, incy)
end
subroutine sdsdotwrp(ret, n, sb, sx, incx, sy, incy)
external wsdsdot
real wsdsdot
real ret
integer n
real sb
real sx(n)
integer incx
real sy(n)
integer incy
ret = wsdsdot(n, sb, sx, incx, sy, incy)
end
subroutine snrm2wrp(ret, n, x, incx)
external wsnrm2
real wsnrm2
real ret
integer n
real x(n)
integer incx
ret = wsnrm2(n, x, incx)
end
subroutine zdotcwrp(ret, n, zx, incx, zy, incy)
external wzdotc
complex*16 wzdotc
complex*16 ret
integer n
complex*16 zx(n)
integer incx
complex*16 zy(n)
integer incy
ret = wzdotc(n, zx, incx, zy, incy)
end
subroutine zdotuwrp(ret, n, zx, incx, zy, incy)
external wzdotu
complex*16 wzdotu
complex*16 ret
integer n
complex*16 zx(n)
integer incx
complex*16 zy(n)
integer incy
ret = wzdotu(n, zx, incx, zy, incy)
end
|