tem_canonicalND_out_scal Subroutine

private subroutine tem_canonicalND_out_scal(me, conf)

Write out a canonicalND shape in lua format

Arguments

Type IntentOptional Attributes Name
type(tem_canonicalND_type), intent(in) :: me

canonicalND types to write out
type(aot_out_type), intent(inout) :: conf

Aotus type handling the output to the file in lua format

Calls

proc~~tem_canonicalnd_out_scal~~CallsGraph proc~tem_canonicalnd_out_scal tem_canonicalND_out_scal aot_out_close_table aot_out_close_table proc~tem_canonicalnd_out_scal->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_canonicalnd_out_scal->aot_out_open_table aot_out_val aot_out_val proc~tem_canonicalnd_out_scal->aot_out_val

Called by

proc~~tem_canonicalnd_out_scal~~CalledByGraph proc~tem_canonicalnd_out_scal tem_canonicalND_out_scal interface~tem_canonicalnd_out tem_canonicalND_out interface~tem_canonicalnd_out->proc~tem_canonicalnd_out_scal proc~tem_canonicalnd_out_vec tem_canonicalND_out_vec interface~tem_canonicalnd_out->proc~tem_canonicalnd_out_vec proc~tem_canonicalnd_out_vec->proc~tem_canonicalnd_out_scal proc~tem_shape_out_scal tem_shape_out_scal proc~tem_shape_out_scal->interface~tem_canonicalnd_out interface~tem_shape_out tem_shape_out interface~tem_shape_out->proc~tem_shape_out_scal proc~tem_shape_out_vec tem_shape_out_vec interface~tem_shape_out->proc~tem_shape_out_vec proc~tem_shape_out_vec->proc~tem_shape_out_scal proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->interface~tem_shape_out proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->interface~tem_shape_out

Source Code

  subroutine tem_canonicalND_out_scal( me, conf )
    ! --------------------------------------------------------------------------
    !> canonicalND types to write out
    type( tem_canonicalND_type ), intent(in) :: me
    !> Aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    ! --------------------------------------------------------------------------
    integer :: iVec
    ! --------------------------------------------------------------------------

    ! create a table with name canonicalND if not exist
    if( conf%level .eq. 0 ) then
      call aot_out_open_table( put_conf = conf, tname = 'object' )
    else
      call aot_out_open_table( put_conf = conf )
    end if
    !write origin
    call aot_out_val( put_conf = conf, vname = 'origin', val = me%origin )

    !write vec
    if(me%nDim >0) then
      call aot_out_open_table( put_conf = conf, tname = 'vec' )
      do iVec=1,me%nDim
        call aot_out_val( put_conf = conf, val = me%vec(:,iVec) )
      enddo
      call aot_out_close_table( put_conf = conf )

      !write segments
      call aot_out_open_table( put_conf = conf, tname = 'segments' )

      do iVec=1,me%nDim
        call aot_out_val( put_conf = conf, val = me%segments(iVec) )
      enddo
      call aot_out_close_table( put_conf = conf )
    endif

    if (trim(me%kind) == 'box') then
      call aot_out_val( put_conf = conf, vname = 'only_surface', &
        &               val = me%only_surface )
    end if

    !write distribution
    call aot_out_val( put_conf = conf,                                         &
      &               vname    = 'distribution',                               &
      &               val      = me%distribution )

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_canonicalND_out_scal