A description is given of a general multigroup, onedimensional diffusion equation code written in FORTRAN. Options included in the code are five different criticality searches, calculation of the adjoint flux, and the computation of an initial guess for a FORTRAN SNG code. (auth)