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

Calls

proc~~transformcanond~~CallsGraph proc~transformcanond transformCanoND proc~transformcanond_single transformCanoND_single proc~transformcanond->proc~transformcanond_single

Called by

proc~~transformcanond~~CalledByGraph proc~transformcanond transformCanoND interface~tem_transformcanond tem_transformCanoND interface~tem_transformcanond->proc~transformcanond proc~tem_load_onecanonicalnd tem_load_oneCanonicalND proc~tem_load_onecanonicalnd->interface~tem_transformcanond proc~tem_load_canonicalnd_vec tem_load_canonicalND_vec proc~tem_load_canonicalnd_vec->proc~tem_load_onecanonicalnd interface~tem_load_canonicalnd tem_load_canonicalND interface~tem_load_canonicalnd->proc~tem_load_onecanonicalnd interface~tem_load_canonicalnd->proc~tem_load_canonicalnd_vec proc~tem_load_shape_single tem_load_shape_single proc~tem_load_shape_single->interface~tem_load_canonicalnd

Contents

Source Code

transformCanoND

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