| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character(len=*), | parameter | :: | myname_ | = | 'RouterTestDis' | |
| integer, | dimension(:), pointer | :: | comps | |||
| type(GlobalSegMap) | :: | comp1GSMap | ||||
| type(GlobalSegMap) | :: | comp2GSMap | ||||
| type(Router) | :: | myRout | ||||
| integer | :: | comm1 | ||||
| integer | :: | comm2 | ||||
| integer | :: | rank | ||||
| integer | :: | nprocs | ||||
| integer | :: | compid | ||||
| integer | :: | myID | ||||
| integer | :: | ier | ||||
| integer | :: | color | ||||
| integer | :: | mdev1 | ||||
| integer | :: | mdev2 | ||||
| integer | :: | nprocs1 | ||||
| integer | :: | nprocs2 | ||||
| integer | :: | ngseg | ||||
| integer | :: | gsize | ||||
| character(len=24) | :: | filename1 | ||||
| character(len=24) | :: | filename2 | ||||
| integer | :: | lrank | ||||
| integer | :: | newcomm | ||||
| integer | :: | n | ||||
| integer | :: | junk | ||||
| integer, | dimension(:), allocatable | :: | root_start | |||
| integer, | dimension(:), allocatable | :: | root_length | |||
| integer, | dimension(:), allocatable | :: | root_pe_loc |