Complex error

[Steve Kargl]

On Wed, Oct 26, 2005 at 05:04:29PM -0700, Steve Kargl wrote:
> 
> module mat
>   interface operator (.mult.)

Oh crude!

>      module procedure times_cm_cm
>   end interface
> 

(snipe)

> 
>    c = b1 .multi. b2

One should proof read his own code.

>    print '(4ES12.4)', c(1,1), c(1,2) 
>    print '(4ES12.4)', c(2,1), c(2,2) 
> end program a

troutmask:sgk[205] gfc41 -static -o z ui.f90
troutmask:sgk[206] ./z
  4.0000E+00  0.0000E+00  4.0000E+00  0.0000E+00
  4.0000E+00  0.0000E+00  4.0000E+00  0.0000E+00
  4.0000E+00  0.0000E+00  4.0000E+00  0.0000E+00
  4.0000E+00  0.0000E+00  4.0000E+00  0.0000E+00


-- 
Steve