divxtotal cfd fortran