| 124 |
if (glob%iopt == 30 .or. glob%iopt == 40) call dlf_fail("The & |
if (glob%iopt == 30 .or. glob%iopt == 40) call dlf_fail("The & |
| 125 |
&selected optimiser is not compatible with the penalty & |
&selected optimiser is not compatible with the penalty & |
| 126 |
&function method") |
&function method") |
| 127 |
|
if (glob%nzero /= 0) call dlf_fail("Soft mode skipping with & |
| 128 |
|
&nzero is not compatible with the penalty function method") |
| 129 |
case (2) |
case (2) |
| 130 |
! Gradient projection checks |
! Gradient projection checks |
| 131 |
if (glob%icoord > 9) call dlf_fail("A standard coordinate system & |
if (glob%icoord > 9) call dlf_fail("A standard coordinate system & |
| 135 |
&projection method") |
&projection method") |
| 136 |
if (glob%iline == 1) call dlf_fail("Energy-based trust radius & |
if (glob%iline == 1) call dlf_fail("Energy-based trust radius & |
| 137 |
¬ possible with the gradient projection method") |
¬ possible with the gradient projection method") |
| 138 |
|
if (glob%nzero /= 0) call dlf_fail("Soft mode skipping with & |
| 139 |
|
&nzero is not compatible with the gradient projection method") |
| 140 |
case (3) |
case (3) |
| 141 |
! Lagrange-Newton checks |
! Lagrange-Newton checks |
| 142 |
if (glob%iopt /= 40) call dlf_fail("The Lagrange-Newton optimiser & |
if (glob%iopt /= 40) call dlf_fail("The Lagrange-Newton optimiser & |
| 146 |
&Lagrange-Newton method") |
&Lagrange-Newton method") |
| 147 |
if (glob%inithessian == 0) call dlf_fail("The Hessian for the & |
if (glob%inithessian == 0) call dlf_fail("The Hessian for the & |
| 148 |
&Lagrange-Newton method cannot be calculated externally") |
&Lagrange-Newton method cannot be calculated externally") |
| 149 |
|
if (glob%nzero /= 0) call dlf_fail("Soft mode skipping with & |
| 150 |
|
&nzero is not supported with the Lagrange-Newton method") |
| 151 |
case default |
case default |
| 152 |
write(stderr, '(a,i4,a)') & |
write(stderr, '(a,i4,a)') & |
| 153 |
"Multistate calculation", glob%imultistate, "not implemented" |
"Multistate calculation", glob%imultistate, "not implemented" |
Parent Directory
| 
Revision Log
| 
Patch
