$ibm_float = (( $sign_bit )*( 16**( $exponent - 64 ) ) * $fraction )/3000;