Procedure from library gmssing.lib (see gmssing_lib).
Usage:
monodromy(t); poly t
Assume:
characteristic 0; local degree ordering;
isolated critical point 0 of t
Return:
list l; Jordan data jordan(M) of monodromy matrix exp(-2*pi*i*M)
ideal l[1];
number l[1][i]; eigenvalue of i-th Jordan block of M
intvec l[2];
int l[2][i]; size of i-th Jordan block of M
intvec l[3];
int l[3][i]; multiplicity of i-th Jordan block of M