Avoid sending redundant magma_ztm() vectors to GPU

#pragma omp target data map(to: rxx[0:nsph], ryy[0:nsph], rzz[0:nsph]) \

  map(to: ind3j[0:ind3j_size], v3j0[0:nv3j], vh[0:ncou*litpo]) \

  map(to: vyhj[0:ncou*litpos], vj0[0:nsph*lmtpo], vyj0[0:nsph*lmtpos]) \

  map(to: sam_v[0:ndit*nlem], rmi[0:rsize], rei[0:rsize]) \

  map(to: gis_v[0:ndi*nlem], gls_v[0:ndi*nlem]) \

  map(tofrom:vec_am[0:ndit*ndit], vec_am0m[0:nlemt*nlemt]) \

  map(to: rmi[0:rsize], rei[0:rsize]) map(tofrom:vec_am[0:ndit*ndit]) \

  device(cid->proc_device)

    {

      // Initialize uninverted matrix on GPU