Sets the 2-d spectrum array. This procedure is overloaded by the generic procedure setSpectrum.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(domain_type), | intent(inout) | :: | self | Domain instance |
||
| type(spectrum_type), | intent(in), | dimension(:,:) | :: | spectrum | Input 2-d array of spectrum object instances |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
pure subroutine setSpectrum2d(self,spectrum)
!! Sets the 2-d spectrum array. This procedure is overloaded by the
!! generic procedure setSpectrum.
class(domain_type),intent(inout) :: self
!! Domain instance
type(spectrum_type),dimension(:,:),intent(in) :: spectrum
!! Input 2-d array of spectrum object instances
integer(kind=ik) :: i,j
associate(lb => self % lb,ub => self % ub)
do concurrent(i=lb(1):ub(1),j=lb(2):ub(2))
self % spectrum(i,j) = spectrum(i,j)
enddo
endassociate
endsubroutine setSpectrum2d