dump_tem_BC_logicalHeader Subroutine

private subroutine dump_tem_BC_logicalHeader(headerfile, propname, nBCtypes, flag_per_BC)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: headerfile
character(len=*), intent(in) :: propname
integer, intent(in) :: nBCtypes
logical, intent(in) :: flag_per_BC(nBCtypes)

Calls

proc~~dump_tem_bc_logicalheader~~CallsGraph proc~dump_tem_bc_logicalheader dump_tem_BC_logicalHeader proc~aot_out_close aot_out_close proc~dump_tem_bc_logicalheader->proc~aot_out_close proc~aot_out_open_table aot_out_open_table proc~dump_tem_bc_logicalheader->proc~aot_out_open_table proc~aot_out_close_table aot_out_close_table proc~dump_tem_bc_logicalheader->proc~aot_out_close_table proc~aot_out_val aot_out_val proc~dump_tem_bc_logicalheader->proc~aot_out_val proc~aot_out_open aot_out_open proc~dump_tem_bc_logicalheader->proc~aot_out_open

Called by

proc~~dump_tem_bc_logicalheader~~CalledByGraph proc~dump_tem_bc_logicalheader dump_tem_BC_logicalHeader proc~dump_tem_bc_qvalheader dump_tem_BC_qValHeader proc~dump_tem_bc_qvalheader->proc~dump_tem_bc_logicalheader proc~dump_tem_bc_normalheader dump_tem_BC_NormalHeader proc~dump_tem_bc_normalheader->proc~dump_tem_bc_logicalheader proc~dump_tem_bc_qval dump_tem_BC_qVal proc~dump_tem_bc_qval->proc~dump_tem_bc_qvalheader proc~dump_tem_bc_normal dump_tem_BC_normal proc~dump_tem_bc_normal->proc~dump_tem_bc_normalheader

Contents

Source Code

dump_tem_BC_logicalHeader

Source Code

  subroutine dump_tem_BC_logicalHeader( headerfile, propname, nBCtypes, &
    &                                   flag_per_BC                     )
    ! ---------------------------------------------------------------------------
    character(len=*), intent(in) :: headerfile
    character(len=*), intent(in) :: propname
    integer, intent(in) :: nBCtypes
    logical, intent(in) :: flag_per_BC(nBCtypes)
    ! ---------------------------------------------------------------------------
    integer :: i
    type(aot_out_type) :: conf ! aotus lua state to write output
    ! ---------------------------------------------------------------------------

    call aot_out_open( conf, headerfile )
    call aot_out_open_table( conf, propname )
    do i = 1, nBCtypes
      call aot_out_val( conf, val = flag_per_BC(i) )
    end do
    call aot_out_close_table(conf)
    ! close the mesh header file
    call aot_out_close(conf)
  end subroutine dump_tem_BC_logicalHeader