Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!unix.cis.pitt.edu!dsinc!netnews.upenn.edu!eniac.seas.upenn.edu!jeffe
From: jeffe@eniac.seas.upenn.edu (George Jefferson )
Newsgroups: comp.lang.fortran
Subject: Re: Implied do loop in write (SUMMARY)
Message-ID: <41863@netnews.upenn.edu>
Date: 24 Apr 91 01:34:08 GMT
References: <moshkovi.672431251@eurotunnel.ecn.purdue.edu>
Sender: news@netnews.upenn.edu
Reply-To: jeffe@eniac.seas.upenn.edu (George Jefferson )
Organization: University of Pennsylvania
Lines: 21
Nntp-Posting-Host: eniac.seas.upenn.edu

:
:     character*9 frmt
:     data frmt/'(00f10.2/)'/
:     write(frmt(2:3),'(i2)')numcol
:     do 300 j=1,nrow
:	write(6,frmt)(smatr(i,j),i=1,numcol)
:300  continue
:

IMHO this is cleaner, and will work unless you really
can't guess an upper bound for m and n , in which case how
did you dimension x?

      do i=1,m
         write(*,'(1000f8.3)')(x(i,j),j=1,n)
      end do

Are there compilers which don't allow 'excess' format specifiers?

--
-george            george@mech.seas.upenn.edu