huijunchen9260

module tikz_module

! -------------------------------------------------- !
! ! If using intel fortran, must include this module !
! ! If using gnu fortran, must comment this line out !
! use ifport                                         !
! -------------------------------------------------- !

use, intrinsic :: iso_Fortran_env, only : wp => real64, int32, int64, real32, real64, OUTPUT_UNIT, INPUT_UNIT, ERROR_UNIT
use omp_lib

jpluimers

function GetShortStringString(const ShortStringPointer: PByte): string;
var
  ShortStringLength: Byte;
  FirstShortStringCharacter: MarshaledAString;
  ConvertedLength: Cardinal;
  UnicodeCharacters: array[Byte] of Char; // cannot be more than 255 characters, reserve 1 character for terminating null
begin
  if not Assigned(ShortStringPointer) then
    Result := ''
  else