character*(MAXLEN_COMP_NAME) component_Name(MAX_COMPONENTS)
integer MAXLEN_COMP_NAME
parameter( MAXLEN_COMP_NAME=32 )
parameter( HEADER_SIZE=8+MAXLEN_COMP_NAME )
character*(MAXLEN_COMP_NAME) component_List(MAX_COMPONENTS)
character*(MAXLEN_COMP_NAME) coupler_Name
character*(MAXLEN_COMP_NAME) my_component_name
character*(MAXLEN_COMP_NAME) recvdname
real*8 rarg(MAXLEN_COMP_NAME)
character*(MAXLEN_COMP_NAME) cbuftmp
do j=1,MAXLEN_COMP_NAME
integer iarg(MAXLEN_COMP_NAME)
real*4 rarg(MAXLEN_COMP_NAME)
character*(MAXLEN_COMP_NAME) carg
write(cbuf(1:MAXLEN_COMP_NAME),'(2a,i4.4,a)')
character*(MAXLEN_COMP_NAME) cbuf
lenbuf=8+MAXLEN_COMP_NAME