fortran77

I am writing a Fortran77 program which uses a 3-dimensional array. I am declaring the array as follows Array_E(0:500,0:1000,0:100). When I execute the program it crashes instantly saying that it is "killed". When I ran strace, what I got was, execve("./yee", ["./yee"], [/* 65 vars */] +++ killed by SIGKILL +++ I suspect the problem is that the g77 compiler is not able to allocate memory for the array. In fact there are nine such arrays. In such a case is there a way to dynamically allocate memory on the stack in f77? If this is not the reason for the crash, kindly let me know if you have any

I'm new to Fortran. I was given a file that is supposed to be in Fortran 90, but written to be compiled with the Lahey Fujitsu compiler (the sparse documentation states that it should be compiled with lf95 filename.f -out compiled_name @imsllf95.cmd ). However, some lines are commented with c , which as I understand was the way to comment in Fortran 77. Also, matrices are declared like REAL*8, DIMENSION(23,8) :: xxx19 , which again I think is from Fortran 77. For the most part, I can compile the file with gfortran or ifort except for a section that requires the computation of a matrix inverse.

I develop one C++ program which calls a Fortran 77 routine. The main C++ program may run multithreaded. However, it happens that the Fortran 77 routine hides several common blocks which are modified on each call depending on its arguments. I am afraid that all common blocks may be shared between multiple threads and that concurrent accesses to these blocks will probably mess everything. First question : Am I right? Would common blocks be shared between multiple threads? Second question : Is there a simple way to avoid it? Rewriting the Fortran routines seems unaffordable, I am rather looking

Before I begin, I must preface by stating that I am a novice when it comes to FORTRAN. I am maintaining a legacy piece of code from 1978. It's purpose is to read in some data values from a file, process the values, and then output the processed values to another text file. Given the following FORTRAN code: INTEGER NM,STUBS,I,J,K PARAMETER (NM=67,STUBS=43) INTEGER*4 MDS(STUBS,NM) CALL OPEN$A(A$RDWR,'/home/test/data.txt', MAXPATHLEN,1) CALL OPEN$A(A$WRIT,'out',11,2) DO 90 I=1,2 READ(1,82) STUB !-- data processing --! WRITE(2,80) STUB,(MDS(I,J),J=1,24) 90 CONTINUE 80 FORMAT(/1X,A24,25I5) 82

I have been working with Fortran for years, but the file I/O is still hazy to me. My understanding of status , form , access , recl is limited, because I only needed certain use-cases in grad school. I know that Fortran binary files have extra information at the top of the file that describe the size of the file. But that has never been an issue for me before because I have only had to deal with Fortran files in Fortran code, where the extra information is necessary, but invisible. But how do I open a flat, binary file in Fortran? In the past, I might open a Fortran binary using Fortran by