223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

standard style

This commit is contained in:
Martin Diehl 2022-12-02 20:41:47 +01:00
parent 18ad14708f
commit f61273c062
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/grid/spectral_utilities.f90
View File

@ -1218,6 +1218,7 @@ subroutine selfTest()
integer, intent(in) :: n integer, intent(in) :: n
real(pReal), dimension(n) :: planeCosine real(pReal), dimension(n) :: planeCosine
planeCosine = cos(real(math_range(n),pReal)/real(n,pReal)*TAU-TAU/real(n*2,pReal)) planeCosine = cos(real(math_range(n),pReal)/real(n,pReal)*TAU-TAU/real(n*2,pReal))
end function planeCosine end function planeCosine
@ -1226,6 +1227,7 @@ subroutine selfTest()
integer, intent(in) :: n integer, intent(in) :: n
real(pReal), dimension(n) :: planeSine real(pReal), dimension(n) :: planeSine
planeSine = sin(real(math_range(n),pReal)/real(n,pReal)*TAU-TAU/real(n*2,pReal)) planeSine = sin(real(math_range(n),pReal)/real(n,pReal)*TAU-TAU/real(n*2,pReal))
end function planeSine end function planeSine