SBYVAL.f90#26
      INTEGER :: I , INX , JC , IMIN
#33
      JC = 1
#35
      DO WHILE ( JC.LE.INX )
#37
         RMIN = ARRIN1(JC)                                              !      0
#38
         IMIN = JC
#39
         DO I = JC , INX
#46
         TEMP1 = ARRIN1(JC)                                             !      0
#47
         TEMP2 = ARRIN2(JC)
#48
         ARRIN1(JC) = ARRIN1(IMIN)
#49
         ARRIN2(JC) = ARRIN2(IMIN)
#53
         JC = JC + 1

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