MODULE interface_her2k ! .. Use Statements .. USE blas_keywords, ONLY : blas_lower, blas_lower_type, blas_conj_trans, & blas_conj_trans_type USE zher2k_01, ONLY : zher2k_301 USE zher2k_02, ONLY : zher2k_302 USE zher2k_03, ONLY : zher2k_303 USE zher2k_04, ONLY : zher2k_304 USE zher2k_05, ONLY : zher2k_305 USE zher2k_06, ONLY : zher2k_306 USE zher2k_07, ONLY : zher2k_307 USE zher2k_08, ONLY : zher2k_308 USE zher2k_09, ONLY : zher2k_309 USE zher2k_10, ONLY : zher2k_310 USE zher2k_11, ONLY : zher2k_311 USE zher2k_12, ONLY : zher2k_312 USE zher2k_13, ONLY : zher2k_313 USE zher2k_14, ONLY : zher2k_314 USE zher2k_15, ONLY : zher2k_315 USE zher2k_16, ONLY : zher2k_316 USE zher2_01, ONLY : zher2_201 USE zher2_02, ONLY : zher2_202 USE zher2_03, ONLY : zher2_203 USE zher2_04, ONLY : zher2_204 USE zher2_05, ONLY : zher2_205 USE zher2_06, ONLY : zher2_206 USE zher2_07, ONLY : zher2_207 USE zher2_08, ONLY : zher2_208 PRIVATE ! .. Public Statements .. PUBLIC :: blas_lower, blas_lower_type, blas_conj_trans, & blas_conj_trans_type PUBLIC :: her2k ! .. Generic Interface Blocks .. INTERFACE her2k ! Replaces ZHERK 16 procedures ! Replaces ZHER 8 procedures MODULE PROCEDURE zher2k_301 MODULE PROCEDURE zher2k_302 MODULE PROCEDURE zher2k_303 MODULE PROCEDURE zher2k_304 MODULE PROCEDURE zher2k_305 MODULE PROCEDURE zher2k_306 MODULE PROCEDURE zher2k_307 MODULE PROCEDURE zher2k_308 MODULE PROCEDURE zher2k_309 MODULE PROCEDURE zher2k_310 MODULE PROCEDURE zher2k_311 MODULE PROCEDURE zher2k_312 MODULE PROCEDURE zher2k_313 MODULE PROCEDURE zher2k_314 MODULE PROCEDURE zher2k_315 MODULE PROCEDURE zher2k_316 MODULE PROCEDURE zher2_201 MODULE PROCEDURE zher2_202 MODULE PROCEDURE zher2_203 MODULE PROCEDURE zher2_204 MODULE PROCEDURE zher2_205 MODULE PROCEDURE zher2_206 MODULE PROCEDURE zher2_207 MODULE PROCEDURE zher2_208 END INTERFACE END MODULE interface_her2k