--- Additional Comments From antoine dot letellier at free dot fr
2005-04-13 19:21 ---
we have a our own dialect which is preprocessed in fortran.
usually we compile with g77 .
antoine
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20990
4,0,'JONCT 852 MELEME ',OO1,1)
C MJOPOI=MELEME
MJO_40(-086+(OOA(OOT+MJONCT+2)+OOT)+1)=MELEME
MJPOI=NBNO+1
C DO 360 NN=1,N
DO360NN=1,N
NNN=2*NN
C ISTRJO(NN)=ITRA5(NNN-1)
IST_41(-088+(OOA(OOT+MJONCT+2)+OOT)+OOA((OOA(OOT+MJONCT+2)+OOT)+7)
*+NN)=ITR_36(-078
E,MCHPO2)
IF(TYPE.NE.'CHPOINT')THEN
CALL ECMO(MTAB1,'SMBR','CHPOINT',IZG1)
ELSE
CALL ECROBJ('CHPOINT',MCHPO2)
CALL ECROBJ('CHPOINT',IZG1)
CALL PRFUSE
CALL LIROBJ('CHPOINT',MCHPOI,1,IRET)
CALL ECMO