it is fortran 77 code, if it is irrelevant please tell me. if you are interested i have other bugs. /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) the command /home/antoine/bin/gfortran -B/home/antoine -c -O2 -ffixed-form -fdefault-integer-8 -fdefault-real-8 zzfimp.f the output : zzfimp.f: In function 'zzfimp': zzfimp.f:434: erreur interne du compilateur: dans gfc_conv_string_tmp, à fortran/trans-expr.c:736 Veuillez soumettre un rapport complet d'anomalies, avec le source pré-traité si nécessaire. the source : SUBROUTINE ZZFIMP(MTABX,MTAB1) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) 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 REAL*4 DENSIT,DENSIU COMMON /CGEOME/DENSIT, DENSIU COMMON /CGEOME/NOMBR CHARACTER*4 NOMS COMMON /CGEOMC/NOMS(100) COMMON /CGEOME/ILCOUR COMMON/CGEOME/NBNNE(100),KDEGRE(100),KSURF(100) COMMON/CGEOME/NBSOM(100),NSPOS(100) COMMON/CGEOME/LPL(100),LPT(100) COMMON/CGEOME/IBSOM(300) COMMON/CGEOME/KSEGM(1500) COMMON/CGEOME/KDFAC(3,20),KFAC(1000),LFAC(1000) COMMON/CGEOME/LDEL(2,100),LTEL(2,100) COMMON/CGEOME/KSIF(11) COMMON /CGEOME/NBCOUL CHARACTER*4 NCOUL COMMON /CGEOMC/NCOUL(0:100) COMMON /CGEOME/IDCOUL COMMON/CGEOME/ITABM(0:10,0:10) COMMON/CGEOME/IOMBRE COMMON/CGEOME/IOEIL C SEGMENT,MCHELM C POINTEUR MCHEL1.MCHELM,MCHEL2.MCHELM,MCHEL3.MCHELM C POINTEUR MCHEL4.MCHELM,MCHEL5.MCHELM,MCHEL6.MCHELM C SEGMENT,MCHAML C POINTEUR MCHAM1.MCHAML,MCHAM2.MCHAML,MCHAM3.MCHAML C POINTEUR MCHAM4.MCHAML,MCHAM5.MCHAML,MCHAM6.MCHAML C SEGMENT,MELVAL C POINTEUR MELVA1.MELVAL,MELVA2.MELVAL,MELVA3.MELVAL C POINTEUR MELVA4.MELVAL,MELVA5.MELVAL,MELVA6.MELVAL C SEGMENT MCOORD C SEGMENT/MLENTI/(LECT(JG)),MLENT1.MLENTI,MLENT2.MLENTI, C 1 MLENT3.MLENTI 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 POINTEUR MELEM1.MELEME,SPGID.MELEME,SPGZ.MELEME C POINTEUR MELEMP.MELEME 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 POINTEUR IZG1.MCHPOI, IZGG1.MPOVAL C POINTEUR IZTU1.MPOVAL C POINTEUR MZFLU.MPOVAL C POINTEUR IZVOL.MPOVAL C SEGMENT IZFFM C SEGMENT IZHR C POINTEUR IZF1.IZFFM C SEGMENT MLMOTS C POINTEUR MLMOT1.MLMOTS,MLMOT2.MLMOTS,MLMOT3.MLMOTS C POINTEUR MLMOT4.MLMOTS,MLMOT5.MLMOTS,MLMOT6.MLMOTS C POINTEUR LINCO.MLMOTS COMMON/OOOCOM/OOA(1),OOT,OOV(8),MOT_01,IPC_02,NOC_03,LIS_04,ICH_05 *,IEL_06,LEC_07,NUM_08,VEL_09,VPO_10,VPO_11,ITY_12,KZH_13,KTP_14,XY *Z_15,XCO_16,FN_17,GR_18,PG_19,HR_20,PGS_21,RPG_22,NUM_23,FN_24 INTEGEROOA,OOT,OOV,OOO,OO1,OO2,OO3,OO4,MCHELM,OO5 INTEGEROO6,OO7,OO8,OO9,OO10,MCHEL1,MCHEL2,MCHEL3,MCHEL4,MCHEL5 INTEGERMCHEL6,MCHAML,MCHAM1,MCHAM2,MCHAM3,MCHAM4,MCHAM5,MCHAM6,MEL *VAL,MELVA1 INTEGERMELVA2,MELVA3,MELVA4,MELVA5,MELVA6,MCOORD,MLENTI,MLENT1,MLE *NT2,MLENT3 INTEGERMELEME,IPT1,IPT2,IPT3,IPT4,IPT5,IPT6,IPT7,IPT8,IPT9 INTEGERMELEM1,SPGID,SPGZ,MELEMP,MCHPOI,MCHPO1,MCHPO2,MCHPO3,MCHPO4 *,MSOUPO INTEGERMSOUP1,MSOUP2,MSOUP3,MSOUP4,MSOUP5,MPOVAL,MPOVA1,MPOVA2,MPO *VA3,MPOVA4 INTEGERMPOVA5,MPOVA6,IZG1,IZGG1,IZTU1,MZFLU,IZVOL,IZFFM,IZHR,IZF1 INTEGERMLMOTS,MLMOT1,MLMOT2,MLMOT3,MLMOT4,MLMOT5,MLMOT6,LINCO INTEGEROOI(1) REALOOR(1) CHARACTER*8OOH(1) EQUIVALENCE(OOV(1),OOI(1),OOR(1),OOH(1)) INTEGERIPC_02(2),LIS_04(2),ICH_05(2),IEL_06(2),LEC_07(2),NUM_08(2) *,ITY_12(2),KZH_13(2),KTP_14(2),NUM_23(2) REALVEL_09(2),VPO_10(2),VPO_11(2),XYZ_15(2),XCO_16(2),FN_17(2),GR_ *18(2),PG_19(2),HR_20(2),PGS_21(2),RPG_22(2),FN_24(2) CHARACTER*8MOT_01(2),NOC_03(2) CHARACTER*8 NOMZ,NOMI,NOMA,TYPE,NOM0,TYPC,MTERR LOGICAL LOGI PARAMETER (NTB=1) CHARACTER*8 LTAB(NTB) DIMENSION KTAB(NTB),IXV(4) SAVE IPAS DATA LTAB/'KIZX '/,IPAS/0/ CALL LEKTAB(MTAB1,'INCO',KINC) IF(KINC.EQ.0)THEN MOTERR( 1: 8) = ' INCO ' MOTERR( 9:16) = ' INCO ' MOTERR(17:24) = ' EQEX ' CALL ERREUR(786) RETURN ENDIF IAXI=0 IF(IFOMOD.EQ.0)IAXI=2 CALL LEKTAB(MTABX,'KOPT',KOPTI) IF (KOPTI.EQ.0) THEN MOTERR( 1: 8) = ' KOPT ' MOTERR( 9:16) = ' KOPT ' MOTERR(17:24) = ' KIZX ' CALL ERREUR(786) RETURN ENDIF CALL ACME(KOPTI,'MTRMASS ',MMPG) IPG=0 IF(MMPG.EQ.3)IPG=1 CALL ACME(KOPTI,'IDCEN',IDCEN) KDIM=1 IF(IDCEN.EQ.2)KDIM=IDIM CALL ACME(KOPTI,'IKOMP',IKOMP) CALL ACME(KOPTI,'KIMPL',KIMPL) CALL ACME(KOPTI,'KFORM',KFORM) CALL ACME(KOPTI,'KPOIND',KPOIND) IF(KFORM.GE.2)THEN MOTERR( 1: 8) = 'EF/EFM1 ' CALL ERREUR(803) RETURN ENDIF CALL ACME(KOPTI,'KMACO',KMACO) CALL ACMF(KOPTI,'AIMPL',AIMPL) IF (IERR.NE.0) RETURN CALL ACMM(MTABX,'NOMZONE',NOMZ) CALL LEKTAB(MTABX,'DOMZ',MTABZ) IF(MTABZ.EQ.0)THEN MOTERR( 1: 8) = ' DOMZ ' MOTERR( 9:16) = ' DOMZ ' MOTERR(17:24) = ' KIZX ' CALL ERREUR(786) RETURN ENDIF CALL LEKTAB(MTABZ,'MAILLAGE',MELEMZ) CALL LEKTAB(MTABZ,'SOMMET',MELEMS) CALL LEKTAB(MTABZ,'CENTRE',MELEMC) CALL LEKTAB(MTABZ,'XXPSOML',MCHELM) CALL LEKTAB(MTABZ,'XXVOLUM',MCHVOL) CALL LEKTAB(MTABZ,'MACRO',MACRO) CALL LEKTAB(MTABZ,'QUADRATI',MQUAD) IF (IERR.NE.0) RETURN CALL LICHT(MCHVOL,IZVOL,TYPC,IGEOM) C SEGACT MCHELM OO1=MCHELM CALLOOOWAC(OO4,0,'ZZFIMP 138 MCHELM ',OO1,1) IF(KFORM.EQ.0)THEN IF(KPOIND.EQ.99)THEN KPOIND=0 SPGZ =MELEMS MELEME=MELEMZ ELSEIF(KPOIND.EQ.2)THEN SPGZ =MELEMC MELEME=MELEMC MELEMP=MELEMC ELSEIF(KPOIND.EQ.0)THEN SPGZ =MELEMS MELEME=MELEMZ ELSEIF(KPOIND.NE.2.AND.KPOIND.NE.0)THEN MOTERR( 1: 8) = ' EF ' CALL ERREUR(803) RETURN ENDIF ELSEIF(KFORM.EQ.1)THEN IF(KPOIND.EQ.99)THEN KPOIND=0 SPGZ =MELEMS MELEME=MELEMZ ELSEIF(KPOIND.EQ.0)THEN SPGZ =MELEMS MELEME=MELEMZ ELSEIF(KPOIND.EQ.2)THEN SPGZ =MELEMC MELEME=MELEMZ MELEMP=MELEMC ELSEIF(KPOIND.EQ.3)THEN MTERR='EF CTRP0' IF(MACRO.EQ.0.AND.MQUAD.EQ.0)GO TO 90 CALL LEKTAB(MTABZ,'CENTREP0',MELEMC) SPGZ =MELEMC MELEME=MELEMZ IF(MACRO.NE.0)CALL LEKTAB(MTABZ,'MACRO1',MELEME) MELEMP=MELEMC ELSEIF(KPOIND.EQ.4)THEN MTERR='EF CTRP1' IF(MACRO.EQ.0.AND.MQUAD.EQ.0)GO TO 90 CALL LEKTAB(MTABZ,'CENTREP1',MELEMC) SPGZ =MELEMC MELEME=MELEMZ IF(MACRO.NE.0)CALL LEKTAB(MTABZ,'MACRO1',MELEME) CALL LEKTAB(MTABZ,'ELTP1NC ',MELEMP) ELSEIF(KPOIND.NE.2.AND.KPOIND.NE.0.AND.KPOIND.NE.3 & .AND.KPOIND.NE.4)THEN MOTERR( 1: 8) = ' EF ' CALL ERREUR(803) RETURN ENDIF ELSEIF(KFORM.EQ.2)THEN IF(KPOIND.EQ.99)THEN KPOIND=2 SPGZ =MELEMC MELEME=MELEMC MELEMP=MELEMC ELSEIF(KPOIND.EQ.2)THEN SPGZ =MELEMC MELEME=MELEMC MELEMP=MELEMC ELSEIF(KPOIND.NE.2)THEN MOTERR( 1: 8) = ' VF ' CALL ERREUR(803) RETURN ENDIF ELSEIF(KFORM.EQ.3)THEN MTERR='EFMC' GO TO 90 IF(KPOIND.EQ.99.OR.KPOIND.EQ.2)THEN KPOIND=2 SPGZ =MELEMC MELEME=MELEMC ELSEIF(KPOIND.EQ.3.AND.(MACRO.NE.0.OR.MQUAD.NE.0))THEN CALL LEKTAB(MTABZ,'CENTREP0',MELEMC) SPGZ =MELEMC MELEME=MELEMC ELSEIF(KPOIND.EQ.4.AND.(MACRO.NE.0.OR.MQUAD.NE.0))THEN CALL LEKTAB(MTABZ,'CENTREP1',MELEMC) CALL LEKTAB(MTABZ,'ELTP1NC',MELEMQ) SPGZ =MELEMC MELEME=MELEMQ IF(MACRO.NE.0)MELEMO=MACRO1 IF(MQUAD.NE.0)MELEMO=MELEMZ ELSE MOTERR( 1: 8) = ' EFMC ' CALL ERREUR(803) RETURN ENDIF ENDIF TYPE='LISTMOTS' CALL ACMO(MTABX,'LISTINCO',TYPE,LINCO) IF (IERR.NE.0) RETURN C SEGACT LINCO OO1=LINCO CALLOOOWAC(OO4,0,'ZZFIMP 237 LINCO ',OO1,1) C NBINC=LINCO.MOTS(/2) NBINC=OOA((OOA(OOT+LINCO)+OOT)+4) IF(NBINC.NE.1)THEN MOTERR( 1:8) = 'LISTINCO' INTERR(1) = 1 MOTERR(9:16) = ' MOTS ' CALL ERREUR(799) RETURN ENDIF C NOMI=LINCO.MOTS(1) NOMI=MOT_01(-008+(OOA(OOT+LINCO)+OOT)+1)(OOV(2)+16+1:OOV(2)+16+OOA *((OOA(OOT+LINCO)+OOT)+3)) IF(KIMPL.EQ.0)THEN CALL LEKTAB(MTAB1,'KIZG',KIZG) IF(KIZG.EQ.0)THEN CALL CRTABL(KIZG) CALL ECMM(KIZG,'SOUSTYPE','KIZG') CALL ECMO(MTAB1,'KIZG','TABLE ',KIZG) ENDIF ENDIF C NOMI=LINCO.MOTS(1) NOMI=MOT_01(-008+(OOA(OOT+LINCO)+OOT)+1)(OOV(2)+16+1:OOV(2)+16+OOA *((OOA(OOT+LINCO)+OOT)+3)) TYPE=' ' CALL ACMO(KINC,NOMI,TYPE,MCHPOI) IF(TYPE.NE.'CHPOINT ')THEN MOTERR( 1: 8) = 'INC '//NOMI MOTERR( 9:16) = 'CHPOINT ' CALL ERREUR(800) RETURN ELSE CALL LICHT(MCHPOI,IZTU1,TYPC,SPGID) ENDIF CALL KRIPAD(SPGID,MLENTI) IF(IPAS.EQ.0)THEN CALL VERPAD(MLENTI,SPGZ,IRET) IF(IRET.NE.0)THEN MOTERR(1: 8) = 'INC '//NOMI MOTERR(9:16) = 'CHPOINT ' CALL ERREUR(788) IPAS=0 RETURN ENDIF ENDIF CALL ACME(MTABX,'IARG',IARG) IF(IARG.NE.1)THEN MOTERR(1:8) = 'IARG ' CALL ERREUR(804) RETURN ENDIF IRET=3 IXV(1)=MELEMC IXV(2)=1 IXV(3)=0 CALL LEKCOF('Oprateur FIMP :', & MTABX,KINC,1,IXV,MFLU,MZFLU,NPT1,NC1,IK1,IRET) IF(IRET.EQ.0)RETURN IF(KIMPL.EQ.0)THEN TYPE=' ' CALL ACMO(KIZG,NOMI,TYPE,IZG1) IF(TYPE.NE.'CHPOINT ')THEN C NC=IZTU1.VPOCHA(/2) NC=OOA((OOA(OOT+IZTU1)+OOT)+4) TYPE='SOMMET' CALL CRCHPT(TYPE,SPGID,NC,IZG1) CALL ECMO(KIZG,NOMI,'CHPOINT ',IZG1) ENDIF ELSE C NC=IZTU1.VPOCHA(/2) NC=OOA((OOA(OOT+IZTU1)+OOT)+4) TYPE='SOMMET' CALL CRCHPT(TYPE,SPGID,NC,IZG1) C SEGACT IZG1 OO1=IZG1 CALLOOOWAC(OO4,0,'ZZFIMP 304 IZG1 ',OO1,1) C MSOUPO=IZG1.IPCHP(1) MSOUPO=IPC_02(-010+(OOA(OOT+IZG1)+OOT)+OOA((OOA(OOT+IZG1)+OOT)+9)+ *1) C SEGACT MSOUPO*MOD OO1=MSOUPO CALLOOOWAC(OO4,0,'ZZFIMP 307 MSOUPO ',OO1,0) C NOCOMP(1)=NOMI(1:4) NOC_03(-012+(OOA(OOT+MSOUPO+2)+OOT)+1)(OOV(2)+72+1:OOV(2)+72+OOA(( *OOA(OOT+MSOUPO+2)+OOT)+5))=NOMI(1:4) ENDIF CALL LICHT(IZG1,IZGG1,TYPC,IGEOM) IF(IGEOM.NE.SPGID)THEN MOTERR(1: 8) = 'INC '//NOMI MOTERR(9:16) = 'CHPOINT ' CALL ERREUR(788) RETURN ENDIF C SEGACT MELEME OO1=MELEME CALLOOOWAC(OO4,0,'ZZFIMP 318 MELEME ',OO1,1) C NBSOUS=LISOUS(/1) NBSOUS=OOA((OOA(OOT+MELEME)+OOT)+7) IF(NBSOUS.EQ.0)NBSOUS=1 NUTOEL=0 C NPTD=IZTU1.VPOCHA(/1) NPTD=OOA((OOA(OOT+IZTU1)+OOT)+3) IES=IDIM C DO 1 L=1,NBSOUS DO1L=1,NBSOUS IPT1=MELEME C IF(NBSOUS.NE.1)IPT1=LISOUS(L) IF(NBSOUS.NE.1)IPT1=LIS_04(-014+(OOA(OOT+MELEME)+OOT)+OOA((OOA(OOT *+MELEME)+OOT)+6)+L) C SEGACT IPT1 OO1=IPT1 CALLOOOWAC(OO4,0,'ZZFIMP 329 IPT1 ',OO1,1) C MCHAML=ICHAML(L) MCHAML=ICH_05(-016+(OOA(OOT+MCHELM)+OOT)+OOA((OOA(OOT+MCHELM)+OOT) *+13)+L) C SEGACT MCHAML OO1=MCHAML CALLOOOWAC(OO4,0,'ZZFIMP 332 MCHAML ',OO1,1) C MELVAL=IELVAL(1) MELVAL=IEL_06(-018+(OOA(OOT+MCHAML)+OOT)+OOA((OOA(OOT+MCHAML)+OOT) *+8)+1) C SEGACT MELVAL OO1=MELVAL CALLOOOWAC(OO4,0,'ZZFIMP 335 MELVAL ',OO1,1) C NP =IPT1.NUM(/1) NP=OOA((OOA(OOT+IPT1)+OOT)+4) C NBEL=IPT1.NUM(/2) NBEL=OOA((OOA(OOT+IPT1)+OOT)+5) IF(KPOIND.EQ.0)THEN C CALL ZXFIMP(NBEL,NUTOEL,NP,LECT,IPT1.NUM, C & VELCHE,IZGG1.VPOCHA,MZFLU.VPOCHA,IK1) OO5=OOA(OOT+MLENTI) OO6=OOA(OOT+IPT1) OO7=OOA(OOT+MELVAL) OO8=OOA(OOT+IZGG1) OO9=OOA(OOT+MZFLU) OOV(1)=OOV(1)+1 CALLZXFIMP(NBEL,NUTOEL,NP,LEC_07(-020+(OO5+OOT)+1+1),NUM_08(-022+( *OO6+OOT)+9+1),VEL_09(-024+(OO7+OOT)+5+1),VPO_10(-026+(OO8+OOT)+2+1 *),VPO_11(-028+(OO9+OOT)+2+1),IK1) OOV(1)=OOV(1)-1 ELSE IPT2=MELEMP C IF(NBSOUS.NE.1)IPT2=LISOUS(L) IF(NBSOUS.NE.1)IPT2=LIS_04(-014+(OOA(OOT+MELEME)+OOT)+OOA((OOA(OOT *+MELEME)+OOT)+6)+L) C SEGACT IPT2 OO1=IPT2 CALLOOOWAC(OO4,0,'ZZFIMP 351 IPT2 ',OO1,1) IF(MQUAD.NE.0)THEN C IF(KPOIND.EQ.2)NOM0=NOMS(IPT1.ITYPEL)//'PRP0' IF(KPOIND.EQ.2)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'PRP *0' C IF(KPOIND.EQ.3)NOM0=NOMS(IPT1.ITYPEL)//'PRP0' IF(KPOIND.EQ.3)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'PRP *0' C IF(KPOIND.EQ.4)NOM0=NOMS(IPT1.ITYPEL)//'PRP1' IF(KPOIND.EQ.4)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'PRP *1' ELSEIF(MACRO.NE.0)THEN C IF(KPOIND.EQ.2)NOM0=NOMS(IPT1.ITYPEL)//' ' IF(KPOIND.EQ.2)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//' * ' C IF(KPOIND.EQ.3)NOM0=NOMS(IPT1.ITYPEL)//'MCP0' IF(KPOIND.EQ.3)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'MCP *0' C IF(KPOIND.EQ.4)NOM0=NOMS(IPT1.ITYPEL)//'MCP1' IF(KPOIND.EQ.4)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//'MCP *1' ELSE C IF(KPOIND.EQ.2)NOM0=NOMS(IPT1.ITYPEL)//' ' IF(KPOIND.EQ.2)NOM0=NOMS(ITY_12(-030+(OOA(OOT+IPT1)+OOT)+1))//' * ' ENDIF CALL KALPBG(NOM0,'FONFORM ',IZFFM) C SEGACT IZFFM*MOD OO1=IZFFM CALLOOOWAC(OO4,0,'ZZFIMP 365 IZFFM ',OO1,0) C IZHR=KZHR(1) IZHR=KZH_13(-032+(OOA(OOT+IZFFM)+OOT)+OOA((OOA(OOT+IZFFM)+OOT)+15) *+1) C SEGACT IZHR*MOD OO1=IZHR CALLOOOWAC(OO4,0,'ZZFIMP 368 IZHR ',OO1,0) C NES=GR(/1) NES=OOA((OOA(OOT+IZFFM)+OOT)+8) C NPG=GR(/3) NPG=OOA((OOA(OOT+IZFFM)+OOT)+10) C IZF1=KTP(1) IZF1=KTP_14(-034+(OOA(OOT+IZFFM)+OOT)+OOA((OOA(OOT+IZFFM)+OOT)+13) *+1) C SEGACT IZF1*MOD OO1=IZF1 CALLOOOWAC(OO4,0,'ZZFIMP 373 IZF1 ',OO1,0) C MP1=IZF1.FN(/1) MP1=OOA((OOA(OOT+IZF1)+OOT)+5) C NP = IPT1.NUM(/1) NP=OOA((OOA(OOT+IPT1)+OOT)+4) NK=NUTOEL C DO 21 K=1,NBEL DO21K=1,NBEL NK=NK+1 JC=(1-IK1)*(NK-1)+1 C DO 109 I=1,NP DO109I=1,NP C J=IPT1.NUM(I,K) J=NUM_08(-022+(OOA(OOT+IPT1)+OOT)+9+OOA((OOA(OOT+IPT1)+OOT)+4)*(K- *1)+I) C DO 109 N=1,IDIM DO109N=1,IDIM C XYZ(N,I)=XCOOR((J-1)*(IDIM+1)+N) XYZ_15(-036+(OOA(OOT+IZHR+2)+OOT)+OOA((OOA(OOT+IZHR+2)+OOT)+10)+OO *A((OOA(OOT+IZHR+2)+OOT)+11)*(I-1)+N)=XCO_16(-038+(OOA(OOT+MCOORD)+ *OOT)+1+(J-1)*(IDIM+1)+N) 109 CONTINUE C CALL CALJBC(FN,GR,PG,XYZ,HR,PGSQ,RPG,NES,IDIM,NP,NPG,IAXI,AIRE) OO5=OOA(OOT+IZFFM) OO6=OOA(OOT+IZHR) OOV(1)=OOV(1)+1 CALLCALJBC(FN_17(-040+(OO5+OOT)+OOA((OO5+OOT)+4)+1),GR_18(-042+(OO *5+OOT)+OOA((OO5+OOT)+7)+1),PG_19(-044+(OO5+OOT)+OOA((OO5+OOT)+11)+ *1),XYZ_15(-036+(OO6+OOT)+OOA((OO6+OOT)+10)+1),HR_20(-046+(OO6+OOT) *+14+1),PGS_21(-048+(OO6+OOT)+OOA((OO6+OOT)+6)+1),RPG_22(-050+(OO6+ *OOT)+OOA((OO6+OOT)+8)+1),NES,IDIM,NP,NPG,IAXI,AIRE) OOV(1)=OOV(1)-1 C DO 39 M=1,MP1 DO39M=1,MP1 C M1=LECT(IPT2.NUM(M,K)) M1=LEC_07(-020+(OOA(OOT+MLENTI)+OOT)+1+NUM_23(-052+(OOA(OOT+IPT2)+ *OOT)+9+OOA((OOA(OOT+IPT2)+OOT)+4)*(K-1)+M)) U=0.D0 C DO 33 LL=1,NPG DO33LL=1,NPG C U=U+IZF1.FN(M,LL)*MZFLU.VPOCHA(JC,1)*PGSQ(LL) U=U+FN_24(-054+(OOA(OOT+IZF1)+OOT)+OOA((OOA(OOT+IZF1)+OOT)+4)+OOA( *(OOA(OOT+IZF1)+OOT)+5)*(LL-1)+M)*VPO_11(-028+(OOA(OOT+MZFLU)+OOT)+ *2+JC)*PGS_21(-048+(OOA(OOT+IZHR)+OOT)+OOA((OOA(OOT+IZHR)+OOT)+6)+L *L) 33 CONTINUE C IZGG1.VPOCHA(M1,1)=IZGG1.VPOCHA(M1,1)-U VPO_10(-026+(OOA(OOT+IZGG1+2)+OOT)+2+M1)=VPO_10(-026+(OOA(OOT+IZGG *1)+OOT)+2+M1)-U 39 CONTINUE 21 CONTINUE ENDIF C SEGDES IPT1,MCHAML,MELVAL OO1=IPT1 CALLOOOWDE(OO4,0,'ZZFIMP 401 IPT1 ',OO1,1) OO1=MCHAML CALLOOOWDE(OO4,0,'ZZFIMP 403 MCHAML ',OO1,1) OO1=MELVAL CALLOOOWDE(OO4,0,'ZZFIMP 405 MELVAL ',OO1,1) NUTOEL=NUTOEL+NBEL 1 CONTINUE C SEGDES MZFLU OO1=MZFLU CALLOOOWDE(OO4,0,'ZZFIMP 409 MZFLU ',OO1,1) IF(KIMPL.NE.0)THEN TYPE=' ' CALL ACMO(MTAB1,'SMBR',TYPE,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(MTAB1,'SMBR','CHPOINT',MCHPOI) ENDIF ENDIF C SEGDES MELEME OO1=MELEME CALLOOOWDE(OO4,0,'ZZFIMP 424 MELEME ',OO1,1) C SEGDES IZTU1 OO1=IZTU1 CALLOOOWDE(OO4,0,'ZZFIMP 426 IZTU1 ',OO1,1) C SEGDES IZG1,IZGG1 OO1=IZG1 CALLOOOWDE(OO4,0,'ZZFIMP 428 IZG1 ',OO1,1) OO1=IZGG1 CALLOOOWDE(OO4,0,'ZZFIMP 430 IZGG1 ',OO1,1) C SEGDES LINCO OO1=LINCO CALLOOOWDE(OO4,0,'ZZFIMP 432 LINCO ',OO1,1) C SEGSUP MLENTI OO1=MLENTI CALLOOOWSU(OO4,0,'ZZFIMP 434 MLENTI ',OO1,0) MLENTI=0 IPAS=1 RETURN 90 CONTINUE MOTERR( 1: 8) = MTERR CALL ERREUR(803) RETURN 1002 FORMAT(10(1X,1PE11.4)) END
Even though this is a dup of bug 20971 which was just reported yesterday, please report more bugs. There are a large number of bugs in gfortran which are not known yet. *** This bug has been marked as a duplicate of 20971 ***