blob: b26f4d788a49cf9e2d125026275fb0154e45f0ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do compile }
! { dg-options "-O3" }
SUBROUTINE calculates_green_opt()
INTEGER, PARAMETER :: dp=8
REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: green, green1
ALLOCATE(green(-nrec:nrec),stat=i_all)
DO ikern=1,nrec
green(-ikern)=gleft+gright
IF (ABS(green(ikern)) <= 1.e-20_dp) THEN
nrec=ikern
EXIT
END IF
END DO
ALLOCATE(green1(-nrec:nrec),stat=i_all)
CALL scf_recursion(nrec,green(-nrec),green1(-nrec))
END SUBROUTINE calculates_green_opt
|
