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 )