src/slalib/sla_test.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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