Opening a very large file

[Craig Kennedy <c.j.kennedy@stir.ac.uk>]

Hello!

I'm using Fortran 77 and I am trying to open a large file (120
megabytes). However, when I try and compile the program it warns that
the stack size is too large. This file is made up of 115 smaller files
all put together - the program is to take the large file apart and
generate the 115 new files. The program works for smaller sets (40 files
in one etc.)

Here is some code from the file:

      reclen=512*512*115

     open(1,file=infname,form='unformatted',access='direct',
     +recl=reclen,status='old')
      print*,'opened'
       read(1) (realstream(i),i=1,reclen)
      close( 1 )


       do k=1,ilen
       ip=(k-1)*262144
       do l=1,262144
        ip=ip+1
        realstreamdiv(l)=realstream(ip)+realstreamdiv(l)
       enddo
       enddo


       reclen=262144

      open(18,file=outfname,form='unformatted',access='direct',
     +recl=reclen,status='new')
       write(18) realstreamdiv
       close(18)

Any help on how to open the file in chunks to output them would be
greatly appreciated.

-- 
The University of Stirling is a university established in Scotland by
charter at Stirling, FK9 4LA.  Privileged/Confidential Information may
be contained in this message.  If you are not the addressee indicated
in this message (or responsible for delivery of the message to such
person), you may not disclose, copy or deliver this message to anyone
and any action taken or omitted to be taken in reliance on it, is
prohibited and may be unlawful.  In such case, you should destroy this
message and kindly notify the sender by reply email.  Please advise
immediately if you or your employer do not consent to Internet email
for messages of this kind.  Opinions, conclusions and other
information in this message that do not relate to the official
business of the University of Stirling shall be understood as neither
given nor endorsed by it.