Lines Matching refs:ttyp
31 real(wp),allocatable :: bmat(:,:),xyz(:,:),ttyp(:),rdum(:) local
48 allocate( bmat(nfree,3*n), xyz(3,n), ttyp(3*n), rdum(3*n), &
54 ttyp(1:nnull)=0
113 ttyp(root)=vtyp(3)**2
119 write(*,'(8(i4,'':'',f6.2))') (i,ttyp(i),i=1,n3)
123 ttyp(root)=freq(root)+(1.-ttyp(root))*freq(root)*2.
125 ttyp(root)=freq(root)
131 ttyp(root)=ttyp(root)+10.*deloc(root)**2
133 ttyp(root)=freq(root)
138 ttyp(i)=-1.d+42
145 call Qsort(ttyp, 1, n3, ind)