transformCanoND Subroutine

private subroutine transformCanoND(canoND, transform)

This routine apply transformation to canonical objects.

Arguments

Type IntentOptional Attributes Name
type(tem_canonicalND_type), intent(inout) :: canoND(:)

canonical geometry object type
type(tem_transformation_type), intent(in) :: transform

transformation for spatial object

Source Code

  subroutine transformCanoND(canoND, transform)
    !--------------------------------------------------------------------------!
    !> canonical geometry object type
    type( tem_canonicalND_type ), intent(inout) :: canoND(:)
    !> transformation for spatial object
    type(tem_transformation_type), intent(in) :: transform
    !--------------------------------------------------------------------------!
    integer :: iCano
    !--------------------------------------------------------------------------!

    do iCano=1,size(canoND)
      call transformCanoND_single(canoND = canoND(iCano), &
        &                         transform = transform)
    end do

  end subroutine transformCanoND