Function: mfcuspwidth
Section: modular_forms
C-Name: mfcuspwidth
Prototype: lGG
Help: mfcuspwidth(N,cusp): width of cusp in Gamma_0(N).
Doc: width of \kbd{cusp} in $\Gamma_{0}(N)$.
 \bprog
 ? mfcusps(12)
 %1 = [0, 1/2, 1/3, 1/4, 1/6, 1/12]
 ? [mfcuspwidth(12,c) | c <- mfcusps(12)]
 %2 = [12, 3, 4, 3, 1, 1]
 ? mfcuspwidth(12, oo)
 %3 = 1
 @eprog\noindent We also allow the argument $N$ to be a modular form space,
 in which case it is replaced by the level of the space:
 \bprog
 ? M = mfinit([4, 12, 1], 0); mfcuspwidth(M, 1/2)
 %4 = 1
 @eprog

