SBYVAL.f90#2
      SUBROUTINE SBYVAL(ARRIN1,ARRIN2,INX)
#29
      REAL :: ARRIN1(*) , ARRIN2(*) , RMIN , TEMP1 , TEMP2
#37
         RMIN = ARRIN1(JC)                                              !      0
#40
            IF ( ARRIN1(I).LT.RMIN ) THEN                               !      0
#42
               RMIN = ARRIN1(I)
#46
         TEMP1 = ARRIN1(JC)                                             !      0
#48
         ARRIN1(JC) = ARRIN1(IMIN)
#50
         ARRIN1(IMIN) = TEMP1

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use