matmul intrinsic procedure

[Steve Kargl]

On Thu, Jun 30, 2005 at 02:52:31PM -0600, Jan Stanis?aw Owoc wrote:
> [jsowoc@localhost ~]$ gfortran -v
> Using built-in specs.
> Target: i386-redhat-linux
> Configured with: ../configure --prefix=/usr --mandir=/usr/share/man 
> --infodir=/usr/share/info --enable-shared --enable-threads=posix 
> --enable-checking=release --with-system-zlib --enable-__cxa_atexit 
> --disable-libunwind-exceptions --enable-libgcj-multifile 
> --enable-languages=c,c++,objc,java,f95,ada --enable-java-awt=gtk 
> --with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre 
> --host=i386-redhat-linux
> Thread model: posix
> gcc version 4.0.0 20050519 (Red Hat 4.0.0-8)
> [jsowoc@localhost ~]$
> 
> 
> I will get the CVS version of both 4.0 and 4.1, and compile it using gcc 
> 4.0.0 (which came with my operating system), and will report back on the 
> result.

   real a(2,2), b(2,2)
   a = reshape((/1,2,3,4/), (/2,2/) )
   b = reshape((/4,3,2,1/), (/2,2/) )
   print*, a
   print*, b
   print*, matmul(a,b)
   end program

troutmask:kargl[203]  gfc -o z rf.f90
troutmask:kargl[204] ./z
   1.000000       2.000000       3.000000       4.000000    
   4.000000       3.000000       2.000000       1.000000    
   13.00000       20.00000       5.000000       8.000000    

gfc is gforrtan 4.1.x.

> As for g95 being GPL or not, I was going by what I read on:
> http://gcc.gnu.org/wiki/TheOtherGCCBasedFortranCompiler

g95 is released under the GPL.  The wiki page highlights the
violations of the GPL that the author of g95 has/is committing.

-- 
Steve