| # | Line 14 | Line 14 | subroutine newEAMtype(lattice_constant,eam_nrho,eam_dr | |
|---|---|---|
| 14 | real (kind = dp ), dimension(eam_nrho) :: eam_F_rho | |
| 15 | integer :: eam_ident | |
| 16 | integer :: status | |
| 17 | < | |
| 18 | < | |
| 17 | > | |
| 18 | > | |
| 19 | call module_newEAMtype(lattice_constant,eam_nrho,eam_drho,eam_nr,& | |
| 20 | eam_dr,rcut,eam_Z_r,eam_rho_r,eam_F_rho,& | |
| 21 | eam_ident,status) | |
| 22 | < | |
| 22 | > | |
| 23 | end subroutine newEAMtype | |
| 24 | ||
| 25 | subroutine destroyEAMTypes() | |
| 26 | use eam, ONLY: module_destroyEAMTypes =>destroyEAMTypes | |
| 27 | < | |
| 27 | > | |
| 28 | call module_destroyEAMTypes() | |
| 29 | < | |
| 29 | > | |
| 30 | end subroutine destroyEAMTypes | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |