Your message dated Sat, 17 May 2003 17:32:42 -0400 with message-id <[EMAIL PROTECTED]> and subject line Bug#130415: fixed in gcc-3.3 1:3.3ds9-1 has caused the attached Bug report to be marked as done.
This means that you claim that the problem has been dealt with. If this is not the case it is now your responsibility to reopen the Bug report if necessary, and/or fix the problem forthwith. (NB: If you are a system administrator and have no idea what I am talking about this indicates a serious mail system misconfiguration somewhere. Please contact me immediately.) Debian bug tracking system administrator (administrator, Debian Bugs database) -------------------------------------- Received: (at submit) by bugs.debian.org; 22 Jan 2002 16:45:23 +0000 >From [EMAIL PROTECTED] Tue Jan 22 10:45:22 2002 Return-path: <[EMAIL PROTECTED]> Received: from mpimail.mpi-hd.mpg.de [149.217.0.100] by master.debian.org with esmtp (Exim 3.12 1 (Debian)) id 16T430-0005G4-00; Tue, 22 Jan 2002 10:45:22 -0600 Received: from xpc19.mpi-hd.mpg.de (xpc19.mpi-hd.mpg.de [149.217.2.99]) by mpimail.mpi-hd.mpg.de (8.11.6/8.11.6) with ESMTP id g0MGjLQ07184 for <[EMAIL PROTECTED]>; Tue, 22 Jan 2002 17:45:21 +0100 Date: Tue, 22 Jan 2002 17:45:20 +0100 (CET) From: [EMAIL PROTECTED] X-X-Sender: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: g77: g77 crashes Message-ID: <[EMAIL PROTECTED]> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Delivered-To: [EMAIL PROTECTED] Package: g77 Version: 2:2.95.4-9 Severity: important When trying to compile the program below g77 reports the following error message. Sorry for the long program. It was not written by me. I just wanted to compile it. Under g77-3.0 it compiles. Greetings, Heiko $ g77 -c clx.f clx.f: In program `clx': clx.f:410: warning: & (PP1*PP2)**(2*LAM-1)* ^ Unsupported operand for ** at (^) -- converting to default INTEGER clx.f:269: Internal compiler error: clx.f:269: Internal compiler error in `copy_to_mode_reg', at explow.c:669 Please submit a full bug report. See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions. 8<%%% clx.f %%% C C MULTIPLE COULOMB EXCITATION PROGRAM C L X C C FORTRAN VERSION OF THE PL1 PROGRAM WALKUERE WRITTEN BY H. OWER (IKF). C TRANSLATED AND MODIFIED BY J. GERL. C C INPUT TO THE PROGRAM: C C THE FILE C L X . D A T C C THIS FILE CONTAINS THE INPUT DATASET. THE MEANING OF THE INPUT C CARDS IS AS FOLLOWS. C ( FREE FORMAT IS USED UNLESS OTHERWISE NOTED ) C C CARD # CONTENTS C C 1 TITLE ( MAX. 40 CHARACTERS ) C C 2 I/O CONTROL ( FORMAT: 8I1 ) C MEANING OF THE CONTROL BITS: C # MEANING C 1 OUCNTL C 2 OUPSI C 3 OUAMP C 4 OUPROW C 5 OUMEM C 6 OUTENS C 7 OUPN C 8 OUDCY C C 3 NMAX, NMPOL, [EMMAX (DEF:10.0)] C C 4 [ACCUR (DEF:0.0001)] [,XIMAX (DEF:6.0)] [,DIPOLE (DEF:0.005)] C E1-POLARIZATION ACCORDING TO "ALDER WINTHER, ELECTROMAGNETIC C EXCITATION (APPENDIX J)" C C 5 ZP, AP C C 6 ZT, AT C C 7 EP ( MeV ) C C 8 THETA1 [,THETA2 [,DELTATH]] ( CM - SYSTEM ) C C 9 N, SPIN(N), E(N) ( MeV), PARITY(N) (1=+,-1=-), K(N) C A CARD #9 IS REQUIRED FOR ALL STATES N=1,NMAX C C 10 N, M, ME(LAM,N,M), LAMDA (NEG. VALUE = MAGNETIC TRANSITION) C A CARD #10 IS REQUIRED FOR EACH MATRIXELEMENT. IT IS C SUFFICIENT TO USE ONLY THE MATRIXELEMENT ME(N->M). C THE CORRESPONDING MATRIXELEMENT ME(M->N) IS INCLUDED C BY THE PROGRAM. THE RPT PHASE CONVENTION IS USED ( SEE: C "ALDER WINTHER, ELECTROMAGNETIC EXCITATION" ). C C 11 BLANK CARD C program clx IMPLICIT real*8(A-H, O-Z), INTEGER*8(I-N) CHARACTER*1 TITLE(40) REAL*8 LLMAX,MEM(50,50,5),MEMC(50,20,5),ME,R_QLM(5,5),I_QLM(5,5) REAL*8 FCT(99),FACT(99) REAL*8 R_AMP(2000,8),I_AMP(2000,8),R_AMPDOT(2000,8), & I_AMPDOT(2000,8) REAL*8 R_F(2000,4,8),I_F(2000,4,8),R_AMPP(2000,8),I_AMPP(2000,8) REAL*8 R_Q1(2000,8),I_Q1(2000,8),R_RC,I_RC,R_RC1,I_RC1,I_TE,I_CSUM REAL*8 R_TE,R_CSUM REAL*8 I_EX,N_FAC REAL*8 R_RHOB(50,3,5),I_RHOB(50,3,5),R_RHOC(50,3,5),I_RHOC(50,3,5) INTEGER FOUND,ZP,ZT,SSTOP(50),SSTART(50),S_HALT(50),DWFLAG INTEGER OK,OUCNTL,OUPSI,OUAMP,OUPROW,OUMEM,OUTENS,OUPN,OUDCY, & R_CPHZ DIMENSION SPIN(50),EN(50),IPAR(50),RK(50),LAMDA(5),ETAN(50), & CPSI(5) DIMENSION IFAC(50),LDNUM(5,50),LEAD(50,20,5),CAT(2000), & PSI(50,20,5) DIMENSION MRANGE(2,32767),ZETA(32767),PROB(32767),P(50),MECNT(5) C COMMON /QLM/ W,EPS,EROOT,LAMMAX,LAMDA,R_QLM,I_QLM,RALFA,ZPOL COMMON /AMP/ NMAX,SSTART,S_HALT,LEAD,LDNUM,ETAN COMMON /FCTRLS/ FCT,FACT COMMON /PAGE/ TITLE,ID C C ASSIGN DEFAULT VALUES TO CERTAIN VARIABLES C PI=3.14159265d0 ID=1 CALL FCTRLS_S C C READ IN DATA FROM FILE C L X C c OPEN ( UNIT=1,FILE='CLX.DAT',STATUS='OLD',READONLY ) OPEN ( UNIT=1,FILE='CLX.DAT',STATUS='OLD' ) READ ( 1,1 ) TITLE 1 FORMAT ( 40A1 ) READ ( 1,2 ) OUCNTL,OUPSI,OUAMP,OUPROW,OUMEM,OUTENS,OUPN,OUDCY 2 FORMAT ( 8I1 ) OUCNTL=1 OUPN=1 OUDCY=1 READ ( 1,* ) NMAX,NMPOL,EMMAX1 IF ( EMMAX1 .EQ. 0. ) EMMAX1=10.d0 READ ( 1,* ) ACCUR,XIMAX,DIPOL IF ( ACCUR .EQ. 0. ) ACCUR=0.0001d0 IF ( XIMAX .EQ. 0. ) XIMAX=6.d0 IF ( DIPOL .EQ. 0. ) DIPOL=0.005d0 READ ( 1,* ) ZP,AP READ ( 1,* ) ZT,AT READ ( 1,* ) EP READ ( 1,* ) THETA1,THETA2,DTHETA IF ( THETA2 .EQ. 0.d0 ) THETA2=THETA1 IF ( DTHETA .EQ. 0.d0 ) DTHETA=THETA2-THETA1 DO I=1,NMAX READ ( 1,* ) N,SPIN(N),EN(N),IPAR(N),RK(N) OK=OK+I-N END DO IF ( OK .NE. 0 ) THEN WRITE ( 6,3 ) 3 FORMAT ( ' ***MISTAKE*** CARDS #9 ARE NOT CONSISTENT WITH NMAX') STOP END IF IF ( SPIN(1) .GT. 7.d0 ) THEN WRITE ( 6,* ) ' ***FATAL*** GROUNDSTATE SPIN EXCEEDS 14/2' STOP END IF IF ( EN(1) .NE. 0.d0 ) WRITE ( 6,4 ) 4 FORMAT ( ' ***WARNING*** GROUNDSTATE ENERGY IS NOT ZERO' ) DO WHILE ( OK .EQ. 0 ) READ ( 1,*,END=100 ) N,M,ME,LAM IF ( LAM .LT. 0 ) THEN LAM=5 MAGN=1 END IF IF ( N .GT. M ) THEN NT=N N=M M=NT IF ( MOD(ABS(INT(SPIN(N)-SPIN(M))),2) .NE. 0 ) ME=-ME END IF IFOUND=0 DO I1=1,LAMMAX IF ( LAM .EQ. LAMDA(I1) ) IFOUND=I1 END DO IF ( IFOUND .EQ. 0.d0 ) THEN LAMMAX=LAMMAX+1 LAMDA(LAMMAX)=LAM IFOUND=LAMMAX END IF MEM(N,M,IFOUND)=ME GO TO 110 100 OK=1 110 CONTINUE END DO CLOSE ( UNIT=1 ) C C CALCULATION STARTS HERE C C C CHECK AND SYMMETRIZE MEM-MATRIX C DO I1=1,LAMMAX LA=LAMDA(I1) IF ( LA .EQ. 5 ) LA=1 DO N=1,NMAX DO M=N,NMAX IF ( MEM(N,M,I1) .NE. 0.d0 ) THEN MECNT(I1)=MECNT(I1)+1 IF (ABS(SPIN(N)-LA).GT.SPIN(M).OR.SPIN(M).GT.SPIN(N)+LA) & THEN WRITE ( 6,5 ) 5 FORMAT ( & ' ***MISTAKE*** ANGULAR MOMENTUM CONSERVATION VIOLATED' ) STOP END IF IDP=-1 IF ( IPAR(N) .EQ. IPAR(M) ) IDP=1 IF ( LAMDA(I1) .EQ. 5 ) IDP=-IDP IF ( IDP .NE. (-1)**LA ) THEN WRITE ( 6,6 ) 6 FORMAT ( ' ***MISTAKE*** PARITY CONSERVATION VIOLATED' ) STOP END IF IF ( M .NE. N ) THEN MECNT(I1)=MECNT(I1)+1 FAC=(-1)**INT(ABS(SPIN(N)-SPIN(M))+.01d0) IF ( MEM(N,M,I1) .NE. 0.d0 ) MEM(M,N,I1)=MEM(N,M,I1)*FAC END IF END IF END DO END DO END DO C C COMPUTATION OF IFAC-ARRAY C DO N=1,NMAX IDPAR=0 IF ( IPAR(N) .NE. IPAR(1) ) IDPAR=1 IFAC(N)=(-1)**(IDPAR+INT(SPIN(1)-SPIN(N))) END DO C C ACCURACY CONTROL C ACC050=ACCUR/50.d0 C C NORMALIZATION FACTORS C N_FAC=2.d0*SPIN(1)+1.d0 I_SPIN=MOD(INT(2.d0*SPIN(1)),2) LLMAX=2.d0*(SPIN(1)+1.d0) CE3=1.d0/(2.d0*SPIN(1)+1.d0) C C PRINTOUT OF INPUT DATA C CALL NEWPAGE WRITE ( 6,7 ) 7 FORMAT ( ' PARAMETERS OF THIS CALCULATION :'// ) WRITE ( 6,8 ) ZP,AP,EP,ZT,AT 8 FORMAT ( ' PROJECTILE : CHARGE = ',I2,' , MASS = ',F7.3,', ' 1 ,' ENERGY (LAB) = ',F7.2,'MeV'//' TARGET : CHARGE = ' 2 ,I2,' , MASS = ',F7.3/ ) WRITE ( 6,9 ) THETA1,THETA2,DTHETA,NMAX 9 FORMAT (' SCATTERING ANGLES :' 1 ,F6.2,' DEGREES TO ',F6.2,' DEGREES BY ' 1 ,F6.2,' DEGREES '//' NUMBER OF STATES : ',I2 2 ,' MULTIPOLARITIES : ') DO LA=1,LAMMAX IF ( LAMDA(LA) .EQ. 5 ) THEN WRITE ( 6,10 ) 10 FORMAT ( 19X,'M1, ' ) ELSE WRITE ( 6,11 ) LAMDA(LA) 11 FORMAT ( 19X,'E',I1,', ' ) END IF END DO WRITE ( 6,111 ) DIPOL 111 FORMAT ( /' E1-POLARIZATION = ',F7.5 ) WRITE ( 6,12 ) OUCNTL,OUPSI,OUAMP,OUPROW,OUMEM,OUTENS,OUPN,OUDCY 12 FORMAT(/' OUTPUT CONTROLS : OUCNTL = ' 1 ,I1,', OUPSI = ',I1,', OUAMP = ' 1 ,I1,', OUPROW = ',I1/17X,' OUMEM = ',I1,',OUTENS = ' & ,I1,', OUPN = ' 1 ,I1,', OUDCY = ',I1 / ) WRITE ( 6,13 ) EMMAX1 13 FORMAT ( ' MAX. ABSOLUTE VALUE OF M-QUANTUM NUMBER : ',F4.1/ ) WRITE ( 6,14 ) ACCUR 14 FORMAT ( ' ACCURACY OF INTEGRATION : ',F8.6 / ) DISTA=2.d0*.71995d0*(1.d0+AP/AT)*ZP*ZT/EP VINF=4.6337d0*SQRT(EP/AP) WRITE ( 6,15 ) DISTA,VINF 15 FORMAT (' SMALLEST DISTANCE BETWEEN NUCLEAR CENTERS IN HEAD-ON' 1 /' COLLISIONS = ' 1 ,F6.2,' fm, INITIAL PROJECTILE VELOCITY =',F4.1,'% c'/) C C OUTPUT FOR DECAY CALCULATION C IF ( OUDCY .NE. 0 ) THEN OPEN ( UNIT=2,FILE='CLXDCY',STATUS='UNKNOWN' ) WRITE ( 2,1 ) TITLE WRITE ( 2,* ) ZP,AP,ZT,AT,EP,DIPOL,THETA1,THETA2,DTHETA WRITE ( 2,* ) NMAX,LAMMAX DO I=1,NMAX WRITE ( 2,* ) SPIN(I),EN(I),IPAR(I),RK(I) END DO DO I1=1,LAMMAX WRITE ( 2,* ) LAMDA(I1),MECNT(I1) DO N=1,NMAX DO M=1,NMAX IF ( MEM(N,M,I1) .NE. 0. ) WRITE ( 2,16 ) N,M,MEM(N,M,I1) 16 FORMAT ( 3(I2,1X,I2,2X,G12.5,2X) ) END DO END DO END DO END IF C C E1-POLARIZATION ( SEE ALDER WINTHER,ELECTROMAGNETIC EXCITATION APP. J ) C ZPOL=DIPOL*EP*AT/(ZT*ZT*(1.d0+AP/AT)) C C COMPUTATION OF LEAD-MATRIX AND LDNUM-MATRIX C DO I5=1,LAMMAX DO N=1,NMAX LDNUM(I5,N)=0 DO M=1,NMAX IF ( MEM(N,M,I5) .NE. 0 ) LDNUM(I5,N)=LDNUM(I5,N)+1 END DO END DO END DO C C DETERMINE MAXIMUM LDNUM=LDMX C LDMX=0 DO I5=1,LAMMAX DO N=1,NMAX IF ( LDNUM(I5,N) .GT. LDMX ) LDMX=LDNUM(I5,N) END DO END DO IF ( LDMX .GT. 20 ) THEN WRITE ( 6,17 ) 17 FORMAT ( & ' ***FATAL*** NUMBER OF ME''S CONNECTING A PAIR OF STATES', 1 ' EXCEEDS 20' ) STOP END IF DO I5=1,LAMMAX DO N=1,NMAX LD_CNTR=0 DO M=1,NMAX IF ( MEM(N,M,I5) .NE. 0. ) THEN LD_CNTR=LD_CNTR+1 LEAD(N,LD_CNTR,I5)=M MEMC(N,LD_CNTR,I5)=MEM(N,M,I5) END IF END DO END DO END DO C C ETAN - ARRAY C ETA=ZP*ZT*SQRT(AP/EP)/6.34977d0 DO M=1,NMAX ETAN(M)=ETA/SQRT(1.d0-(1.d0+AP/AT)*EN(M)/EP) END DO WRITE ( 6,18 ) ETA 18 FORMAT ( ' SOMMERFELD PARAMETER ETA = ',F6.2 ) C C DETERMINE LARGEST XI-VALUE THAT IS .LT. XIMAX C XIM=0.d0 DO I1=1,LAMMAX DO N=1,NMAX DO L=1,LDNUM(I1,N) M=LEAD(N,L,I1) XI=ETAN(N)-ETAN(M) IF ( XI .GT. XIM ) XIM=XI END DO END DO END DO WRITE ( 6,19 ) XIMAX,XIM 19 FORMAT (/' MAXIMUM ALLOWABLE XI = ',G11.4,', LARGEST XI FOUND = ', & G11.4) XIM=MIN(XIM,XIMAX) CALL NEWPAGE WRITE ( 6,20 ) 20 FORMAT ( ' STATES KNOWN IN THIS CALCULATION'//' N ENERGY [MeV]' 1 ,' SPIN PARITY K'/ ) DO N=1,NMAX WRITE ( 6,21 ) N,EN(N),SPIN(N),IPAR(N),RK(N) 21 FORMAT ( 1X,I2,6X,F6.4,6X,F4.1,5X,I2,7X,F3.1 ) END DO C C THE MATRIX ELEMENTS ARE PRINTED C IF ( OUMEM .NE. 0 ) THEN DO I5=1,LAMMAX LINE_CNT=50 CALL NEWPAGE LAM=LAMDA(I5) IF ( LAM .EQ. 5 ) THEN WRITE ( 6,22 ) 22 FORMAT ( ' MATRIX MM1(N,M) IN mu'/ ) ELSE WRITE ( 6,23 ) LAM,LAM 23 FORMAT ( ' MATRIX ME',I1,'(N,M) IN e*b**',I1/ ) END IF DO M=1,NMAX,8 L=MIN(8,NMAX-M) M1=M+1 M2=M+2 M3=M+3 M4=M+4 M5=M+5 M6=M+6 M7=M+7 IF ( LINE_CNT-NMAX .LT. 1 ) THEN LINE_CNT=50 CALL NEWPAGE END IF WRITE ( 6,24 ) M,M1,M2,M3,M4,M5,M6,M7 24 FORMAT ( ' M',3X,8(I2,6X),' N' ) DO I1=1,NMAX WRITE ( 6,25 ) I1,(MEM(I1,MM,I5),MM=M,M+L) 25 FORMAT ( 1X,I2,8(1X,F7.4) ) LINE_CNT=LINE_CNT-1 END DO END DO END DO END IF C C PSI - MATRIX C AAZZ=1.d0/(1.d0+AP/AT)/(ZP*ZT) CPSI(1)=5.169286d0*AAZZ CPSI(2)=14.359366d0*AAZZ*AAZZ CPSI(3)=56.982577d0*AAZZ**3.d0 CPSI(4)=263.812653d0*AAZZ**4.d0 CPSI(5)=0.002519d0*AAZZ DO I1=1,LAMMAX LAM=LAMDA(I1) DO N=1,NMAX PP1=(EP-(1.d0+AP/AT)*EN(N))**.25 DO L=1,LDNUM(I1,N) M=LEAD(N,L,I1) PP2=(EP-(1.d0+AP/AT)*EN(M))**.25 IF ( LAM .EQ. 5 ) THEN PSI(N,L,I1)=CPSI(LAM)*ZP*(PP1*PP2)**2.*MEMC(N,L,I1) ELSE PSI(N,L,I1)=CPSI(LAM)*ZP*SQRT(AP)* & (PP1*PP2)**(2*LAM-1)* 1 MEMC(N,L,I1) END IF END DO END DO END DO C C CATALOG OF MAGNETIC SUBSTATES C SSTART-,SSTOP- AND S_HALT-ARRAY C IS=0 DO N=1,NMAX IS=IS+2*MIN(SPIN(N),EMMAX1)+1 END DO ISMAX=IS IF ( ISMAX .GT. 2000 ) THEN WRITE ( 6,* ) ' ***FATAL*** MAGNETIC SUBSTATES EXCEED 2000!' STOP END IF IS=1 DO N=1,NMAX SSTART(N)=IS QUAN=MIN(EMMAX1,SPIN(N)) DO RM=-QUAN,QUAN CAT(IS)=RM IS=IS+1 END DO SSTOP(N)=IS-1 END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN DO N=1,NMAX S_HALT(N)=SSTART(N)+INT(MIN(SPIN(N),EMMAX1)+.51d0) END DO ELSE DO N=1,NMAX S_HALT(N)=SSTOP(N) END DO END IF WRITE ( 6,26 ) ISMAX 26 FORMAT ( /' TOTAL NUMBER OF MAGNETIC SUBSTATES = ',I5 ) C C LMAX C LMAX=INT(SPIN(1)+1.01d0) C C COUNT THE ELEMENTS IN THE MRANGE-ARRAY C MR=0 DO I1=1,LAMMAX DO N=1,NMAX MR=MR+LDNUM(I1,N)*(S_HALT(N)-SSTART(N)+1) END DO END DO C C COMPUTE THE MRANGE-ARRAY AND COUNT THE MEMBERS OF THE ZETA-ARRAY C MRMAX=MR IF ( MRMAX .GT. 32767 ) THEN WRITE ( 6,*) ' ***FATAL*** MRANGE EXCEEDS 32767!' STOP END IF MR=0 NZMAX=0 DO I1=1,LAMMAX LAM=LAMDA(I1) IF ( LAM .EQ. 5 ) LAM=1 DO N=1,NMAX DO I2=1,LDNUM(I1,N) M=LEAD(N,I2,I1) IS1=SSTART(M) DO IR=SSTART(N),S_HALT(N) MR=MR+1 ISMIN=INT(MIN(0.d0,CAT(IR)-CAT(IS1)-dble(LAM))) ISPLUS=INT(MAX(0.d0,CAT(IR)-CAT(IS1)-dble(LAM))) IS2=IS1+ISPLUS-1 MRANGE(1,MR)=MIN(2*LAM+1+ISMIN,SSTOP(M)-IS2) MRANGE(2,MR)=IS2 NZMAX=NZMAX+MAX(0,MRANGE(1,MR)) END DO END DO END DO END DO IF ( NZMAX .GT. 32767 ) THEN WRITE ( 6,*) & ' ***FATAL*** MORE THAN 32767 ELEMENTS IN ZETA ARRAY!' STOP END IF WRITE ( 6,27 ) NZMAX 27 FORMAT ( /' TOTAL NUMBER OF ELEMENTS IN ZETA ARRAY = ',I5 ) C C COMPUTE THE ZETA - MATRIX C NZ=0 MR=0 DO I1=1,LAMMAX RLAM=LAMDA(I1) IF ( RLAM .GT. 4.d0 ) RLAM=1.d0 SSQRT=SQRT(2.d0*RLAM+1.d0) DO N=1,NMAX DO I2=1,LDNUM(I1,N) M=LEAD(N,I2,I1) PSI_1=PSI(N,I2,I1)*SSQRT DO IR=SSTART(N),S_HALT(N) MR=MR+1 DO I3=1,MRANGE(1,MR) NZ=NZ+1 IS=MRANGE(2,MR)+I3 G2=CAT(IS)-CAT(IR) IIEX=SPIN(M)-CAT(IS) IF ( MOD(IIEX,2) .EQ. 0 ) THEN PHZ=1.d0 ELSE PHZ=-1.d0 END IF ZETA(NZ)=PHZ*PSI_1* 1 THREEJ(SPIN(M),-CAT(IS),RLAM,G2,SPIN(N),CAT(IR)) END DO END DO END DO END DO END DO C C THE PSI - MATRIX IS PRINTED C IF ( OUPSI .NE. 0 ) THEN DO I1=1,LAMMAX LINE_CNT=50 LAM=LAMDA(I1) DO N=1,NMAX DO L=1,LDNUM(I1,N) IF ( LINE_CNT .GT. 49 ) THEN CALL NEWPAGE LINE_CNT=0 IF ( LAM .EQ. 5 ) THEN WRITE ( 6,28 ) 28 FORMAT ( ' PSI-MATRIX FOR M1'/ ) ELSE WRITE ( 6,29 ) LAM 29 FORMAT ( ' PSI-MATRIX FOR E',I1/ ) END IF WRITE ( 6,30 ) 30 FORMAT ( ' N M PSI(N,M)'/ ) END IF M=LEAD(N,L,I1) WRITE ( 6,31 ) N,M,PSI(N,L,I1) 31 FORMAT ( 1X,I2,5X,I2,9X,G11.4 ) LINE_CNT=LINE_CNT+1 END DO END DO END DO END IF C C LOOP OVER THE SCATTERING ANGLES C TH=THETA1-DTHETA DO WHILE ( TH .LT. THETA2 ) TH=TH+DTHETA IF ( OUCNTL .NE. 0 ) THEN CALL NEWPAGE WRITE ( 6,32 ) TH 32 FORMAT ( ' THETA = ',F6.2,' DEGREES' ) END IF THETA=TH*PI/180.d0 C C RANGE AND STEP WIDTH OF INTEGRATION C EPS=1.d0/SIN(THETA/2.d0) EROOT=SQRT(EPS*EPS-1.d0) CLOSE=DISTA*(1.d0+EPS)/2.d0 UP=LOG(1.d0/(EPS*SQRT(ACCUR))) ABW=0.d0 DW=40.d0*(ACCUR**.2d0)/(10.d0+48.d0*XIM+16.d0*XIM*EPS) ISTEP=UP/(DW*8.d0)+1.d0 ISTEP=ISTEP*8 DW=UP/(dble(ISTEP)-.25d0) UP=DW*ISTEP W=-UP D2W=DW+DW IF ( OUCNTL .NE. 0 ) THEN WRITE ( 6,33 ) EPS,CLOSE 33 FORMAT ( /' ECCENTRICITY OF HYPERBOLA =',F7.3, 1 ' DISTANCE OF CLOSEST APPROACH IS ',F8.2,' fm' ) WRITE ( 6,34 ) UP,UP,D2W 34 FORMAT ( /' RANGE OF INTEGRATION : W = -',F6.2,' TO +',F6.2, 1 ' INITIAL STEP WIDTH, D2W = ',F8.5 ) END IF C C ------- INTEGRATION STARTS HERE ------- C C INITIAL VALUES OF AMPLITUDES AMP(W=-UP) : ALL AMPLITUDES C ARE 0, EXCEPT THE REAL PART OF THE GROUND STATE AMPLITUDE C WHICH IS = 1 C DO IR=1,ISMAX DO L=1,LMAX R_AMP(IR,L)=0.d0 I_AMP(IR,L)=0.d0 END DO END DO DO L=1,LMAX R_AMP(L,L)=1.d0 END DO C C THR RUNGE-KUTTA-GILL INTEGRATION PROCEDURE C C COMPUTE STARTING VALUES OF DERIVATIVES C DO WHILE ( W .LE. UP ) DWFLAG=0 CALL Q CALL A (R_AMPDOT,I_AMPDOT,R_AMP,I_AMP,MRANGE,CAT,ZETA, 1 LMAX,ISMAX,MRMAX,NZMAX) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_F(IR,1,L)=R_AMPDOT(IR,L) I_F(IR,1,L)=I_AMPDOT(IR,L) END DO END DO END DO C C COMPUTE THREE MORE STARTING VALUES FOR ADAMS/MOULTON C DO NAM=2,4 DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_Q1(IR,L)=DW*R_AMPDOT(IR,L) I_Q1(IR,L)=DW*I_AMPDOT(IR,L) R_AMP(IR,L)=R_AMP(IR,L)+R_Q1(IR,L) I_AMP(IR,L)=I_AMP(IR,L)+I_Q1(IR,L) END DO END DO END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN C C USE SYMMETRY RELATION C DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) IR1=IR-2*CAT(IR) R_AMP(IR1,L)=IFAC(N)*R_AMP(IR,L) I_AMP(IR1,L)=IFAC(N)*I_AMP(IR,L) END DO END DO END DO END IF W=W+DW CALL Q CALL A (R_AMPDOT,I_AMPDOT,R_AMP,I_AMP,MRANGE,CAT,ZETA, 1 LMAX,ISMAX,MRMAX,NZMAX) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_AMP(IR,L)=R_AMP(IR,L)+.5857864d0* 1 (DW*R_AMPDOT(IR,L)-R_Q1(IR,L)) I_AMP(IR,L)=I_AMP(IR,L)+.5857864d0* 1 (DW*I_AMPDOT(IR,L)-I_Q1(IR,L)) R_Q1(IR,L)=.5857864d0*DW* 1 R_AMPDOT(IR,L)+.1213204d0*R_Q1(IR,L) I_Q1(IR,L)=.5857864d0*DW* 1 I_AMPDOT(IR,L)+.1213204d0*I_Q1(IR,L) END DO END DO END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN C C USE SYMMETRY RELATION C DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) IR1=IR-2*CAT(IR) R_AMP(IR1,L)=IFAC(N)*R_AMP(IR,L) I_AMP(IR1,L)=IFAC(N)*I_AMP(IR,L) END DO END DO END DO END IF CALL A (R_AMPDOT,I_AMPDOT,R_AMP,I_AMP,MRANGE,CAT,ZETA, 1 LMAX,ISMAX,MRMAX,NZMAX) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_AMP(IR,L)= & R_AMP(IR,L)+3.414214d0* & (DW*R_AMPDOT(IR,L)-R_Q1(IR,L)) I_AMP(IR,L)= & I_AMP(IR,L)+3.414214d0* & (DW*I_AMPDOT(IR,L)-I_Q1(IR,L)) R_Q1(IR,L)= & 3.414214d0*DW*R_AMPDOT(IR,L)- & 4.1213204d0*R_Q1(IR,L) I_Q1(IR,L)= & 3.414214d0*DW*I_AMPDOT(IR,L)- & 4.1213204d0*I_Q1(IR,L) END DO END DO END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN C C USE SYMMETRY RELATION C DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) IR1=IR-2*CAT(IR) R_AMP(IR1,L)=IFAC(N)*R_AMP(IR,L) I_AMP(IR1,L)=IFAC(N)*I_AMP(IR,L) END DO END DO END DO END IF W=W+DW CALL Q CALL A (R_AMPDOT,I_AMPDOT,R_AMP,I_AMP,MRANGE,CAT,ZETA, 1 LMAX,ISMAX,MRMAX,NZMAX) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_AMP(IR,L)=R_AMP(IR,L)+ 1 DW*R_AMPDOT(IR,L)/3.d0-2.d0*R_Q1(IR,L)/3.d0 I_AMP(IR,L)=I_AMP(IR,L)+ 1 DW*I_AMPDOT(IR,L)/3.d0-2.d0*I_Q1(IR,L)/3.d0 END DO END DO END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN C C USE SYMMETRY RELATION C DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) IR1=IR-2*CAT(IR) R_AMP(IR1,L)=IFAC(N)*R_AMP(IR,L) I_AMP(IR1,L)=IFAC(N)*I_AMP(IR,L) END DO END DO END DO END IF CALL A (R_AMPDOT,I_AMPDOT,R_AMP,I_AMP,MRANGE,CAT,ZETA, 1 LMAX,ISMAX,MRMAX,NZMAX) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_F(IR,NAM,L)=R_AMPDOT(IR,L) I_F(IR,NAM,L)=I_AMPDOT(IR,L) END DO END DO END DO END DO C C WE NOW HAVE THE STARTING VALUES FOR THE DERIVATIVES C AND CAN PROCEED BY THE FASTER ADAMS-MOULTON ROUTINE C C THE ADAMS-MOULTON ROUTINE FOR SPIN(1)=0 C DO WHILE ( W .LE. UP .AND. DWFLAG .NE. 1 ) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_AMPP(IR,L)=R_AMP(IR,L)+DW/12.d0* 1 (55.d0*R_F(IR,4,L)-59.d0*R_F(IR,3,L) 1 +37.d0*R_F(IR,2,L)-9.d0*R_F(IR,1,L)) I_AMPP(IR,L)=I_AMP(IR,L)+DW/12.d0* 1 (55.d0*I_F(IR,4,L)-59.d0*I_F(IR,3,L) 1 +37.d0*I_F(IR,2,L)-9.d0*I_F(IR,1,L)) END DO END DO END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN C C USE SYMMETRY RELATION C DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) IR1=IR-2*CAT(IR) R_AMPP(IR1,1)=IFAC(N)*R_AMPP(IR,1) I_AMPP(IR1,1)=IFAC(N)*I_AMPP(IR,1) END DO END DO END DO END IF W=W+DW+DW CALL Q NZ=0 MR=0 DO L=1,LMAX DO IR=1,ISMAX R_AMPDOT(IR,L)=0.d0 I_AMPDOT(IR,L)=0.d0 END DO END DO DO I1=1,LAMMAX IF ( LAMDA(I1) .NE. 5 ) THEN DO N=1,NMAX DO I2=1,LDNUM(I1,N) M=LEAD(N,I2,I1) XI=ETAN(N)-ETAN(M) R_EX=COS(XI*RALFA) I_EX=SIN(XI*RALFA) DO IR=SSTART(N),S_HALT(N) MR=MR+1 DO I3=1,MRANGE(1,MR) IS=MRANGE(2,MR)+I3 NZ=NZ+1 RMU=CAT(IS)-CAT(IR) MUA=INT(ABS(RMU)+1.01d0) R_RC1= & (R_QLM(I1,MUA)*R_EX-I_QLM(I1,MUA)*I_EX)* & ZETA(NZ) I_RC1= & (R_QLM(I1,MUA)*I_EX+I_QLM(I1,MUA)*R_EX)* & ZETA(NZ) DO L=1,LMAX R_RC=R_RC1*R_AMPP(IS,L)-I_RC1*I_AMPP(IS,L) I_RC=R_RC1*I_AMPP(IS,L)+I_RC1*R_AMPP(IS,L) R_AMPDOT(IR,L)=R_AMPDOT(IR,L)+I_RC I_AMPDOT(IR,L)=I_AMPDOT(IR,L)-R_RC END DO END DO END DO END DO END DO ELSE DO N=1,NMAX DO I2=1,LDNUM(I1,N) M=LEAD(N,I2,I1) XI=ETAN(N)-ETAN(M) R_EX=COS(XI*RALFA) I_EX=SIN(XI*RALFA) DO IR=SSTART(N),S_HALT(N) MR=MR+1 DO I3=1,MRANGE(1,MR) IS=MRANGE(2,MR)+I3 NZ=NZ+1 MU=INT(CAT(IS)-CAT(IR)+.01d0) MUA=ABS(MU)+1 R_RC1=(R_QLM(I1,MUA)*R_EX-I_QLM(I1,MUA)*I_EX)* & ZETA(NZ) I_RC1=(R_QLM(I1,MUA)*I_EX+I_QLM(I1,MUA)*R_EX)* & ZETA(NZ) IF ( MU .LT. 0 ) THEN R_RC1=-R_RC1 I_RC1=-I_RC1 END IF DO L=1,LMAX R_RC=R_RC1*R_AMPP(IS,L)-I_RC1*I_AMPP(IS,L) I_RC=R_RC1*I_AMPP(IS,L)+I_RC1*R_AMPP(IS,L) R_AMPDOT(IR,L)=R_AMPDOT(IR,L)+I_RC I_AMPDOT(IR,L)=I_AMPDOT(IR,L)-R_RC END DO END DO END DO END DO END DO END IF END DO DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_AMP(IR,L)=R_AMP(IR,L)+DW/12.d0* 1 (9.d0*R_AMPDOT(IR,L)+19.d0*R_F(IR,4,L)-5.d0 1 *R_F(IR,3,L)+R_F(IR,2,L)) I_AMP(IR,L)=I_AMP(IR,L)+DW/12.d0* 1 (9.d0*I_AMPDOT(IR,L)+19.d0*I_F(IR,4,L)-5.d0 1 *I_F(IR,3,L)+I_F(IR,2,L)) END DO END DO END DO IF ( SPIN(1) .EQ. 0. .AND. MAGN .NE. 1 ) THEN C C USE SYMMETRY RELATION C DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) IR1=IR-2*CAT(IR) R_AMP(IR1,1)=IFAC(N)*R_AMP(IR,1) I_AMP(IR1,1)=IFAC(N)*I_AMP(IR,1) END DO END DO END DO END IF CALL A (R_AMPDOT,I_AMPDOT,R_AMP,I_AMP,MRANGE,CAT,ZETA, 1 LMAX,ISMAX,MRMAX,NZMAX) DO L=1,LMAX DO N=1,NMAX DO IR=SSTART(N),S_HALT(N) R_F(IR,1,L)=R_F(IR,2,L) I_F(IR,1,L)=I_F(IR,2,L) R_F(IR,2,L)=R_F(IR,3,L) I_F(IR,2,L)=I_F(IR,3,L) R_F(IR,3,L)=R_F(IR,4,L) I_F(IR,3,L)=I_F(IR,4,L) R_F(IR,4,L)=R_AMPDOT(IR,L) I_F(IR,4,L)=I_AMPDOT(IR,L) END DO END DO END DO IF ( W+DW .LE. UP ) THEN C C FIND LARGEST AMPP - AMP C FF=0.d0 DO L=1,LMAX DO IR=1,ISMAX FZR=R_AMPP(IR,L)-R_AMP(IR,L) FZI=I_AMPP(IR,L)-I_AMP(IR,L) FZ=SQRT(FZR*FZR+FZI*FZI)/14.d0 IF ( FZ .GT. FF ) FF=FZ END DO END DO IF ( FF .LE. ACC050 ) THEN DWFLAG=1 DW=2.d0*DW D2W=2.d0*DW IF ( OUCNTL .NE. 0 ) THEN WRITE ( 6,35 ) W,D2W 35 FORMAT(' AT W = ',F7.3, & ' STEPWIDTH WAS DOUBLED TO BE ',F8.5 ) END IF END IF IF ( FF .GT. ACCUR ) THEN DWFLAG=1 DW=DW/2.d0 D2W=2.d0*DW IF ( OUCNTL .NE. 0 ) THEN WRITE ( 6,36 ) W,D2W 36 FORMAT ( ' AT W = ',F7.3, & ' STEPWIDTH WAS HALVED TO BE ',F8.5 ) END IF END IF END IF C C THE EXCITATION PROBABILITIES DURING INTEGRATION C DO IR=1,ISMAX PROB(IR)=0.d0 END DO DO IR=1,ISMAX DO L=1,LMAX PROB(IR)=PROB(IR)+2.d0*(R_AMP(IR,L)**2 & +I_AMP(IR,L)**2.d0)/N_FAC END DO IF ( I_SPIN .EQ. 0 ) THEN PROB(IR)=PROB(IR)-(R_AMP(IR,LMAX)**2. & +I_AMP(IR,LMAX)**2.d0)/N_FAC END IF END DO DO N=1,NMAX P(N)=0.d0 END DO DO N=1,NMAX DO IR=SSTART(N),SSTOP(N) P(N)=P(N)+PROB(IR) END DO END DO C C TOTAL EXCITATION PROBABILITIES C PTOT=0.d0 DO N=1,NMAX PTOT=PTOT+P(N) END DO C C CHECK SUM OF TOTAL EXCITATION PROBABILITIES C IF ( ABS(PTOT-1.d0) .GT. ABS(ABW) ) ABW=PTOT-1.d0 IF ( OUPROW .NE. 0 ) THEN C C PRINTOUT OF EXCITATION PROBABILITIES C FOR CURRENT VALUE OF W C WRITE ( 6,37 ) W 37 FORMAT ( /' EXCITATION PROBABILITIES AT W = ',F8.4/ ) DO N=1,NMAX,8 M=N+7 WRITE ( 6,38 ) N,M,(P(NN),NN=N,N+7) 38 FORMAT ( ' P(N),N=',I2,',',I2,8(2X,F8.6) ) END DO WRITE ( 6,39 ) PTOT 39 FORMAT ( ' PTOT = ',F8.6 ) END IF END DO END DO C C INTEGRATION COMPLETE C IF ( OUCNTL .NE. 0 ) THEN PTOT=PTOT-1.d0 WRITE ( 6,40 ) ABW,PTOT 40 FORMAT('INTEGRATION COMPLETE'//' LARGEST DEVIATION FROM 1 =', 1 G11.4,' FINAL DEVIATION FROM 1 = ',G11.4 ) END IF C C PRINT-OUT OF THE FINAL AMPLITUDES C IF ( OUAMP .NE. 0 ) THEN IF ( SPIN(1) .NE. 0. ) THEN DO L=1,LMAX IR1=SSTART(1) IRL=IR1+L-1 CALL NEWPAGE WRITE ( 6,41 ) CAT(IRL) 41 FORMAT ( ' GROUNDSTATE M = ',F4.1,' AMPLITUDES', 1 ' SPIN M REAL AMPLITUDE', & ' IMAG AMPLITUDE POPULATION'/) DO N=1,NMAX DO IZR=SSTART(N),SSTOP(N) POP=R_AMP(IZR,L)**2.+I_AMP(IZR,L)**2. WRITE ( 6,42 ) SPIN(N),CAT(IZR),R_AMP(IZR,L), & I_AMP(IZR,L),POP 42 FORMAT ( F5.1,3X,F5.1,3X,G11.4,5X,G11.4,5X,G11.4 ) END DO END DO END DO ELSE IR1=SSTART(1) IRL=IR1 CALL NEWPAGE WRITE ( 6,43 ) 43 FORMAT ( ' FINAL AMPLITUDES'// 1 ' SPIN M REAL AMPLITUDE IMAG AMPLITUDE POPULATION'/ ) DO N=1,NMAX DO IZR=SSTART(N),SSTOP(N) POP=R_AMP(IZR,1)**2.+I_AMP(IZR,1)**2. WRITE ( 6,42 ) SPIN(N),CAT(IZR),R_AMP(IZR,1), & I_AMP(IZR,1),POP END DO END DO END IF END IF C C COMPUTATION OF THE DIFFERENTIAL CROSS-SECTIONS C IF ( OUPN .NE. 0 ) THEN CALL NEWPAGE WRITE ( 6,44 ) TH 44 FORMAT ( ' SCATTERING ANGLE IN CM SYSTEM = ',F6.2,' DEGREES'// 1 ' LEVEL EXCITATION CM CROSS-SECTION '/ 2 ' INDEX PROBABILITY [b/sterad]'/ ) DO N=1,NMAX DSIG=P(N)*.000625d0*SQRT(EP/(EP- 1 (1.d0+AP/AT)*EN(N)))*DISTA**2.*EPS**4. WRITE ( 6,45 ) N,P(N),DSIG 45 FORMAT ( 2X,I2,6X,G11.4,7X,G11.4 ) END DO END IF C C ------- THE ANGULAR DISTRIBUTION TENSORS ------- C DO N=2,NMAX CE2=SQRT(2.d0*SPIN(N)+1.d0) KAMAX=MIN(INT(2.02d0*SPIN(N)),4) DO KA=0,KAMAX,2 DO KAPPA=KA,0,-1 R_TE=0.d0 I_TE=0.d0 DO IR=SSTART(N),SSTOP(N) IRP=IR-KAPPA IF ( IRP .GE. SSTART(N) ) THEN IEX=INT(SPIN(N)+CAT(IR)+.01d0) FAC= & THREEJ(SPIN(N),-CAT(IR),SPIN(N),CAT(IRP),dble(KA), 1 dble(KAPPA)) IF ( MOD(IEX,2) .NE. 0 ) FAC=-FAC C C SUMMATION OVER GROUND STATE POLARIZATIONS C JR=INT(2.02d0*CAT(IR)) JRP=INT(2.02d0*CAT(IRP)) IRPOS=IR-JR IRPPOS=IRP-JRP DO L=1,LMAX IF ( LLMAX .GT. 2*L ) THEN R_TE=R_TE+FAC*(R_AMP(IR,L)*R_AMP(IRP,L)+ 1 I_AMP(IR,L)*I_AMP(IRP,L)) I_TE=I_TE+FAC*(R_AMP(IR,L)*I_AMP(IRP,L)- 1 I_AMP(IR,L)*R_AMP(IRP,L)) END IF R_TE=R_TE+FAC*(R_AMP(IRPOS,L)*R_AMP(IRPPOS,L)+ 1 I_AMP(IRPOS,L)*I_AMP(IRPPOS,L)) I_TE=I_TE+FAC*(R_AMP(IRPOS,L)*I_AMP(IRPPOS,L)- 1 I_AMP(IRPOS,L)*R_AMP(IRPPOS,L)) END DO END IF END DO R_RHOB(N,INT(KA/2+1),KAPPA+1)=CE2*CE3*R_TE I_RHOB(N,INT(KA/2+1),KAPPA+1)=CE2*CE3*I_TE END DO END DO END DO C C PRINT-OUT OF THE ANGULAR DISTRIBUTION TENSORS RHOB C IF ( OUTENS .NE. 0 ) THEN CALL NEWPAGE WRITE ( 6,46 ) 46 FORMAT (' THE ANGULAR DISTRIBUTION TENSORS RHOB(N,KA,KAPPA)'// 1 ' N KA KAPPA REAL RHOB IMAG RHOB' ) DO N=2,NMAX WRITE ( 6,47 ) 47 FORMAT ( 2X ) KAMAX=2.02d0*SPIN(N) IF ( KAMAX .GT. 4 ) KAMAX=4 DO KA=0,KAMAX,2 DO KAPPA=KA,0,-1 WRITE ( 6,48 ) N,KA,KAPPA,R_RHOB(N,INT(KA/2+1),KAPPA+1), 1 I_RHOB(N,INT(KA/2+1),KAPPA+1) 48 FORMAT ( I2,4X,I1,5X,I1,5X,G11.4,2X,G11.4 ) END DO END DO END DO END IF C C ANGULAR DISTRIBUTION TENSORS RHOC(N,KA,KAPPA) C DFARG=(PI+THETA)/2.d0 C C COMPUTE RHOC(N,KA,KAPPA) C DO N=2,NMAX KAMAX=2.02d0*SPIN(N) IF ( KAMAX .GT. 4 ) KAMAX=4 DO KA=0,KAMAX,2 DJ=KA DO KAPPA=KA,0,-1 DMP=KAPPA R_CSUM=0.d0 I_CSUM=0.d0 C C SUMMATION OVER POSITIVE INDICES C DO KPR=0,KA R_CPHZ=0.d0 I_CPHZ=0.d0 IF ( MOD(KPR,4) .EQ. 0 ) THEN R_CPHZ=1 ELSE IF ( MOD(KPR,4) .EQ. 1 ) THEN I_CPHZ=1. ELSE IF ( MOD(KPR,4 ) .EQ. 2 ) THEN R_CPHZ=-1 ELSE IF ( MOD(KPR,4 ) .EQ. 3 ) THEN I_CPHZ=-1 END IF DM=dble(KPR) DJMMVAL=DJMM(DFARG,DJ,DM,DMP) R_CSUM=R_CSUM+(R_CPHZ*R_RHOB(N,dble(KA/2+1),KPR+1)+ 1 I_CPHZ*I_RHOB(N,dble(KA/2+1),KPR+1))*DJMMVAL I_CSUM=I_CSUM+(R_CPHZ*I_RHOB(N,dble(KA/2+1),KPR+1)- 1 I_CPHZ*R_RHOB(N,dble(KA/2+1),KPR+1))*DJMMVAL END DO IF ( KA .NE. 0 ) THEN C C SUMMATION OVER NEGATIVE INDICES C DO KPR=1,KA IF ( MOD(KPR,2) .EQ. 0 ) THEN PHZ=1.d0 ELSE PHZ=-1.d0 END IF R_CPHZ=0 I_CPHZ=0 IF ( MOD (KPR,4) .EQ. 0 ) THEN R_CPHZ=1 ELSE IF ( MOD(KPR,4) .EQ. 1 ) THEN I_CPHZ=1 ELSE IF ( MOD(KPR,4) .EQ. 2 ) THEN R_CPHZ=-1 ELSE IF ( MOD(KPR,4) .EQ. 3 ) THEN I_CPHZ=-1 END IF DM=-dble(KPR) DJMMVAL=DJMM(DFARG,DJ,DM,DMP) R_CSUM=R_CSUM+PHZ*(R_CPHZ*R_RHOB(N,INT(KA/2+1),KPR+1)+ 1 I_CPHZ*I_RHOB(N,INT(KA/2+1),KPR+1))*DJMMVAL I_CSUM=I_CSUM+PHZ*(I_CPHZ*R_RHOB(N,INT(KA/2+1),KPR+1)- 1 R_CPHZ*I_RHOB(N,INT(KA/2+1),KPR+1))*DJMMVAL END DO END IF IF ( MOD(KAPPA,2) .EQ. 0 ) THEN PHZ=1.d0 ELSE PHZ=-1.d0 END IF R_RHOC(N,INT(KA/2+1),KAPPA+1)=PHZ*R_CSUM I_RHOC(N,INT(KA/2+1),KAPPA+1)=PHZ*I_CSUM END DO END DO END DO C C PRINT-OUT OF THE ANGULAR DISTRIBUTION TENSORS RHOC C IF ( OUTENS .NE. 0 ) THEN CALL NEWPAGE WRITE ( 6,49 ) 49 FORMAT (' THE ANGULAR DISTRIBUTION TENSORS RHOC(N,KA,KAPPA)'// 1 ' N KA KAPPA REAL RHOC IMAG RHOC ' ) DO N=2,NMAX WRITE ( 6,47 ) KAMMAX=2.02d0*SPIN(N) IF ( KAMAX .GT. 4 ) KAMAX=4 DO KA=0,KAMAX,2 DO KAPPA=KA,0,-1 WRITE ( 6,48 ) N,KA,KAPPA,R_RHOC(N,INT(KA/2+1),KAPPA+1), 1 I_RHOC(N,INT(KA/2+1),KAPPA+1) END DO END DO END DO END IF C C OUTPUT FOR DECAY CALCULATIONS C IF ( OUDCY .NE. 0 ) THEN DO N=2,NMAX DO J1=1,3 WRITE ( 2,* ) (R_RHOC(N,J1,J2),J2=1,2*J1-1) END DO END DO END IF END DO CLOSE ( UNIT=2 ) STOP END 8<%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -- System Information Debian Release: 3.0 Kernel Version: Linux xpc19 2.4.5 #43 Tue May 29 09:55:15 CEST 2001 i686 unknown Versions of the packages g77 depends on: ii cpp 2.95.4-9 The GNU C preprocessor. ii g77-2.95 2.95.4-1 The GNU Fortran 77 compiler. ii gcc-2.95 2.95.4-1 The GNU C compiler. --------------------------------------- Received: (at 130415-close) by bugs.debian.org; 17 May 2003 21:38:51 +0000 >From [EMAIL PROTECTED] Sat May 17 16:38:51 2003 Return-path: <[EMAIL PROTECTED]> Received: from auric.debian.org [206.246.226.45] (mail) by master.debian.org with esmtp (Exim 3.12 1 (Debian)) id 19H9OF-000402-00; Sat, 17 May 2003 16:38:51 -0500 Received: from katie by auric.debian.org with local (Exim 3.35 1 (Debian)) id 19H9II-0003QD-00; Sat, 17 May 2003 17:32:42 -0400 From: Matthias Klose <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] X-Katie: $Revision: 1.34 $ Subject: Bug#130415: fixed in gcc-3.3 1:3.3ds9-1 Message-Id: <[EMAIL PROTECTED]> Sender: Archive Administrator <[EMAIL PROTECTED]> Date: Sat, 17 May 2003 17:32:42 -0400 Delivered-To: [EMAIL PROTECTED] We believe that the bug you reported is fixed in the latest version of gcc-3.3, which is due to be installed in the Debian FTP archive: cpp-3.3-doc_3.3-1_all.deb to pool/main/g/gcc-3.3/cpp-3.3-doc_3.3-1_all.deb cpp-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/cpp-3.3_3.3-1_i386.deb fastjar_3.3-1_i386.deb to pool/main/g/gcc-3.3/fastjar_3.3-1_i386.deb fixincludes_3.3-1_i386.deb to pool/main/g/gcc-3.3/fixincludes_3.3-1_i386.deb g++-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/g++-3.3_3.3-1_i386.deb g77-3.3-doc_3.3-1_all.deb to pool/main/g/gcc-3.3/g77-3.3-doc_3.3-1_all.deb g77-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/g77-3.3_3.3-1_i386.deb gcc-3.3-base_3.3-1_i386.deb to pool/main/g/gcc-3.3/gcc-3.3-base_3.3-1_i386.deb gcc-3.3-doc_3.3-1_all.deb to pool/main/g/gcc-3.3/gcc-3.3-doc_3.3-1_all.deb gcc-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/gcc-3.3_3.3-1_i386.deb gcc-3.3_3.3ds9-1.diff.gz to pool/main/g/gcc-3.3/gcc-3.3_3.3ds9-1.diff.gz gcc-3.3_3.3ds9-1.dsc to pool/main/g/gcc-3.3/gcc-3.3_3.3ds9-1.dsc gcc-3.3_3.3ds9.orig.tar.gz to pool/main/g/gcc-3.3/gcc-3.3_3.3ds9.orig.tar.gz gcj-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/gcj-3.3_3.3-1_i386.deb gij-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/gij-3.3_3.3-1_i386.deb gnat-3.3-doc_3.3-1_all.deb to pool/main/g/gcc-3.3/gnat-3.3-doc_3.3-1_all.deb gnat-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/gnat-3.3_3.3-1_i386.deb gobjc-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/gobjc-3.3_3.3-1_i386.deb gpc-2.1-3.3-doc_3.3.20030507-1_all.deb to pool/main/g/gcc-3.3/gpc-2.1-3.3-doc_3.3.20030507-1_all.deb gpc-2.1-3.3_3.3.20030507-1_i386.deb to pool/main/g/gcc-3.3/gpc-2.1-3.3_3.3.20030507-1_i386.deb libffi2-dev_3.3-1_i386.deb to pool/main/g/gcc-3.3/libffi2-dev_3.3-1_i386.deb libffi2_3.3-1_i386.deb to pool/main/g/gcc-3.3/libffi2_3.3-1_i386.deb libg2c0_3.3-1_i386.deb to pool/main/g/gcc-3.3/libg2c0_3.3-1_i386.deb libgcc1_3.3-1_i386.deb to pool/main/g/gcc-3.3/libgcc1_3.3-1_i386.deb libgcj-common_3.3-1_i386.deb to pool/main/g/gcc-3.3/libgcj-common_3.3-1_i386.deb libgcj4-dev_3.3-1_i386.deb to pool/main/g/gcc-3.3/libgcj4-dev_3.3-1_i386.deb libgcj4_3.3-1_i386.deb to pool/main/g/gcc-3.3/libgcj4_3.3-1_i386.deb libobjc1_3.3-1_i386.deb to pool/main/g/gcc-3.3/libobjc1_3.3-1_i386.deb libstdc++5-3.3-dbg_3.3-1_i386.deb to pool/main/g/gcc-3.3/libstdc++5-3.3-dbg_3.3-1_i386.deb libstdc++5-3.3-dev_3.3-1_i386.deb to pool/main/g/gcc-3.3/libstdc++5-3.3-dev_3.3-1_i386.deb libstdc++5-3.3-doc_3.3-1_all.deb to pool/main/g/gcc-3.3/libstdc++5-3.3-doc_3.3-1_all.deb libstdc++5-3.3-pic_3.3-1_i386.deb to pool/main/g/gcc-3.3/libstdc++5-3.3-pic_3.3-1_i386.deb libstdc++5_3.3-1_i386.deb to pool/main/g/gcc-3.3/libstdc++5_3.3-1_i386.deb protoize_3.3-1_i386.deb to pool/main/g/gcc-3.3/protoize_3.3-1_i386.deb treelang-3.3_3.3-1_i386.deb to pool/main/g/gcc-3.3/treelang-3.3_3.3-1_i386.deb A summary of the changes between this version and the previous one is attached. Thank you for reporting the bug, which will now be closed. If you have further comments please address them to [EMAIL PROTECTED], and the maintainer will reopen the bug report if appropriate. Debian distribution maintenance software pp. Matthias Klose <[EMAIL PROTECTED]> (supplier of updated gcc-3.3 package) (This message was generated automatically at their request; if you believe that there is a problem with it please contact the archive administrators by mailing [EMAIL PROTECTED]) -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Format: 1.7 Date: Fri, 16 May 2003 07:13:57 +0200 Source: gcc-3.3 Binary: libgnat3.15 gcc-3.3-nof gcc-3.3 libobjc1 libgcc1 lib64g2c0 libstdc++5-3.3-doc libgcj4 gpc-2.1-3.3-doc libstdc++5 cpp-3.3-doc protoize cpp-3.3 libstdc++5-3.3-dbg g77-3.3-doc gpc-2.1-3.3 g77-3.3 libgcj4-dev gcc-3.3-doc lib64objc1 lib64ffi2 libstdc++5-3.3-dev libffi2-dev gcj-3.3 libgcj-common gobjc-3.3 lib64stdc++5 gcc-3.3-soft-float lib64gcj4 treelang-3.3 libg2c0-dev lib64gcc1 fastjar lib64gnat3.15 fixincludes libg2c0 gij-3.3 libstdc++5-3.3-pic gcc-3.3-base g++-3.3 gnat-3.3 libffi2 gnat-3.3-doc Architecture: source i386 all Version: 1:3.3ds9-1 Distribution: unstable Urgency: low Maintainer: Debian GCC maintainers <debian-gcc@lists.debian.org> Changed-By: Matthias Klose <[EMAIL PROTECTED]> Description: cpp-3.3 - The GNU C preprocessor cpp-3.3-doc - Documentation for the GNU C preprocessor (cpp) fastjar - Jar creation utility fixincludes - Fix non-ANSI header files g++-3.3 - The GNU C++ compiler g77-3.3 - The GNU Fortran 77 compiler g77-3.3-doc - Documentation for the GNU Fortran compiler (g77) gcc-3.3 - The GNU C compiler gcc-3.3-base - The GNU Compiler Collection (base package) gcc-3.3-doc - Documentation for the GNU compilers (gcc, gobjc, g++) gcj-3.3 - The GNU compiler for Java(TM) gij-3.3 - The GNU Java bytecode interpreter gnat-3.3 - The GNU Ada compiler gnat-3.3-doc - Documentation for the GNU Ada compiler (gnat) gobjc-3.3 - The GNU Objective-C compiler gpc-2.1-3.3 - The GNU Pascal compiler gpc-2.1-3.3-doc - Documentation for the GNU Pascal compiler (gpc) libffi2 - Foreign Function Interface library runtime libffi2-dev - Foreign Function Interface library development libg2c0 - Runtime library for GNU Fortran 77 applications libgcc1 - GCC support library libgcj-common - Java runtime library (common files) libgcj4 - Java runtime library for use with gcj libgcj4-dev - Java development headers and static library for use with gcj libobjc1 - Runtime library for GNU Objective-C applications libstdc++5 - The GNU Standard C++ Library v3 libstdc++5-3.3-dbg - The GNU Standard C++ Library v3 (debugging files) libstdc++5-3.3-dev - The GNU Standard C++ Library v3 (development files) libstdc++5-3.3-doc - The GNU Standard C++ Library v3 (documentation files) libstdc++5-3.3-pic - The GNU Standard C++ Library v3 (shared library subset kit) protoize - Create/remove ANSI prototypes from C code treelang-3.3 - The GNU Treelang compiler Closes: 2910 12253 20695 21255 27878 33786 34876 35477 42662 42989 43001 43119 43170 45440 46181 47981 48530 50529 51456 51651 53698 55291 55967 56867 58219 59005 59232 61806 62309 64628 64832 65406 65686 65687 67631 68963 68987 70743 72933 79225 80468 81122 83221 83363 83550 84969 85535 85934 87540 88260 88694 90363 90666 93708 94701 94891 95318 97603 105309 105569 114029 118670 118781 120333 127489 128367 130415 131454 131890 134558 136630 136659 137382 140427 141797 142844 144602 146006 148603 150558 151196 151357 151671 151675 152315 152709 154599 154767 156450 157292 158704 161615 162074 165110 165829 165992 166766 167439 168310 168346 170994 172956 176387 178596 178830 178909 178965 179363 179597 180493 180567 180750 180937 181679 184108 184753 184800 184862 185903 186139 186299 186447 187910 188527 189702 190066 191407 Changes: gcc-3.3 (1:3.3ds9-1) unstable; urgency=low . * gcc-3.3 final release. See /usr/share/doc/gcc-3.3/NEWS.{gcc,html}. * First merge of i386/x86-64 biarch support (Arnd Bergmann). Disabled by default. Closes: #190066. * New gpc-20030507 version. * Upstream gpc update to fix netbsd build failure (closes: #191407). * Add arm-xscale.dpatch, arm-10730.dpatch, arm-tune.dpatch, copied from gcc-3.2 (Phil Blundell). * Closing bug reports reported against older gcc versions (some of them still present in Debian, but not anymore as the default compiler). Usually, forwarded bug reports are linked to http://gcc.gnu.org/PR<upstream bug number> The upstream bug number usually can be found in the Debian reports. . * Closed reports reported against gcc-3.1.x, gcc-3.2.x and fixed in gcc-3.3: - General: + GCC accepts multi-line strings without \ or " " &c (closes: #2910). + -print-file-name sometimes fails (closes: #161615). + ICE: reporting routines re-entered (closes: #179597, #180937). + Misplaced paragraph in gcc documentation (closes: #179363). + Error: suffix or operands invalid for `div' (closes: #150558). + builtin memcmp() could be optimised (closes: #85535). - Ada: + Preelaborate, exceptions, and -gnatN (closes: #181679). - C: + Duplicate loop conditions even with -Os (closes: #94701). + ICE (signal 11) (closes: #65686). - C++: + C++ error on virtual function which uses ... (closes: #165829). + ICE when warning about cleanup nastiness in switch statements (closes: #184108). + Fails to compile virtual inheritance with variable number of argument method (closes: #151357). + xmmintrin.h broken for c++ (closes: #168310). + Stack corruption with variable-length automatic arrays and virtual destructors (closes: #188527). + ICE on illegal code (closes: #184862). + _attribute__((unused)) is ignored in C++ (closes: #45440). + g++ handles &(void *)foo bizzarely (closes: #79225). + ICE (with wrong code, though) (closes: #81122). - Java: + Broken zip file handling (closes: #180567). - ObjC: + @protocol forward definitions do not work (closes: #80468). - Architecture specific: - alpha + va_start is off by one (closes: #186139). + ICE while building kseg/ddd (closes: #184753). + g++ -O2 optimization error (closes: #70743). - arm + ICE with -O2 in change_address_1 (closes: #180750). + gcc optimization error with -O2, affecting bison (closes: #185903). - hppa + ICE in insn_default_length (closes: #186447). - ia64 + gcc-3.2 fails w/ optimization (closes: #178830). - i386 + unnecessary generation of instruction cwtl (closes: #95318). + {athlon} ICE building mplayer (closes: #184800). + {pentium4} ICE while compiling mozilla with -march=pentium4 (closes: #187910). + i386 optimisation: joining tests (closes: #105309). - m68k + ICE in instantiate_virtual_regs_1 (closes: #180493). + gcc optimizer bug on m68k (closes: #64832). - powerpc + ICE in extract_insn, at recog.c:2175 building php3 (closes: #186299). + ICE with -O -Wunreachable-code (closes: #189702). - s390 + Operand out of range at assembly time when using -O2 (closes: #178596). - sparc + gcc-3.2 regression (wrong code) (closes: #176387). + ICE in mem_loc_descriptor when optimizing (closes: #178909). + ICE in gen_reg_rtx when optimizing (closes: #178965). + Optimisation leads to unaligned access in memcpy (closes: #136659). . * Closed reports reported against gcc-3.0 and fixed in gcc-3.2.x: - General: + Use mkstemp instead of mktemp (closed: #127802). - Preprocessor: + Fix redundant error message from cpp (closed: #100722). - C: + Optimization issue on ix86 (pointless moving) (closed: #97904). + Miscompilation of allegro on ix86 (closed: #105741). + Fix generation of ..ng references for static aliases (alpha-linux). (closed: #108036). + ICE compiling pari on hppa (closed: #111613). + ICE on ia64 in instantiate_virtual_regs_1 (closed: #121668). + ICE in c-typeck.c (closed: #123687). + ICE in gen_subprogram_die on alpha (closed: #127890). + SEGV in initialization of flexible char array member (closed: #131399). + ICE on arm compiling lapack (closed: #135967). + ICE in incomplete_type_error (closed: #140606). + Fix -Wswitch (also part of -Wall) (closed: #140995). + Wrong code in mke2fs on hppa (closed: #150232). + sin(a) * sin(b) gives wrong result (closed: #164135). - C++: + Error in std library headers on arm (closed: #107633). + ICE nr. 19970302 (closed: #119635). + std::wcout does not perform encoding conversions (closed: #128026). + SEGV, when compiling iostream.h with -fPIC (closed: #134315). + Fixed segmentation fault in included code for <rope> (closed: #137017). + Fix with exception handling and -O (closed: #144232). + Fix octave-2.1 build failure on ia64 (closed: #144584). + nonstandard overloads in num_get facet (closed: #155900). + ICE in expand_end_loop with -O (closed: #158371). - Fortran: + Fix blas build failure on arm (closed: #137959). - Java: + Interface members are public by default (closed: #94974). + Strange message with -fno-bounds-check in combination with -W. (closed: #102353). + Crash in FileWriter using IOException (closed: #116128). + Fix ObjectInputStream.readObject() calling constructors. (closed: #121636). + gij: better error reporting on `class not found' (closed: #125649). + Lockup during .java->.class compilation (closed: #141899). + Compile breaks using temporary inner class instance (closed: #141900). + Default constructor for inner class causes broken bytecode. (closed: #141902). + gij-3.2 linked against libgcc1 (closed: #165180). + gij-wrapper understands -classpath parameter (closed: #146634). + gij-3.2 doesn't ignore -jar when run as "java" (closed: #167673). - ObjC: + ICE on alpha (closed: #172353). . * Closed reports reported against gcc-2.95 and fixed in newer versions: - General: + Undocumented option -pthread (closes: #165110). + stdbool.h broken (closes: #167439). + regparm/profiling breakage (closes: #20695). + another gcc optimization error (closes: #51456). + ICE in `output_fix_trunc' (closes: #55967). + Fix "Unable to generate reloads for" (closes: #58219, #131890). + gcc -c -MD x/y.c -o x/y.o leaves y.d in cwd (closes: #59232). + Compiler error with -O2 (closes: #67631). + ICE (unrecognizable insn) compiling php4 (closes: #83550, #84969). + Another ICE (closes: #90666). + man versus info inconsistency (-W and -Wall) (closes: #93708). + ICE on invalid extended asm (closes: #136630). + ICE in `emit_no_conflict_block' compiling perl (closes: #154599). + ICE in `gen_tagged_type_instantiation_die'(closes: #166766). + ICE on __builtin_memset(s, 0, -1) (closes: #170994). + -Q option to gcc appears twice in the documentation (closes: #137382). + New options for specifying targets:- -MQ and -MT (closes: #27878). + Configure using --enable-nls (closes: #51651). + gcc -dumpspecs undocumented (closes: #65406). - Preprocessor: + cpp fails to parse macros with varargs correctly(closes: #154767). + __VA_ARGS__ stringification crashes preprocessor if __VA_ARGS__ is empty (closes: #152709). + gcc doesn't handle empty args in macro function if there is only one arg(closes: #156450). - C: + Uncaught floating point exception causes ICE (closes: #33786). + gcc -fpack-struct doesn't pack structs (closes: #64628). + ICE in kernel (matroxfb) code (closes: #151196). + gcc doesn't warn about unreachable code (closes: #158704). + Fix docs for __builtin_return_address(closes: #165992). + C99 symbols in limits.h not defined (closes: #168346). + %zd printf spec generates warning, even in c9x mode (closes: #94891). + Update GCC attribute syntax (closes: #12253, #43119). - C++ & libstdc++-v3: + template and virtual inheritance bug (closes: #152315). + g++ has some troubles with nested templates (closes: #21255). + vtable thunks implementation is broken (closes: #34876, #35477). + ICE for templated friend (closes: #42662). + ICE compiling mnemonic (closes: #42989). + Deprecated: result naming doesn't work for functions defined in a class (closes: #43170). + volatile undefined ... (closes: #50529). + ICE concerning templates (closes: #53698). + Program compiled -O3 -malign-double segfaults in ofstream::~ofstream (closes: #56867). + __attribute__ ((constructor)) doesn't work with C++ (closes: #61806). + Another ICE (closes: #65687). + ICE in `const_hash' (closes: #72933). + ICE on illegal code (closes: #83221). + Wrong code with -O2 (closes: #83363). + ICE on template class (closes: #85934). + No warning for missing return in non-void member func (closes: #88260). + Not a bug/fixed in libgcc1: libgcc.a symbols end up exported by shared libraries (closes: #118670). + ICE using nested templates (closes: #118781). + Another ICE with templates (closes: #127489). + More ICEs (closes: #140427, #141797). + ICE when template declared after use(closes: #148603). + template function default arguments are not handled (closes: #157292). + Warning when including stl.h (closes: #162074). + g++ -pedantic-errors -D_GNU_SOURCE cannot #include <complex> (closes: #151671). + c++ error message improvement suggestion (closes: #46181). + Compilation error in stl_alloc.h with -fhonor-std (closes: #59005). + libstdc++ has no method at() in stl_= (closes: #68963). - Fortran: + g77 crash (closes: #130415). - ObjC: + ICE: program cc1obj got fatal signal 11 (closes: #62309). + Interface to garbage collector is undocumented. (closes: #68987). - Architecture specific: - alpha + Can't compile with define gnu_source with stdio and curses (closes: #97603). + Header conflicts on alpha (closes: #134558). + lapack-dev: cannot link on alpha (closes: #144602). + ICE `fixup_var_refs_1' (closes: #43001). + Mutt segv on viewing list of attachments (closes: #47981). + ICE building open-amulet (closes: #48530). + ICE compiling hatman (closes: #55291). + dead code removal in switch() broken (closes: #142844). - arm + Miscompilation using -fPIC on arm (closes: #90363). + infinite loop with -O on arm (closes: #151675). - i386 + ICE when using -mno-ieee-fp and -march=i686 (closes: #87540). - m68k + Optimization (-O2) broken on m68k (closes: #146006). - mips + g++ exception catching does not work... (closes: #105569). + update-menus gets Bus Error (closes: #120333). - mipsel + aspell: triggers ICE on mipsel (closes: #128367). - powerpc + -O2 produces wrong code (gnuchess example) (closes: #131454). - sparc + Misleading documentation for -malign-{jump,loop,function}s (closes: #114029). + Sparc GCC issue with -mcpu=ultrasparc (closes: #172956). + flightgear: build failure on sparc (closes: #88694). Files: 3d2b083f9a2b539d296ef5a911343705 2307 devel standard gcc-3.3_3.3ds9-1.dsc fa100f062223973e958be2ab18e5f688 24926760 devel standard gcc-3.3_3.3ds9.orig.tar.gz 37bbc04e3dad6b933a30504ec4fe6b08 2204853 devel standard gcc-3.3_3.3ds9-1.diff.gz 79ea1bdd209725be2bb3ee2e5537da48 82876 doc optional cpp-3.3-doc_3.3-1_all.deb 000578b291dde293992bcd0156f7a7d0 3093140 doc optional libstdc++5-3.3-doc_3.3-1_all.deb e59a1eb9c96c802db82d4e6b59af2541 274170 doc optional g77-3.3-doc_3.3-1_all.deb a857f599f57e548603c5ab9825b144ff 348964 doc optional gnat-3.3-doc_3.3-1_all.deb cb59ea86b3d2c4380e958c3eee6d962b 76210 doc optional gpc-2.1-3.3-doc_3.3.20030507-1_all.deb 292853d621b1c8b8ffa13c74e539e6ec 602750 doc optional gcc-3.3-doc_3.3-1_all.deb 216eac130d297e3e30b112d24a4bc8fd 138902 devel important gcc-3.3-base_3.3-1_i386.deb f3bb1d18e89f7af1f605da89cbaa2b2f 67788 libs important libgcc1_3.3-1_i386.deb b90a7bcee01d015cc7414be5c2f6d25c 1305878 interpreters standard cpp-3.3_3.3-1_i386.deb a3aab24cd88de2e34db3ad8a633ce125 22584 devel optional protoize_3.3-1_i386.deb b7654a977ea0da9b8fa54ddab189de5d 47206 devel optional fixincludes_3.3-1_i386.deb c63d3d44280d95bbe60ced8aad62c6a5 1379180 devel optional gobjc-3.3_3.3-1_i386.deb d2e1b5e3d520a38be5333be3ccfd2899 124356 libs optional libobjc1_3.3-1_i386.deb 9b7315a4e5f071018ec374b548b76228 12914 devel optional gij-3.3_3.3-1_i386.deb c9c6efe00a0679878685b1e84211e126 4010832 libs optional libgcj4_3.3-1_i386.deb fb35ad9b8ecb76c3982cb2384e359da3 54070 libs optional libgcj-common_3.3-1_i386.deb 558b45f1c621ea045eab117e32a87c69 1604634 devel optional gcj-3.3_3.3-1_i386.deb 06967a15447e2ef1dd04d5a04dea6699 4819306 libdevel optional libgcj4-dev_3.3-1_i386.deb 028dc977e84e9402617c718380f981dd 111618 devel extra fastjar_3.3-1_i386.deb 8757ca758feac2763aa62fddbe145429 64244 libs optional libffi2_3.3-1_i386.deb 70a7aab8f3f57cd9974f3023ceddee19 10724 libdevel optional libffi2-dev_3.3-1_i386.deb 979084825831a155c6f14da19e76ff79 1667548 devel standard g++-3.3_3.3-1_i386.deb a759a7b2f2204d6f7798d6c7cf08b712 268318 base important libstdc++5_3.3-1_i386.deb 48583aab7407576b4a9cf225cb22d60a 735648 libdevel optional libstdc++5-3.3-dev_3.3-1_i386.deb 98f58480d80c7222495e70600e2b49dd 309792 libdevel extra libstdc++5-3.3-pic_3.3-1_i386.deb 010ddd4bc2b901e2881ceadcae4d8731 5004206 libdevel extra libstdc++5-3.3-dbg_3.3-1_i386.deb d76d5d48818d2252e62f67fd8a0e338a 47258 libs optional libg2c0_3.3-1_i386.deb 4ec194476feb6c060caa878d44e4a9b7 1511860 devel optional g77-3.3_3.3-1_i386.deb 00192418de41835341ea92e8a105c1d8 6106558 devel optional gnat-3.3_3.3-1_i386.deb 70fbb333b1766707bbac9451d473793e 1238548 devel optional treelang-3.3_3.3-1_i386.deb 6f3a976e18c5d2bc5f31de344262b15f 1938336 devel optional gpc-2.1-3.3_3.3.20030507-1_i386.deb 342cf1a42b035e38dbe89003edafb18f 1295518 devel standard gcc-3.3_3.3-1_i386.deb -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.2 (GNU/Linux) iD8DBQE+xnq0StlRaw+TLJwRAiLKAJ0WkgHHwXa9PnIFCznl9vaw+lPmPgCbBOKh LGKxwAkaRKfU3nZ6MRTiMUo= =53cd -----END PGP SIGNATURE-----