compute_score Subroutine

private impure subroutine compute_score(this)

Type Bound

tpca

Arguments

Type IntentOptional Attributes Name
class(tpca), intent(inout) :: this

Called by

proc~~compute_score~~CalledByGraph proc~compute_score forpca::tpca%compute_score proc~pca forpca::tpca%pca proc~pca->proc~compute_score program~benchmark benchmark program~benchmark->proc~pca program~test1 test1 program~test1->proc~pca

Source Code

   impure subroutine compute_score(this)
#else
   pure subroutine compute_score(this)
#endif
      class(tpca), intent(inout) :: this
      integer                    :: i, j

#if defined(USE_COARRAY)
      if (this_image() == 1) then
#endif
         allocate(this%score(this%nrow,this%ncol))
         do i = 1, this%nrow
            do j = 1, this%npc
               this%score(i, j) = dot_product(this%mean_data(i, :), this%coeff(:, j))
            end do
         end do
#if defined(USE_COARRAY)
      end if
#endif

   end subroutine compute_score