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