cbtabs()

real function cbtabs

(

complex

val

)

Definition at line 13707 of file blacstest.f.

      COMPLEX VAL
      cbtabs = abs( real(val) ) + abs( aimag(val) )
      RETURN