How to define a body flux and a surface flux with user subroutine DFLUX at the same time?

[yjmp14]

I want to heat a object with a surface flux and a body flux at the same time.
How can I achieve this purpose with user subroutine DFLUX?

Now I have write a surface flux and a body flux with DFLUX and thay work well separately, but how can I write them in one file and let them work together.

I tried to write the subroutine like this:

IF (JLTYP.EQ.1) THEN
    Code for body flux...
END IF

IF (JLTYP.EQ.0) THEN
    Code for surface flux...
END IF

But it doesn't work correctly, when I run this subroutine, only the surface flux work, the body flux just doesn't work.

PS. I have set a surface flux and a body flux at Loads module and both select User Define.