From: Stephen.Quan@f98.n250.z1.FidoNet.Org (Stephen Quan)
Sender: Uucp@egsgate.FidoNet.Org
Path: utzoo!utgpu!news-server.csri.toronto.edu!torsqnt!lethe!telly!moore!eastern!egsgate!Uucp
Newsgroups: comp.lang.fortran
Subject: Re: Left justify of integers.
Message-ID: <676362067.43@egsgate.FidoNet.Org>
Date: 05 Jun 91 09:03:44 EST


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)