[sarrazs]

I need to include the "Current Iteration Number" in the pt_mom_source.F file as an integer.
I tried to add it as an argument for the pt_mom_source function. But all arguments in the function are put in the same array and they are declared as real.
Is there any way to get it but not by adding it to the argument list? I definitely need it as an integer.
I know that there is a defined function in cfx "get_var" but I'm not sure that it can work in a Fortran user routine.

[Lance]

this is what I do to get ATSTEP (accumulated time step)

      CALL USER_GET_TRANS_INFO(ROUTIN,'GET',' ',CZ,DZ,IZ,LZ,RZ)
      CALL PEEKI('/USER/TRANS_INFO/ATSTEP',1,ATSTEP,'STOP',CRESLT,IZ)
      CALL USER_GET_TRANS_INFO(ROUTIN,'RELEASE',' ',CZ,DZ,IZ,LZ,RZ)

and ATSTEP is defined as an integer. I guess you could do the same for CITERN.

[sarrazs]

Originally Posted by Lance

this is what I do to get ATSTEP (accumulated time step)

      CALL USER_GET_TRANS_INFO(ROUTIN,'GET',' ',CZ,DZ,IZ,LZ,RZ)
      CALL PEEKI('/USER/TRANS_INFO/ATSTEP',1,ATSTEP,'STOP',CRESLT,IZ)
      CALL USER_GET_TRANS_INFO(ROUTIN,'RELEASE',' ',CZ,DZ,IZ,LZ,RZ)

and ATSTEP is defined as an integer. I guess you could do the same for CITERN.

Thank you very much Lance, I will try this solution.
I have another question please.
Do you know how can I get the Particle Track Number? I want to use it in the pt_mom_source.F. In fact every time that the code calculate the momentum source it needs to identify the bubble on which it is calculating the force.