cqUHookr.f

Go to the documentation of this file.

      subroutine cquhookr(i, rv)
      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
      end
      subroutine cquhooki(i, iv)
      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
      end
      subroutine cquhookc(i, cv)
      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
      end