MODULE interface_hemm ! .. Use Statements .. USE blas_keywords, ONLY : blas_lower, blas_lower_type, blas_right, & blas_right_type USE zhemm_01, ONLY : zhemm_301 USE zhemm_02, ONLY : zhemm_302 USE zhemm_03, ONLY : zhemm_303 USE zhemm_04, ONLY : zhemm_304 USE zhemm_05, ONLY : zhemm_305 USE zhemm_06, ONLY : zhemm_306 USE zhemm_07, ONLY : zhemm_307 USE zhemm_08, ONLY : zhemm_308 USE zhemm_09, ONLY : zhemm_309 USE zhemm_10, ONLY : zhemm_310 USE zhemm_11, ONLY : zhemm_311 USE zhemm_12, ONLY : zhemm_312 USE zhemm_13, ONLY : zhemm_313 USE zhemm_14, ONLY : zhemm_314 USE zhemm_15, ONLY : zhemm_315 USE zhemm_16, ONLY : zhemm_316 USE zhemv_01, ONLY : zhemv_201 USE zhemv_02, ONLY : zhemv_202 USE zhemv_03, ONLY : zhemv_203 USE zhemv_04, ONLY : zhemv_204 USE zhemv_05, ONLY : zhemv_205 USE zhemv_06, ONLY : zhemv_206 USE zhemv_07, ONLY : zhemv_207 USE zhemv_08, ONLY : zhemv_208 PRIVATE ! .. Public Statements .. PUBLIC :: blas_lower, blas_lower_type, blas_right, blas_right_type PUBLIC :: hemm ! .. Generic Interface Blocks .. INTERFACE hemm ! Replaces ZHEMM 16 procedures ! Replaces ZHEMV 8 procedures MODULE PROCEDURE zhemm_301 MODULE PROCEDURE zhemm_302 MODULE PROCEDURE zhemm_303 MODULE PROCEDURE zhemm_304 MODULE PROCEDURE zhemm_305 MODULE PROCEDURE zhemm_306 MODULE PROCEDURE zhemm_307 MODULE PROCEDURE zhemm_308 MODULE PROCEDURE zhemm_309 MODULE PROCEDURE zhemm_310 MODULE PROCEDURE zhemm_311 MODULE PROCEDURE zhemm_312 MODULE PROCEDURE zhemm_313 MODULE PROCEDURE zhemm_314 MODULE PROCEDURE zhemm_315 MODULE PROCEDURE zhemm_316 MODULE PROCEDURE zhemv_201 MODULE PROCEDURE zhemv_202 MODULE PROCEDURE zhemv_203 MODULE PROCEDURE zhemv_204 MODULE PROCEDURE zhemv_205 MODULE PROCEDURE zhemv_206 MODULE PROCEDURE zhemv_207 MODULE PROCEDURE zhemv_208 END INTERFACE END MODULE interface_hemm