F_C_PA2BAR
functions from adhoc
Pascal to bar