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