a # 1 60 R ' c#a fdiv b;rem ' a # a,[1] ' c#((1000X1Y1Ua)K1Y1Ub)+-1+(Rb)+0D(Rb#float b)_Ra#float a ' a # a,[1] ' c#((1Ya)_(1Yb)+c),1U(0,1U(c+Ra)Ya)div 0,1Ub ' a # a,[1] ' $0 ' a # a,[1] '"fdiv - multiprecision floating point division ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' a # a,[1] '"-a, b, and c are multiprecision floating point values. ' a # a,[1] '" (see description for Gfadd) ' a # a,[1] '"-the precision of the result is the same or slightly ' a # a,[1] '" greater than the smaller of the precisions of the two ' a # a,[1] '" operands. ' a # a,[1] '"-uses: Gfloat Gdiv ' a # a,[1] '"-division by zero will return zero, as in Gcdiv. ' Lfx a