;\begin{verbatim} ;+ ; NAME: alignrdiv ; PURPOSE: Reverse division operation of two alignment structures ; CALIING SEQUENCE: ; C=alignmul(A, B) ; INPUTS: ; A the denominator alignment structure ; representing the mapping: (l,m) ---> (i,j) ; B the numerator alignment structue ; representing the mapping: (l,m) ---> (t,u) ; OUPUT: ; C the division of B by A, ; representing the mapping: (i,j) ---> (t,u) ; REMARK: ; the order of inputs A and B are important. function alignrdiv, a, b ; Compatability Check check = a.reference eq b.reference check = check and a.ref_aspect eq b.ref_aspect if not check then begin print, "Incompatible Inputs in ALIGNMUL" return, a endif c =alignmul(aligninv(a), b) return, c end ;\end{verbatim}