public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/20990] New: Segmentation fault
@ 2005-04-13 13:23 antoine dot letellier at free dot fr
2005-04-13 18:34 ` [Bug fortran/20990] " fxcoudert at gcc dot gnu dot org
` (2 more replies)
0 siblings, 3 replies; 4+ messages in thread
From: antoine dot letellier at free dot fr @ 2005-04-13 13:23 UTC (permalink / raw)
To: gcc-bugs
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 47625 bytes --]
/home/antoine/bin/gfortran -v
Utilisation des specs internes.
Target: x86_64-unknown-linux-gnu
Configuré avec: ../gcc-4.0-20050402/configure --prefix=/home/antoine
--with-gmp=/home/antoine/ --without-libiberty
Modèle de thread: posix
version gcc 4.0.0 20050402 (prerelease)
command line :
/home/antoine/bin/gfortran -B/home/antoine -c -O2 -ffixed-form
-fdefault-integer-8 -fdefault-real-8 jonct.f
output :
jonct.f: In function 'jonct':
jonct.f:294: erreur interne du compilateur: Segmentation fault
Veuillez soumettre un rapport complet d'anomalies,
avec le source pré-traité si nécessaire.
source :
SUBROUTINE JONCT
IMPLICIT INTEGER(I-N)
COMMON/COPTIO/IPLLB
COMMON/COPTIO/IERPER, IERMAX, IERR
REAL*4 REAERR
COMMON/COPTIO/INTERR(10),REAERR(10)
CHARACTER*40 MOTERR
CHARACTER*72 TITREE
CHARACTER*4 LOCERR
COMMON/COPTIC/MOTERR,TITREE,LOCERR
COMMON /COPTIO/IOTER, IOLEC, IOIMP, IOCAR, IOACQ
COMMON /COPTIO/IOPER, IOSGB, IOGRA, IOSAU, IORES
COMMON/COPTIO/IECHO, IIMPI, IOSPI
COMMON/COPTIO/IDIM, MCOORD
COMMON/COPTIO/IFOMOD
COMMON/COPTIO/NIFOUR
COMMON/COPTIO/IFOUR
COMMON/COPTIO/NSDPGE
REAL*4 DIOCAD,DIOCAE
COMMON/COPTIO/DIOCAD, DIOCAE
LOGICAL ZHORIZ , ZINIPS
COMMON/COPTIO/ZHORIZ , ZINIPS
COMMON/COPTIO/IONIVE
COMMON/COPTIO/NGMAXY
COMMON/COPTIO/IZROSF
COMMON/COPTIO/ISOTYP
COMMON/COPTIO/IEPTR
CHARACTER*72 DATVER
COMMON/COPTIC/DATVER
COMMON/COPTIO/IOSCR,LTEXLU
COMMON/COPTIC/TEXLU
CHARACTER*500 TEXLU
COMMON/COPTIO/NORINC,NORVAL,NORIND,NORVAD
COMMON/COPTIO/NUCROU
COMMON/COPTIC/LANGUE
CHARACTER*4 LANGUE
COMMON/COPTIO/IPSAUV
COMMON/COPTIC/NOMFIC,NOMRES
CHARACTER*72 NOMFIC,NOMRES
COMMON/COPTIO/IPREFI,IFICLE,DIMATT,DIMFIC
REAL*4 DIMATT,DIMFIC
COMMON/COPTIO/IREFOR,ISAFOR
CHARACTER*4 NOMTP
COMMON /CHAMP/ NOMTP(300)
COMMON/LCHAMP/ LNOMTP
CHARACTER*8 NOMIN
COMMON /CHAMP/ NOMIN(5)
COMMON/LCHAMP/ LNOMIN
CHARACTER*8 NOMFR
COMMON /CHAMP/ NOMFR(40)
COMMON/LCHAMP/ LNOMFR
CHARACTER*8 NOMCH
COMMON /CHAMP/ NOMCH(50)
COMMON/LCHAMP/ LNOMCH
CHARACTER*8 NOMAT
COMMON /CHAMP/ NOMAT(50)
COMMON/LCHAMP/ LNOMAT
CHARACTER*4 NOMDD
COMMON /CHAMP/ NOMDD(40)
COMMON/LCHAMP/ LNOMDD
CHARACTER*4 NOMDU
COMMON /CHAMP/ NOMDU(40)
COMMON/LCHAMP/ LNOMDU
CHARACTER*4 NOMVI
COMMON /CHAMP/ NOMVI(40)
COMMON/LCHAMP/ LNOMVI
CHARACTER*4 NOMAC
COMMON /CHAMP/ NOMAC(40)
COMMON/LCHAMP/ LNOMAC
CHARACTER*4 NOMST
COMMON /CHAMP/ NOMST(60)
COMMON/LCHAMP/ LNOMST
CHARACTER*4 NOMDF
COMMON /CHAMP/ NOMDF(60)
COMMON/LCHAMP/ LNOMDF
CHARACTER*4 NOMYO
COMMON /CHAMP/ NOMYO(100)
COMMON/LCHAMP/ LNOMYO
CHARACTER*4 NOMCR
COMMON /CHAMP/ NOMCR(100)
COMMON/LCHAMP/ LNOMCR
CHARACTER*4 NOMHO
COMMON /CHAMP/ NOMHO(100)
COMMON/LCHAMP/ LNOMHO
CHARACTER*4 NOMVRI
COMMON /CHAMP/ NOMVRI(100)
COMMON/LCHAMP/ LNOVRI
CHARACTER*4 NNAVI
COMMON /CHAMP/ NNAVI(20)
COMMON/LCHAMP/ LNNAVI
COMMON /LCHAMP/ILNAVI
C SEGMENT/MELSTR/(ISOSTU(N),IMELEM(N)),MELST1.MELSTR,MELST2.MELSTR
C SEGMENT/MCLSTR/(ISOSTR(N),IRIGCL(N)),MCLST1.MCLSTR,MCLST2.MCLSTR
C SEGMENT/MSTRUC/(LISTRU(N)),MSTRU1.MSTRUC,MSTRU2.MSTRUC
C SEGMENT/MSOSTU/(ITYSOU,ISRAID,ISMASS,ISCHAM(NS)),MSOST1.MSOSTU,MSOS
C &T2.MSOSTU
C SEGMENT MELEME
C POINTEUR IPT1.MELEME,IPT2.MELEME,IPT3.MELEME,IPT4.MELEME
C POINTEUR IPT5.MELEME,IPT6.MELEME,IPT7.MELEME,IPT8.MELEME
C POINTEUR IPT9.MELEME
C SEGMENT MCOORD
C SEGMENT MRIGID
C POINTEUR RI1.MRIGID,RI2.MRIGID,RI3.MRIGID
C POINTEUR RI4.MRIGID,RI5.MRIGID,RI6.MRIGID
C SEGMENT XMATRI
C POINTEUR XMATR1.XMATRI,XMATR2.XMATRI,XMATR3.XMATRI
C POINTEUR XMATR4.XMATRI,XMATR5.XMATRI,XMATR6.XMATRI
C SEGMENT IMATRI
C POINTEUR IMATR1.IMATRI,IMATR2.IMATRI,IMATR3.IMATRI
C POINTEUR IMATR4.IMATRI,IMATR5.IMATRI,IMATR6.IMATRI
C SEGMENT DESCR
C POINTEUR DES1.DESCR,DES2.DESCR,DES3.DESCR,DES4.DESCR
C SEGMENT IMGEOD
C SEGMENT MCHPOI
C POINTEUR MCHPO1.MCHPOI,MCHPO2.MCHPOI,MCHPO3.MCHPOI,MCHPO4.MCHPOI
C SEGMENT MSOUPO
C POINTEUR MSOUP1.MSOUPO,MSOUP2.MSOUPO,MSOUP3.MSOUPO,
C # MSOUP4.MSOUPO,MSOUP5.MSOUPO
C SEGMENT MPOVAL
C POINTEUR MPOVA1.MPOVAL,MPOVA2.MPOVAL,MPOVA3.MPOVAL,
C # MPOVA4.MPOVAL,MPOVA5.MPOVAL,MPOVA6.MPOVAL
C SEGMENT MATTAC
C POINTEUR MATTA1.MATTAC,MATTA2.MATTAC
C SEGMENT MSOUMA
C POINTEUR MSOUM1.MSOUMA,MSOUM2.MSOUMA
C SEGMENT MJONCT
C POINTEUR MJONC1.MJONCT,MJONC2.MJONCT
C SEGMENT MGEOCH
C POINTEUR MGEOC1.MGEOCH,MGEOC2.MGEOCH
C SEGMENT MPHYCH
C POINTEUR MPHYC1.MPHYCH,MPHYC2.MPHYCH
C SEGMENT/MLREEL/(PROG(JG)*D),MLREE1.MLREEL,MLREE2.MLREEL,
C 1 MLREE3.MLREEL
C SEGMENT MCHELM
C POINTEUR MCHEL1.MCHELM,MCHEL2.MCHELM,MCHEL3.MCHELM,MCHEL4.MCHELM
C POINTEUR MCHEL5.MCHELM,MCHEL6.MCHELM,MCHEL7.MCHELM,MCHEL8.MCHELM
C SEGMENT MELVAL
C POINTEUR MELVA1.MELVAL,MELVA2.MELVAL,MELVA3.MELVAL,MELVA4.MELVAL
C POINTEUR MELVA5.MELVAL,MELVA6.MELVAL,MELVA7.MELVAL,MELVA8.MELVAL
C SEGMENT MCHAFF
C POINTEUR MCHAF1.MCHAFF,MCHAF2.MCHAFF,MCHAF3.MCHAFF,MCHAF4.MCHAFF
C SEGMENT MAFFEC
C POINTEUR MAFFE1.MAFFEC,MAFFE2.MAFFEC,MAFFE3.MAFFEC,MAFFE4.MAFFEC
C SEGMENT MCRCHA
C POINTEUR ICRCH1.MCRCHA,ICRCH2.MCRCHA
C SEGMENT MCLEM
C POINTEUR MCLEM1.MCLEM,MCLEM2.MCLEM
C SEGMENT MCOMP
C POINTEUR MCOMP1.MCOMP,MCOMP2.MCOMP
C SEGMENT ITRA1(0)
C SEGMENT IWOR1(0)
C SEGMENT ITRA2(0)
C SEGMENT ITRA3(0)
C SEGMENT ITRA4(0)
C SEGMENT ITRA5(0)
C SEGMENT RCOEF(0)
C SEGMENT IGEO(0)
C SEGMENT IDEN(NPO)
C SEGMENT ICO(NPO)
C SEGMENT SINCO
C SEGMENT MNOC
C SEGMENT/MVAL/(VALE(ICCMAX,NPO))
COMMON/OOOCOM/OOA(1),OOT,OOV(8),ISO_01,IME_02,ITR_03,ITY_04,IGE_05
*,IPH_06,NUM_07,IGE_08,ITR_09,RCO_10,PRO_11,ISR_12,ISC_13,IAF_14,IP
*G_15,IPC_16,ITY_17,NCR_18,ICR_19,NOM_20,INC_21,NOC_22,IDE_23,ICO_2
*4,IRI_25,NOE_26,LIS_27,VAL_28,ITR_29,ITR_30,IGE_31,IPO_32,NOC_33,V
*PO_34,IPC_35,ITR_36,MJO_37,MJO_38,XCO_39,MJO_40,IST_41,IPC_42,IAT_
*43,LIS_44
INTEGEROOA,OOT,OOV,OOO,OO1,OO2,OO3,OO4,MELSTR,OO5
INTEGEROO6,MELST1,MELST2,MCLSTR,MCLST1,MCLST2,MSTRUC,MSTRU1,MSTRU2
*,MSOSTU
INTEGERMSOST1,MSOT2,MELEME,OO7,OO8,IPT1,IPT2,IPT3,IPT4,IPT5
INTEGERIPT6,IPT7,IPT8,IPT9,MCOORD,MRIGID,RI1,RI2,RI3,RI4
INTEGERRI5,RI6,XMATRI,XMATR1,XMATR2,XMATR3,XMATR4,XMATR5,XMATR6,IM
*ATRI
INTEGERIMATR1,IMATR2,IMATR3,IMATR4,IMATR5,IMATR6,DESCR,DES1,DES2,D
*ES3
INTEGERDES4,IMGEOD,MCHPOI,MCHPO1,MCHPO2,MCHPO3,MCHPO4,MSOUPO,MSOUP
*1,MSOUP2
INTEGERMSOUP3,MSOUP4,MSOUP5,MPOVAL,MPOVA1,MPOVA2,MPOVA3,MPOVA4,MPO
*VA5,MPOVA6
INTEGERMATTAC,MATTA1,MATTA2,MSOUMA,MSOUM1,MSOUM2,MJONCT,MJONC1,MJO
*NC2,MGEOCH
INTEGEROO9,MGEOC1,MGEOC2,MPHYCH,MPHYC1,MPHYC2,MLREEL,MLREE1,MLREE2
*,MLREE3
INTEGERMCHELM,MCHEL1,MCHEL2,MCHEL3,MCHEL4,MCHEL5,MCHEL6,MCHEL7,MCH
*EL8,MELVAL
INTEGERMELVA1,MELVA2,MELVA3,MELVA4,MELVA5,MELVA6,MELVA7,MELVA8,MCH
*AFF,MCHAF1
INTEGERMCHAF2,MCHAF3,MCHAF4,MAFFEC,MAFFE1,MAFFE2,MAFFE3,MAFFE4,MCR
*CHA,ICRCH1
INTEGERICRCH2,MCLEM,MCLEM1,MCLEM2,MCOMP,MCOMP1,MCOMP2,ITRA1,IWOR1,
*ITRA2
INTEGERITRA3,ITRA4,ITRA5,RCOEF,IGEO,IDEN,ICO,SINCO,MNOC,MVAL
INTEGEROOI(1)
REALOOR(1)
CHARACTER*8OOH(1)
EQUIVALENCE(OOV(1),OOI(1),OOR(1),OOH(1))
INTEGERISO_01(2),IME_02(2),ITR_03(2),IGE_05(2),IPH_06(2),NUM_07(2)
*,IGE_08(2),ITR_09(2),ISR_12(2),ISC_13(2),IAF_14(2),IPG_15(2),IPC_1
*6(2),ITY_17(2),ICR_19(2),IDE_23(2),ICO_24(2),IRI_25(2),NOE_26(2),I
*TR_29(2),ITR_30(2),IGE_31(2),IPO_32(2),IPC_35(2),ITR_36(2),MJO_40(
*2),IST_41(2),IPC_42(2),IAT_43(2),LIS_44(2)
REALRCO_10(2),PRO_11(2),VAL_28(2),VPO_34(2),XCO_39(2)
CHARACTER*8ITY_04(2),NCR_18(2),NOM_20(2),INC_21(2),NOC_22(2),LIS_2
*7(2),NOC_33(2),MJO_37(2),MJO_38(2)
CHARACTER*8 IDEPLA,IFORCE
CHARACTER*4 MOMAS(1),IDELI(1)
CHARACTER*4 NOMCO
DATA ICCMAX/30/
DATA IDEPLA /'DEPLACEM'/,IFORCE /'FORCES '/
DATA IDELI/'DDDD'/,MOMAS/'MASS'/
C SEGACT MCOORD*MOD
OO1=MCOORD
CALLOOOWAC(OO4,0,'JONCT 105 MCOORD ',OO1,0)
C SEGINI ITRA1
CALLOOOWIN(OO4,0,'JONCT 106 ITRA1 ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
ITRA1=OO1
NBRELA=0
LDD=0
LDU=0
CALL LIRMOT(MOMAS,1,IMASS,0)
5001 CONTINUE
NBRELA =NBRELA+1
1 CONTINUE
CALL LIROBJ('ELEMSTRU',IRET,0,IRETOU)
IF(IRETOU.EQ.0) GOTO 10
MELSTR=IRET
CALL LIRMOT(NOMDD,LNOMDD,IMOT,0)
IF(IERR.NE.0) RETURN
IF(IMOT.NE.0) THEN
LDD=1
NOMCO=NOMDD(IMOT)
GO TO 2
ENDIF
CALL LIRMOT(NOMDU,LNOMDD,IMOT,1)
IF(IERR.NE.0) RETURN
IF(IMOT.NE.0) THEN
LDU=1
NOMCO=NOMDU(IMOT)
GO TO 2
ENDIF
CALL ERREUR(116)
GOTO 3
2 CONTINUE
CALL LIRPRO(NBVAL,IPROG)
IF(IPROG.EQ.0) GOTO 3
C SEGACT MELSTR
OO1=MELSTR
CALLOOOWAC(OO4,0,'JONCT 141 MELSTR ',OO1,1)
C NBSTRU=ISOSTU(/1)
NBSTRU=OOA((OOA(OOT+MELSTR)+OOT)+3)
C MSOSTU=ISOSTU(1)
MSOSTU=ISO_01(-008+(OOA(OOT+MELSTR)+OOT)+3+1)
C MELEME=IMELEM(1)
MELEME=IME_02(-010+(OOA(OOT+MELSTR)+OOT)+OOA((OOA(OOT+MELSTR)+OOT)
*+4)+1)
C SEGDES MELSTR
OO1=MELSTR
CALLOOOWDE(OO4,0,'JONCT 146 MELSTR ',OO1,1)
IF(NBSTRU.EQ.1) GOTO 4
INTERR(1)=MSOSTU
CALL ERREUR(90)
3 CONTINUE
C SEGSUP ITRA1
OO1=ITRA1
CALLOOOWSU(OO4,0,'JONCT 152 ITRA1 ',OO1,0)
ITRA1=0
RETURN
4 OO5=OOA((OOA(OOT+ITRA1)+OOT)+3)+1
OOA((OOA(OOT+ITRA1)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 157 ITRA1 ',ITRA1,(OO5+1+0))
C 4 ITRA1(**)=MSOSTU
ITR_03(-012+(OOA(OOT+ITRA1+2)+OOT)+1+OO5)=MSOSTU
OO5=OOA((OOA(OOT+ITRA1)+OOT)+3)+1
OOA((OOA(OOT+ITRA1)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 161 ITRA1 ',ITRA1,(OO5+1+0))
C ITRA1(**)=MELEME
ITR_03(-012+(OOA(OOT+ITRA1+2)+OOT)+1+OO5)=MELEME
READ (NOMCO,FMT='(A4)') IPV
OO5=OOA((OOA(OOT+ITRA1)+OOT)+3)+1
OOA((OOA(OOT+ITRA1)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 166 ITRA1 ',ITRA1,(OO5+1+0))
C ITRA1(**)=IPV
ITR_03(-012+(OOA(OOT+ITRA1+2)+OOT)+1+OO5)=IPV
OO5=OOA((OOA(OOT+ITRA1)+OOT)+3)+1
OOA((OOA(OOT+ITRA1)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 170 ITRA1 ',ITRA1,(OO5+1+0))
C ITRA1(**)=IPROG
ITR_03(-012+(OOA(OOT+ITRA1+2)+OOT)+1+OO5)=IPROG
CALL LIRMOT(IDELI,1,IMOT,0)
IF(IERR.NE.0) RETURN
IF(IMOT.EQ.0) GO TO 1
READ (IDELI,FMT='(A4)') IPV
OO5=OOA((OOA(OOT+ITRA1)+OOT)+3)+1
OOA((OOA(OOT+ITRA1)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 179 ITRA1 ',ITRA1,(OO5+1+0))
C ITRA1(**)=IPV
ITR_03(-012+(OOA(OOT+ITRA1+2)+OOT)+1+OO5)=IPV
GO TO 5001
10 CONTINUE
C NITRA1=ITRA1(/1)
NITRA1=OOA((OOA(OOT+ITRA1)+OOT)+3)
IF(IIMPI.EQ.2) WRITE(IOIMP,7) NITRA1
7 FORMAT(2X,'NITRA1',I4)
K=0
11 K=K+1
C IF(IIMPI.EQ.2) WRITE(IOIMP,12)(KK,ITRA1(KK),KK=K,K+3)
IF(IIMPI.EQ.2)WRITE(IOIMP,12)(KK,ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+
*1+KK),KK=K,K+3)
12 FORMAT(2X,2('ITRA(',I4,')=',I4,2X),'ITRA1(',I4,')=',A4,1X,'ITRA1
&(',I4,')=',I4)
KS=K+4
IF(KS.LE.NITRA1)THEN
READ (IDELI,FMT='(A4)') IPV
C IF(ITRA1(KS).EQ.IPV)THEN
IF(ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+KS).EQ.IPV)THEN
K=KS
C IF(IIMPI.EQ.2) WRITE(IOIMP,13) ITRA1(KS)
IF(IIMPI.EQ.2)WRITE(IOIMP,13)ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+KS
*)
13 FORMAT(10X,A4)
ELSE
K=K+3
ENDIF
GO TO 11
ENDIF
IF(NBRELA.EQ.0) RETURN
N=NBRELA
M=0
C SEGINI MSOUMA
OO5=8+M
CALLOOOWIN(OO4,0,'JONCT 208 MSOUMA ',OO1,OO5+N)
OOA((OOA(OOT+OO1+2)+OOT)+5)=4
OOA((OOA(OOT+OO1+2)+OOT)+6)=8
OOA((OOA(OOT+OO1+2)+OOT)+7)=M
OOA((OOA(OOT+OO1+2)+OOT)+8)=OO5
OOA((OOA(OOT+OO1+2)+OOT)+9)=N
MSOUMA=OO1
C ITYATT='MECA'
ITY_04(-014+(OOA(OOT+MSOUMA+2)+OOT)+1)(OOV(2)+56+1:OOV(2)+56+OOA((
*OOA(OOT+MSOUMA+2)+OOT)+5))='MECA'
C IGEOCH=0
IGE_05(-016+(OOA(OOT+MSOUMA+2)+OOT)+1)=0
C IPHYCH=0
IPH_06(-018+(OOA(OOT+MSOUMA+2)+OOT)+2)=0
IDD1=0
IF(IIMPI.EQ.2 ) WRITE(IOIMP,8) NBRELA
8 FORMAT(2X,'NBRELA=',I4)
C DO 520 NNNN=1,NBRELA
DO520NNNN=1,NBRELA
IF(IIMPI.EQ.2) WRITE(IOIMP,9) NNNN
9 FORMAT(2X,'NNNN=',I4)
IDD1=IDD1+1
IT1 =IDD1
NBELST=0
15 IDD1=IDD1+4
IF(IIMPI.EQ.2) WRITE(IOIMP,17) IDD1
17 FORMAT(2X,'IDD1=',I4)
NBELST=NBELST+1
IF(IDD1.GE.NITRA1) GO TO 16
READ (IDELI,FMT='(A4)') IPV
C IF(ITRA1(IDD1).NE.IPV) GO TO 15
IF(ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+IDD1).NE.IPV)GOTO15
16 CONTINUE
C SEGINI ITRA5
CALLOOOWIN(OO4,0,'JONCT 237 ITRA5 ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
ITRA5=OO1
C DO 350 NB=1,NBELST
DO350NB=1,NBELST
IT=(IT1-1)+4*(NB-1)
C MSOSTU=ITRA1(IT+1)
MSOSTU=ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+IT+1)
IF(MSOSTU.EQ.0) GOTO 350
C SEGINI ITRA2,IGEO,RCOEF
CALLOOOWIN(OO4,0,'JONCT 244 ITRA2 ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
ITRA2=OO1
CALLOOOWIN(OO4,0,'JONCT 247 IGEO ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
IGEO=OO1
CALLOOOWIN(OO4,0,'JONCT 250 RCOEF ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
RCOEF=OO1
IP=0
NPO=0
C DO 140 NBB=NB,NBELST
DO140NBB=NB,NBELST
IT=(IT1-1)+4*(NBB-1)
C IF(MSOSTU.NE.ITRA1(IT+1)) GOTO 140
IF(MSOSTU.NE.ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+IT+1))GOTO140
C MELEME=ITRA1(IT+2)
MELEME=ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+IT+2)
C MLREEL=ITRA1(IT+4)
MLREEL=ITR_03(-012+(OOA(OOT+ITRA1)+OOT)+1+IT+4)
C SEGACT MELEME,MLREEL
OO1=MELEME
CALLOOOWAC(OO4,0,'JONCT 260 MELEME ',OO1,1)
OO1=MLREEL
CALLOOOWAC(OO4,0,'JONCT 262 MLREEL ',OO1,1)
C NBELEM=NUM(/2)
NBELEM=OOA((OOA(OOT+MELEME)+OOT)+5)
C NBVAL=PROG(/1)
NBVAL=OOA((OOA(OOT+MLREEL)+OOT)+3)
IF(NBVAL.EQ.NBELEM) GOTO 80
CALL ERREUR(117)
C SEGDES MELEME
OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 268 MELEME ',OO1,1)
C SEGSUP MLREEL,ITRA2,ITRA5,IGEO,RCOEF
OO1=MLREEL
CALLOOOWSU(OO4,0,'JONCT 270 MLREEL ',OO1,0)
MLREEL=0
OO1=ITRA2
CALLOOOWSU(OO4,0,'JONCT 273 ITRA2 ',OO1,0)
ITRA2=0
OO1=ITRA5
CALLOOOWSU(OO4,0,'JONCT 276 ITRA5 ',OO1,0)
ITRA5=0
OO1=IGEO
CALLOOOWSU(OO4,0,'JONCT 279 IGEO ',OO1,0)
IGEO=0
OO1=RCOEF
CALLOOOWSU(OO4,0,'JONCT 282 RCOEF ',OO1,0)
RCOEF=0
GOTO 3
C 80 DO 130 NBE=1,NBELEM
80 DO130NBE=1,NBELEM
C IKI=NUM(1,NBE)
IKI=NUM_07(-020+(OOA(OOT+MELEME)+OOT)+9+OOA((OOA(OOT+MELEME)+OOT)+
*4)*(NBE-1)+1)
IF(NPO.EQ.0) GOTO 100
C DO 90 J=1,NPO
DO90J=1,NPO
IPP=J
C IF(IKI.EQ.IGEO(J)) GOTO 120
IF(IKI.EQ.IGE_08(-022+(OOA(OOT+IGEO)+OOT)+1+J))GOTO120
90 CONTINUE
100 IP=IP+1
OO5=OOA((OOA(OOT+IGEO)+OOT)+3)+1
OOA((OOA(OOT+IGEO)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 294 IGEO ',IGEO,(OO5+1+0))
C IGEO(**)=IKI
IGE_08(-022+(OOA(OOT+IGEO+2)+OOT)+1+OO5)=IKI
IPP=IP
120 OO5=OOA((OOA(OOT+ITRA2)+OOT)+3)+1
OOA((OOA(OOT+ITRA2)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 299 ITRA2 ',ITRA2,(OO5+1+0))
C 120 ITRA2(**)=IPP
ITR_09(-024+(OOA(OOT+ITRA2+2)+OOT)+1+OO5)=IPP
OO5=OOA((OOA(OOT+ITRA2)+OOT)+3)+1
OOA((OOA(OOT+ITRA2)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 303 ITRA2 ',ITRA2,(OO5+1+0))
C ITRA2(**)=ITRA1(IT+3)
ITR_09(-024+(OOA(OOT+ITRA2+2)+OOT)+1+OO5)=ITR_03(-012+(OOA(OOT+ITR
*A1)+OOT)+1+IT+3)
OO5=OOA((OOA(OOT+RCOEF)+OOT)+3)+1
OOA((OOA(OOT+RCOEF)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 307 RCOEF ',RCOEF,(OO5+1+0))
C RCOEF(**)=PROG(NBE)
RCO_10(-026+(OOA(OOT+RCOEF+2)+OOT)+1+OO5)=PRO_11(-028+(OOA(OOT+MLR
*EEL)+OOT)+1+NBE)
130 CONTINUE
C SEGDES MELEME
OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 311 MELEME ',OO1,1)
C SEGSUP MLREEL
OO1=MLREEL
CALLOOOWSU(OO4,0,'JONCT 313 MLREEL ',OO1,0)
MLREEL=0
C NPO=IGEO(/1)
NPO=OOA((OOA(OOT+IGEO)+OOT)+3)
C ITRA1(IT+1)=0
ITR_03(-012+(OOA(OOT+ITRA1+2)+OOT)+1+IT+1)=0
140 CONTINUE
C I2=ITRA2(/1)
I2=OOA((OOA(OOT+ITRA2)+OOT)+3)
I21=I2-1
C I3=RCOEF(/1)
I3=OOA((OOA(OOT+RCOEF)+OOT)+3)
C I4=IGEO(/1)
I4=OOA((OOA(OOT+IGEO)+OOT)+3)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1000)(I,ITRA2(I),I=1,I21,2)
IF(IIMPI.EQ.2)WRITE(IOIMP,1000)(I,ITR_09(-024+(OOA(OOT+ITRA2)+OOT)
*+1+I),I=1,I21,2)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1001)(I,ITRA2(I),I=2,I2,2)
IF(IIMPI.EQ.2)WRITE(IOIMP,1001)(I,ITR_09(-024+(OOA(OOT+ITRA2)+OOT)
*+1+I),I=2,I2,2)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1002)(I,RCOEF(I),I=1,I3)
IF(IIMPI.EQ.2)WRITE(IOIMP,1002)(I,RCO_10(-026+(OOA(OOT+RCOEF)+OOT)
*+1+I),I=1,I3)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1003)(I,IGEO(I) ,I=1,I4)
IF(IIMPI.EQ.2)WRITE(IOIMP,1003)(I,IGE_08(-022+(OOA(OOT+IGEO)+OOT)+
*1+I),I=1,I4)
1000 FORMAT(1X,' ITRA2 ',10(I4,I4,1X))
1001 FORMAT(1X,' ITRA2 ',10(I4,1X,A4,1X))
1002 FORMAT(1X,' RCOEF ',8(I4,1PE12.5,1X))
1003 FORMAT(1X,' IGEO ',10(I4,I4,1X))
C SEGACT MSOSTU
OO1=MSOSTU
CALLOOOWAC(OO4,0,'JONCT 331 MSOSTU ',OO1,1)
C IF(ISRAID.EQ.0) THEN
IF(ISR_12(-030+(OOA(OOT+MSOSTU)+OOT)+2).EQ.0)THEN
C MCHELM=ISCHAM(1)
MCHELM=ISC_13(-032+(OOA(OOT+MSOSTU)+OOT)+4+1)
C SEGDES MSOSTU
OO1=MSOSTU
CALLOOOWDE(OO4,0,'JONCT 335 MSOSTU ',OO1,1)
C SEGACT MCHELM
OO1=MCHELM
CALLOOOWAC(OO4,0,'JONCT 337 MCHELM ',OO1,1)
C NSOUS=IAFF(/1)
NSOUS=OOA((OOA(OOT+MCHELM)+OOT)+9)
NDDL=0
C SEGINI MNOC,IDEN,ICO,SINCO
CALLOOOWIN(OO4,0,'JONCT 340 MNOC ',OO1,(24+(4*ICCMAX)*NPO+7)/8)
OOA((OOA(OOT+OO1+2)+OOT)+3)=4
OOA((OOA(OOT+OO1+2)+OOT)+4)=ICCMAX
OOA((OOA(OOT+OO1+2)+OOT)+5)=NPO
MNOC=OO1
CALLOOOWIN(OO4,0,'JONCT 345 IDEN ',OO1,1+NPO)
OOA((OOA(OOT+OO1+2)+OOT)+3)=NPO
IDEN=OO1
CALLOOOWIN(OO4,0,'JONCT 348 ICO ',OO1,1+NPO)
OOA((OOA(OOT+OO1+2)+OOT)+3)=NPO
ICO=OO1
CALLOOOWIN(OO4,0,'JONCT 351 SINCO ',OO1,(16+4*ICCMAX+7)/8)
OOA((OOA(OOT+OO1+2)+OOT)+3)=4
OOA((OOA(OOT+OO1+2)+OOT)+4)=ICCMAX
SINCO=OO1
ICMA=0
C DO 2250 IP=1,NPO
DO2250IP=1,NPO
NDCP=0
C DO 2240 IAB=1,NSOUS
DO2240IAB=1,NSOUS
C MAFFEC=IAFF(IAB)
MAFFEC=IAF_14(-034+(OOA(OOT+MCHELM)+OOT)+OOA((OOA(OOT+MCHELM)+OOT)
*+8)+IAB)
C SEGACT MAFFEC
OO1=MAFFEC
CALLOOOWAC(OO4,0,'JONCT 361 MAFFEC ',OO1,1)
C MELEME=IPGEOM
MELEME=IPG_15(-036+(OOA(OOT+MAFFEC)+OOT)+1)
C MCRCHA=IPCRCH
MCRCHA=IPC_16(-038+(OOA(OOT+MAFFEC)+OOT)+4)
C SEGDES MAFFEC
OO1=MAFFEC
CALLOOOWDE(OO4,0,'JONCT 365 MAFFEC ',OO1,1)
C SEGACT MELEME
OO1=MELEME
CALLOOOWAC(OO4,0,'JONCT 367 MELEME ',OO1,1)
C IF(ITYPEL.EQ.22) GO TO 2235
IF(ITY_17(-040+(OOA(OOT+MELEME)+OOT)+1).EQ.22)GOTO2235
C NBELEM=NUM(/2)
NBELEM=OOA((OOA(OOT+MELEME)+OOT)+5)
C NBPT=NUM(/1)
NBPT=OOA((OOA(OOT+MELEME)+OOT)+4)
C DO 2150 NBE=1,NBELEM
DO2150NBE=1,NBELEM
C DO 2150 NP=1,NBPT
DO2150NP=1,NBPT
C IKI=NUM(NP,NBE)
IKI=NUM_07(-020+(OOA(OOT+MELEME)+OOT)+9+OOA((OOA(OOT+MELEME)+OOT)+
*4)*(NBE-1)+NP)
NPEL=NP
C IF(IKI.EQ.IGEO(IP)) GO TO 2160
IF(IKI.EQ.IGE_08(-022+(OOA(OOT+IGEO)+OOT)+1+IP))GOTO2160
2150 CONTINUE
GO TO 2235
2160 CONTINUE
C SEGACT MCRCHA
OO1=MCRCHA
CALLOOOWAC(OO4,0,'JONCT 378 MCRCHA ',OO1,1)
C NNINCO=ICRCHA(/2)
NNINCO=OOA((OOA(OOT+MCRCHA)+OOT)+7)
IC=0
ICC=0
C DO 2225 NN=1,NNINCO
DO2225NN=1,NNINCO
LDPROD=LDD+2*LDU
IF (IIMPI.EQ.2) WRITE(IOIMP,2165) LDPROD
2165 FORMAT(5X,'LDPROD=',I2)
IF(LDPROD.EQ.1) THEN
C IF(IDEPLA.NE.NCRCHA(NN))THEN
IF(IDEPLA.NE.NCR_18(-042+(OOA(OOT+MCRCHA)+OOT)+1)(OOV(2)+40+OOA((O
*OA(OOT+MCRCHA)+OOT)+3)*(NN-1)+1:OOV(2)+40+OOA((OOA(OOT+MCRCHA)+OOT
*)+3)*(NN-1)+OOA((OOA(OOT+MCRCHA)+OOT)+3)))THEN
GO TO 2225
ENDIF
ENDIF
IF(LDPROD.EQ.2) THEN
C IF(IFORCE.NE.NCRCHA(NN))THEN
IF(IFORCE.NE.NCR_18(-042+(OOA(OOT+MCRCHA)+OOT)+1)(OOV(2)+40+OOA((O
*OA(OOT+MCRCHA)+OOT)+3)*(NN-1)+1:OOV(2)+40+OOA((OOA(OOT+MCRCHA)+OOT
*)+3)*(NN-1)+OOA((OOA(OOT+MCRCHA)+OOT)+3)))THEN
GO TO 2225
ENDIF
ENDIF
IF(LDPROD.EQ.3) THEN
C IF(IDEPLA.NE.NCRCHA(NN).AND.IFORCE.NE.NCRCHA(NN))
C &THEN
IF(IDEPLA.NE.NCR_18(-042+(OOA(OOT+MCRCHA)+OOT)+1)(OOV(2)+40+OOA((O
*OA(OOT+MCRCHA)+OOT)+3)*(NN-1)+1:OOV(2)+40+OOA((OOA(OOT+MCRCHA)+OOT
*)+3)*(NN-1)+OOA((OOA(OOT+MCRCHA)+OOT)+3)).AND.IFORCE.NE.NCR_18(-04
*2+(OOA(OOT+MCRCHA)+OOT)+1)(OOV(2)+40+OOA((OOA(OOT+MCRCHA)+OOT)+3)*
*(NN-1)+1:OOV(2)+40+OOA((OOA(OOT+MCRCHA)+OOT)+3)*(NN-1)+OOA((OOA(OO
*T+MCRCHA)+OOT)+3)))THEN
GO TO 2225
ENDIF
ENDIF
C MCOMP=ICRCHA(1,NN)
MCOMP=ICR_19(-044+(OOA(OOT+MCRCHA)+OOT)+OOA((OOA(OOT+MCRCHA)+OOT)+
*5)+OOA((OOA(OOT+MCRCHA)+OOT)+6)*(NN-1)+1)
C SEGACT MCOMP
OO1=MCOMP
CALLOOOWAC(OO4,0,'JONCT 404 MCOMP ',OO1,1)
C NCP=NOMC(/2)
NCP=OOA((OOA(OOT+MCOMP)+OOT)+4)
C DO 2220 NCP1=1,NCP
DO2220NCP1=1,NCP
C NOMCO=NOMC(NCP1)
NOMCO=NOM_20(-046+(OOA(OOT+MCOMP)+OOT)+1)(OOV(2)+16+OOA((OOA(OOT+M
*COMP)+OOT)+3)*(NCP1-1)+1:OOV(2)+16+OOA((OOA(OOT+MCOMP)+OOT)+3)*(NC
*P1-1)+OOA((OOA(OOT+MCOMP)+OOT)+3))
IF(NDDL.EQ.0) GO TO 2180
C DO 2170 ND=1,NDDL
DO2170ND=1,NDDL
NUCO=ND
C IF(NOMCO.EQ.INCO(ND)) GO TO 2190
IF(NOMCO.EQ.INC_21(-048+(OOA(OOT+SINCO)+OOT)+1)(OOV(2)+16+OOA((OOA
*(OOT+SINCO)+OOT)+3)*(ND-1)+1:OOV(2)+16+OOA((OOA(OOT+SINCO)+OOT)+3)
**(ND-1)+OOA((OOA(OOT+SINCO)+OOT)+3)))GOTO2190
2170 CONTINUE
2180 IC=IC+1
NUCO=NDDL+IC
C INCO(NUCO)=NOMCO
INC_21(-048+(OOA(OOT+SINCO+2)+OOT)+1)(OOV(2)+16+OOA((OOA(OOT+SINCO
*+2)+OOT)+3)*(NUCO-1)+1:OOV(2)+16+OOA((OOA(OOT+SINCO+2)+OOT)+3)*(NU
*CO-1)+OOA((OOA(OOT+SINCO+2)+OOT)+3))=NOMCO
2190 CONTINUE
IF(NDCP.EQ.0)GO TO 2210
C DO 2200 NDC=1,NDCP
DO2200NDC=1,NDCP
C IF(NOMCO.EQ.NOCO(NDC,IP)) GO TO 2220
IF(NOMCO.EQ.NOC_22(-050+(OOA(OOT+MNOC)+OOT)+1)(OOV(2)+24+OOA((OOA(
*OOT+MNOC)+OOT)+3)*(NDC-1+OOA((OOA(OOT+MNOC)+OOT)+4)*(IP-1))+1:OOV(
*2)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(NDC-1+OOA((OOA(OOT+MNOC)+OOT)+4)
**(IP-1))+OOA((OOA(OOT+MNOC)+OOT)+3)))GOTO2220
2200 CONTINUE
2210 ICC=ICC+1
NDIC=NDCP+ICC
IF(IIMPI.EQ.2) WRITE(IOIMP,2211) NOMCO
2211 FORMAT(5X,'NOMCO=',A4)
IF(IIMPI.EQ.2) WRITE(IOIMP,2214) NDIC
IF(NDIC.LE.ICCMAX) GO TO 2215
IF(IIMPI.EQ.2) WRITE (IOIMP,2214) NDIC
2214 FORMAT(10X,'NDIC=',I4)
C SEGDES MELEME
OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 431 MELEME ',OO1,1)
CALL ERREUR(119)
C SEGSUP ITRA2,ITRA5,IGEO,RCOEF,MNOC,IDEN,ICO,SINCO
OO1=ITRA2
CALLOOOWSU(OO4,0,'JONCT 434 ITRA2 ',OO1,0)
ITRA2=0
OO1=ITRA5
CALLOOOWSU(OO4,0,'JONCT 437 ITRA5 ',OO1,0)
ITRA5=0
OO1=IGEO
CALLOOOWSU(OO4,0,'JONCT 440 IGEO ',OO1,0)
IGEO=0
OO1=RCOEF
CALLOOOWSU(OO4,0,'JONCT 443 RCOEF ',OO1,0)
RCOEF=0
OO1=MNOC
CALLOOOWSU(OO4,0,'JONCT 446 MNOC ',OO1,0)
MNOC=0
OO1=IDEN
CALLOOOWSU(OO4,0,'JONCT 449 IDEN ',OO1,0)
IDEN=0
OO1=ICO
CALLOOOWSU(OO4,0,'JONCT 452 ICO ',OO1,0)
ICO=0
OO1=SINCO
CALLOOOWSU(OO4,0,'JONCT 455 SINCO ',OO1,0)
SINCO=0
GOTO 3
C2215 NOCO(NDIC,IP)=NOMCO
2215 NOC_22(-050+(OOA(OOT+MNOC+2)+OOT)+1)(OOV(2)+24+OOA((OOA(OOT+MNOC+2
*)+OOT)+3)*(NDIC-1+OOA((OOA(OOT+MNOC+2)+OOT)+4)*(IP-1))+1:OOV(2)+24
*+OOA((OOA(OOT+MNOC+2)+OOT)+3)*(NDIC-1+OOA((OOA(OOT+MNOC+2)+OOT)+4)
**(IP-1))+OOA((OOA(OOT+MNOC+2)+OOT)+3))=NOMCO
C IF(NUCO.EQ.1) IDEN(IP)=IDEN(IP)+1
IF(NUCO.EQ.1)IDE_23(-052+(OOA(OOT+IDEN+2)+OOT)+1+IP)=IDE_23(-052+(
*OOA(OOT+IDEN+2)+OOT)+1+IP)+1
C IF(NUCO.NE.1) IDEN(IP)=IDEN(IP)+2**(NUCO-1)
IF(NUCO.NE.1)IDE_23(-052+(OOA(OOT+IDEN+2)+OOT)+1+IP)=IDE_23(-052+(
*OOA(OOT+IDEN+2)+OOT)+1+IP)+2**(NUCO-1)
2220 CONTINUE
C SEGDES MCOMP
OO1=MCOMP
CALLOOOWDE(OO4,0,'JONCT 463 MCOMP ',OO1,1)
2225 CONTINUE
C SEGDES MCRCHA
OO1=MCRCHA
CALLOOOWDE(OO4,0,'JONCT 466 MCRCHA ',OO1,1)
2230 CONTINUE
NDDL=NDDL+IC
NDCP=NDCP+ICC
2235 CONTINUE
C SEGDES MELEME
OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 472 MELEME ',OO1,1)
2240 CONTINUE
C ICO(IP)=NDCP
ICO_24(-054+(OOA(OOT+ICO+2)+OOT)+1+IP)=NDCP
IF(NDCP.GT.ICMA) ICMA=NDCP
2250 CONTINUE
C SEGDES MCHELM
OO1=MCHELM
CALLOOOWDE(OO4,0,'JONCT 479 MCHELM ',OO1,1)
ELSE
C MRIGID=ISRAID
MRIGID=ISR_12(-030+(OOA(OOT+MSOSTU)+OOT)+2)
C SEGDES MSOSTU
OO1=MSOSTU
CALLOOOWDE(OO4,0,'JONCT 483 MSOSTU ',OO1,1)
C SEGACT MRIGID
OO1=MRIGID
CALLOOOWAC(OO4,0,'JONCT 485 MRIGID ',OO1,1)
C NRIGEL=IRIGEL(/2)
NRIGEL=OOA((OOA(OOT+MRIGID)+OOT)+20)
NDDL=0
C SEGINI MNOC,IDEN,ICO,SINCO
CALLOOOWIN(OO4,0,'JONCT 488 MNOC ',OO1,(24+(4*ICCMAX)*NPO+7)/8)
OOA((OOA(OOT+OO1+2)+OOT)+3)=4
OOA((OOA(OOT+OO1+2)+OOT)+4)=ICCMAX
OOA((OOA(OOT+OO1+2)+OOT)+5)=NPO
MNOC=OO1
CALLOOOWIN(OO4,0,'JONCT 493 IDEN ',OO1,1+NPO)
OOA((OOA(OOT+OO1+2)+OOT)+3)=NPO
IDEN=OO1
CALLOOOWIN(OO4,0,'JONCT 496 ICO ',OO1,1+NPO)
OOA((OOA(OOT+OO1+2)+OOT)+3)=NPO
ICO=OO1
CALLOOOWIN(OO4,0,'JONCT 499 SINCO ',OO1,(16+4*ICCMAX+7)/8)
OOA((OOA(OOT+OO1+2)+OOT)+3)=4
OOA((OOA(OOT+OO1+2)+OOT)+4)=ICCMAX
SINCO=OO1
ICMA=0
C DO 250 IP=1,NPO
DO250IP=1,NPO
NDCP=0
C DO 240 IAA=1,NRIGEL
DO240IAA=1,NRIGEL
C MELEME=IRIGEL(1,IAA)
MELEME=IRI_25(-056+(OOA(OOT+MRIGID)+OOT)+OOA((OOA(OOT+MRIGID)+OOT)
*+18)+OOA((OOA(OOT+MRIGID)+OOT)+19)*(IAA-1)+1)
C SEGACT MELEME
OO1=MELEME
CALLOOOWAC(OO4,0,'JONCT 509 MELEME ',OO1,1)
C IF(ITYPEL.EQ.22) GOTO 235
IF(ITY_17(-040+(OOA(OOT+MELEME)+OOT)+1).EQ.22)GOTO235
C NBELEM=NUM(/2)
NBELEM=OOA((OOA(OOT+MELEME)+OOT)+5)
C NBPT=NUM(/1)
NBPT=OOA((OOA(OOT+MELEME)+OOT)+4)
C DO 150 NBE=1,NBELEM
DO150NBE=1,NBELEM
C DO 150 NP=1,NBPT
DO150NP=1,NBPT
C IKI=NUM(NP,NBE)
IKI=NUM_07(-020+(OOA(OOT+MELEME)+OOT)+9+OOA((OOA(OOT+MELEME)+OOT)+
*4)*(NBE-1)+NP)
NPEL=NP
C IF(IKI.EQ.IGEO(IP)) GOTO 160
IF(IKI.EQ.IGE_08(-022+(OOA(OOT+IGEO)+OOT)+1+IP))GOTO160
150 CONTINUE
GO TO 235
C 160 DESCR=IRIGEL(3,IAA)
160 DESCR=IRI_25(-056+(OOA(OOT+MRIGID)+OOT)+OOA((OOA(OOT+MRIGID)+OOT)+
*18)+OOA((OOA(OOT+MRIGID)+OOT)+19)*(IAA-1)+3)
C SEGACT DESCR
OO1=DESCR
CALLOOOWAC(OO4,0,'JONCT 520 DESCR ',OO1,1)
C NLIGRE=NOELEP(/1)
NLIGRE=OOA((OOA(OOT+DESCR)+OOT)+9)
IC=0
ICC=0
C DO 230 I=1,NLIGRE
DO230I=1,NLIGRE
C IF(NOELEP(I).NE.NPEL) GOTO 230
IF(NOE_26(-058+(OOA(OOT+DESCR)+OOT)+OOA((OOA(OOT+DESCR)+OOT)+8)+I)
*.NE.NPEL)GOTO230
C NOMCO=LISINC(I)
NOMCO=LIS_27(-060+(OOA(OOT+DESCR)+OOT)+1)(OOV(2)+72+OOA((OOA(OOT+D
*ESCR)+OOT)+3)*(I-1)+1:OOV(2)+72+OOA((OOA(OOT+DESCR)+OOT)+3)*(I-1)+
*OOA((OOA(OOT+DESCR)+OOT)+3))
IF(NDDL.EQ.0) GOTO 180
C DO 170 ND=1,NDDL
DO170ND=1,NDDL
NUCO=ND
C IF(NOMCO.EQ.INCO(ND)) GOTO 190
IF(NOMCO.EQ.INC_21(-048+(OOA(OOT+SINCO)+OOT)+1)(OOV(2)+16+OOA((OOA
*(OOT+SINCO)+OOT)+3)*(ND-1)+1:OOV(2)+16+OOA((OOA(OOT+SINCO)+OOT)+3)
**(ND-1)+OOA((OOA(OOT+SINCO)+OOT)+3)))GOTO190
170 CONTINUE
180 IC=IC+1
NUCO=NDDL+IC
C INCO(NUCO)=NOMCO
INC_21(-048+(OOA(OOT+SINCO+2)+OOT)+1)(OOV(2)+16+OOA((OOA(OOT+SINCO
*+2)+OOT)+3)*(NUCO-1)+1:OOV(2)+16+OOA((OOA(OOT+SINCO+2)+OOT)+3)*(NU
*CO-1)+OOA((OOA(OOT+SINCO+2)+OOT)+3))=NOMCO
190 CONTINUE
IF(NDCP.EQ.0) GOTO 210
C DO 200 NDC=1,NDCP
DO200NDC=1,NDCP
C IF(NOMCO.EQ.NOCO(NDC,IP)) GOTO 220
IF(NOMCO.EQ.NOC_22(-050+(OOA(OOT+MNOC)+OOT)+1)(OOV(2)+24+OOA((OOA(
*OOT+MNOC)+OOT)+3)*(NDC-1+OOA((OOA(OOT+MNOC)+OOT)+4)*(IP-1))+1:OOV(
*2)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(NDC-1+OOA((OOA(OOT+MNOC)+OOT)+4)
**(IP-1))+OOA((OOA(OOT+MNOC)+OOT)+3)))GOTO220
200 CONTINUE
210 ICC=ICC+1
NDIC=NDCP+ICC
IF(NDIC.LE.ICCMAX) GOTO 215
CALL ERREUR(119)
C SEGDES DESCR,MELEME,MRIGID,MSOSTU
OO1=DESCR
CALLOOOWDE(OO4,0,'JONCT 542 DESCR ',OO1,1)
OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 544 MELEME ',OO1,1)
OO1=MRIGID
CALLOOOWDE(OO4,0,'JONCT 546 MRIGID ',OO1,1)
OO1=MSOSTU
CALLOOOWDE(OO4,0,'JONCT 548 MSOSTU ',OO1,1)
C SEGSUP ITRA2,ITRA5,IGEO,RCOEF,MNOC,IDEN,ICO,SINCO
OO1=ITRA2
CALLOOOWSU(OO4,0,'JONCT 550 ITRA2 ',OO1,0)
ITRA2=0
OO1=ITRA5
CALLOOOWSU(OO4,0,'JONCT 553 ITRA5 ',OO1,0)
ITRA5=0
OO1=IGEO
CALLOOOWSU(OO4,0,'JONCT 556 IGEO ',OO1,0)
IGEO=0
OO1=RCOEF
CALLOOOWSU(OO4,0,'JONCT 559 RCOEF ',OO1,0)
RCOEF=0
OO1=MNOC
CALLOOOWSU(OO4,0,'JONCT 562 MNOC ',OO1,0)
MNOC=0
OO1=IDEN
CALLOOOWSU(OO4,0,'JONCT 565 IDEN ',OO1,0)
IDEN=0
OO1=ICO
CALLOOOWSU(OO4,0,'JONCT 568 ICO ',OO1,0)
ICO=0
OO1=SINCO
CALLOOOWSU(OO4,0,'JONCT 571 SINCO ',OO1,0)
SINCO=0
GOTO 3
C 215 NOCO(NDIC,IP)=NOMCO
215 NOC_22(-050+(OOA(OOT+MNOC+2)+OOT)+1)(OOV(2)+24+OOA((OOA(OOT+MNOC+2
*)+OOT)+3)*(NDIC-1+OOA((OOA(OOT+MNOC+2)+OOT)+4)*(IP-1))+1:OOV(2)+24
*+OOA((OOA(OOT+MNOC+2)+OOT)+3)*(NDIC-1+OOA((OOA(OOT+MNOC+2)+OOT)+4)
**(IP-1))+OOA((OOA(OOT+MNOC+2)+OOT)+3))=NOMCO
C IF(NUCO.EQ.1) IDEN(IP)=IDEN(IP)+1
IF(NUCO.EQ.1)IDE_23(-052+(OOA(OOT+IDEN+2)+OOT)+1+IP)=IDE_23(-052+(
*OOA(OOT+IDEN+2)+OOT)+1+IP)+1
C IF(NUCO.NE.1) IDEN(IP)=IDEN(IP)+2**(NUCO-1)
IF(NUCO.NE.1)IDE_23(-052+(OOA(OOT+IDEN+2)+OOT)+1+IP)=IDE_23(-052+(
*OOA(OOT+IDEN+2)+OOT)+1+IP)+2**(NUCO-1)
220 CONTINUE
230 CONTINUE
C SEGDES DESCR
OO1=DESCR
CALLOOOWDE(OO4,0,'JONCT 580 DESCR ',OO1,1)
NDDL=NDDL+IC
NDCP=NDCP+ICC
C 235 SEGDES MELEME
235 OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 584 MELEME ',OO1,1)
240 CONTINUE
C ICO(IP)=NDCP
ICO_24(-054+(OOA(OOT+ICO+2)+OOT)+1+IP)=NDCP
IF(NDCP.GT.ICMA) ICMA=NDCP
250 CONTINUE
C SEGDES MRIGID
OO1=MRIGID
CALLOOOWDE(OO4,0,'JONCT 591 MRIGID ',OO1,1)
ENDIF
C I1=NOCO(/2)
I1=OOA((OOA(OOT+MNOC)+OOT)+4)
C I2=NOCO(/3)
I2=OOA((OOA(OOT+MNOC)+OOT)+5)
C I3=IDEN(/1)
I3=OOA((OOA(OOT+IDEN)+OOT)+3)
C I4=ICO(/1)
I4=OOA((OOA(OOT+ICO)+OOT)+3)
C I5=INCO(/2)
I5=OOA((OOA(OOT+SINCO)+OOT)+4)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1004)((J,I,NOCO(I,J),I=1,I1),J=1,I2)
IF(IIMPI.EQ.2)WRITE(IOIMP,1004)((J,I,NOC_22(-050+(OOA(OOT+MNOC)+OO
*T)+1)(OOV(2)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(I-1+OOA((OOA(OOT+MNOC)
*+OOT)+4)*(J-1))+1:OOV(2)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(I-1+OOA((O
*OA(OOT+MNOC)+OOT)+4)*(J-1))+OOA((OOA(OOT+MNOC)+OOT)+3)),I=1,I1),J=
*1,I2)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1005)(I,IDEN(I),I=1,I3)
IF(IIMPI.EQ.2)WRITE(IOIMP,1005)(I,IDE_23(-052+(OOA(OOT+IDEN)+OOT)+
*1+I),I=1,I3)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1006)(I,ICO(I),I=1,I4)
IF(IIMPI.EQ.2)WRITE(IOIMP,1006)(I,ICO_24(-054+(OOA(OOT+ICO)+OOT)+1
*+I),I=1,I4)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1007)(I,INCO(I),I=1,I5)
IF(IIMPI.EQ.2)WRITE(IOIMP,1007)(I,INC_21(-048+(OOA(OOT+SINCO)+OOT)
*+1)(OOV(2)+16+OOA((OOA(OOT+SINCO)+OOT)+3)*(I-1)+1:OOV(2)+16+OOA((O
*OA(OOT+SINCO)+OOT)+3)*(I-1)+OOA((OOA(OOT+SINCO)+OOT)+3)),I=1,I5)
1004 FORMAT(1X,' NOCO ',8(I4,1X,I4,1X,A4,1X))
1005 FORMAT(1X,' IDEN ',10(I4,1X,I4,1X))
1006 FORMAT(1X,' ICO ',10(I4,1X,I4,1X))
1007 FORMAT(1X,' INCO ',10(I4,1X,A4,1X))
C SEGSUP SINCO
OO1=SINCO
CALLOOOWSU(OO4,0,'JONCT 607 SINCO ',OO1,0)
SINCO=0
C IKIMA=ITRA2(/1)/2
IKIMA=OOA((OOA(OOT+ITRA2)+OOT)+3)/2
ICMAX=ICMA
C SEGINI MVAL
CALLOOOWIN(OO4,0,'JONCT 611 MVAL ',OO1,2+ICCMAX*NPO)
OOA((OOA(OOT+OO1+2)+OOT)+3)=ICCMAX
OOA((OOA(OOT+OO1+2)+OOT)+4)=NPO
MVAL=OO1
C DO 290 IP=1,NPO
DO290IP=1,NPO
C NDCP=ICO(IP)
NDCP=ICO_24(-054+(OOA(OOT+ICO)+OOT)+1+IP)
C DO 255 IC=1,ICMAX
DO255IC=1,ICMAX
C VALE(IC,IP)=0.
VAL_28(-062+(OOA(OOT+MVAL+2)+OOT)+2+OOA((OOA(OOT+MVAL+2)+OOT)+3)*(
*IP-1)+IC)=0.
255 CONTINUE
C DO 280 IKI=1,IKIMA
DO280IKI=1,IKIMA
IT=2*(IKI-1)
C IKIN=ITRA2(IT+1)
IKIN=ITR_09(-024+(OOA(OOT+ITRA2)+OOT)+1+IT+1)
IF(IKIN.NE.IP) GOTO 280
C WRITE (NOMCO,FMT='(A4)') ITRA2(IT+2)
WRITE(NOMCO,FMT='(A4)')ITR_09(-024+(OOA(OOT+ITRA2)+OOT)+1+IT+2)
C DO 260 IC=1,NDCP
DO260IC=1,NDCP
ICC=IC
C IF(NOMCO.EQ.NOCO(IC,IP)) GOTO 270
IF(NOMCO.EQ.NOC_22(-050+(OOA(OOT+MNOC)+OOT)+1)(OOV(2)+24+OOA((OOA(
*OOT+MNOC)+OOT)+3)*(IC-1+OOA((OOA(OOT+MNOC)+OOT)+4)*(IP-1))+1:OOV(2
*)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(IC-1+OOA((OOA(OOT+MNOC)+OOT)+4)*(
*IP-1))+OOA((OOA(OOT+MNOC)+OOT)+3)))GOTO270
260 CONTINUE
INTERR(1)=MSOSTU
MOTERR(1:4)=NOMCO
CALL ERREUR(118)
C SEGSUP ITRA2,ITRA5,IGEO,RCOEF,MVAL,MNOC,ICO,IDEN
OO1=ITRA2
CALLOOOWSU(OO4,0,'JONCT 632 ITRA2 ',OO1,0)
ITRA2=0
OO1=ITRA5
CALLOOOWSU(OO4,0,'JONCT 635 ITRA5 ',OO1,0)
ITRA5=0
OO1=IGEO
CALLOOOWSU(OO4,0,'JONCT 638 IGEO ',OO1,0)
IGEO=0
OO1=RCOEF
CALLOOOWSU(OO4,0,'JONCT 641 RCOEF ',OO1,0)
RCOEF=0
OO1=MVAL
CALLOOOWSU(OO4,0,'JONCT 644 MVAL ',OO1,0)
MVAL=0
OO1=MNOC
CALLOOOWSU(OO4,0,'JONCT 647 MNOC ',OO1,0)
MNOC=0
OO1=ICO
CALLOOOWSU(OO4,0,'JONCT 650 ICO ',OO1,0)
ICO=0
OO1=IDEN
CALLOOOWSU(OO4,0,'JONCT 653 IDEN ',OO1,0)
IDEN=0
GOTO 3
C 270 VALE(ICC,IP)=RCOEF(IKI)
270 VAL_28(-062+(OOA(OOT+MVAL+2)+OOT)+2+OOA((OOA(OOT+MVAL+2)+OOT)+3)*(
*IP-1)+ICC)=RCO_10(-026+(OOA(OOT+RCOEF)+OOT)+1+IKI)
280 CONTINUE
290 CONTINUE
C SEGSUP ITRA2,RCOEF
OO1=ITRA2
CALLOOOWSU(OO4,0,'JONCT 660 ITRA2 ',OO1,0)
ITRA2=0
OO1=RCOEF
CALLOOOWSU(OO4,0,'JONCT 663 RCOEF ',OO1,0)
RCOEF=0
C I1=VALE(/1)
I1=OOA((OOA(OOT+MVAL)+OOT)+3)
C I2=VALE(/2)
I2=OOA((OOA(OOT+MVAL)+OOT)+4)
C IF(IIMPI.EQ.2) WRITE(IOIMP,1008)((J,I,VALE(I,J),I=1,I1),J=1,I2)
IF(IIMPI.EQ.2)WRITE(IOIMP,1008)((J,I,VAL_28(-062+(OOA(OOT+MVAL)+OO
*T)+2+OOA((OOA(OOT+MVAL)+OOT)+3)*(J-1)+I),I=1,I1),J=1,I2)
1008 FORMAT(1X,' VALE ',5(I4,1X,I4,1X,1PE12.5,1X))
C SEGINI ITRA4
CALLOOOWIN(OO4,0,'JONCT 669 ITRA4 ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
ITRA4=OO1
C DO 330 IP=1,NPO
DO330IP=1,NPO
C IA=IDEN(IP)
IA=IDE_23(-052+(OOA(OOT+IDEN)+OOT)+1+IP)
IF(IA.EQ.0) GOTO 330
C SEGINI ITRA3
CALLOOOWIN(OO4,0,'JONCT 675 ITRA3 ',OO1,1)
OOA((OOA(OOT+OO1+2)+OOT)+3)=0
ITRA3=OO1
C DO 300 IPP=IP,NPO
DO300IPP=IP,NPO
C IF(IA.NE.IDEN(IPP)) GOTO 300
IF(IA.NE.IDE_23(-052+(OOA(OOT+IDEN)+OOT)+1+IPP))GOTO300
OO5=OOA((OOA(OOT+ITRA3)+OOT)+3)+1
OOA((OOA(OOT+ITRA3)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 681 ITRA3 ',ITRA3,(OO5+1+0))
C ITRA3(**)=IPP
ITR_29(-064+(OOA(OOT+ITRA3+2)+OOT)+1+OO5)=IPP
C IDEN(IPP)=0
IDE_23(-052+(OOA(OOT+IDEN+2)+OOT)+1+IPP)=0
300 CONTINUE
C NC=ICO(IP)
NC=ICO_24(-054+(OOA(OOT+ICO)+OOT)+1+IP)
C 305 SEGINI MSOUPO
305 OO5=72+4*NC
OO6=(OO5+16*NC+7)/8
CALLOOOWIN(OO4,0,'JONCT 688 MSOUPO ',OO1,OO6+NC)
OOA((OOA(OOT+OO1+2)+OOT)+5)=4
OOA((OOA(OOT+OO1+2)+OOT)+6)=NC
OOA((OOA(OOT+OO1+2)+OOT)+7)=OO5
OOA((OOA(OOT+OO1+2)+OOT)+8)=16
OOA((OOA(OOT+OO1+2)+OOT)+9)=NC
OOA((OOA(OOT+OO1+2)+OOT)+10)=OO6
OOA((OOA(OOT+OO1+2)+OOT)+11)=NC
MSOUPO=OO1
OO5=OOA((OOA(OOT+ITRA4)+OOT)+3)+1
OOA((OOA(OOT+ITRA4)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 699 ITRA4 ',ITRA4,(OO5+1+0))
C ITRA4(**)=MSOUPO
ITR_30(-066+(OOA(OOT+ITRA4+2)+OOT)+1+OO5)=MSOUPO
NBSOUS=0
NBREF=0
NBNN=1
C NBELEM=ITRA3(/1)
NBELEM=OOA((OOA(OOT+ITRA3)+OOT)+3)
C SEGINI MELEME
OO5=9+NBNN*NBELEM
OO6=OO5+NBSOUS
OO7=OO6+NBREF
CALLOOOWIN(OO4,0,'JONCT 708 MELEME ',OO1,OO7+NBELEM)
OOA((OOA(OOT+OO1+2)+OOT)+4)=NBNN
OOA((OOA(OOT+OO1+2)+OOT)+5)=NBELEM
OOA((OOA(OOT+OO1+2)+OOT)+6)=OO5
OOA((OOA(OOT+OO1+2)+OOT)+7)=NBSOUS
OOA((OOA(OOT+OO1+2)+OOT)+8)=OO6
OOA((OOA(OOT+OO1+2)+OOT)+9)=NBREF
OOA((OOA(OOT+OO1+2)+OOT)+10)=OO7
OOA((OOA(OOT+OO1+2)+OOT)+11)=NBELEM
MELEME=OO1
C IGEOC=MELEME
IGE_31(-068+(OOA(OOT+MSOUPO+2)+OOT)+1)=MELEME
C ITYPEL=1
ITY_17(-040+(OOA(OOT+MELEME+2)+OOT)+1)=1
N=NBELEM
C SEGINI MPOVAL
CALLOOOWIN(OO4,0,'JONCT 721 MPOVAL ',OO1,2+N*NC)
OOA((OOA(OOT+OO1+2)+OOT)+3)=N
OOA((OOA(OOT+OO1+2)+OOT)+4)=NC
MPOVAL=OO1
C IPOVAL=MPOVAL
IPO_32(-070+(OOA(OOT+MSOUPO+2)+OOT)+2)=MPOVAL
C DO 310 IC=1,NC
DO310IC=1,NC
C NOCOMP(IC)=NOCO(IC,IP)
NOC_33(-072+(OOA(OOT+MSOUPO+2)+OOT)+1)(OOV(2)+72+OOA((OOA(OOT+MSOU
*PO+2)+OOT)+5)*(IC-1)+1:OOV(2)+72+OOA((OOA(OOT+MSOUPO+2)+OOT)+5)*(I
*C-1)+OOA((OOA(OOT+MSOUPO+2)+OOT)+5))=NOC_22(-050+(OOA(OOT+MNOC)+OO
*T)+1)(OOV(2)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(IC-1+OOA((OOA(OOT+MNOC
*)+OOT)+4)*(IP-1))+1:OOV(2)+24+OOA((OOA(OOT+MNOC)+OOT)+3)*(IC-1+OOA
*((OOA(OOT+MNOC)+OOT)+4)*(IP-1))+OOA((OOA(OOT+MNOC)+OOT)+3))
C IF(IIMPI.EQ.2) WRITE(IOIMP,308) IC, NOCOMP(IC)
IF(IIMPI.EQ.2)WRITE(IOIMP,308)IC,NOC_33(-072+(OOA(OOT+MSOUPO)+OOT)
*+1)(OOV(2)+72+OOA((OOA(OOT+MSOUPO)+OOT)+5)*(IC-1)+1:OOV(2)+72+OOA(
*(OOA(OOT+MSOUPO)+OOT)+5)*(IC-1)+OOA((OOA(OOT+MSOUPO)+OOT)+5))
308 FORMAT(4X,'NOCOMP(',I4,')=',A4)
310 CONTINUE
C DO 320 NBE=1,NBELEM
DO320NBE=1,NBELEM
C IPP=ITRA3(NBE)
IPP=ITR_29(-064+(OOA(OOT+ITRA3)+OOT)+1+NBE)
C NUM(1,NBE)=IGEO(IPP)
NUM_07(-020+(OOA(OOT+MELEME+2)+OOT)+9+OOA((OOA(OOT+MELEME+2)+OOT)+
*4)*(NBE-1)+1)=IGE_08(-022+(OOA(OOT+IGEO)+OOT)+1+IPP)
C DO 320 IC=1,NC
DO320IC=1,NC
C DO 315 ICC=1,NC
DO315ICC=1,NC
C IF(NOCO(ICC,IPP).EQ.NOCOMP(IC)) GOTO 317
IF(NOC_22(-050+(OOA(OOT+MNOC)+OOT)+1)(OOV(2)+24+OOA((OOA(OOT+MNOC)
*+OOT)+3)*(ICC-1+OOA((OOA(OOT+MNOC)+OOT)+4)*(IPP-1))+1:OOV(2)+24+OO
*A((OOA(OOT+MNOC)+OOT)+3)*(ICC-1+OOA((OOA(OOT+MNOC)+OOT)+4)*(IPP-1)
*)+OOA((OOA(OOT+MNOC)+OOT)+3)).EQ.NOC_33(-072+(OOA(OOT+MSOUPO)+OOT)
*+1)(OOV(2)+72+OOA((OOA(OOT+MSOUPO)+OOT)+5)*(IC-1)+1:OOV(2)+72+OOA(
*(OOA(OOT+MSOUPO)+OOT)+5)*(IC-1)+OOA((OOA(OOT+MSOUPO)+OOT)+5)))GOTO
*317
315 CONTINUE
C 317 VPOCHA(NBE,IC)=VALE(IC,IPP)
317 VPO_34(-074+(OOA(OOT+MPOVAL+2)+OOT)+2+OOA((OOA(OOT+MPOVAL+2)+OOT)+
*3)*(IC-1)+NBE)=VAL_28(-062+(OOA(OOT+MVAL)+OOT)+2+OOA((OOA(OOT+MVAL
*)+OOT)+3)*(IPP-1)+IC)
320 CONTINUE
C SEGDES MELEME,MPOVAL,MSOUPO
OO1=MELEME
CALLOOOWDE(OO4,0,'JONCT 740 MELEME ',OO1,1)
OO1=MPOVAL
CALLOOOWDE(OO4,0,'JONCT 742 MPOVAL ',OO1,1)
OO1=MSOUPO
CALLOOOWDE(OO4,0,'JONCT 744 MSOUPO ',OO1,1)
C SEGSUP ITRA3
OO1=ITRA3
CALLOOOWSU(OO4,0,'JONCT 746 ITRA3 ',OO1,0)
ITRA3=0
330 CONTINUE
C SEGSUP IDEN,ICO,IGEO,MNOC,MVAL
OO1=IDEN
CALLOOOWSU(OO4,0,'JONCT 750 IDEN ',OO1,0)
IDEN=0
OO1=ICO
CALLOOOWSU(OO4,0,'JONCT 753 ICO ',OO1,0)
ICO=0
OO1=IGEO
CALLOOOWSU(OO4,0,'JONCT 756 IGEO ',OO1,0)
IGEO=0
OO1=MNOC
CALLOOOWSU(OO4,0,'JONCT 759 MNOC ',OO1,0)
MNOC=0
OO1=MVAL
CALLOOOWSU(OO4,0,'JONCT 762 MVAL ',OO1,0)
MVAL=0
C NSOUPO=ITRA4(/1)
NSOUPO=OOA((OOA(OOT+ITRA4)+OOT)+3)
NAT=1
C SEGINI MCHPOI
OO5=18+NAT
CALLOOOWIN(OO4,0,'JONCT 767 MCHPOI ',OO1,OO5+NSOUPO)
OOA((OOA(OOT+OO1+2)+OOT)+4)=8
OOA((OOA(OOT+OO1+2)+OOT)+5)=72
OOA((OOA(OOT+OO1+2)+OOT)+6)=72
OOA((OOA(OOT+OO1+2)+OOT)+7)=18
OOA((OOA(OOT+OO1+2)+OOT)+8)=NAT
OOA((OOA(OOT+OO1+2)+OOT)+9)=OO5
OOA((OOA(OOT+OO1+2)+OOT)+10)=NSOUPO
MCHPOI=OO1
C DO 340 NS=1,NSOUPO
DO340NS=1,NSOUPO
C IPCHP(NS)=ITRA4(NS)
IPC_35(-076+(OOA(OOT+MCHPOI+2)+OOT)+OOA((OOA(OOT+MCHPOI+2)+OOT)+9)
*+NS)=ITR_30(-066+(OOA(OOT+ITRA4)+OOT)+1+NS)
340 CONTINUE
C SEGDES MCHPOI
OO1=MCHPOI
CALLOOOWDE(OO4,0,'JONCT 780 MCHPOI ',OO1,1)
C SEGSUP ITRA4
OO1=ITRA4
CALLOOOWSU(OO4,0,'JONCT 782 ITRA4 ',OO1,0)
ITRA4=0
OO5=OOA((OOA(OOT+ITRA5)+OOT)+3)+1
OOA((OOA(OOT+ITRA5)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 786 ITRA5 ',ITRA5,(OO5+1+0))
C ITRA5(**)=MSOSTU
ITR_36(-078+(OOA(OOT+ITRA5+2)+OOT)+1+OO5)=MSOSTU
OO5=OOA((OOA(OOT+ITRA5)+OOT)+3)+1
OOA((OOA(OOT+ITRA5)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 790 ITRA5 ',ITRA5,(OO5+1+0))
C ITRA5(**)=MCHPOI
ITR_36(-078+(OOA(OOT+ITRA5+2)+OOT)+1+OO5)=MCHPOI
350 CONTINUE
C 355 N=ITRA5(/1)/2
355 N=OOA((OOA(OOT+ITRA5)+OOT)+3)/2
C SEGINI MJONCT
OO5=11+N
OO6=OO5+N
CALLOOOWIN(OO4,0,'JONCT 796 MJONCT ',OO1,OO6+N)
OOA((OOA(OOT+OO1+2)+OOT)+4)=4
OOA((OOA(OOT+OO1+2)+OOT)+5)=84
OOA((OOA(OOT+OO1+2)+OOT)+6)=4
OOA((OOA(OOT+OO1+2)+OOT)+7)=11
OOA((OOA(OOT+OO1+2)+OOT)+8)=N
OOA((OOA(OOT+OO1+2)+OOT)+9)=OO5
OOA((OOA(OOT+OO1+2)+OOT)+10)=N
OOA((OOA(OOT+OO1+2)+OOT)+11)=OO6
OOA((OOA(OOT+OO1+2)+OOT)+12)=N
MJONCT=OO1
IF(IMASS.EQ.1) THEN
C MJOTYP=MOMAS(1)
MJO_37(-080+(OOA(OOT+MJONCT+2)+OOT)+1)(OOA((OOA(OOT+MJONCT+2)+OOT)
*+5)+1:OOA((OOA(OOT+MJONCT+2)+OOT)+5)+OOA((OOA(OOT+MJONCT+2)+OOT)+6
*))=MOMAS(1)
ELSE
C MJOTYP='MECA'
MJO_37(-080+(OOA(OOT+MJONCT+2)+OOT)+1)(OOA((OOA(OOT+MJONCT+2)+OOT)
*+5)+1:OOA((OOA(OOT+MJONCT+2)+OOT)+5)+OOA((OOA(OOT+MJONCT+2)+OOT)+6
*))='MECA'
ENDIF
C MJODDL='LX'
MJO_38(-082+(OOA(OOT+MJONCT+2)+OOT)+1)(OOV(2)+80+1:OOV(2)+80+OOA((
*OOA(OOT+MJONCT+2)+OOT)+4))='LX'
C NBNO=XCOOR(/1)/(IDIM+1)
NBNO=OOA((OOA(OOT+MCOORD)+OOT)+3)/(IDIM+1)
OO5=OOA((OOA(OOT+MCOORD)+OOT)+3)+1
OOA((OOA(OOT+MCOORD)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 816 MCOORD ',MCOORD,(OO5+1+0))
C XCOOR(**)=0.
XCO_39(-084+(OOA(OOT+MCOORD+2)+OOT)+1+OO5)=0.
OO5=OOA((OOA(OOT+MCOORD)+OOT)+3)+1
OOA((OOA(OOT+MCOORD)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 820 MCOORD ',MCOORD,(OO5+1+0))
C XCOOR(**)=0.
XCO_39(-084+(OOA(OOT+MCOORD+2)+OOT)+1+OO5)=0.
C IF(IDIM.EQ.3) XCOOR(**)=0.
IF(IDIM.NE.3)GOTO99001
OO5=OOA((OOA(OOT+MCOORD)+OOT)+3)+1
OOA((OOA(OOT+MCOORD)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 825 MCOORD ',MCOORD,(OO5+1+0))
XCO_39(-084+(OOA(OOT+MCOORD+2)+OOT)+1+OO5)=0.
99001 CONTINUE
OO5=OOA((OOA(OOT+MCOORD)+OOT)+3)+1
OOA((OOA(OOT+MCOORD)+OOT)+3)=OO5
CALLOOOWEX(OO6,0,'JONCT 830 MCOORD ',MCOORD,(OO5+1+0))
C XCOOR(**)=0.
XCO_39(-084+(OOA(OOT+MCOORD+2)+OOT)+1+OO5)=0.
NBNN=1
NBELEM=1
NBREF=0
NBSOUS=0
C SEGINI MELEME
OO5=9+NBNN*NBELEM
OO6=OO5+NBSOUS
OO7=OO6+NBREF
CALLOOOWIN(OO4,0,'JONCT 839 MELEME ',OO1,OO7+NBELEM)
OOA((OOA(OOT+OO1+2)+OOT)+4)=NBNN
OOA((OOA(OOT+OO1+2)+OOT)+5)=NBELEM
OOA((OOA(OOT+OO1+2)+OOT)+6)=OO5
OOA((OOA(OOT+OO1+2)+OOT)+7)=NBSOUS
OOA((OOA(OOT+OO1+2)+OOT)+8)=OO6
OOA((OOA(OOT+OO1+2)+OOT)+9)=NBREF
OOA((OOA(OOT+OO1+2)+OOT)+10)=OO7
OOA((OOA(OOT+OO1+2)+OOT)+11)=NBELEM
MELEME=OO1
C ITYPEL=1
ITY_17(-040+(OOA(OOT+MELEME+2)+OOT)+1)=1
C NUM(1,1)=NBNO+1
NUM_07(-020+(OOA(OOT+MELEME+2)+OOT)+9+1)=NBNO+1
C SEGDES MELEME
OO1=MELEME
CALLOOOWDE(OO4,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+(OOA(OOT+ITRA5)+OOT)+1+NNN-1)
C IPCHJO(NN)=ITRA5(NNN)
IPC_42(-090+(OOA(OOT+MJONCT+2)+OOT)+OOA((OOA(OOT+MJONCT+2)+OOT)+9)
*+NN)=ITR_36(-078+(OOA(OOT+ITRA5)+OOT)+1+NNN)
360 CONTINUE
C SEGSUP ITRA5
OO1=ITRA5
CALLOOOWSU(OO4,0,'JONCT 861 ITRA5 ',OO1,0)
ITRA5=0
C SEGDES MJONCT
OO1=MJONCT
CALLOOOWDE(OO4,0,'JONCT 864 MJONCT ',OO1,1)
C IATREL(NNNN)=MJONCT
IAT_43(-092+(OOA(OOT+MSOUMA+2)+OOT)+OOA((OOA(OOT+MSOUMA+2)+OOT)+8)
*+NNNN)=MJONCT
C IF (IIMPI.EQ.2) WRITE (IOIMP,518) NNNN,IATREL(NNNN)
IF(IIMPI.EQ.2)WRITE(IOIMP,518)NNNN,IAT_43(-092+(OOA(OOT+MSOUMA)+OO
*T)+OOA((OOA(OOT+MSOUMA)+OOT)+8)+NNNN)
518 FORMAT(5X,'IATREL(',I4,')=',I4)
520 CONTINUE
C SEGDES MSOUMA
OO1=MSOUMA
CALLOOOWDE(OO4,0,'JONCT 870 MSOUMA ',OO1,1)
N=1
C SEGINI MATTAC
CALLOOOWIN(OO4,0,'JONCT 872 MATTAC ',OO1,1+N)
OOA((OOA(OOT+OO1+2)+OOT)+3)=N
MATTAC=OO1
C LISATT(1)=MSOUMA
LIS_44(-094+(OOA(OOT+MATTAC+2)+OOT)+1+1)=MSOUMA
CALL ECROBJ('ATTACHE ',MATTAC)
C SEGDES MATTAC
OO1=MATTAC
CALLOOOWDE(OO4,0,'JONCT 878 MATTAC ',OO1,1)
C SEGSUP ITRA1
OO1=ITRA1
CALLOOOWSU(OO4,0,'JONCT 880 ITRA1 ',OO1,0)
ITRA1=0
RETURN
END
--
Summary: Segmentation fault
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: antoine dot letellier at free dot fr
CC: gcc-bugs at gcc dot gnu dot org
GCC build triplet: x86_64-unknown-linux-gnu
GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20990
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Bug fortran/20990] Segmentation fault
2005-04-13 13:23 [Bug fortran/20990] New: Segmentation fault antoine dot letellier at free dot fr
@ 2005-04-13 18:34 ` fxcoudert at gcc dot gnu dot org
2005-04-13 19:21 ` antoine dot letellier at free dot fr
2005-04-14 7:49 ` fxcoudert at gcc dot gnu dot org
2 siblings, 0 replies; 4+ messages in thread
From: fxcoudert at gcc dot gnu dot org @ 2005-04-13 18:34 UTC (permalink / raw)
To: gcc-bugs
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1099 bytes --]
------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-04-13 18:34 -------
With -fdefault-integer-8:
$ gfc -c -fdefault-integer-8 pr20990.f
pr20990.f: In function jonct:
pr20990.f:280: internal compiler error: in gfc_add_modify_expr, at
fortran/trans.c:152
Without that:
$ gfc -c pr20990.f
pr20990.f: In function jonct:
pr20990.f:294: internal compiler error: Segmentation fault
I'm using dichotomic debugging to find what goes wrong right now. But I have a
doubt: did someone actually *write* that code?
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |fxcoudert at gcc dot gnu dot
| |org
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2005-04-13 18:34:05
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20990
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Bug fortran/20990] Segmentation fault
2005-04-13 13:23 [Bug fortran/20990] New: Segmentation fault antoine dot letellier at free dot fr
2005-04-13 18:34 ` [Bug fortran/20990] " fxcoudert at gcc dot gnu dot org
@ 2005-04-13 19:21 ` antoine dot letellier at free dot fr
2005-04-14 7:49 ` fxcoudert at gcc dot gnu dot org
2 siblings, 0 replies; 4+ messages in thread
From: antoine dot letellier at free dot fr @ 2005-04-13 19:21 UTC (permalink / raw)
To: gcc-bugs
------- 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
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Bug fortran/20990] Segmentation fault
2005-04-13 13:23 [Bug fortran/20990] New: Segmentation fault antoine dot letellier at free dot fr
2005-04-13 18:34 ` [Bug fortran/20990] " fxcoudert at gcc dot gnu dot org
2005-04-13 19:21 ` antoine dot letellier at free dot fr
@ 2005-04-14 7:49 ` fxcoudert at gcc dot gnu dot org
2 siblings, 0 replies; 4+ messages in thread
From: fxcoudert at gcc dot gnu dot org @ 2005-04-14 7:49 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-04-14 07:49 -------
Minimal test case is:
integer i
character*4 c(1)
read (c,fmt='(A4)') i
end
This is a duplicate of 15966.
*** This bug has been marked as a duplicate of 15966 ***
--
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
GCC build triplet|x86_64-unknown-linux-gnu |
GCC host triplet|x86_64-unknown-linux-gnu |
GCC target triplet|x86_64-unknown-linux-gnu |
Resolution| |DUPLICATE
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20990
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2005-04-14 7:49 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-04-13 13:23 [Bug fortran/20990] New: Segmentation fault antoine dot letellier at free dot fr
2005-04-13 18:34 ` [Bug fortran/20990] " fxcoudert at gcc dot gnu dot org
2005-04-13 19:21 ` antoine dot letellier at free dot fr
2005-04-14 7:49 ` fxcoudert at gcc dot gnu dot org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).