home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / fortran / 4876 < prev    next >
Encoding:
Text File  |  1992-12-31  |  2.4 KB  |  59 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!elroy.jpl.nasa.gov!decwrl!deccrl!news.crl.dec.com!dbased.nuo.dec.com!e2big.mko.dec.com!quark.enet.dec.com!lionel
  3. From: lionel@quark.enet.dec.com (Steve Lionel)
  4. Subject: Re: A VMS Fortran I/O question
  5. Message-ID: <1992Dec31.153918.16765@e2big.mko.dec.com>
  6. Sender: usenet@e2big.mko.dec.com (Mr. USENET)
  7. Organization: Digital Equipment Corporation
  8. References:   <C03pyp.E4v@news.cso.uiuc.edu>
  9. Date: Thu, 31 Dec 1992 15:32:42 GMT
  10. Lines: 47
  11.  
  12.  
  13. In article <C03pyp.E4v@news.cso.uiuc.edu>, ercolessi@uimrl3.mrl.uiuc.edu 
  14. (furio ercolessi) writes...
  15. >Does anybody know (well, Steve Lionel certainly knows, but maybe
  16. >he's in holiday ...) what should I do to kill the carriage control character 
  17. >on the standard output in VMS Fortran ?
  18. > 
  19. >That is, I would like to be able to code something like
  20. >      PRINT '(a)','Hello'
  21. >instead of
  22. >      PRINT '(1x,a)','Hello'
  23. >in order to bring the code back and forth between Unix and VMS and 
  24. >retain the same behavior  [please don't tell me i have to pipe the output 
  25. >through 'asa' on the Unix side :-)]
  26. > 
  27. >I am sure there is some magic OPEN that does the trick.  If you do
  28. >      OPEN(6,FILE='SYS$OUTPUT',STATUS='UNKNOWN',CARRIAGERETURN='LIST')
  29. >then this fixes the WRITE(6,)  but not the PRINTs.
  30. >The PRINTs go to a logical unit called FOR$PRINT but how should I
  31. >reference it in the OPEN?  Is there a magic unit number associated
  32. >with it? 
  33. > 
  34. >Thanks!
  35. > 
  36. >PS  OK, *real programmers* always use WRITE(6,)!
  37.  
  38. Yes, I do know, and no, I'm not on vacation (though perhaps I should be..)
  39. But you're not going to like the answer....
  40.  
  41. There is a magic unit number for FOR$PRINT, -1, but you can't OPEN it
  42. to change the carriage control setting and there's no other way I can
  43. think of to accomplish this.  (Well, there's one, but I'm not sure it
  44. will work - try it and see.  FOR$RAB will return you the RAB of unit
  45. -1, and from that you can get the FAB.  You may then be able to 
  46. SYS$CLOSE the file, change the carriage control to CR ('LIST'),
  47. re-SYS$OPEN and SYS$CONNECT it.  You may have to fuss with the
  48. filename, or perhaps set FAB$V_NAM to make it use the NAM block.  You'll
  49. also have to have done one PRINT first to get the file open before 
  50. FOR$RAB will work.)
  51.  
  52. Is this really easier than using WRITE(6,) instead?
  53.  
  54. Steve Lionel                    lionel@quark.enet.dec.com
  55. SDT Languages Group
  56. Digital Equipment Corporation
  57. 110 Spit Brook Road
  58. Nashua, NH 03062
  59.