plantFEM
Source Files
Modules
Procedures
Abstract Interfaces
Derived Types
Programs
to_SPAC_COEFF
Function
MIT
14 statements
Source File
SPACClass.f90
SPACClass
to_SPAC_COEFF
Contents
public function to_SPAC_COEFF(Center_x, Circle_x, FFT_SIZE) result(rho)
!$OMP parallel do default(shared) reduction(+:rho) !$OMP end parallel do
Arguments
Type
Intent
Optional
Attributes
Name
real(kind=real64),
intent(in)
::
Center_x
(:)
real(kind=real64),
intent(in)
::
Circle_x
(:,:)
integer(kind=int32),
intent(in)
::
FFT_SIZE
Return Value
real(kind=real64), allocatable, (:)