MODULE interface_syr2k ! .. Use Statements .. USE blas_keywords, ONLY : blas_lower, blas_lower_type, blas_trans, & blas_trans_type USE zsyr2k_01, ONLY : zsyr2k_301 USE zsyr2k_02, ONLY : zsyr2k_302 USE zsyr2k_03, ONLY : zsyr2k_303 USE zsyr2k_04, ONLY : zsyr2k_304 USE zsyr2k_05, ONLY : zsyr2k_305 USE zsyr2k_06, ONLY : zsyr2k_306 USE zsyr2k_07, ONLY : zsyr2k_307 USE zsyr2k_08, ONLY : zsyr2k_308 USE zsyr2k_09, ONLY : zsyr2k_309 USE zsyr2k_10, ONLY : zsyr2k_310 USE zsyr2k_11, ONLY : zsyr2k_311 USE zsyr2k_12, ONLY : zsyr2k_312 USE zsyr2k_13, ONLY : zsyr2k_313 USE zsyr2k_14, ONLY : zsyr2k_314 USE zsyr2k_15, ONLY : zsyr2k_315 USE zsyr2k_16, ONLY : zsyr2k_316 USE dsyr2k_01, ONLY : dsyr2k_301 USE dsyr2k_02, ONLY : dsyr2k_302 USE dsyr2k_03, ONLY : dsyr2k_303 USE dsyr2k_04, ONLY : dsyr2k_304 USE dsyr2k_05, ONLY : dsyr2k_305 USE dsyr2k_06, ONLY : dsyr2k_306 USE dsyr2k_07, ONLY : dsyr2k_307 USE dsyr2k_08, ONLY : dsyr2k_308 USE dsyr2k_09, ONLY : dsyr2k_309 USE dsyr2k_10, ONLY : dsyr2k_310 USE dsyr2k_11, ONLY : dsyr2k_311 USE dsyr2k_12, ONLY : dsyr2k_312 USE dsyr2k_13, ONLY : dsyr2k_313 USE dsyr2k_14, ONLY : dsyr2k_314 USE dsyr2k_15, ONLY : dsyr2k_315 USE dsyr2k_16, ONLY : dsyr2k_316 USE dsyr2_01, ONLY : dsyr2_201 USE dsyr2_02, ONLY : dsyr2_202 USE dsyr2_03, ONLY : dsyr2_203 USE dsyr2_04, ONLY : dsyr2_204 USE dsyr2_05, ONLY : dsyr2_205 USE dsyr2_06, ONLY : dsyr2_206 USE dsyr2_07, ONLY : dsyr2_207 USE dsyr2_08, ONLY : dsyr2_208 PRIVATE ! .. Public Statements .. PUBLIC :: blas_lower, blas_lower_type, blas_trans, blas_trans_type PUBLIC :: syr2k ! .. Generic Interface Blocks .. INTERFACE syr2k ! Replaces ZSYRK 16 procedures ! Replaces DSYRK 16 procedures ! Replaces DSYR 8 procedures MODULE PROCEDURE zsyr2k_301 MODULE PROCEDURE zsyr2k_302 MODULE PROCEDURE zsyr2k_303 MODULE PROCEDURE zsyr2k_304 MODULE PROCEDURE zsyr2k_305 MODULE PROCEDURE zsyr2k_306 MODULE PROCEDURE zsyr2k_307 MODULE PROCEDURE zsyr2k_308 MODULE PROCEDURE zsyr2k_309 MODULE PROCEDURE zsyr2k_310 MODULE PROCEDURE zsyr2k_311 MODULE PROCEDURE zsyr2k_312 MODULE PROCEDURE zsyr2k_313 MODULE PROCEDURE zsyr2k_314 MODULE PROCEDURE zsyr2k_315 MODULE PROCEDURE zsyr2k_316 MODULE PROCEDURE dsyr2k_301 MODULE PROCEDURE dsyr2k_302 MODULE PROCEDURE dsyr2k_303 MODULE PROCEDURE dsyr2k_304 MODULE PROCEDURE dsyr2k_305 MODULE PROCEDURE dsyr2k_306 MODULE PROCEDURE dsyr2k_307 MODULE PROCEDURE dsyr2k_308 MODULE PROCEDURE dsyr2k_309 MODULE PROCEDURE dsyr2k_310 MODULE PROCEDURE dsyr2k_311 MODULE PROCEDURE dsyr2k_312 MODULE PROCEDURE dsyr2k_313 MODULE PROCEDURE dsyr2k_314 MODULE PROCEDURE dsyr2k_315 MODULE PROCEDURE dsyr2k_316 MODULE PROCEDURE dsyr2_201 MODULE PROCEDURE dsyr2_202 MODULE PROCEDURE dsyr2_203 MODULE PROCEDURE dsyr2_204 MODULE PROCEDURE dsyr2_205 MODULE PROCEDURE dsyr2_206 MODULE PROCEDURE dsyr2_207 MODULE PROCEDURE dsyr2_208 END INTERFACE END MODULE interface_syr2k