/dports/astro/wcslib/wcslib-7.7/Fortran/test/ |
H A D | tspc.f | 53 NFAIL = 0 71 NFAIL = NFAIL + CLOSURE('WAVE-F2W', 0D0, 0D0, NAXISJ, CRPIXJ, 73 NFAIL = NFAIL + CLOSURE('VOPT-F2W', 0D0, RESTWAV, NAXISJ, CRPIXJ, 75 NFAIL = NFAIL + CLOSURE('ZOPT-F2W', 0D0, RESTWAV, NAXISJ, CRPIXJ, 77 NFAIL = NFAIL + CLOSURE('AWAV-F2A', 0D0, 0D0, NAXISJ, CRPIXJ, 79 NFAIL = NFAIL + CLOSURE('VELO-F2V', RESTFRQ, 0D0, NAXISJ, CRPIXJ, 81 NFAIL = NFAIL + CLOSURE('BETA-F2V', RESTFRQ, 0D0, NAXISJ, CRPIXJ, 95 NFAIL = NFAIL + CLOSURE('FREQ-W2F', 0D0, 0D0, NAXISJ, CRPIXJ, 97 NFAIL = NFAIL + CLOSURE('AFRQ-W2F', 0D0, 0D0, NAXISJ, CRPIXJ, 331 NFAIL = 0 [all …]
|
H A D | tprj1.f | 70 NFAIL = NFAIL + PROJEX ('AZP', PV, 90, 5, TOL) 76 NFAIL = NFAIL + PROJEX ('SZP', PV, 90, -90, TOL) 79 NFAIL = NFAIL + PROJEX ('TAN', PV, 90, 5, TOL) 82 NFAIL = NFAIL + PROJEX ('STG', PV, 90, -85, TOL) 87 NFAIL = NFAIL + PROJEX ('SIN', PV, 90, 45, TOL) 90 NFAIL = NFAIL + PROJEX ('ARC', PV, 90, -90, TOL) 103 NFAIL = NFAIL + PROJEX ('ZPN', PV, 90, 10, TOL) 279 NFAIL = NFAIL + 1 296 NFAIL = NFAIL + 1 304 NFAIL = NFAIL + 1 [all …]
|
H A D | tspx.f | 101 NFAIL = NFAIL + CLOSURE ('freq', 'afrq', 0D0, 103 NFAIL = NFAIL + CLOSURE ('afrq', 'freq', 0D0, 106 NFAIL = NFAIL + CLOSURE ('freq', 'ener', 0D0, 108 NFAIL = NFAIL + CLOSURE ('ener', 'freq', 0D0, 111 NFAIL = NFAIL + CLOSURE ('freq', 'wavn', 0D0, 113 NFAIL = NFAIL + CLOSURE ('wavn', 'freq', 0D0, 121 NFAIL = NFAIL + CLOSURE ('freq', 'wave', 0D0, 123 NFAIL = NFAIL + CLOSURE ('wave', 'freq', 0D0, 126 NFAIL = NFAIL + CLOSURE ('freq', 'awav', 0D0, 128 NFAIL = NFAIL + CLOSURE ('awav', 'freq', 0D0, [all …]
|
/dports/math/slatec/ |
H A D | test23.f | 78 NFAIL = NFAIL + NERR 80 NFAIL = NFAIL + NERR 82 NFAIL = NFAIL + NERR 84 NFAIL = NFAIL + NERR 86 NFAIL = NFAIL + NERR 88 NFAIL = NFAIL + NERR 90 NFAIL = NFAIL + NERR 92 NFAIL = NFAIL + NERR 94 NFAIL = NFAIL + NERR 96 NFAIL = NFAIL + NERR [all …]
|
H A D | test40.f | 49 NFAIL = 0 67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 77 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 82 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 87 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 92 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 97 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 102 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 107 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 [all …]
|
H A D | test39.f | 48 NFAIL = 0 66 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 71 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 76 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 81 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 86 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 91 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 96 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 101 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 106 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 [all …]
|
H A D | test50.f | 49 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 53 NFAIL = 0 69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 74 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 79 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 84 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 89 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 94 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 99 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 103 IF (NFAIL .EQ. 0) THEN [all …]
|
H A D | test10.f | 42 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 46 NFAIL = 0 62 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 64 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 66 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 70 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 76 IF (NFAIL .EQ. 0) THEN 79 WRITE (LUN, 9010) NFAIL
|
H A D | test09.f | 41 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 45 NFAIL = 0 61 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 71 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 75 IF (NFAIL .EQ. 0) THEN 78 WRITE (LUN, 9010) NFAIL
|
H A D | test32.f | 46 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 50 NFAIL = 0 66 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 71 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 76 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 81 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 86 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 90 IF (NFAIL .EQ. 0) THEN 93 WRITE (LUN, 9010) NFAIL
|
H A D | test34.f | 45 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 49 NFAIL = 0 65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 70 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 75 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 80 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 85 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 89 IF (NFAIL .EQ. 0) THEN 92 WRITE (LUN, 9010) NFAIL
|
H A D | test33.f | 47 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 51 NFAIL = 0 67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 77 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 82 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 87 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 91 IF (NFAIL .EQ. 0) THEN 94 WRITE (LUN, 9010) NFAIL
|
H A D | test43.f | 43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 47 NFAIL = 0 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 73 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 78 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 82 IF (NFAIL .EQ. 0) THEN 85 WRITE (LUN, 9010) NFAIL
|
H A D | test13.f | 43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 47 NFAIL = 0 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 73 IF (NFAIL .EQ. 0) THEN 76 WRITE (LUN, 9010) NFAIL
|
H A D | test14.f | 43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 47 NFAIL = 0 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 73 IF (NFAIL .EQ. 0) THEN 76 WRITE (LUN, 9010) NFAIL
|
H A D | test44.f | 43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 47 NFAIL = 0 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 73 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 78 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 82 IF (NFAIL .EQ. 0) THEN 85 WRITE (LUN, 9010) NFAIL
|
H A D | test54.f | 42 INTEGER LUN, I1MACH, LIN, NFAIL, KPRINT, IPASS 46 NFAIL = 0 62 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 67 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 72 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 77 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 81 IF (NFAIL .EQ. 0) THEN 84 WRITE (LUN, 9010) NFAIL
|
H A D | test22.f | 44 INTEGER KPRINT, LIN, LUN, NERR, NFAIL 48 NFAIL = 0 64 NFAIL = NFAIL+NERR 66 NFAIL = NFAIL+NERR 68 NFAIL = NFAIL+NERR 72 IF (NFAIL .EQ. 0) THEN 75 WRITE (LUN, 9010) NFAIL
|
H A D | test42.f | 43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 47 NFAIL = 0 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 73 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 77 IF (NFAIL .EQ. 0) THEN 80 WRITE (LUN, 9010) NFAIL
|
H A D | test21.f | 44 INTEGER KPRINT, LIN, LUN, NERR, NFAIL 48 NFAIL = 0 64 NFAIL = NFAIL + NERR 66 NFAIL = NFAIL + NERR 68 NFAIL = NFAIL + NERR 72 IF (NFAIL .EQ. 0) THEN 75 WRITE (LUN, 9010) NFAIL
|
H A D | test52.f | 44 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 48 NFAIL = 0 64 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 74 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 78 IF (NFAIL .EQ. 0) THEN 81 WRITE (LUN, 9010) NFAIL
|
H A D | test53.f | 45 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 49 NFAIL = 0 65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 70 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 75 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 79 IF (NFAIL .EQ. 0) THEN 82 WRITE (LUN, 9010) NFAIL
|
H A D | test06.f | 45 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 49 NFAIL = 0 65 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 70 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 75 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 79 IF (NFAIL .EQ. 0) THEN 82 WRITE (LUN, 9010) NFAIL
|
H A D | test05.f | 44 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 48 NFAIL = 0 64 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 69 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 74 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 78 IF (NFAIL .EQ. 0) THEN 81 WRITE (LUN, 9010) NFAIL
|
H A D | test41.f | 43 INTEGER IPASS, KPRINT, LIN, LUN, NFAIL 47 NFAIL = 0 63 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 68 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 73 IF (IPASS .EQ. 0) NFAIL = NFAIL + 1 77 IF (NFAIL .EQ. 0) THEN 80 WRITE (LUN, 9010) NFAIL
|