This routine reads and processes info from "processors_map.in". Please see a sample input file in Introduction.
REVISION HISTORY:
2001-Nov-15 -- add PROTEX convention remove two arguments: max_num_comp, max_num_exe 2001-May-20 -- first prototypeINTERFACE:
integer function MPH_read_list (filename, filetag, namelist, & low, up, local_num, id_exe, num_comp, total_exe)USES:
implicit noneSEE ALSO:
MPH_find_name, MPH_initINPUT PARAMETERS:
character(len=*), intent(in) :: filename ! the input file name character(len=*), intent(in) :: filetag ! "PROCESSORS_MAP"OUTPUT PARAMETERS:
character (len=32), intent(out) :: namelist(max_num_comps) ! component names integer, intent(out) :: low(max_num_comps) ! lower processor limit of each component ! in each executable world integer, intent(out) :: up(max_num_comps) ! upper processor limit of each component ! in each executable world integer, intent(out) :: local_num(max_num_comps) ! total number of processors for each component integer, intent(out) :: id_exe(max_num_comps) ! executable ids integer, intent(out) :: num_comp(max_num_comps) ! number of components in each executable integer, intent(out) :: total_exe ! total number of executablesLOCAL VARIABLES:
integer :: i, k, multi_num, id character (len=32) :: firstline, temp integer :: itemp1, itemp2
\