Searched refs:carray (Results 1 – 1 of 1) sorted by relevance
1081 subroutine ramg_mapv2g(level,carray,garray) argument1087 real(kind=8),intent(in),dimension(amg_nshg(level)) :: carray local1101 garray(revmap(i)) = carray(i)1106 subroutine ramg_mapg2v(level,carray,garray) argument1111 real(kind=8),intent(inout),dimension(amg_nshg(level)) ::carray local1113 carray(:) = 01117 carray(j) = garray(i)