table4d_mod Module Reference

Data Types
type	table_4d_

Functions/Subroutines
subroutine	copy_table_to (this, target_table)

Function/Subroutine Documentation

copy_table_to()

subroutine table4d_mod::copy_table_to	(	class(table_4d_), intent(in)	this,
		type(table_4d_), intent(out)	target_table )

Definition at line 79 of file table4d_mod.F.

              IMPLICIT NONE
              CLASS(TABLE_4D_) ,INTENT(IN) :: THIS
              TYPE(TABLE_4D_) ,INTENT(OUT):: TARGET_TABLE
              target_table%NOTABLE = this%NOTABLE
              target_table%NDIM    = this%NDIM
              IF(.NOT.ALLOCATED(target_table%X))ALLOCATE(target_table%X(SIZE(this%X)))
              target_table%X(:) = this%X(:)
              IF(.NOT.ALLOCATED(target_table%Y1D))ALLOCATE(target_table%Y1D(SIZE(this%Y1D)))
              IF(.NOT.ALLOCATED(target_table%Y2D))ALLOCATE(target_table%Y2D(SIZE(this%Y2D,1),
     .                                                                      SIZE(this%Y2D,2)))
              IF(.NOT.ALLOCATED(target_table%Y3D))ALLOCATE(target_table%Y3D(SIZE(this%Y3D,1),
     .                                                                      SIZE(this%Y3D,2),
     .                                                                      SIZE(this%Y3D,3)))
              IF(.NOT.ALLOCATED(target_table%Y4D))ALLOCATE(target_table%Y4D(SIZE(this%Y4D,1),
     .                                                                      SIZE(this%Y4D,2),
     .                                                                      SIZE(this%Y4D,3),
     .                                                                      SIZE(this%Y4D,4)))
              target_table%Y1D(:) = this%Y1D(:)
              target_table%Y2D(:,:) = this%Y2D(:,:)
              target_table%Y3D(:,:,:) = this%Y3D(:,:,:)
              target_table%Y4D(:,:,:,:) = this%Y4D(:,:,:,:)