logical couplerFlag
couplerFlag = .FALSE.
call MITCPLR_INIT1( myTypeStr, couplerFlag )
couplerFlag = .TRUE.
if ( couplerFlag ) then
if ( couplerFlag ) j=myid
if (.not.couplerFlag)
if ( couplerFlag ) ibuf(2)=MITCPLR_COUPLER
subroutine MITCPLR_INIT1( myTypeStr, couplerFlag )