_blas_subroutine_wrappers.f 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462
  1. c This file was generated by _generate_pyx.py.
  2. c Do not edit this file directly.
  3. subroutine cdotcwrp(
  4. + ret,
  5. + n,
  6. + cx,
  7. + incx,
  8. + cy,
  9. + incy
  10. + )
  11. external wcdotc
  12. complex wcdotc
  13. complex ret
  14. integer n
  15. complex cx(n)
  16. integer incx
  17. complex cy(n)
  18. integer incy
  19. ret = wcdotc(
  20. + n,
  21. + cx,
  22. + incx,
  23. + cy,
  24. + incy
  25. + )
  26. end
  27. subroutine cdotuwrp(
  28. + ret,
  29. + n,
  30. + cx,
  31. + incx,
  32. + cy,
  33. + incy
  34. + )
  35. external wcdotu
  36. complex wcdotu
  37. complex ret
  38. integer n
  39. complex cx(n)
  40. integer incx
  41. complex cy(n)
  42. integer incy
  43. ret = wcdotu(
  44. + n,
  45. + cx,
  46. + incx,
  47. + cy,
  48. + incy
  49. + )
  50. end
  51. subroutine dasumwrp(
  52. + ret,
  53. + n,
  54. + dx,
  55. + incx
  56. + )
  57. external dasum
  58. double precision dasum
  59. double precision ret
  60. integer n
  61. double precision dx(n)
  62. integer incx
  63. ret = dasum(
  64. + n,
  65. + dx,
  66. + incx
  67. + )
  68. end
  69. subroutine dcabs1wrp(
  70. + ret,
  71. + z
  72. + )
  73. external dcabs1
  74. double precision dcabs1
  75. double precision ret
  76. complex*16 z
  77. ret = dcabs1(
  78. + z
  79. + )
  80. end
  81. subroutine ddotwrp(
  82. + ret,
  83. + n,
  84. + dx,
  85. + incx,
  86. + dy,
  87. + incy
  88. + )
  89. external ddot
  90. double precision ddot
  91. double precision ret
  92. integer n
  93. double precision dx(n)
  94. integer incx
  95. double precision dy(n)
  96. integer incy
  97. ret = ddot(
  98. + n,
  99. + dx,
  100. + incx,
  101. + dy,
  102. + incy
  103. + )
  104. end
  105. subroutine dnrm2wrp(
  106. + ret,
  107. + n,
  108. + x,
  109. + incx
  110. + )
  111. external dnrm2
  112. double precision dnrm2
  113. double precision ret
  114. integer n
  115. double precision x(n)
  116. integer incx
  117. ret = dnrm2(
  118. + n,
  119. + x,
  120. + incx
  121. + )
  122. end
  123. subroutine dsdotwrp(
  124. + ret,
  125. + n,
  126. + sx,
  127. + incx,
  128. + sy,
  129. + incy
  130. + )
  131. external dsdot
  132. double precision dsdot
  133. double precision ret
  134. integer n
  135. real sx(n)
  136. integer incx
  137. real sy(n)
  138. integer incy
  139. ret = dsdot(
  140. + n,
  141. + sx,
  142. + incx,
  143. + sy,
  144. + incy
  145. + )
  146. end
  147. subroutine dzasumwrp(
  148. + ret,
  149. + n,
  150. + zx,
  151. + incx
  152. + )
  153. external dzasum
  154. double precision dzasum
  155. double precision ret
  156. integer n
  157. complex*16 zx(n)
  158. integer incx
  159. ret = dzasum(
  160. + n,
  161. + zx,
  162. + incx
  163. + )
  164. end
  165. subroutine dznrm2wrp(
  166. + ret,
  167. + n,
  168. + x,
  169. + incx
  170. + )
  171. external dznrm2
  172. double precision dznrm2
  173. double precision ret
  174. integer n
  175. complex*16 x(n)
  176. integer incx
  177. ret = dznrm2(
  178. + n,
  179. + x,
  180. + incx
  181. + )
  182. end
  183. subroutine icamaxwrp(
  184. + ret,
  185. + n,
  186. + cx,
  187. + incx
  188. + )
  189. external icamax
  190. integer icamax
  191. integer ret
  192. integer n
  193. complex cx(n)
  194. integer incx
  195. ret = icamax(
  196. + n,
  197. + cx,
  198. + incx
  199. + )
  200. end
  201. subroutine idamaxwrp(
  202. + ret,
  203. + n,
  204. + dx,
  205. + incx
  206. + )
  207. external idamax
  208. integer idamax
  209. integer ret
  210. integer n
  211. double precision dx(n)
  212. integer incx
  213. ret = idamax(
  214. + n,
  215. + dx,
  216. + incx
  217. + )
  218. end
  219. subroutine isamaxwrp(
  220. + ret,
  221. + n,
  222. + sx,
  223. + incx
  224. + )
  225. external isamax
  226. integer isamax
  227. integer ret
  228. integer n
  229. real sx(n)
  230. integer incx
  231. ret = isamax(
  232. + n,
  233. + sx,
  234. + incx
  235. + )
  236. end
  237. subroutine izamaxwrp(
  238. + ret,
  239. + n,
  240. + zx,
  241. + incx
  242. + )
  243. external izamax
  244. integer izamax
  245. integer ret
  246. integer n
  247. complex*16 zx(n)
  248. integer incx
  249. ret = izamax(
  250. + n,
  251. + zx,
  252. + incx
  253. + )
  254. end
  255. subroutine lsamewrp(
  256. + ret,
  257. + ca,
  258. + cb
  259. + )
  260. external lsame
  261. logical lsame
  262. logical ret
  263. character ca
  264. character cb
  265. ret = lsame(
  266. + ca,
  267. + cb
  268. + )
  269. end
  270. subroutine sasumwrp(
  271. + ret,
  272. + n,
  273. + sx,
  274. + incx
  275. + )
  276. external sasum
  277. real sasum
  278. real ret
  279. integer n
  280. real sx(n)
  281. integer incx
  282. ret = sasum(
  283. + n,
  284. + sx,
  285. + incx
  286. + )
  287. end
  288. subroutine scasumwrp(
  289. + ret,
  290. + n,
  291. + cx,
  292. + incx
  293. + )
  294. external scasum
  295. real scasum
  296. real ret
  297. integer n
  298. complex cx(n)
  299. integer incx
  300. ret = scasum(
  301. + n,
  302. + cx,
  303. + incx
  304. + )
  305. end
  306. subroutine scnrm2wrp(
  307. + ret,
  308. + n,
  309. + x,
  310. + incx
  311. + )
  312. external scnrm2
  313. real scnrm2
  314. real ret
  315. integer n
  316. complex x(n)
  317. integer incx
  318. ret = scnrm2(
  319. + n,
  320. + x,
  321. + incx
  322. + )
  323. end
  324. subroutine sdotwrp(
  325. + ret,
  326. + n,
  327. + sx,
  328. + incx,
  329. + sy,
  330. + incy
  331. + )
  332. external sdot
  333. real sdot
  334. real ret
  335. integer n
  336. real sx(n)
  337. integer incx
  338. real sy(n)
  339. integer incy
  340. ret = sdot(
  341. + n,
  342. + sx,
  343. + incx,
  344. + sy,
  345. + incy
  346. + )
  347. end
  348. subroutine sdsdotwrp(
  349. + ret,
  350. + n,
  351. + sb,
  352. + sx,
  353. + incx,
  354. + sy,
  355. + incy
  356. + )
  357. external sdsdot
  358. real sdsdot
  359. real ret
  360. integer n
  361. real sb
  362. real sx(n)
  363. integer incx
  364. real sy(n)
  365. integer incy
  366. ret = sdsdot(
  367. + n,
  368. + sb,
  369. + sx,
  370. + incx,
  371. + sy,
  372. + incy
  373. + )
  374. end
  375. subroutine snrm2wrp(
  376. + ret,
  377. + n,
  378. + x,
  379. + incx
  380. + )
  381. external snrm2
  382. real snrm2
  383. real ret
  384. integer n
  385. real x(n)
  386. integer incx
  387. ret = snrm2(
  388. + n,
  389. + x,
  390. + incx
  391. + )
  392. end
  393. subroutine zdotcwrp(
  394. + ret,
  395. + n,
  396. + zx,
  397. + incx,
  398. + zy,
  399. + incy
  400. + )
  401. external wzdotc
  402. complex*16 wzdotc
  403. complex*16 ret
  404. integer n
  405. complex*16 zx(n)
  406. integer incx
  407. complex*16 zy(n)
  408. integer incy
  409. ret = wzdotc(
  410. + n,
  411. + zx,
  412. + incx,
  413. + zy,
  414. + incy
  415. + )
  416. end
  417. subroutine zdotuwrp(
  418. + ret,
  419. + n,
  420. + zx,
  421. + incx,
  422. + zy,
  423. + incy
  424. + )
  425. external wzdotu
  426. complex*16 wzdotu
  427. complex*16 ret
  428. integer n
  429. complex*16 zx(n)
  430. integer incx
  431. complex*16 zy(n)
  432. integer incy
  433. ret = wzdotu(
  434. + n,
  435. + zx,
  436. + incx,
  437. + zy,
  438. + incy
  439. + )
  440. end