xdopen.f

Go to the documentation of this file.

C> @file
C> @brief Dummy subroutine
C> @author Dennis Keyser @date 1992-07-02
 
C> This subroutine and the corresponding entries: "errset",
C> "xdchek", "xdclos", "xdwrit", "xdread", and "xdform"  are placed
C> here to allow calling routines which reside on both the nas and
C> the cray to compile. These subroutines perform nas-specific
C> functions, but have no corresponding function on the cray. There-
C> fore this subroutine is a "dummy". ft06 print is provided to
C> alert the user that the call to the subroutine results in an
C> immediate return with no function.
C>
C> ### Program History Log:
C> Date | Programmer | Comment
C> -----|------------|--------
C> 1992-07-02 | Dennis Keyser (W/NMC22) | Initial.
C>
C> @author Dennis Keyser @date 1992-07-02
      SUBROUTINE xdopen
C
      CHARACTER*6  ROUTIN(7)
C
      DATA  routin/'XDOPEN','ERRSET','XDCHEK','XDCLOS','XDWRIT',
     $             'XDREAD','XDFORM'/
C
      icall = 1
      GO TO 99
           entry      errset
      icall = 2
      GO TO 99
           entry      xdchek
      icall = 3
      GO TO 99
           entry      xdclos
      icall = 4
      GO TO 99
           entry      xdwrit
      icall = 5
      GO TO 99
           entry      xdread
      icall = 6
      GO TO 99
           entry      xdform
      icall = 7
   99 CONTINUE
      print 1, routin(icall)
    1 FORMAT(/2x,'%%%% SUBR. ',a6,' HAS NO FCN ON THE CRAY, BUT IS ',
     $ 'PROVIDED TO ALLOW CODES TO COMPILE ON THE NAS & CRAY; RETURN ',
     $ 'TO CALLING PGM'//)
      RETURN
      END