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
\