Because the same junction box routine can be called from several locations in the same CFX-Solver run, it may be useful for the routine to know which location currently applies. This can be determined by looking up the variable Which Call as if this were a user parameter. For example, a junction box routine may contain:

      CHARACTER*256 Which Call
      CHARACTER*4 CRESLT
      CHARACTER*1 CZ(*)
      ....
      ....
      CALL USER_PEEKCS( 'Which Call', Which Call,
      &   'STOP', CRESLT, CZ )
      IF( Which Call .EQ. 'USERINPUT' ) THEN
      ....
      END IF

Note that the value returned by the inquiry is in upper case even though the junction box locations were specified in lower case. For details, see User Parameters.