added HAS_SPICELIB preprocessor if building with spice support

Author: jacobwilliams

src/spice_ephemeris_module.f90 renamed to src/spice_ephemeris_module.F90

@@ -36,6 +36,7 @@ module spice_ephemeris_module
 
     end type spice_ephemeris
 
+#ifdef HAS_SPICELIB
     !these routines are in the SPICELIB:
     interface
         subroutine trcoff()
@@ -83,6 +84,7 @@ subroutine spkgps ( targ, et, ref, obs, pos, lt )
             real(wp)              :: lt
         end subroutine spkgps
     end interface
+#endif
 
     contains
 !*****************************************************************************************
@@ -99,6 +101,8 @@ subroutine close_spice_ephemeris(me)
 
     integer :: i  !! counter
 
+#ifdef HAS_SPICELIB
+
     !unload all the kernels:
     if (allocated(me%kernels)) then
         do i=1,size(me%kernels)
@@ -110,6 +114,10 @@ subroutine close_spice_ephemeris(me)
     !clear the system:
     call kclear()
 
+#else
+    error stop 'this library was not built with SPICELIB support'
+#endif
+
     end subroutine close_spice_ephemeris
 !*****************************************************************************************
 
@@ -126,6 +134,8 @@ subroutine initialize_spice_ephemeris(me,kernels)
 
     integer :: i !! counter
 
+#ifdef HAS_SPICELIB
+
     ! disable the SPICE traceback system to speed it up.
     call trcoff()
 
@@ -139,6 +149,10 @@ subroutine initialize_spice_ephemeris(me,kernels)
         call furnsh(trim(kernels(i)))
     end do
 
+#else
+    error stop 'this library was not built with SPICELIB support'
+#endif
+
     end subroutine initialize_spice_ephemeris
 !*****************************************************************************************
 
@@ -164,10 +178,16 @@ subroutine get_rv_from_spice_ephemeris(me,et,targ,obs,rv,status_ok)
 
     real(wp) :: lt  !! light time output from spkgeo
 
+#ifdef HAS_SPICELIB
+
     call spkgeo ( targ%id, et, 'J2000', obs%id, rv, lt )
 
     status_ok = .not. failed()
 
+#else
+    error stop 'this library was not built with SPICELIB support'
+#endif
+
     end subroutine get_rv_from_spice_ephemeris
 !*****************************************************************************************
 
@@ -193,10 +213,16 @@ subroutine get_r_from_spice_ephemeris(me,et,targ,obs,r,status_ok)
 
     real(wp) :: lt  !! light time output from spkgeo
 
+#ifdef HAS_SPICELIB
+
     call spkgps ( targ%id, et, 'J2000', obs%id, r, lt )
 
     status_ok = .not. failed()
 
+#else
+    error stop 'this library was not built with SPICELIB support'
+#endif
+
     end subroutine get_r_from_spice_ephemeris
 !*****************************************************************************************