!======================================================================= subroutine mitcplr_initcomp( compind, carg ) implicit none ! Predefined constants/arrays #include "CPLR_SIG.h" ! Arguments integer compind character*(MAXLEN_COMP_NAME) carg ! Local ! ------------------------------------------------------------------ component_List(compind)=carg num_component_procs( compind ) = 0 num_compcplr_procs( compind ) = 0 component_Name( compind ) = carg ! ------------------------------------------------------------------ return end !=======================================================================