Fortran language form of Duncan-Zhang model