June 24 2002 12:25:01.109 PM GEOMPACK3_PRB: Test the routines in GEOMPACK3. DRAREA AREAPG computes the area of a polygon. AREATR computes the area of a triangle. ANGLE computes the angles of a polygon. I, (X,Y) 1 1.00000 0.00000 2 0.500000 0.866025 3 -0.500000 0.866025 4 -1.00000 0.00000 5 -0.500000 -0.866025 6 0.500000 -0.866025 I, Triangle, Angle 1 0.00000 2.09440 2 0.866025 2.09440 3 1.73205 2.09440 4 1.73205 2.09440 5 0.866025 2.09440 6 0.00000 2.09440 Area computation by: AREAPG AREATR 5.19615 5.19615 DRDSORT RANDPT generates random points (and variations). DHPSRT sorts multidimensional double precision vectors. 1 0.7599364 0.5054622 2 0.4706911 0.7599232 3 0.5826738 0.8983039 4 0.2141440 0.3698621 5 0.0330602 0.8666114 6 0.1252102 0.0976546 7 0.6590629 0.7871201 8 0.8119425 0.8964329 9 0.2092338 0.2415745 10 0.5248116 0.2677833 11 0.2717472 0.6328177 12 0.5525799 0.3104528 13 0.0130475 0.0333018 14 0.8271604 0.9233513 15 0.6098558 0.9847704 16 0.0812091 0.6316019 17 0.4682860 0.4678636 18 0.4022023 0.0043875 19 0.8238211 0.7603937 20 0.5267479 0.1333443 13 0.0130475 0.0333018 5 0.0330602 0.8666114 16 0.0812091 0.6316019 6 0.1252102 0.0976546 9 0.2092338 0.2415745 4 0.2141440 0.3698621 11 0.2717472 0.6328177 18 0.4022023 0.0043875 17 0.4682860 0.4678636 2 0.4706911 0.7599232 10 0.5248116 0.2677833 20 0.5267479 0.1333443 12 0.5525799 0.3104528 3 0.5826738 0.8983039 15 0.6098558 0.9847704 7 0.6590629 0.7871201 1 0.7599364 0.5054622 8 0.8119425 0.8964329 19 0.8238211 0.7603937 14 0.8271604 0.9233513 DRISORT RANDPT generates random points (and variations). IHPSRT sorts multidimensional integer vectors. 21 0 0 13 0 0 5 0 17 16 1 12 6 2 1 9 4 4 4 4 7 11 5 12 18 8 0 17 9 9 2 9 15 20 10 2 10 10 5 12 11 6 3 11 17 15 12 19 7 13 15 1 15 10 19 16 15 8 16 17 14 16 18 DRLU LUFAC computes the LU factorization of a matrix. LUSOL solves a linear system. a, b 0.5198728 0.1653477 -0.9338796 0.3181257 0.0694666 0.0109243 0.7966077 0.7332228 0.5742402 2.1149951 -0.0586178 -0.5717121 -0.7495796 0.6238850 -0.7560244 0.5198464 -0.2602758 -0.8046908 0.7928658 0.2477456 ipvt, lu 1 0.5198728 0.1653477 -0.9338796 0.3181257 2 0.0210135 0.7931332 0.7528469 0.5675553 4 -0.1127541 -0.6973210 0.5331380 0.7793205 4 0.9999493 -0.5366250 -0.6187936 1.5377618 x = 1.0000000 1.0000000 1.0000000 1.0000000 emax,esum = 0.0000000E+00 0.0000000E+00 tf, ts = 0.000 0.000 DRPRIM PRIME returns a prime number greater than a given value I. I PRIME(I) 1541229569, 14011 1407538561, 14011 247479297, 14011 963113729, 14011 932987265, 14011 1289692161, 14011 1642908033, 14011 517154817, 14011 1125793281, 14011 626429057, 14011 DRROT ROTIAR shifts an integer array. Initial vector: 1 2 3 4 5 6 7 8 9 10 Vector after applying a shift of 3 4 5 6 7 8 9 10 1 2 3 GEOMPACK3_PRB: Normal end of execution.