Writes a {key,val} pair where the value is of type complex
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | key | |||
complex, | intent(in) | :: | val | |||
integer, | intent(in) | :: | unit |
subroutine write_key_val_complex(key, val, unit)
character(len=*), intent(in) :: key
complex, intent(in) :: val
integer, intent(in) :: unit
write(unit,'(" ",A," = (",e18.11,", ",e18.11,")")') format_key(key), real(val), aimag(val)
end subroutine write_key_val_complex