MODULE interface_herk ! .. Use Statements .. USE blas_keywords, ONLY : blas_lower, blas_lower_type, blas_conj_trans, & blas_conj_trans_type USE zherk_01, ONLY : zherk_301 USE zherk_02, ONLY : zherk_302 USE zherk_03, ONLY : zherk_303 USE zherk_04, ONLY : zherk_304 USE zherk_05, ONLY : zherk_305 USE zherk_06, ONLY : zherk_306 USE zherk_07, ONLY : zherk_307 USE zherk_08, ONLY : zherk_308 USE zherk_09, ONLY : zherk_309 USE zherk_10, ONLY : zherk_310 USE zherk_11, ONLY : zherk_311 USE zherk_12, ONLY : zherk_312 USE zherk_13, ONLY : zherk_313 USE zherk_14, ONLY : zherk_314 USE zherk_15, ONLY : zherk_315 USE zherk_16, ONLY : zherk_316 USE zher_01, ONLY : zher_201 USE zher_02, ONLY : zher_202 USE zher_03, ONLY : zher_203 USE zher_04, ONLY : zher_204 USE zher_05, ONLY : zher_205 USE zher_06, ONLY : zher_206 USE zher_07, ONLY : zher_207 USE zher_08, ONLY : zher_208 PRIVATE ! .. Public Statements .. PUBLIC :: blas_lower, blas_lower_type, blas_conj_trans, & blas_conj_trans_type PUBLIC :: herk ! .. Generic Interface Blocks .. INTERFACE herk ! Replaces ZHERK 16 procedures ! Replaces ZHER 8 procedures MODULE PROCEDURE zherk_301 MODULE PROCEDURE zherk_302 MODULE PROCEDURE zherk_303 MODULE PROCEDURE zherk_304 MODULE PROCEDURE zherk_305 MODULE PROCEDURE zherk_306 MODULE PROCEDURE zherk_307 MODULE PROCEDURE zherk_308 MODULE PROCEDURE zherk_309 MODULE PROCEDURE zherk_310 MODULE PROCEDURE zherk_311 MODULE PROCEDURE zherk_312 MODULE PROCEDURE zherk_313 MODULE PROCEDURE zherk_314 MODULE PROCEDURE zherk_315 MODULE PROCEDURE zherk_316 MODULE PROCEDURE zher_201 MODULE PROCEDURE zher_202 MODULE PROCEDURE zher_203 MODULE PROCEDURE zher_204 MODULE PROCEDURE zher_205 MODULE PROCEDURE zher_206 MODULE PROCEDURE zher_207 MODULE PROCEDURE zher_208 END INTERFACE END MODULE interface_herk