... | ... | @@ -15,3 +15,15 @@ patch -R -p1 --merge < patch_old_intel |
|
|
|
|
|
#### [qe_6.4.1](uploads/cfec41770a678247e1318d6b9a24900e/patch_old_intel_to_6.4.1)
|
|
|
#### [qe_6.4](https://gitlab.com/QEF/q-e/uploads/e4ae3b85e52c981380e6940dc1e60ae5/patch_old_intel)
|
|
|
#### V.6.5 and later:
|
|
|
1. Modify the routine `qexsd_init_dftU` in file `Modules/qexsd_init.f90`, replacing:
|
|
|
```
|
|
|
IF (PRESENT(U)) CALL ..
|
|
|
```
|
|
|
with
|
|
|
IF (PRESENT(U)) THEN
|
|
|
IF (SIZE(U) > 0 ) CALL ...
|
|
|
END IF
|
|
|
```
|
|
|
for all `OPTIONAL` arrays.
|
|
|
2. apply the above patch to `Modules/qexsd_input.f90` only. |
|
|
\ No newline at end of file |