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