Subroutine needed

[Lubomir Smrcok]

Hello,
does anybody know where is a source code of the subroutine called SYMOP
(SYMMOP) by H.Burzlaff ? It was designed to interpret a space group symbol
and provide a set of  rotational matrices and/or trans. parts.
Best,
Lubo Smrcok

P.F.'99