Lines Matching refs:map
60 integer, allocatable, dimension(:) :: map local
117 allocate ( map(npro) )
122 & map, nshl, npro,
130 call mapArray( mxmudmi(iblk)%p, xmu2, map,
154 deallocate ( map )
440 & map, nshl, npro,
450 & map(npro) local
457 map = 0
460 map(iel) = map(iel) + mask( abs(ien(iel,i)) )
466 if ( map(iel) .gt. 0 ) then
468 map(iel) = npro2
470 map(iel) = npro
479 ien2(map(iel),i) = ien(iel,i)
488 subroutine mapArray( x, x2, map, argument
497 integer map(nprold) local
505 x2(map(:),i) = x(:,i)