Lines Matching refs:va
7 type(variable_t) :: va , vb variable
19 call assign(va,a)
20 ps0 = transfer(va%enc,ps0)
21 print '(a2,tr1,f4.2)',va%t,ps0%p
23 call associate(pa,va,success=success)
29 if ( associatd(pa,va) ) then
34 if ( .not. associatd(pb,va) ) then
40 call assign(va,b)
41 call assign(b,va)
42 ps1 = transfer(va%enc,ps1)
43 print '(a2,2(tr1,f4.2))',va%t,ps1%p
46 call assign(va,c)
47 ps2 = transfer(va%enc,ps2)
48 print '(a2,4(tr1,f4.2))',va%t,ps2%p
51 call assign(va,1)
52 pi0 = transfer(va%enc,pi0)
53 print '(a2,tr1,i0)',va%t,pi0%p
56 call delete(va)