Lines Matching defs:CMMCH
3053 SUBROUTINE CMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, subroutine
3068 COMPLEX ZERO
3070 REAL RZERO, RONE
3073 COMPLEX ALPHA, BETA
3074 REAL EPS, ERR
3075 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
3076 LOGICAL FATAL, MV
3077 CHARACTER*1 TRANSA, TRANSB
3079 COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * ),
3080 $ CC( LDCC, * ), CT( * )
3081 REAL G( * )
3083 COMPLEX CL
3084 REAL ERRI
3085 INTEGER I, J, K local
3086 LOGICAL CTRANA, CTRANB, TRANA, TRANB
3090 REAL ABS1
3108 10 CONTINUE
3114 20 CONTINUE
3115 30 CONTINUE
3123 40 CONTINUE
3124 50 CONTINUE
3131 60 CONTINUE
3132 70 CONTINUE
3141 80 CONTINUE
3142 90 CONTINUE
3149 100 CONTINUE
3150 110 CONTINUE
3161 120 CONTINUE
3162 130 CONTINUE
3169 140 CONTINUE
3170 150 CONTINUE
3179 160 CONTINUE
3180 170 CONTINUE
3187 180 CONTINUE
3188 190 CONTINUE
3196 200 CONTINUE
3208 210 CONTINUE
3210 220 CONTINUE
3238 * End of CMMCH. argument