Put long variables into the Lua script.
The value is passed in with val, optionally you can assign a name to it with the vname argument. If it should be put on the same line as the previous entry, you have to set advance_previous=.false.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(aot_out_type), | intent(inout) | :: | put_conf | |||
| integer(kind=long_k), | intent(in) | :: | val | |||
| character(len=*), | intent(in), | optional | :: | vname | ||
| logical, | intent(in), | optional | :: | advance_previous |
subroutine aot_out_val_long(put_conf, val, vname, advance_previous)
!------------------------------------------------------------------------
type(aot_out_type), intent(inout) :: put_conf
character(len=*), optional, intent(in) :: vname
logical, optional, intent(in) :: advance_previous
integer(kind=long_k), intent(in) :: val
!------------------------------------------------------------------------
character(len=3) :: adv_string
!------------------------------------------------------------------------
if (put_conf%level > 0) then
! Leave the advancing to the next entry in the table.
adv_string = 'no'
else
! Not within a table, finalize the global definition with a newline.
adv_string = 'yes'
end if
call aot_out_breakline(put_conf, advance_previous)
if (present(vname)) then
write(put_conf%outunit, fmt="(a,i0)", advance=adv_string) &
& trim(vname)//" = ", val
else
write(put_conf%outunit, fmt="(i0)", advance=adv_string) val
end if
end subroutine aot_out_val_long