Symbol Description Uses
jmatch 8


File Line number Procedure Code
./pkg/compon_communic/mitcplr_match_comp.F 12 NO PROCEDURE 
      integer j,jmatch
./pkg/compon_communic/mitcplr_match_comp.F 21 NO PROCEDURE 
      jmatch=0
./pkg/compon_communic/mitcplr_match_comp.F 24 NO PROCEDURE 
        if ( jmatch .NE. 0 ) then
./pkg/compon_communic/mitcplr_match_comp.F 28 NO PROCEDURE 
         jmatch=j
./pkg/compon_communic/mitcplr_match_comp.F 34 NO PROCEDURE 
      if ( jmatch .EQ. 0) then
./pkg/compon_communic/mitcplr_match_comp.F 39 NO PROCEDURE 
       jmatch=num_components
./pkg/compon_communic/mitcplr_match_comp.F 40 NO PROCEDURE 
       call MITCPLR_INITCOMP( jmatch, carg )
./pkg/compon_communic/mitcplr_match_comp.F 44 NO PROCEDURE 
      mitcplr_match_comp=jmatch