Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!spool.mu.edu!munnari.oz.au!diemen!sol!quan From: quan@sol.surv.utas.edu.au (Stephen Quan) Newsgroups: comp.lang.fortran Subject: Re: Left justify of integers. Message-ID: Date: 5 Jun 91 09:03:44 GMT Article-I.D.: sol.quan.676112624 References: Sender: news@diemen.utas.edu.au Distribution: comp Lines: 29 ricki@john.informatik.rwth-aachen.de (Richard Breuer) writes: >quan@sol.surv.utas.edu.au (Stephen Quan) writes: > [..left justify by integer problem ] >Well, there is no FORTRAN format that will do this. You can however 'create' >your own format by using an internal WRITE: > ... > character*5 fmt > fmt = '(i )' > write(fmt(3:4),'(i2)') intlen(myint) > write(*,fmt) myint > ... >I wrote such a function some years ago. If you want it, let me know and >I will look for it. > Hope this help, Ricki. Don't worry, I was just being curious and wondered if Fortran supported left-justify of integers. From what I see, the answer is 'yes', only if you are prepared to make the effort of doing it. -- quan@sol.surv.utas.edu.au (Stephen Quan) Department of Surveying, University of Tasmania, Australia. -- quan@sol.surv.utas.edu.au (Stephen Quan)