Searched refs:shgl2 (Results 1 – 1 of 1) sorted by relevance
85 real*8 shp2(nshl,ngauss), shgl2(nsd,nshl,ngauss) local106 shgl2(:,:,1:ngauss)=shgl1(:,:,1:ngauss)120 call getshp (shp2, shgl2, sgn, shp, shgl )