Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!swrinde!elroy.jpl.nasa.gov!jato!csi.jpl.nasa.gov!mwette From: mwette@csi.jpl.nasa.gov (Matt Wette) Newsgroups: comp.lang.fortran Subject: Re: Implied do loop in write (SUMMARY) Message-ID: <1991Apr23.235145.1289@jato.jpl.nasa.gov> Date: 23 Apr 91 23:51:45 GMT References: <1991Apr23.201123.3908@unixg.ubc.ca> Sender: news@jato.jpl.nasa.gov Reply-To: mwette@csi.jpl.nasa.gov (Matt Wette) Organization: Jet Propulsion Laboratory, Pasadena, CA Lines: 63 Nntp-Posting-Host: mr-ed.jpl.nasa.gov In article , moshkovi@sanandreas.ecn.purdue.edu (Gennady Moshkovich) writes: |> buckland@cheddar.ucs.ubc.ca (Tony Buckland) writes: |> |> >In article moshkovi@eurotunnel.ecn.purdue.edu (Gennady Moshkovich) writes: |> >> do 1 i = 1,n |> >> write(6,100) (matrix(i,j),j=1,m) |> >> 1 continue |> >>100 format(10i8) |> ^^^^ |> THIS IS THE PROBLEM !! |> Just look at the code, and you will see where the problem is. |> You can't print with this code more then _10_ elements in a row. |> I can repeat again !!!. I don't know beforehand how many |> elements I have, I can have 3, or I can have 300, but the |> output MUST look nice. |> SUBROUTINE MPRINT(M, N, A, NA, OUTUT) C INTEGER M, N, NA, OUTUT DOUBLE PRECISION A(NA,N) C C THIS SUBROUTINE PRINTS A MATRIX IN A REASONABLY NICE WAY. C C 31MAY88 M.WETTE, UCSB ECE, SANTA BARBARA, CA 93106 C INTEGER I,J,K,BEGC,ENDC INTEGER NCOL,NFMT,NC C DATA NCOL, NFMT/ 79, 12/ C NC = NCOL / NFMT C IF (N .GT. NC) GOTO 20 DO 10 I = 1,M WRITE(OUTUT, 90001) (A(I,J), J=1,N) 10 CONTINUE GOTO 50 20 CONTINUE DO 40 J = 1,N,NC BEGC = J ENDC = J + NC - 1 IF (ENDC .GT. N) ENDC = N WRITE(OUTUT,90002) BEGC, ENDC DO 30 I = 1,M WRITE(OUTUT, 90001) (A(I,K), K=BEGC,ENDC) 30 CONTINUE 40 CONTINUE 50 CONTINUE RETURN C 90001 FORMAT(1X,10(1X,1PE11.4)) 90002 FORMAT(1X,9H COLUMNS ,I2,9H THROUGH ,I2) C C --- LAST LINE OF MPRINT --- END -- _________________________________________________________________ Matthew R. Wette | Jet Propulsion Laboratory, 198-326 mwette@csi.jpl.nasa.gov | 4800 Oak Grove Dr, Pasadena,CA 91109 -----------------------------------------------------------------