diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-03-04 21:21:30 -0500 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-03-04 21:21:30 -0500 |
| commit | d54fe7c1f704a63824c5bfa0ece65245572e9b27 (patch) | |
| tree | afc52015ffc2c74e0266653eecef1c8ef8ba5d91 /src/slalib/sla_test.f | |
| download | calfuse-d54fe7c1f704a63824c5bfa0ece65245572e9b27.tar.gz | |
Initial commit
Diffstat (limited to 'src/slalib/sla_test.f')
| -rw-r--r-- | src/slalib/sla_test.f | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/slalib/sla_test.f b/src/slalib/sla_test.f new file mode 100644 index 0000000..c094c26 --- /dev/null +++ b/src/slalib/sla_test.f @@ -0,0 +1,28 @@ + PROGRAM SLA_TEST +*+ +* - - - - - +* T E S T +* - - - - - +* +* Simple test of SLALIB library - checks that a program can be +* linked and a correct result returned from at least one subprogram. +* +* P.T.Wallace Starlink 24 August 1992 +* +* Copyright (C) 1995 Rutherford Appleton Laboratory +*- + + IMPLICIT NONE + + DOUBLE PRECISION D + INTEGER J + + + CALL sla_CALDJ(1946,4,30,D,J) + IF (J.EQ.0.AND.NINT(D).EQ.31940) THEN + PRINT *,'SLALIB test completed satisfactorily.' + ELSE + PRINT *,'SLALIB test fails!' + END IF + + END |