 (see Fluids.F00)     ewrite_minmax(source)     ewrite_minmax(absorption)     ! set source and absorption terms in optional output fields     scalarField => extract_scalar_field(state, "GLSSource0", stat)     if(stat == 0) then        call set(scalarField,source)       end if     scalarField => extract_scalar_field(state, "GLSAbsorption0", stat)     if(stat == 0) then        call set(scalarField,absorption)       end if      c