xdopen.f

Go to the documentation of this file.

C> @file
C                .      .    .                                       .
C> SUBPROGRAM:    XDOPEN      DUMMY SUBROUTINE
C>   PRGMMR: KEYSER           ORG: W/NMC22    DATE: 07-02-92
C>
C> ABSTRACT: 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>   92-07-02  D. A. KEYSER (W/NMC22)
C>
C> USAGE:    CALL XDOPEN
C>
C> REMARKS: NONE.
C>
C> ATTRIBUTES:
C>   LANGUAGE: CRAY CFT77 FORTRAN
C>   MACHINE:  CRAY Y-MP8/832
C>
      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