Lines Matching refs:va
7 type(variable_t) :: va variable
19 call assign(va,a)
20 pd0 = transfer(va%enc,pd0)
21 print '(a2,tr1,f4.2)',va%t,pd0%p
23 call associate(pa,va,success=success)
27 if ( associatd(pa,va) ) then
30 call associate(pb,va,success=success)
35 call assign(va,b)
36 call assign(b,va)
37 pd1 = transfer(va%enc,pd1)
38 print '(a2,2(tr1,f4.2))',va%t,pd1%p
40 call assign(va,c)
41 pd2 = transfer(va%enc,pd2)
42 print '(a2,4(tr1,f4.2))',va%t,pd2%p
44 call assign(va,1)
45 pi0 = transfer(va%enc,pi0)
46 print '(a2,tr1,i0)',va%t,pi0%p
48 call delete(va)