Accessing Double Precision Data

Some banks have double precision variables e.g. the time word in the MCVX bank (KMCVX_TIM). To help ease the pain of accessing double precision data in a single precision array (RQ), the function GET_DOUBLE and the subroutine PUT_DOUBLE are provided. Both have, as their first argument, the address in RQ that holds the first word to the double precision variable. The following code illustrates their use:-

 
      double precision   time, delta_time, get_double
 
.
.
.
 
      time = get_double( lmcvx_cur + kmcvx_tim )
 
.
.
.
 
      time = time + delta_time
 
.
.
.
 
      call put_double( lmcvx_cur + kmcvx_tim, time )