fortran中的DMAX1