home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / fortran / 4874 < prev    next >
Encoding:
Text File  |  1992-12-30  |  1.5 KB  |  39 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!usc!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!uimrl7.mrl.uiuc.edu!ercolessi
  3. From: ercolessi@uimrl3.mrl.uiuc.edu (furio ercolessi)
  4. Subject: A VMS Fortran I/O question
  5. Message-ID: <C03pyp.E4v@news.cso.uiuc.edu>
  6. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  7. Reply-To: ercolessi@uimrl3.mrl.uiuc.edu (furio ercolessi)
  8. Organization: MRL - UIUC
  9. Date: Thu, 31 Dec 1992 02:08:48 GMT
  10. Lines: 27
  11.  
  12. Does anybody know (well, Steve Lionel certainly knows, but maybe
  13. he's in holiday ...) what should I do to kill the carriage control character 
  14. on the standard output in VMS Fortran ?
  15.  
  16. That is, I would like to be able to code something like
  17.       PRINT '(a)','Hello'
  18. instead of
  19.       PRINT '(1x,a)','Hello'
  20. in order to bring the code back and forth between Unix and VMS and 
  21. retain the same behavior  [please don't tell me i have to pipe the output 
  22. through 'asa' on the Unix side :-)]
  23.  
  24. I am sure there is some magic OPEN that does the trick.  If you do
  25.       OPEN(6,FILE='SYS$OUTPUT',STATUS='UNKNOWN',CARRIAGERETURN='LIST')
  26. then this fixes the WRITE(6,)  but not the PRINTs.
  27. The PRINTs go to a logical unit called FOR$PRINT but how should I
  28. reference it in the OPEN?  Is there a magic unit number associated
  29. with it? 
  30.  
  31. Thanks!
  32.  
  33. PS  OK, *real programmers* always use WRITE(6,)!
  34. --
  35. Furio Ercolessi
  36. Materials Research Laboratory           |   Intl School for Advanced Studies
  37. Univ. of Illinois at Urbana-Champaign   |   Trieste, Italy
  38. furio@uiuc.edu                          |   furio@sissa.it
  39.