| 968 |
|
|
| 969 |
|
|
| 970 |
|
end module eam |
| 971 |
+ |
|
| 972 |
+ |
subroutine newEAMtype(lattice_constant,eam_nrho,eam_drho,eam_nr,& |
| 973 |
+ |
eam_dr,rcut,eam_Z_r,eam_rho_r,eam_F_rho,& |
| 974 |
+ |
eam_ident,status) |
| 975 |
+ |
use definitions, ONLY : dp |
| 976 |
+ |
use eam, ONLY : module_newEAMtype => newEAMtype |
| 977 |
+ |
real (kind = dp ) :: lattice_constant |
| 978 |
+ |
integer :: eam_nrho |
| 979 |
+ |
real (kind = dp ) :: eam_drho |
| 980 |
+ |
integer :: eam_nr |
| 981 |
+ |
real (kind = dp ) :: eam_dr |
| 982 |
+ |
real (kind = dp ) :: rcut |
| 983 |
+ |
real (kind = dp ), dimension(eam_nr) :: eam_Z_r |
| 984 |
+ |
real (kind = dp ), dimension(eam_nr) :: eam_rho_r |
| 985 |
+ |
real (kind = dp ), dimension(eam_nrho) :: eam_F_rho |
| 986 |
+ |
integer :: eam_ident |
| 987 |
+ |
integer :: status |
| 988 |
+ |
|
| 989 |
+ |
|
| 990 |
+ |
call module_newEAMtype(lattice_constant,eam_nrho,eam_drho,eam_nr,& |
| 991 |
+ |
eam_dr,rcut,eam_Z_r,eam_rho_r,eam_F_rho,& |
| 992 |
+ |
eam_ident,status) |
| 993 |
+ |
|
| 994 |
+ |
end subroutine newEAMtype |
