16 lines
374 B
Fortran
16 lines
374 B
Fortran
! PR tree-opt/32417
|
|
! this used to crash while running IV-opts
|
|
! aff_combination_add_elt was not ready to handle pointers correctly
|
|
|
|
SUBROUTINE ONEINTS()
|
|
COMMON /INFOA / NAT,NUM
|
|
DIMENSION TINT(NUM*NUM,NAT,3,3,3),TINTM(NUM,NUM,NAT,3,3,3)
|
|
|
|
CALL TINTS(IC)
|
|
DO ID=1,3
|
|
DO IC=1,NAT
|
|
TINTM(J,I,IC,IAN,INU,ID) = TINT((I-1)*NUM+J,IC,IAN,INU,ID)
|
|
ENDDO
|
|
ENDDO
|
|
END
|