Symbol Description Uses
ranks 8



File Line number Procedure Code
./pkg/compon_communic/mitcplr_sortranks.F 16 MITCPLR_SORTRANKS
        if ( ranks(k) .lt. ranks(j) ) then
./pkg/compon_communic/mitcplr_sortranks.F 17 MITCPLR_SORTRANKS
         itmp=ranks(k)
./pkg/compon_communic/mitcplr_sortranks.F 18 MITCPLR_SORTRANKS
         ranks(k)=ranks(j)
./pkg/compon_communic/mitcplr_sortranks.F 19 MITCPLR_SORTRANKS
         ranks(j)=itmp
./pkg/compon_communic/mitcplr_sortranks.F 5 MITCPLR_SORTRANKS
      subroutine MITCPLR_SORTRANKS( nranks, ranks )
./pkg/compon_communic/mitcplr_sortranks.F 9 MITCPLR_SORTRANKS
      integer ranks(nranks)