1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! 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
|