Searched refs:NASC (Results 1 – 3 of 3) sorted by relevance
15 real*8, allocatable :: NASC(:) variable25 if( allocated(NASC) ) then26 deallocate(NASC)53 allocate ( NASC(nshg) )60 NASC=zero
293 call local (NASC, rl, ienb, 1, 'scatter ')
1290 & + NASC(i)*scal(i)