1! { dg-do compile } 2 3SUBROUTINE check_dnucint_ana (dcore) 4 IMPLICIT NONE 5 INTEGER, PARAMETER :: dp=8 6 REAL(dp), DIMENSION(10, 2), INTENT(IN),& 7 OPTIONAL :: dcore 8 INTEGER :: i, j 9 REAL(dp) :: delta, nssss, od, rn, ssssm, & 10 ssssp 11 REAL(dp), DIMENSION(10, 2) :: corem, corep, ncore 12 LOGICAL :: check_value 13 14 delta = 1.0E-8_dp 15 od = 0.5_dp/delta 16 ncore = od * (corep - corem) 17 nssss = od * (ssssp - ssssm) 18 IF (PRESENT(dcore)) THEN 19 DO i = 1, 2 20 DO j = 1, 10 21 IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN 22 END IF 23 END DO 24 END DO 25 END IF 26END SUBROUTINE check_dnucint_ana 27 28