Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | headerfile | |||
character(len=*), | intent(in) | :: | propname | |||
integer, | intent(in) | :: | nBCtypes | |||
logical, | intent(in) | :: | flag_per_BC(nBCtypes) |
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