home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / fortran / 2806 < prev    next >
Encoding:
Text File  |  1992-07-23  |  1.3 KB  |  34 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!elroy.jpl.nasa.gov!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!uxa.cso.uiuc.edu!jal41820
  3. From: jal41820@uxa.cso.uiuc.edu (Smiley)
  4. Subject: Re: Segmentation Violation help...
  5. References: <Brt9nq.J5t@news.cso.uiuc.edu>
  6. Message-ID: <BruLMx.JC9@news.cso.uiuc.edu>
  7. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  8. Organization: University of Illinois at Urbana
  9. Date: Thu, 23 Jul 1992 15:28:08 GMT
  10. Keywords: help
  11. Lines: 21
  12.  
  13. jal41820@uxa.cso.uiuc.edu (Smiley) writes:
  14. :)      open(unit=13,file=cendata,status='old',form='formatted')
  15. :) 1013 format (i4,i4,f8.1,f8.1,f9.4,f8.4)
  16. :)   73 read(13,1013,end=93) i,j,dum1,dum2,grid(i,j,1),grid(i,j,2)
  17. :)      grid(i,j,2) = 0 - grid(i,j,2)
  18. :)      go to 73
  19.  
  20. As an added note, reading in normal variables such as "dum3,dum4" in place
  21. of the array variables on the read line, and then assiging the array values
  22. yields the same results.
  23.  
  24. Lots of people have been making this suggestion, so I thought I'd mention
  25. it.   :)
  26.  
  27. (btw, thanks again to everyone who's tried to help...  :)
  28.  
  29. -- 
  30.         Josh Laff              #     #      
  31. email to: smiley@uiuc.edu     _       _     Hello! I am a signature virus!  
  32.       (217) 356-6079         |#\_____/#|    Join the fun and copy mo*#(*&^!>.
  33.                               \#######/     
  34.