<div dir="ltr"><div><div><div>gfortran supports f77, but I'm not sure that this is good f77.<br><br></div>The piece of code is<br><br> logical Memb(1)<br> integer*2 Memc(1)<br> integer*2 Mems(1)<br> integer Memi(1)<br>
integer Meml(1)<br> real Memr(1)<br> double precision Memd(1)<br> complex Memx(1)<br> equivalence (Memb, Memc, Mems, Memi, Meml, Memr, Memd, Memx)<br> common /Mem/ Memd<br><br></div>Memi are then used to reference the memory location as pointers. The trouble is that f90 sees this as real arrays.<br>
<br></div>If you have some ideas on how to make this work in gfortran let me know.<br></div>