Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!know!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!haven!adm!smoke!chidsey
From: chidsey@smoke.BRL.MIL (Irving Chidsey)
Newsgroups: comp.lang.fortran
Subject: Re: WRITE don't do that too me!
Keywords: WRITE NEWLINE
Message-ID: <13812@smoke.BRL.MIL>
Date: 11 Sep 90 14:58:08 GMT
References: <quan.653053983@sol>
Distribution: comp
Organization: U.S. Army Ballistic Research Laboratory, APG, MD.
Lines: 48

In article <quan.653053983@sol> quan@sol.surv.utas.oz (Stephen Quan) writes:
<I am really a C fan, but I must say, over the couple of months programming in
<FORTRAN, I am beginning to enjoy it a bit.  Anyway, I have a nagging problem
<that has lasted since I have started and was wondering if any of you FORTRAN
<gurus knew a simple (standard) FORTRAN method to do the following.
<
<Essentially, I am looking for the putchar(x) C-equivalent where x may be any
<character.  I got close using (if I recall correctly) :
<
<eg. putchar(27) is almost :
<	INTEGER I
<	CHARACTER X
<	EQUIVALENCE (I,X)
<	X = 27
<	WRITE (*,100) X
<100     FORMAT(A1)
<
<However, this isn't quite the same as putchar(c) because the WRITE command
<also adds a NEWLINE character, how can I suppress the NEWLINE character?
<The interest here, is that I'm trying to write some graphics routines in
<FORTRAN.  At the moment, the only solution I can see is to store the codes
<into a string of some kind and output the string when a NEWLINE would be
<safe to output.

	No NEWLINE is an extension to the standard.  On our Convex a $ 
is what supresses NEWLINEs.
<
<Also, another question (about standard), in FORTRAN is it standard to have
<all commands in upper case.  Recently, in maintaining somebody elses code, I
<changed the whole lot to lower case, the compiler accepted it, but then I
<compiled using the ANSI-<whatever> mode and it gave errors indicating that
<I was not within the standard.  Does the standard insist on uppercase
<characters?
<
	lower case is also an extension to the standard.  I believe it is
a popular extension.

<Stephen Quan.  (quan@sol.surv.utas.edu.au)
<School of Surveying.
<University of Tasmania.

							Irv

-- 
I do not have signature authority.  I am not authorized to sign anything.
I am not authorized to commit the BRL, the DOA, the DOD, or the US Government
to anything, not even by implication.
			Irving L. Chidsey  <chidsey@brl.mil>