Searched refs:ienG (Results 1 – 1 of 1) sorted by relevance
1 subroutine gensav (ientmp, mattmp, ien, ienG, mater) argument26 integer*8 ienG(npro,nshl) local36 ienG(:,i) = fncorp(abs(ientmp(:,i)))38 ienG(:,i) = abs(ientmp(:,i))