#include<bits/stdc++.h>
#define mod 1000000007
using namespace std;
int n,m;
int L[100005][6],R[100005][6],U[100005][6],D[100005][6];
int powdv(int x,int y=mod-2){
	int ans=1;
	while(y){
		if(y&1)ans=1ll*ans*x%mod;
		y>>=1,x=1ll*x*x%mod;
	}
	return ans;
}
int sm[270005][11][11],ms[270005][11][11];
void zheng(int x,int o){
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)sm[o][i][j]=0;
	sm[o][0][0]=1;
	for(int i=m+1;i<=2*m;++i)sm[o][i][i-m]=1;
	for(int i=1;i<=m;++i){
		int ny=powdv(R[(x+n-2)%n+1][i]);
		int l=L[(x+n-2)%n+1][i],u=U[(x+n-2)%n+1][i],d=D[(x+n-2)%n+1][i];
		sm[o][0][i+m]=mod-100ll*ny%mod;sm[o][i+m][i+m]=100ll*ny%mod;
		sm[o][i][i+m]=mod-1ll*l*ny%mod;
		sm[o][(i+m-2)%m+1+m][i+m]=mod-1ll*u*ny%mod;
		sm[o][i%m+1+m][i+m]=mod-1ll*d*ny%mod;
	}
}
void fan(int x,int o){
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)ms[o][i][j]=0;
	ms[o][0][0]=1;
	for(int i=m+1;i<=2*m;++i)ms[o][i-m][i]=1;
	for(int i=1;i<=m;++i){
		int ny=powdv(L[x%n+1][i]);
		int r=R[x%n+1][i],u=U[x%n+1][i],d=D[x%n+1][i];
		ms[o][0][i]=mod-100ll*ny%mod;ms[o][i][i]=100ll*ny%mod;
		ms[o][i+m][i]=mod-1ll*r*ny%mod;
		ms[o][(i+m-2)%m+1][i]=mod-1ll*u*ny%mod;
		ms[o][i%m+1][i]=mod-1ll*d*ny%mod;
	}
}
void build(int l,int r,int o){
	if(l==r){
		zheng(l,o);fan(l,o);
		return;
	}
	int mid=(l+r)>>1;
	build(l,mid,o<<1);
	build(mid+1,r,o<<1|1);
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)
		sm[o][i][j]=ms[o][i][j]=0;
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)if(sm[o<<1][i][j])
		for(int k=0;k<=2*m;++k)if(sm[o<<1|1][j][k]){
			sm[o][i][k]=(sm[o][i][k]+1ll*sm[o<<1][i][j]*sm[o<<1|1][j][k])%mod;
		}
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)if(ms[o<<1|1][i][j])
		for(int k=0;k<=2*m;++k)if(ms[o<<1][j][k]){
			ms[o][i][k]=(ms[o][i][k]+1ll*ms[o<<1|1][i][j]*ms[o<<1][j][k])%mod;
		}
}
void add1(int l,int r,int o,int u){
	if(l==r){
		zheng(l,o);
		return;
	}
	int mid=(l+r)>>1;
	if(u<=mid)add1(l,mid,o<<1,u);
	else add1(mid+1,r,o<<1|1,u);
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)
		sm[o][i][j]=0;
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)if(sm[o<<1][i][j])
		for(int k=0;k<=2*m;++k)if(sm[o<<1|1][j][k]){
			sm[o][i][k]=(sm[o][i][k]+1ll*sm[o<<1][i][j]*sm[o<<1|1][j][k])%mod;
		}
}
void add2(int l,int r,int o,int u){
	if(l==r){
		fan(l,o);
		return;
	}
	int mid=(l+r)>>1;
	if(u<=mid)add2(l,mid,o<<1,u);
	else add2(mid+1,r,o<<1|1,u);
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)
		ms[o][i][j]=0;
	for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)if(ms[o<<1|1][i][j])
		for(int k=0;k<=2*m;++k)if(ms[o<<1][j][k]){
			ms[o][i][k]=(ms[o][i][k]+1ll*ms[o<<1|1][i][j]*ms[o<<1][j][k])%mod;
		}
}
int a1[11][11],a11[11][11],a2[11][11],a22[11][11];
void query1(int l,int r,int o,int ll,int rr){
	if(l>=ll&&r<=rr){
		for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)if(a1[i][j]){
			for(int k=0;k<=2*m;++k)if(sm[o][j][k]){
				a11[i][k]=(a11[i][k]+1ll*a1[i][j]*sm[o][j][k])%mod;
			}
		}
		for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j){
			a1[i][j]=a11[i][j],a11[i][j]=0;
		}
		return;
	}
	int mid=(l+r)>>1;
	if(mid>=ll)query1(l,mid,o<<1,ll,rr);
	if(mid<rr)query1(mid+1,r,o<<1|1,ll,rr);
}
void query2(int l,int r,int o,int ll,int rr){
	if(l>=ll&&r<=rr){
		for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j)if(a2[i][j]){
			for(int k=0;k<=2*m;++k)if(ms[o][j][k]){
				a22[i][k]=(a22[i][k]+1ll*a2[i][j]*ms[o][j][k])%mod;
			}
		}
		for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j){
			a2[i][j]=a22[i][j],a22[i][j]=0;
		}
		return;
	}
	int mid=(l+r)>>1;
	if(mid<rr)query2(mid+1,r,o<<1|1,ll,rr);
	if(mid>=ll)query2(l,mid,o<<1,ll,rr);
}
int e[100005][6];
int a[16][17],aa[16];
void gauss(int n){
	for(int i=1;i<=n;++i){
		if(!a[i][i]){
			for(int j=i+1;j<=n;++j)if(a[j][i]){
				for(int k=1;k<=n+1;++k)swap(a[i][k],a[j][k]);
				break;
			}
		}
		assert(a[i][i]);
		int ny=powdv(a[i][i]);
		for(int j=i+1;j<=n;++j)if(a[j][i]){
			int zz=mod-1ll*ny*a[j][i]%mod;
			for(int k=i;k<=n+1;++k)a[j][k]=(a[j][k]+1ll*a[i][k]*zz)%mod;
		}
	}
	for(int i=n;i>=1;--i){
		aa[i]=a[i][n+1];
		for(int j=i+1;j<=n;++j)aa[i]=(aa[i]-1ll*aa[j]*a[i][j]%mod+mod)%mod;
		aa[i]=1ll*aa[i]*powdv(a[i][i])%mod;
	}
}
int bn=powdv(100);
#define LL(x,y) (1ll*L[x][y]*bn%mod)
#define RR(x,y) (1ll*R[x][y]*bn%mod)
#define UU(x,y) (1ll*U[x][y]*bn%mod)
#define DD(x,y) (1ll*D[x][y]*bn%mod)
int main(){;
	scanf("%d%d",&n,&m);
	for(int i=1;i<=n;++i)for(int j=1;j<=m;++j)scanf("%d",&U[i][j]);
	for(int i=1;i<=n;++i)for(int j=1;j<=m;++j)scanf("%d",&D[i][j]);
	for(int i=1;i<=n;++i)for(int j=1;j<=m;++j)scanf("%d",&L[i][j]);
	for(int i=1;i<=n;++i)for(int j=1;j<=m;++j)scanf("%d",&R[i][j]);
	build(1,n,1);
	int q;
	scanf("%d",&q);
	while(q--){
		int op;
		scanf("%d",&op);
		if(op==1){
			int x,y;
			scanf("%d%d",&x,&y);
			++x,++y;
			scanf("%d%d%d%d",&U[x][y],&D[x][y],&L[x][y],&R[x][y]);
			add1(1,n,1,x%n+1);add2(1,n,1,(x+n-2)%n+1);
		}else{
			int sx,sy,tx,ty;
			scanf("%d%d%d%d",&sx,&sy,&tx,&ty);
			++sx,++sy,++tx,++ty;
			if(tx<n){
				for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j){
					a1[i][j]=(i==j),a11[i][j]=0;
				}
				if(tx<n-1)query1(1,n,1,tx+2,n);
			}
			if(tx>1){
				for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j){
					a2[i][j]=(i==j),a22[i][j]=0;
				}
				if(tx>2)query2(1,n,1,1,tx-2);
			}
			if(tx==1){
				for(int i=1;i<=2*m;++i)for(int j=1;j<=2*m+1;++j)
					a[i][j]=0;
				for(int i=1;i<=m;++i){
					a[i][2*m+1]=mod-1;a[i][i]=mod-1;
					a[i][(i+m-2)%m+1]=UU(1,i);
					a[i][i%m+1]=DD(1,i);
					a[i][i+m]=RR(1,i);
					for(int j=1;j<=2*m;++j)a[i][j]=(a[i][j]+1ll*LL(1,i)*a1[j][i+m])%mod;
					a[i][2*m+1]=(a[i][2*m+1]-1ll*LL(1,i)*a1[0][i+m])%mod;
					a[i][2*m+1]=(a[i][2*m+1]+mod)%mod;
				}
				for(int i=1;i<=m;++i){
					a[i+m][2*m+1]=mod-1;a[i+m][i]=RR(n,i);
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*(mod-1)*a1[j][i+m])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*(mod-1)*a1[0][i+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*UU(n,i)*a1[j][(i+m-2)%m+1+m])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*UU(n,i)*a1[0][(i+m-2)%m+1+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*DD(n,i)*a1[j][i%m+1+m])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*DD(n,i)*a1[0][i%m+1+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*LL(n,i)*a1[j][i])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*LL(n,i)*a1[0][i])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]+mod)%mod;
				}
				for(int i=1;i<=2*m+1;++i)a[ty][i]=(i==ty);
				gauss(2*m);
				for(int i=1;i<=m;++i)e[tx][i]=aa[i],e[tx+1][i]=aa[i+m];
			}else if(tx==n){
				for(int i=1;i<=2*m;++i)for(int j=1;j<=2*m+1;++j)
					a[i][j]=0;
				for(int i=1;i<=m;++i){
					a[i][2*m+1]=mod-1;a[i][i+m]=mod-1;
					a[i][(i+m-2)%m+1+m]=UU(n,i);
					a[i][i%m+1+m]=DD(n,i);
					a[i][i]=LL(n,i);
					for(int j=1;j<=2*m;++j)a[i][j]=(a[i][j]+1ll*RR(n,i)*a2[j][i])%mod;
					a[i][2*m+1]=(a[i][2*m+1]-1ll*RR(n,i)*a2[0][i])%mod;
					a[i][2*m+1]=(a[i][2*m+1]+mod)%mod;
				}
				for(int i=1;i<=m;++i){
					a[i+m][2*m+1]=mod-1;a[i+m][i+m]=LL(1,i);
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*(mod-1)*a2[j][i])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*(mod-1)*a2[0][i])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*UU(1,i)*a2[j][(i+m-2)%m+1])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*UU(1,i)*a2[0][(i+m-2)%m+1])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*DD(1,i)*a2[j][i%m+1])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*DD(1,i)*a2[0][i%m+1])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*RR(1,i)*a2[j][i+m])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]-1ll*RR(1,i)*a2[0][i+m])%mod;
					a[i+m][2*m+1]=(a[i+m][2*m+1]+mod)%mod;
				}
				for(int i=1;i<=2*m+1;++i)a[ty][i]=(i==ty+m);
				gauss(2*m);
				for(int i=1;i<=m;++i)e[tx-1][i]=aa[i],e[tx][i]=aa[i+m];
			}else{
				for(int i=1;i<=3*m;++i)for(int j=1;j<=3*m+1;++j)
					a[i][j]=0;
				for(int i=1;i<=m;++i){
					a[i][3*m+1]=mod-1;a[i][i+m]=mod-1;
					a[i][(i+m-2)%m+1+m]=UU(tx,i);
					a[i][i%m+1+m]=DD(tx,i);
					a[i][i]=LL(tx,i);
					a[i][i+2*m]=RR(tx,i);
					a[i][3*m+1]=(a[i][3*m+1]+mod)%mod;
				}
				for(int i=1;i<=m;++i){
					a[i+m][3*m+1]=mod-1;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*(mod-1)*a2[j][i])%mod;
					a[i+m][3*m+1]=(a[i+m][3*m+1]-1ll*(mod-1)*a2[0][i])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*UU(1,i)*a2[j][(i+m-2)%m+1])%mod;
					a[i+m][3*m+1]=(a[i+m][3*m+1]-1ll*UU(1,i)*a2[0][(i+m-2)%m+1])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*DD(1,i)*a2[j][i%m+1])%mod;
					a[i+m][3*m+1]=(a[i+m][3*m+1]-1ll*DD(1,i)*a2[0][i%m+1])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j]=(a[i+m][j]+1ll*RR(1,i)*a2[j][i+m])%mod;
					a[i+m][3*m+1]=(a[i+m][3*m+1]-1ll*RR(1,i)*a2[0][i+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+m][j+m]=(a[i+m][j+m]+1ll*LL(1,i)*a1[j][i+m])%mod;
					a[i+m][3*m+1]=(a[i+m][3*m+1]-1ll*LL(1,i)*a1[0][i+m])%mod;
					a[i+m][3*m+1]=(a[i+m][3*m+1]+mod)%mod;
				}
				for(int i=1;i<=m;++i){
					a[i+2*m][3*m+1]=mod-1;
					for(int j=1;j<=2*m;++j)a[i+2*m][j+m]=(a[i+2*m][j+m]+1ll*(mod-1)*a1[j][i+m])%mod;
					a[i+2*m][3*m+1]=(a[i+2*m][3*m+1]-1ll*(mod-1)*a1[0][i+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+2*m][j+m]=(a[i+2*m][j+m]+1ll*UU(n,i)*a1[j][(i+m-2)%m+1+m])%mod;
					a[i+2*m][3*m+1]=(a[i+2*m][3*m+1]-1ll*UU(n,i)*a1[0][(i+m-2)%m+1+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+2*m][j+m]=(a[i+2*m][j+m]+1ll*DD(n,i)*a1[j][i%m+1+m])%mod;
					a[i+2*m][3*m+1]=(a[i+2*m][3*m+1]-1ll*DD(n,i)*a1[0][i%m+1+m])%mod;
					for(int j=1;j<=2*m;++j)a[i+2*m][j+m]=(a[i+2*m][j+m]+1ll*LL(n,i)*a1[j][i])%mod;
					a[i+2*m][3*m+1]=(a[i+2*m][3*m+1]-1ll*LL(n,i)*a1[0][i])%mod;
					for(int j=1;j<=2*m;++j)a[i+2*m][j]=(a[i+2*m][j]+1ll*RR(n,i)*a2[j][i])%mod;
					a[i+2*m][3*m+1]=(a[i+2*m][3*m+1]-1ll*RR(n,i)*a2[0][i])%mod;
					a[i+2*m][3*m+1]=(a[i+2*m][3*m+1]+mod)%mod;
				}
				for(int i=1;i<=3*m+1;++i)a[ty][i]=(i==ty+m);
				gauss(3*m);
				for(int i=1;i<=m;++i)e[tx-1][i]=aa[i],e[tx][i]=aa[i+m],e[tx+1][i]=aa[i+2*m];
			}
			if(sx==tx||sx==tx-1||sx==tx+1){
				printf("%d\n",(e[sx][sy]+mod)%mod);
				continue;
			}
			if(sx<tx-1){
				for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j){
					a2[i][j]=(i==j),a22[i][j]=0;
				}
				query2(1,n,1,sx,tx-2);
				int ans=a2[0][sy];
				for(int i=1;i<=m;++i)ans=(ans+1ll*e[tx-1][i]*a2[i][sy])%mod;
				for(int i=1;i<=m;++i)ans=(ans+1ll*e[tx][i]*a2[i+m][sy])%mod;
				printf("%d\n",(ans+mod)%mod);
			}else{
				for(int i=0;i<=2*m;++i)for(int j=0;j<=2*m;++j){
					a1[i][j]=(i==j),a11[i][j]=0;
				}
				query1(1,n,1,tx+2,sx);
				int ans=a1[0][sy+m];
				for(int i=1;i<=m;++i)ans=(ans+1ll*e[tx][i]*a1[i][sy+m])%mod;
				for(int i=1;i<=m;++i)ans=(ans+1ll*e[tx+1][i]*a1[i+m][sy+m])%mod;
				printf("%d\n",(ans+mod)%mod);
			}
		}
	}
	return 0;
}