Sets the 1-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 1-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 setSpectrum1d(self,spectrum)
!! Sets the 1-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 1-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)
enddo
endassociate
endsubroutine setSpectrum1d