C     ==================
      SUBROUTINE BASINIT
C     ==================
C
C --- Basic Initialization ....
C
C     A.Quadt, May 1997.
C     -----------------------------------

      IMPLICIT NONE

#include "ctrlcm.inc"

      INTEGER      IERR



C ----------------------------------------------------------------
C --- Load CAL geometry for use with electron finder routines. ---
C ----------------------------------------------------------------
      CALL CCGEOM(IERR)

      WRITE(*,*) ' '
      WRITE(*,*) ' '

      IF (IERR.EQ.0) THEN
          WRITE(*,*) ' ----------------------------------------- '
          WRITE(*,*) ' ---- CAL GEOMETRY SUCCESSFULLY LOADED --- '
          WRITE(*,*) ' ----------------------------------------- '
      ELSEIF (IERR.NE.0) THEN
          WRITE(*,*) ' ----------------------------------- '
          WRITE(*,*) ' ---- CAL GEOMETRY LOAD ERROR --- ',IERR
          WRITE(*,*) ' ----------------------------------- '
      ENDIF

      WRITE(*,*) ' '
      WRITE(*,*) ' '


C --------------------------------------------------
C --- Check which data type and year running on. ---
C --------------------------------------------------
      CALL GTRUNP(CTRL_YEAR, CTRL_RUNPRD)
      IF (CTRL_RUNPRD .GT. 0 .OR.
     &    CTRL_RUNPRD .EQ.-10) THEN
         REAL_DATA = .TRUE.
         MC_DATA   = .FALSE.
      ELSEIF (CTRL_RUNPRD .EQ. -1) THEN
         REAL_DATA = .FALSE.
         MC_DATA   = .TRUE.
      ELSE
         REAL_DATA = .FALSE.
         MC_DATA   = .FALSE.
      ENDIF

      IF (REAL_DATA) THEN
        WRITE(*,*) ' '
        WRITE(*,*) '= FSHQEX ZES code running in REAL DATA mode =='
        WRITE(*,*) ' '
      ELSEIF (MC_DATA) THEN
        WRITE(*,*) ' '
        WRITE(*,*) '= FSHQEX ZES code running in MONTE CARLO mode =='
        WRITE(*,*) ' '
      ENDIF


C -------------------
C --- Get B-Field ---
C -------------------
      CALL ZESMAF

      RETURN
      END