Bug#130415: marked as done ([fixed in 3.0] g77 crashes)
Your message dated Sat, 17 May 2003 17:32:42 -0400
with message-id <E19H9II-0003QD-00@auric.debian.org>
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 Heiko.Scheit@mpi-hd.mpg.de Tue Jan 22 10:45:22 2002
Return-path: <Heiko.Scheit@mpi-hd.mpg.de>
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 <submit@bugs.debian.org>; Tue, 22 Jan 2002 17:45:21 +0100
Date: Tue, 22 Jan 2002 17:45:20 +0100 (CET)
From: Heiko.Scheit@mpi-hd.mpg.de
X-X-Sender: scheit@xpc19.mpi-hd.mpg.de
To: submit@bugs.debian.org
Subject: g77: g77 crashes
Message-ID: <Pine.LNX.4.43.0201221744480.27832-100000@xpc19.mpi-hd.mpg.de>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Delivered-To: submit@bugs.debian.org
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 katie@auric.debian.org Sat May 17 16:38:51 2003
Return-path: <katie@auric.debian.org>
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 <doko@debian.org>
To: 130415-close@bugs.debian.org
X-Katie: $Revision: 1.34 $
Subject: Bug#130415: fixed in gcc-3.3 1:3.3ds9-1
Message-Id: <E19H9II-0003QD-00@auric.debian.org>
Sender: Archive Administrator <katie@auric.debian.org>
Date: Sat, 17 May 2003 17:32:42 -0400
Delivered-To: 130415-close@bugs.debian.org
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 130415@bugs.debian.org,
and the maintainer will reopen the bug report if appropriate.
Debian distribution maintenance software
pp.
Matthias Klose <doko@debian.org> (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 ftpmaster@debian.org)
-----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 <doko@debian.org>
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-----
Reply to: