cqUHookr.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cquhookr (i, rv)
subroutine	cquhooki (i, iv)
subroutine	cquhookc (i, cv)

Function/Subroutine Documentation

cquhookc()

subroutine cquhookc	(	integer	i,
		character*(*)	cv
	)

Definition at line 28 of file cqUHookr.f.

Referenced by chookbgrun(), and init().

      implicit none
#include "Zmanagerp.h"
!           returns i-th userhook character variable value cv
      integer i  ! input.
      character*(*) cv  ! output. blank tail of UserHookc is omitted. 

      integer klena
      if(i .le. 0 .or. i .gt. max_userhookc) then
!         call cerrorMsg('out of range for cqUHookc', 0)
         cv = ' '
      else
         if( klena(userhookc(i)) .gt. 0) then
            cv = userhookc(i)(1:klena(userhookc(i)))
         else
            cv = ' ' 
         endif
      endif

Here is the caller graph for this function:

cquhooki()

subroutine cquhooki	(	integer	i,
		integer	iv
	)

Definition at line 15 of file cqUHookr.f.

Referenced by chookbgrun(), and init().

      implicit none
#include "Zmanagerp.h"
!           returns i-th userhook integer variable value iv
      integer i  ! input.
      integer  iv  ! output.  integer value
      if(i .le. 0 .or. i .gt. max_userhooki) then
!         call cerrorMsg('out of range for cqUHooki', 0)
         iv = -9999999
      else
         iv = userhooki(i)
      endif

Here is the caller graph for this function:

cquhookr()

subroutine cquhookr	(	integer	i,
		real*8	rv
	)

Definition at line 2 of file cqUHookr.f.

References d.

Referenced by chookbgevent(), chookbgrun(), and init().

      implicit none
#include "Zmanagerp.h"
!           returns i-th userhook real variable value r,
      integer i  ! input.
      real*8  rv  ! output.  r
      if(i .le. 0 .or. i .gt. max_userhookr) then
!         call cerrorMsg('out of range for cqUHookr', 0)
         rv = -1.d-60
      else
         rv = userhookr(i)
      endif

Here is the caller graph for this function: