home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4330 < prev    next >
Encoding:
Text File  |  1992-11-17  |  952 b   |  31 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!ukma!wupost!sdd.hp.com!hp-col!hpfcnfs.sde.hp.com!pld
  3. From: pld@fc.hp.com (Paul_Dineen)
  4. Subject: Re: Print characters on one line without newline...???
  5. Message-ID: <BxtyrF.Fx3@fc.sde.hp.com>
  6. Sender: news@fc.sde.hp.com (Notes Administrator)
  7. Organization: HP CLO/CoLL, Fort Collins, CO
  8. X-Newsreader: TIN [version 1.1.4 PL6]
  9. References: <BxtnK6.23s@cs.uiuc.edu>
  10. Date: Mon, 16 Nov 1992 22:35:38 GMT
  11. Lines: 18
  12.  
  13. Conrad W Taylor (ctaylor@cs.uiuc.edu) wrote:
  14. :          I'm writting this PrintX routine that is to print
  15. : the letter X n times on one line without any spaces and
  16. : newline.
  17.  
  18.   On an HP9000:
  19.  
  20.         accept *, n
  21.         write(*,'(A,$)') ('X',i=1,n)
  22.         end
  23.  
  24. pld@hpfcpld:/users/pld/temp/
  25. > a.out
  26. 47
  27. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXpld@hpfcpld:/users/pld/temp/
  28.  
  29.  where the above line has no CR at the end (the pld... is my prompt).
  30.  Reminder:  '$' is not an F77 standard feature.
  31.