gfortran supports f77, but I'm not sure that this is good f77.
The piece of code islogical Memb(1)
integer*2 Memc(1)
integer*2 Mems(1)
integer Memi(1)
integer Meml(1)
real Memr(1)
double precision Memd(1)
complex Memx(1)
equivalence (Memb, Memc, Mems, Memi, Meml, Memr, Memd, Memx)
common /Mem/ Memd
_______________________________________________ Fedora astronomy mailing list astronomy@xxxxxxxxxxxxxxxxxxxxxxx http://fedoraproject.org/wiki/SIGs/Astronomy https://admin.fedoraproject.org/mailman/listinfo/astronomy