Lines Matching refs:va
8 type(variable_t) :: va variable
21 call assign(va,a)
22 pd0 = transfer(va%enc,pd0)
23 print '(a2,tr1,f4.2)',va%t,pd0%p
24 call associate(pa,va,success=success)
29 call assign(va,b)
30 call assign(b,va)
31 pd1 = transfer(va%enc,pd1)
32 print '(a2,2(tr1,f4.2))',va%t,pd1%p
34 call assign(va,c)
35 pd2 = transfer(va%enc,pd2)
36 print '(a2,4(tr1,f4.2))',va%t,pd2%p
38 call assign(va,1)
39 pi0 = transfer(va%enc,pi0)
40 print '(a2,tr1,i0)',va%t,pi0%p
44 call assign(va,sa)
46 call assign(sb,va)
50 call delete(va)