100     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
103       integer, intent(in) :: rank, elemsize, lb(1), ub(1)  local
111   integer :: rank = 1  local
113   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
122     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
125       integer, intent(in) :: rank, elemsize, lb(2), ub(2)  local
133   integer :: rank = 2  local
135   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
144     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
147       integer, intent(in) :: rank, elemsize, lb(3), ub(3)  local
155   integer :: rank = 3  local
157   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
166     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
169       integer, intent(in) :: rank, elemsize, lb(4), ub(4)  local
177   integer :: rank = 4  local
179   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
188     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
191       integer, intent(in) :: rank, elemsize, lb(5), ub(5)  local
199   integer :: rank = 5  local
201   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
210     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
213       integer, intent(in) :: rank, elemsize, lb(6), ub(6)  local
221   integer :: rank = 6  local
223   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
232     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
235       integer, intent(in) :: rank, elemsize, lb(7), ub(7)  local
243   integer :: rank = 7  local
245   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
254     subroutine armci_free_farray(a, rank, rc)
257       integer, intent(in)  :: rank  local
263   integer :: rank = 1  local
265   call armci_free_farray(a, rank, rc)
274     subroutine armci_free_farray(a, rank, rc)
277       integer, intent(in)  :: rank  local
283   integer :: rank = 2  local
284   call armci_free_farray(a, rank, rc)
293     subroutine armci_free_farray(a, rank, rc)
296       integer, intent(in)  :: rank  local
302   integer :: rank = 3  local
303   call armci_free_farray(a, rank, rc)
312     subroutine armci_free_farray(a, rank, rc)
315       integer, intent(in)  :: rank  local
321   integer :: rank = 4  local
322   call armci_free_farray(a, rank, rc)
331     subroutine armci_free_farray(a, rank, rc)
334       integer, intent(in)  :: rank  local
340   integer :: rank = 5  local
341   call armci_free_farray(a, rank, rc)
350     subroutine armci_free_farray(a, rank, rc)
353       integer, intent(in)  :: rank  local
359   integer :: rank = 6  local
360   call armci_free_farray(a, rank, rc)
369     subroutine armci_free_farray(a, rank, rc)
372       integer, intent(in)  :: rank  local
378   integer :: rank = 7  local
379   call armci_free_farray(a, rank, rc)
388     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
391       integer, intent(in) :: rank, elemsize, lb(1), ub(1)  local
399   integer :: rank = 1  local
401   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
410     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
413       integer, intent(in) :: rank, elemsize, lb(2), ub(2)  local
421   integer :: rank = 2  local
423   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
432     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
435       integer, intent(in) :: rank, elemsize, lb(3), ub(3)  local
443   integer :: rank = 3  local
445   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
454     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
457       integer, intent(in) :: rank, elemsize, lb(4), ub(4)  local
465   integer :: rank = 4  local
467   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
476     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
479       integer, intent(in) :: rank, elemsize, lb(5), ub(5)  local
487   integer :: rank = 5  local
489   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
498     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
501       integer, intent(in) :: rank, elemsize, lb(6), ub(6)  local
509   integer :: rank = 6  local
511   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
520     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
523       integer, intent(in) :: rank, elemsize, lb(7), ub(7)  local
531   integer :: rank = 7  local
533   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
542     subroutine armci_free_farray(a, rank, rc)
545       integer, intent(in)  :: rank  local
551   integer :: rank = 1  local
553   call armci_free_farray(a, rank, rc)
562     subroutine armci_free_farray(a, rank, rc)
565       integer, intent(in)  :: rank  local
571   integer :: rank = 2  local
572   call armci_free_farray(a, rank, rc)
581     subroutine armci_free_farray(a, rank, rc)
584       integer, intent(in)  :: rank  local
590   integer :: rank = 3  local
591   call armci_free_farray(a, rank, rc)
600     subroutine armci_free_farray(a, rank, rc)
603       integer, intent(in)  :: rank  local
609   integer :: rank = 4  local
610   call armci_free_farray(a, rank, rc)
619     subroutine armci_free_farray(a, rank, rc)
622       integer, intent(in)  :: rank  local
628   integer :: rank = 5  local
629   call armci_free_farray(a, rank, rc)
638     subroutine armci_free_farray(a, rank, rc)
641       integer, intent(in)  :: rank  local
647   integer :: rank = 6  local
648   call armci_free_farray(a, rank, rc)
657     subroutine armci_free_farray(a, rank, rc)
660       integer, intent(in)  :: rank  local
666   integer :: rank = 7  local
667   call armci_free_farray(a, rank, rc)
676     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
679       integer, intent(in) :: rank, elemsize, lb(1), ub(1)  local
687   integer :: rank = 1  local
689   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
698     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
701       integer, intent(in) :: rank, elemsize, lb(2), ub(2)  local
709   integer :: rank = 2  local
711   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
720     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
723       integer, intent(in) :: rank, elemsize, lb(3), ub(3)  local
731   integer :: rank = 3  local
733   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
742     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
745       integer, intent(in) :: rank, elemsize, lb(4), ub(4)  local
753   integer :: rank = 4  local
755   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
764     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
767       integer, intent(in) :: rank, elemsize, lb(5), ub(5)  local
775   integer :: rank = 5  local
777   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
786     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
789       integer, intent(in) :: rank, elemsize, lb(6), ub(6)  local
797   integer :: rank = 6  local
799   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
808     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
811       integer, intent(in) :: rank, elemsize, lb(7), ub(7)  local
819   integer :: rank = 7  local
821   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
830     subroutine armci_free_farray(a, rank, rc)
833       integer, intent(in)  :: rank  local
839   integer :: rank = 1  local
841   call armci_free_farray(a, rank, rc)
850     subroutine armci_free_farray(a, rank, rc)
853       integer, intent(in)  :: rank  local
859   integer :: rank = 2  local
860   call armci_free_farray(a, rank, rc)
869     subroutine armci_free_farray(a, rank, rc)
872       integer, intent(in)  :: rank  local
878   integer :: rank = 3  local
879   call armci_free_farray(a, rank, rc)
888     subroutine armci_free_farray(a, rank, rc)
891       integer, intent(in)  :: rank  local
897   integer :: rank = 4  local
898   call armci_free_farray(a, rank, rc)
907     subroutine armci_free_farray(a, rank, rc)
910       integer, intent(in)  :: rank  local
916   integer :: rank = 5  local
917   call armci_free_farray(a, rank, rc)
926     subroutine armci_free_farray(a, rank, rc)
929       integer, intent(in)  :: rank  local
935   integer :: rank = 6  local
936   call armci_free_farray(a, rank, rc)
945     subroutine armci_free_farray(a, rank, rc)
948       integer, intent(in)  :: rank  local
954   integer :: rank = 7  local
955   call armci_free_farray(a, rank, rc)
964     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
967       integer, intent(in) :: rank, elemsize, lb(1), ub(1)  local
975   integer :: rank = 1  local
977   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
986     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
989       integer, intent(in) :: rank, elemsize, lb(2), ub(2)  local
997   integer :: rank = 2  local
999   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1008     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1011       integer, intent(in) :: rank, elemsize, lb(3), ub(3)  local
1019   integer :: rank = 3  local
1021   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1030     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1033       integer, intent(in) :: rank, elemsize, lb(4), ub(4)  local
1041   integer :: rank = 4  local
1043   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1052     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1055       integer, intent(in) :: rank, elemsize, lb(5), ub(5)  local
1063   integer :: rank = 5  local
1065   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1074     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1077       integer, intent(in) :: rank, elemsize, lb(6), ub(6)  local
1085   integer :: rank = 6  local
1087   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1096     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1099       integer, intent(in) :: rank, elemsize, lb(7), ub(7)  local
1107   integer :: rank = 7  local
1109   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1118     subroutine armci_free_farray(a, rank, rc)
1121       integer, intent(in)  :: rank  local
1127   integer :: rank = 1  local
1129   call armci_free_farray(a, rank, rc)
1138     subroutine armci_free_farray(a, rank, rc)
1141       integer, intent(in)  :: rank  local
1147   integer :: rank = 2  local
1148   call armci_free_farray(a, rank, rc)
1157     subroutine armci_free_farray(a, rank, rc)
1160       integer, intent(in)  :: rank  local
1166   integer :: rank = 3  local
1167   call armci_free_farray(a, rank, rc)
1176     subroutine armci_free_farray(a, rank, rc)
1179       integer, intent(in)  :: rank  local
1185   integer :: rank = 4  local
1186   call armci_free_farray(a, rank, rc)
1195     subroutine armci_free_farray(a, rank, rc)
1198       integer, intent(in)  :: rank  local
1204   integer :: rank = 5  local
1205   call armci_free_farray(a, rank, rc)
1214     subroutine armci_free_farray(a, rank, rc)
1217       integer, intent(in)  :: rank  local
1223   integer :: rank = 6  local
1224   call armci_free_farray(a, rank, rc)
1233     subroutine armci_free_farray(a, rank, rc)
1236       integer, intent(in)  :: rank  local
1242   integer :: rank = 7  local
1243   call armci_free_farray(a, rank, rc)
1252     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1255       integer, intent(in) :: rank, elemsize, lb(1), ub(1)  local
1263   integer :: rank = 1  local
1265   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1274     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1277       integer, intent(in) :: rank, elemsize, lb(2), ub(2)  local
1285   integer :: rank = 2  local
1287   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1296     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1299       integer, intent(in) :: rank, elemsize, lb(3), ub(3)  local
1307   integer :: rank = 3  local
1309   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1318     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1321       integer, intent(in) :: rank, elemsize, lb(4), ub(4)  local
1329   integer :: rank = 4  local
1331   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1340     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1343       integer, intent(in) :: rank, elemsize, lb(5), ub(5)  local
1351   integer :: rank = 5  local
1353   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1362     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1365       integer, intent(in) :: rank, elemsize, lb(6), ub(6)  local
1373   integer :: rank = 6  local
1375   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1384     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1387       integer, intent(in) :: rank, elemsize, lb(7), ub(7)  local
1395   integer :: rank = 7  local
1397   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1406     subroutine armci_free_farray(a, rank, rc)
1409       integer, intent(in)  :: rank  local
1415   integer :: rank = 1  local
1417   call armci_free_farray(a, rank, rc)
1426     subroutine armci_free_farray(a, rank, rc)
1429       integer, intent(in)  :: rank  local
1435   integer :: rank = 2  local
1436   call armci_free_farray(a, rank, rc)
1445     subroutine armci_free_farray(a, rank, rc)
1448       integer, intent(in)  :: rank  local
1454   integer :: rank = 3  local
1455   call armci_free_farray(a, rank, rc)
1464     subroutine armci_free_farray(a, rank, rc)
1467       integer, intent(in)  :: rank  local
1473   integer :: rank = 4  local
1474   call armci_free_farray(a, rank, rc)
1483     subroutine armci_free_farray(a, rank, rc)
1486       integer, intent(in)  :: rank  local
1492   integer :: rank = 5  local
1493   call armci_free_farray(a, rank, rc)
1502     subroutine armci_free_farray(a, rank, rc)
1505       integer, intent(in)  :: rank  local
1511   integer :: rank = 6  local
1512   call armci_free_farray(a, rank, rc)
1521     subroutine armci_free_farray(a, rank, rc)
1524       integer, intent(in)  :: rank  local
1530   integer :: rank = 7  local
1531   call armci_free_farray(a, rank, rc)
1541     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1544       integer, intent(in) :: rank, elemsize, lb(1), ub(1)  local
1552   integer :: rank = 1  local
1554   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1563     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1566       integer, intent(in) :: rank, elemsize, lb(2), ub(2)  local
1574   integer :: rank = 2  local
1576   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1585     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1588       integer, intent(in) :: rank, elemsize, lb(3), ub(3)  local
1596   integer :: rank = 3  local
1598   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1607     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1610       integer, intent(in) :: rank, elemsize, lb(4), ub(4)  local
1618   integer :: rank = 4  local
1620   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1629     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1632       integer, intent(in) :: rank, elemsize, lb(5), ub(5)  local
1640   integer :: rank = 5  local
1642   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1651     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1654       integer, intent(in) :: rank, elemsize, lb(6), ub(6)  local
1662   integer :: rank = 6  local
1664   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1673     subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1676       integer, intent(in) :: rank, elemsize, lb(7), ub(7)  local
1684   integer :: rank = 7  local
1686   call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
1695     subroutine armci_free_farray(a, rank, rc)
1698       integer, intent(in)  :: rank  local
1704   integer :: rank = 1  local
1706   call armci_free_farray(a, rank, rc)
1715     subroutine armci_free_farray(a, rank, rc)
1718       integer, intent(in)  :: rank  local
1724   integer :: rank = 2  local
1725   call armci_free_farray(a, rank, rc)
1734     subroutine armci_free_farray(a, rank, rc)
1737       integer, intent(in)  :: rank  local
1743   integer :: rank = 3  local
1744   call armci_free_farray(a, rank, rc)
1753     subroutine armci_free_farray(a, rank, rc)
1756       integer, intent(in)  :: rank  local
1762   integer :: rank = 4  local
1763   call armci_free_farray(a, rank, rc)
1772     subroutine armci_free_farray(a, rank, rc)
1775       integer, intent(in)  :: rank  local
1781   integer :: rank = 5  local
1782   call armci_free_farray(a, rank, rc)
1791     subroutine armci_free_farray(a, rank, rc)
1794       integer, intent(in)  :: rank  local
1800   integer :: rank = 6  local
1801   call armci_free_farray(a, rank, rc)
1810     subroutine armci_free_farray(a, rank, rc)
1813       integer, intent(in)  :: rank  local
1819   integer :: rank = 7  local
1820   call armci_free_farray(a, rank, rc)