apod_sur Subroutine

private subroutine apod_sur()

Note

Function that apodize the reference surface for acf calculus purposes

Arguments

None

Calls

proc~~apod_sur~~CallsGraph proc~apod_sur apod_sur apod apod proc~apod_sur->apod std_array std_array proc~apod_sur->std_array

Called by

proc~~apod_sur~~CalledByGraph proc~apod_sur apod_sur proc~read_job read_job proc~read_job->proc~apod_sur proc~spct_sur spct_sur proc~read_job->proc~spct_sur proc~stat_sur stat_sur proc~read_job->proc~stat_sur proc~spct_sur->proc~apod_sur proc~stat_sur->proc~apod_sur proc~prg_surf prg_surf proc~prg_surf->proc~read_job program~main main program~main->proc~prg_surf

Source Code

   subroutine apod_sur()
   !================================================================================================
   !<@note Function that apodize the reference surface for acf calculus purposes
   !<
   !<@endnote
   !------------------------------------------------------------------------------------------------
   implicit none

      integer(kind=I4) :: w, h

      real(kind=R8), allocatable, dimension(:,:) :: tab_tmp

      w = PARAM%width
      h = PARAM%height

      allocate(  tab_tmp(1:w, 1:h) )

      call apod(  tab_in = PARAM%surf(1:w, 1:h),   &  !  IN
                 tab_out = tab_tmp(1:w, 1:h),      &  !  OUT
                    long = w,                      &  !  IN
                    larg = h,                      &  !  IN
                type_apo = 'tuckey' )                 !  IN

      ! standardize surface
      call std_array( tab_tmp(1:w, 1:h) )

      PARAM%surf(1:w, 1:h) = tab_tmp(1:w, 1:h)

      deallocate( tab_tmp )

   return
   endsubroutine apod_sur