1 |
!======================================================================= |
2 |
subroutine mitcplr_initcomp( compind, carg ) |
3 |
implicit none |
4 |
! Predefined constants/arrays |
5 |
#include "CPLR_SIG.h" |
6 |
! Arguments |
7 |
integer compind |
8 |
character*(MAXLEN_COMP_NAME) carg |
9 |
! Local |
10 |
! ------------------------------------------------------------------ |
11 |
|
12 |
component_List(compind)=carg |
13 |
|
14 |
num_component_procs( compind ) = 0 |
15 |
num_compcplr_procs( compind ) = 0 |
16 |
component_Name( compind ) = carg |
17 |
|
18 |
! ------------------------------------------------------------------ |
19 |
return |
20 |
end |
21 |
!======================================================================= |