All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
syisrt.f
Go to the documentation of this file.
1 CDECK ID>, SYISRT.
2 ********************************
3  SUBROUTINE syisrt(N,Q,III)
4 * Just sort III with energy
5 * S.Y
6 ********************************
7  implicit none
8  INTEGER n,iii(*),i,j
9  INTEGER imaxs
10  REAL q(5,*),pp(500)
11  REAL rmaxs
12 
13  DO i=1,n
14  pp(i)=q(4,i)
15  ENDDO
16  DO i=1,n
17  imaxs=1
18  rmaxs=pp(1)
19  DO j=2,n
20  IF(pp(j).GT.rmaxs) THEN
21  rmaxs = pp(j)
22  imaxs = j
23  ENDIF
24  ENDDO
25  iii(i)=imaxs
26  pp(imaxs)=-1.e+09
27  ENDDO
28 
29  END
syisrt
subroutine syisrt(N, Q, III)
Definition: syisrt.f:3