DOUBLE PRECISION FUNCTION GET_MASS_FROM_ID(ID)
IMPLICIT NONE
INTEGER ID
INCLUDE 'coupl.inc'

%(iflines_mass)sELSE
GET_MASS_FROM_ID=0d0
ENDIF
RETURN
END


DOUBLE PRECISION FUNCTION GET_WIDTH_FROM_ID(ID)
IMPLICIT NONE
INTEGER ID
INCLUDE 'coupl.inc'

%(iflines_width)sELSE
GET_WIDTH_FROM_ID=0d0
ENDIF
RETURN
END