home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / fortran / 4414 < prev    next >
Encoding:
Text File  |  1992-11-23  |  1.1 KB  |  34 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!agate!doc.ic.ac.uk!cc.ic.ac.uk!!paspro
  3. From: paspro@.ic.ac.uk (Mr P.N. Asproulis)
  4. Subject: Re: Print characters on one line without newline...???
  5. Message-ID: <1992Nov23.140239.16685@cc.ic.ac.uk>
  6. Nntp-Posting-Host: aedgg.ae
  7. Organization: Imperial College
  8. References: <BxtnK6.23s@cs.uiuc.edu>
  9. Date: Mon, 23 Nov 92 14:02:39 GMT
  10. Lines: 22
  11.  
  12.  
  13. The following subroutine will do the job 
  14.  
  15.         SUBROUTINE PrintX(XCOUNT)
  16.         INTEGER XCOUNT
  17.  
  18.         INTEGER i
  19.  
  20.         PRINT *, ('X',i=1,XCOUNT)
  21.  
  22.         RETURN
  23.         END
  24.  
  25. ---------------------------------------------------           / \
  26.  Department of Aeronautics                                    | |
  27.  Imperial College of Science, Technology & Medicine   ________| |________
  28.  Prince Consort Road, London SW7 2AY, U.K.           |________| |________|
  29.  Room E355, Tel. : (071) 589 5111 Ext. 4028                   | |
  30.  E-mail: p.asproulis@uk.ac.ic.ae                           ___| |___
  31. ---------------------------------------------------       |___\_/___|
  32.  P. N. Asproulis
  33.  
  34.