Path: utzoo!attcan!uunet!bellcore!att!linac!pacific.mps.ohio-state.edu!zaphod.mps.ohio-state.edu!samsung!munnari.oz.au!diemen!sol!quan From: quan@sol.surv.utas.edu.au (Stephen Quan) Newsgroups: comp.lang.fortran Subject: Re: Array dilemma. Message-ID: Date: 24 Jan 91 02:50:19 GMT References: <11072@uhccux.uhcc.Hawaii.Edu> Sender: news@diemen.utas.edu.au Distribution: comp Lines: 55 tholen@uhccux.uhcc.Hawaii.Edu (David Tholen) writes: >In article , quan@sol.surv.utas.oz (Stephen Quan) writes: >> Cause of problem DOUBLE PRECISION BIG(3,50000) >> Current Compiler Microsoft Fortran. >> >> Question 1 Will F77L handle this problem? >> Question 3 Is there a compiler that would solve this problem? >[the above was heavily edited] >Our machine also bounced mail with "Host unknown", so I'm resorting to a >posting. I don't think mail to Australia has ever gone through for me. >Anyway... I checked my postings and noticed it had the wrong address, it should have been quan@sol.surv.utas.edu.au instaled of quan@sol.surv.utas.oz, the news server we have down here probably hasn't been updated yet. Sorry guys. (I fixed it this time, temporarily, by forgery!). Thanks to all that helped. The application involved designing a program for middle-budget consumers with GIS software. It turns out that using 386 or 486 as suggested wasn't our first choice, because that would force consumers to get an new PC. So with all things in consider I will code it as randomly accessing a file, and read-only access to BIG is via a function: double precision dtemp(3) character*24 buffer equivalence (dtemp,buffer) c .. Eg modifying an existing array. 1 format(a24) open (10,file='big.dat',access='direct',recl=24,form='formatted') dtemp(1) = 555.555 dtemp(2) = 23.34 dtemp(3) = 432.43 write (10,1,recl=5387) buffer : double precision function big(i,j) double precision dtemp(3) character*24 buffer equivalence (dtemp,buffer) 1 format(a24) read (10,1,rec=j) buffer big = dtemp(i) return end Once BIG.DAT has been generated with our data, we will access it read-only. I am planning to implement a saved common block for a cache-type array to speed up access to BIG. Once again, thanks for all your comments. -- quan@sol.surv.utas.edu.au / quan@131.217.30.1 Stephen Quan, University of Tasmania.