home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / fortran / 4903 < prev    next >
Encoding:
Internet Message Format  |  1993-01-04  |  2.2 KB
  1. Path: sparky!uunet!caen!uvaarpa!gems.vcu.edu!agnew
  2. From: agnew@gems.vcu.edu
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: A VMS Fortran I/O question
  5. Message-ID: <1993Jan4.084845.248@gems.vcu.edu>
  6. Date: 4 Jan 93 08:48:45 -0400
  7. References: <C03pyp.E4v@news.cso.uiuc.edu>
  8. Organization: Medical College of Virginia
  9. Lines: 47
  10.  
  11. In reply to Furio Ercolessi's message, could he not simply use
  12.  
  13. CONVERT/FDL=BLAH DATAFILE.FOO DATASEND.BAR,
  14.  
  15. where fdl is an fdl taken of an simple file that will send over the net,
  16. and the vms convert utility simply twists the file into it's new form???
  17.  
  18. wouldn't that be easier than all that coding you guys are talking about???
  19.  
  20. Jim Agnew
  21.  
  22.          /^^^\   \ /   Jim Agnew         | AGNEW@RUBY.VCU.EDU  (Internet)
  23.         /      >  ||   Neurosurgery,     | AGNEW@VCUVAX        (Bitnet)
  24.    /\_/     '   \  /   MCV-VCU           | This disc will self destruct in
  25.  /________________>    Richmond, VA, USA | five seconds.  Good luck, Jim..."
  26.  
  27.  
  28.  
  29.  
  30. In article <C03pyp.E4v@news.cso.uiuc.edu>, ercolessi@uimrl3.mrl.uiuc.edu (furio ercolessi) writes:
  31. > Does anybody know (well, Steve Lionel certainly knows, but maybe
  32. > he's in holiday ...) what should I do to kill the carriage control character 
  33. > on the standard output in VMS Fortran ?
  34. > 
  35. > That is, I would like to be able to code something like
  36. >       PRINT '(a)','Hello'
  37. > instead of
  38. >       PRINT '(1x,a)','Hello'
  39. > in order to bring the code back and forth between Unix and VMS and 
  40. > retain the same behavior  [please don't tell me i have to pipe the output 
  41. > through 'asa' on the Unix side :-)]
  42. > 
  43. > I am sure there is some magic OPEN that does the trick.  If you do
  44. >       OPEN(6,FILE='SYS$OUTPUT',STATUS='UNKNOWN',CARRIAGERETURN='LIST')
  45. > then this fixes the WRITE(6,)  but not the PRINTs.
  46. > The PRINTs go to a logical unit called FOR$PRINT but how should I
  47. > reference it in the OPEN?  Is there a magic unit number associated
  48. > with it? 
  49. > 
  50. > Thanks!
  51. > 
  52. > PS  OK, *real programmers* always use WRITE(6,)!
  53. > --
  54. > Furio Ercolessi
  55. > Materials Research Laboratory           |   Intl School for Advanced Studies
  56. > Univ. of Illinois at Urbana-Champaign   |   Trieste, Italy
  57. > furio@uiuc.edu                          |   furio@sissa.it
  58.