Searched refs:timing_msg (Results 1 – 1 of 1) sorted by relevance
1318 character(len=1024) :: timing_msg local1323 timing_msg = c_char_"Time to write "//c_null_char1324 call phstr_appendStr(timing_msg,key)1326 call phstr_appendStr(timing_msg, streamModeString)1328 call phstr_appendStr(timing_msg, fileModeString)1330 call phstr_appendStr(timing_msg, c_char_' = '//c_null_char)1331 call phstr_appendDbl(timing_msg, timing)1332 write(6,*) trim(timing_msg)