Lines Matching refs:ns_partner
1373 ns_me, ns_partner, ns_recv_from, ns_recv_partner, nstate, output_unit local
1514 ns_partner = 0
1525 ns_partner = ns_bound(ip_partner, 2) - ns_bound(ip_partner, 1) + 1
1527 ns_partner = 0
1531 IF (ns_partner*ns_me /= 0) THEN
1533 ALLOCATE (rmat_loc(ns_me + ns_partner, ns_me + ns_partner))
1535 DO i = 1, ns_me + ns_partner
1539 ALLOCATE (c_array_partner(nstate, ns_partner, dim2))
1542 ALLOCATE (xyz_mix(idim)%c_array(ns_me + ns_partner, ns_me + ns_partner))
1552 n2 = ns_partner
1671 IF (ns_partner*ns_me /= 0) THEN
1673 DO i = 1, ns_me + ns_partner
1674 DO j = i + 1, ns_me + ns_partner
1769 IF (ns_partner*ns_me /= 0) THEN