MODULE interface_gemm ! .. Use Statements .. USE blas_keywords, ONLY : blas_trans, blas_trans_type, blas_conj, & blas_conj_type, blas_conj_trans, blas_conj_trans_type USE zgemm_01, ONLY : zgemm_301 USE zgemm_02, ONLY : zgemm_302 USE zgemm_03, ONLY : zgemm_303 USE zgemm_04, ONLY : zgemm_304 USE zgemm_05, ONLY : zgemm_305 USE zgemm_06, ONLY : zgemm_306 USE zgemm_07, ONLY : zgemm_307 USE zgemm_08, ONLY : zgemm_308 USE zgemm_09, ONLY : zgemm_309 USE zgemm_10, ONLY : zgemm_310 USE zgemm_11, ONLY : zgemm_311 USE zgemm_12, ONLY : zgemm_312 USE zgemm_13, ONLY : zgemm_313 USE zgemm_14, ONLY : zgemm_314 USE zgemm_15, ONLY : zgemm_315 USE zgemm_16, ONLY : zgemm_316 USE zgemm_17, ONLY : zgemm_317 USE zgemm_18, ONLY : zgemm_318 USE zgemm_19, ONLY : zgemm_319 USE zgemm_20, ONLY : zgemm_320 USE zgemm_21, ONLY : zgemm_321 USE zgemm_22, ONLY : zgemm_322 USE zgemm_23, ONLY : zgemm_323 USE zgemm_24, ONLY : zgemm_324 USE zgemm_25, ONLY : zgemm_325 USE zgemm_26, ONLY : zgemm_326 USE zgemm_27, ONLY : zgemm_327 USE zgemm_28, ONLY : zgemm_328 USE zgemm_29, ONLY : zgemm_329 USE zgemm_30, ONLY : zgemm_330 USE zgemm_31, ONLY : zgemm_331 USE zgemm_32, ONLY : zgemm_332 USE zgemm_33, ONLY : zgemm_333 USE zgemm_34, ONLY : zgemm_334 USE zgemm_35, ONLY : zgemm_335 USE zgemm_36, ONLY : zgemm_336 USE dgemm_01, ONLY : dgemm_301 USE dgemm_02, ONLY : dgemm_302 USE dgemm_03, ONLY : dgemm_303 USE dgemm_04, ONLY : dgemm_304 USE dgemm_05, ONLY : dgemm_305 USE dgemm_06, ONLY : dgemm_306 USE dgemm_07, ONLY : dgemm_307 USE dgemm_08, ONLY : dgemm_308 USE dgemm_09, ONLY : dgemm_309 USE dgemm_10, ONLY : dgemm_310 USE dgemm_11, ONLY : dgemm_311 USE dgemm_12, ONLY : dgemm_312 USE dgemm_13, ONLY : dgemm_313 USE dgemm_14, ONLY : dgemm_314 USE dgemm_15, ONLY : dgemm_315 USE dgemm_16, ONLY : dgemm_316 USE dgemm_17, ONLY : dgemm_317 USE dgemm_18, ONLY : dgemm_318 USE dgemm_19, ONLY : dgemm_319 USE dgemm_20, ONLY : dgemm_320 USE dgemm_21, ONLY : dgemm_321 USE dgemm_22, ONLY : dgemm_322 USE dgemm_23, ONLY : dgemm_323 USE dgemm_24, ONLY : dgemm_324 USE dgemm_25, ONLY : dgemm_325 USE dgemm_26, ONLY : dgemm_326 USE dgemm_27, ONLY : dgemm_327 USE dgemm_28, ONLY : dgemm_328 USE dgemm_29, ONLY : dgemm_329 USE dgemm_30, ONLY : dgemm_330 USE dgemm_31, ONLY : dgemm_331 USE dgemm_32, ONLY : dgemm_332 USE dgemm_33, ONLY : dgemm_333 USE dgemm_34, ONLY : dgemm_334 USE dgemm_35, ONLY : dgemm_335 USE dgemm_36, ONLY : dgemm_336 USE zgemv_01, ONLY : zgemv_201 USE zgemv_02, ONLY : zgemv_202 USE zgemv_03, ONLY : zgemv_203 USE zgemv_04, ONLY : zgemv_204 USE zgemv_05, ONLY : zgemv_205 USE zgemv_06, ONLY : zgemv_206 USE zgemv_07, ONLY : zgemv_207 USE zgemv_08, ONLY : zgemv_208 USE zgemv_09, ONLY : zgemv_209 USE zgemv_10, ONLY : zgemv_210 USE zgemv_11, ONLY : zgemv_211 USE zgemv_12, ONLY : zgemv_212 USE dgemv_01, ONLY : dgemv_201 USE dgemv_02, ONLY : dgemv_202 USE dgemv_03, ONLY : dgemv_203 USE dgemv_04, ONLY : dgemv_204 USE dgemv_05, ONLY : dgemv_205 USE dgemv_06, ONLY : dgemv_206 USE dgemv_07, ONLY : dgemv_207 USE dgemv_08, ONLY : dgemv_208 USE dgemv_09, ONLY : dgemv_209 USE dgemv_10, ONLY : dgemv_210 USE dgemv_11, ONLY : dgemv_211 USE dgemv_12, ONLY : dgemv_212 USE zger_01, ONLY : zger_201 USE zger_02, ONLY : zger_202 USE zger_03, ONLY : zger_203 USE zger_04, ONLY : zger_204 USE zger_05, ONLY : zger_205 USE zger_06, ONLY : zger_206 USE zger_07, ONLY : zger_207 USE zger_08, ONLY : zger_208 USE dger_01, ONLY : dger_201 USE dger_02, ONLY : dger_202 USE dger_03, ONLY : dger_203 USE dger_04, ONLY : dger_204 USE dger_05, ONLY : dger_205 USE dger_06, ONLY : dger_206 USE dger_07, ONLY : dger_207 USE dger_08, ONLY : dger_208 PRIVATE ! .. Public Statements .. PUBLIC :: blas_trans, blas_trans_type, blas_conj, blas_conj_type, & blas_conj_trans, blas_conj_trans_type PUBLIC :: gemm ! .. Generic Interface Blocks .. INTERFACE gemm ! Replaces ZGEMM 36 procedures ! Replaces DGEMM 36 procedures (only 16 are needed) ! Replaces ZGEMV 12 procedures ! Replaces DGEMV 12 procedures (only 8 are needed) ! Replaces ZGERU 4 procedures ! Replaces ZGERC 4 procedures ! Replaces DGER 8 procedures MODULE PROCEDURE zgemm_301 MODULE PROCEDURE zgemm_302 MODULE PROCEDURE zgemm_303 MODULE PROCEDURE zgemm_304 MODULE PROCEDURE zgemm_305 MODULE PROCEDURE zgemm_306 MODULE PROCEDURE zgemm_307 MODULE PROCEDURE zgemm_308 MODULE PROCEDURE zgemm_309 MODULE PROCEDURE zgemm_310 MODULE PROCEDURE zgemm_311 MODULE PROCEDURE zgemm_312 MODULE PROCEDURE zgemm_313 MODULE PROCEDURE zgemm_314 MODULE PROCEDURE zgemm_315 MODULE PROCEDURE zgemm_316 MODULE PROCEDURE zgemm_317 MODULE PROCEDURE zgemm_318 MODULE PROCEDURE zgemm_319 MODULE PROCEDURE zgemm_320 MODULE PROCEDURE zgemm_321 MODULE PROCEDURE zgemm_322 MODULE PROCEDURE zgemm_323 MODULE PROCEDURE zgemm_324 MODULE PROCEDURE zgemm_325 MODULE PROCEDURE zgemm_326 MODULE PROCEDURE zgemm_327 MODULE PROCEDURE zgemm_328 MODULE PROCEDURE zgemm_329 MODULE PROCEDURE zgemm_330 MODULE PROCEDURE zgemm_331 MODULE PROCEDURE zgemm_332 MODULE PROCEDURE zgemm_333 MODULE PROCEDURE zgemm_334 MODULE PROCEDURE zgemm_335 MODULE PROCEDURE zgemm_336 MODULE PROCEDURE dgemm_301 MODULE PROCEDURE dgemm_302 MODULE PROCEDURE dgemm_303 MODULE PROCEDURE dgemm_304 MODULE PROCEDURE dgemm_305 MODULE PROCEDURE dgemm_306 MODULE PROCEDURE dgemm_307 MODULE PROCEDURE dgemm_308 MODULE PROCEDURE dgemm_309 MODULE PROCEDURE dgemm_310 MODULE PROCEDURE dgemm_311 MODULE PROCEDURE dgemm_312 MODULE PROCEDURE dgemm_313 MODULE PROCEDURE dgemm_314 MODULE PROCEDURE dgemm_315 MODULE PROCEDURE dgemm_316 MODULE PROCEDURE dgemm_317 MODULE PROCEDURE dgemm_318 MODULE PROCEDURE dgemm_319 MODULE PROCEDURE dgemm_320 MODULE PROCEDURE dgemm_321 MODULE PROCEDURE dgemm_322 MODULE PROCEDURE dgemm_323 MODULE PROCEDURE dgemm_324 MODULE PROCEDURE dgemm_325 MODULE PROCEDURE dgemm_326 MODULE PROCEDURE dgemm_327 MODULE PROCEDURE dgemm_328 MODULE PROCEDURE dgemm_329 MODULE PROCEDURE dgemm_330 MODULE PROCEDURE dgemm_331 MODULE PROCEDURE dgemm_332 MODULE PROCEDURE dgemm_333 MODULE PROCEDURE dgemm_334 MODULE PROCEDURE dgemm_335 MODULE PROCEDURE dgemm_336 MODULE PROCEDURE zgemv_201 MODULE PROCEDURE zgemv_202 MODULE PROCEDURE zgemv_203 MODULE PROCEDURE zgemv_204 MODULE PROCEDURE zgemv_205 MODULE PROCEDURE zgemv_206 MODULE PROCEDURE zgemv_207 MODULE PROCEDURE zgemv_208 MODULE PROCEDURE zgemv_209 MODULE PROCEDURE zgemv_210 MODULE PROCEDURE zgemv_211 MODULE PROCEDURE zgemv_212 MODULE PROCEDURE dgemv_201 MODULE PROCEDURE dgemv_202 MODULE PROCEDURE dgemv_203 MODULE PROCEDURE dgemv_204 MODULE PROCEDURE dgemv_205 MODULE PROCEDURE dgemv_206 MODULE PROCEDURE dgemv_207 MODULE PROCEDURE dgemv_208 MODULE PROCEDURE dgemv_209 MODULE PROCEDURE dgemv_210 MODULE PROCEDURE dgemv_211 MODULE PROCEDURE dgemv_212 MODULE PROCEDURE zger_201 MODULE PROCEDURE zger_202 MODULE PROCEDURE zger_203 MODULE PROCEDURE zger_204 MODULE PROCEDURE zger_205 MODULE PROCEDURE zger_206 MODULE PROCEDURE zger_207 MODULE PROCEDURE zger_208 MODULE PROCEDURE dger_201 MODULE PROCEDURE dger_202 MODULE PROCEDURE dger_203 MODULE PROCEDURE dger_204 MODULE PROCEDURE dger_205 MODULE PROCEDURE dger_206 MODULE PROCEDURE dger_207 MODULE PROCEDURE dger_208 END INTERFACE END MODULE interface_gemm