Symbol Description Uses
ranks 8



File Line number Procedure Code
./pkg/compon_communic/mitcplr_sortranks.F 13 MITCPLR_SORTRANKS
        if ( ranks(k) .lt. ranks(j) ) then
./pkg/compon_communic/mitcplr_sortranks.F 14 MITCPLR_SORTRANKS
         itmp=ranks(k)
./pkg/compon_communic/mitcplr_sortranks.F 15 MITCPLR_SORTRANKS
         ranks(k)=ranks(j)
./pkg/compon_communic/mitcplr_sortranks.F 16 MITCPLR_SORTRANKS
         ranks(j)=itmp
./pkg/compon_communic/mitcplr_sortranks.F 2 MITCPLR_SORTRANKS
      subroutine MITCPLR_SORTRANKS( nranks, ranks )
./pkg/compon_communic/mitcplr_sortranks.F 6 MITCPLR_SORTRANKS
      integer ranks(nranks)