Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!yale!cmcl2!lanl!ttw
From: ttw@lanl.gov (Tony Warnock)
Newsgroups: comp.lang.fortran
Subject: Fortran vs C
Keywords: none
Message-ID: <7099@lanl.gov>
Date: 27 Nov 90 23:38:59 GMT
Organization: Los Alamos Natl Lab, Los Alamos, N.M.
Lines: 24


      It's subroutines such as the following that make
      me prefer Fortan to C.
 
      SUBROUTINE mmkji (a,b,c,n1,n2,n3,m)
      INTEGER n1, n2, n3, i, j, k, m
      COMPLEX a(m,n1,n2), b(m,n2,n3), c(m,n1,n3)
      DO 30 j=1,n3
      DO 20 i=1,n1
      DO 10 l=1,m
      c(l,i,j)=(0.0,0.0)
   10 CONTINUE
   20 CONTINUE
   30 CONTINUE
      DO 70 k=1,n2
      DO 60 j=1,n3
      DO 50 i=1,n1
      DO 40 l=1,m
      c(l,i,j)=c(l,i,j)+a(l,i,k)*b(l,k,j)
   40 CONTINUE
   50 CONTINUE
   60 CONTINUE
   70 CONTINUE
      END