Searched refs:garray (Results 1 – 1 of 1) sorted by relevance
1081 subroutine ramg_mapv2g(level,carray,garray) argument1086 real(kind=8),intent(inout),dimension(nshg) :: garray local1092 garray(:) = 01101 garray(revmap(i)) = carray(i)1106 subroutine ramg_mapg2v(level,carray,garray) argument1110 real(kind=8),intent(in),dimension(nshg) :: garray local1117 carray(j) = garray(i)