Go to the source code of this file.
◆ kqsortc()
subroutine kqsortc |
( |
character *(*), dimension(n) |
A, |
|
|
dimension(n) |
ORD, |
|
|
|
N |
|
) |
| |
Definition at line 2 of file kqsortc.f.
References i, n, and p.
15 IMPLICIT INTEGER (A-Z) 17 dimension ord(
n),poplst(2,20)
26 2
IF (u1.GT.l1)
GO TO 3
38 IF (
a(
x).LE.
a(
z))
GO TO 5
45 5
IF (u-l.LE.1)
GO TO 15
56 IF (
a(
x).GE.
a(xx))
GO TO 8
66 IF (
a(
z).LE.
a(zz))
GO TO 10
75 10
IF (
a(
x).LE.
a(
z))
GO TO 11
82 11
IF (
a(
x).LE.
a(xx))
GO TO 12
85 12
IF (
a(
z).GE.
a(zz))
GO TO 6
93 IF (.NOT.(
p.NE.ix.AND.
a(
x).NE.
a(xx)))
GO TO 14
98 IF (.NOT.(q.NE.iz.AND.
a(
z).NE.
a(zz)))
GO TO 15
103 IF (u-q.LE.
p-l)
GO TO 16
112 IF (u1.LE.l1)
GO TO 18
120 18
IF (u.GT.l)
GO TO 4
124 IF (ndeep.EQ.0)
GO TO 2
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x