aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working commit for dislocation generation branch

Browse source
This commit is contained in:
Alex 2019-12-25 16:30:18 -05:00
parent 41024b9674
commit d0e6253d64
9 changed files with 114 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/functions.f90
View file

@ -232,4 +232,14 @@ END FUNCTION StrDnCase
end if
return
end function is_equal
pure function unitvec(n,vec)
integer, intent(in) :: n
real(kind=dp), intent(in) :: vec(n)
real(kind=dp) :: unitvec(n)
unitvec = vec/norm2(vec)
return
end function unitvec
end module functions