divxtotal series cfd fortran