var/external/bufr/setblock.f

   1       SUBROUTINE SETBLOCK(IBLK)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM: SETBLOCK
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 2012-09-15
   7 C
   8 C ABSTRACT: SUBROUTINE SETBLOCK ALLOWS APPLICATIONS TO DEFINE WHAT
   9 C           SORT OF OUTPUT FILE BLOCKING (IEEE RECORD CONTROL WORDS)
  10 C           ARE APPLIED TO BUFR RECORDS WRITTEN FROM THE BUFRLIB
  11 C           ROUTINES. THE DEFAULT IS NONE (PURE BUFR). OTHER OPTIONS
  12 C           ARE BIG OR LITTLE ENDIAN.
  13 C
  14 C PROGRAM HISTORY LOG:
  15 C 2012-09-15  J. WOOLLEN -- ORIGINAL AUTHOR
  16 C
  17 C USAGE: CALL SETBLOCK(IBLK)
  18 C
  19 C   INPUT ARGUMENTS:
  20 C     IBLK - INTEGER BLOCK TYPE INDICATOR
  21 C            -1  LITTLE ENDIAN RECORD CONTROL WORDS
  22 C             0  NO RECORD CONTROL WORDS (PURE BUFR)
  23 C             1  BIG ENDIAN RECORD CONTROL WORDS
  24 C
  25 C   OUTPUT ARGUMENTS:
  26 C
  27 C REMARKS:
  28 C    THIS ROUTINE CALLS: OPENBF
  29 C
  30 C    THIS ROUTINE IS CALLED BY: USER
  31 C
  32 C ATTRIBUTES:
  33 C   LANGUAGE: FORTRAN 77
  34 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  35 C
  36 C$$$
  37
  38       COMMON /ENDORD/ IBLOCK,IORDBE(4),IORDLE(4)
  39
  40 c-----------------------------------------------------------------------
  41 c-----------------------------------------------------------------------
  42
  43       CALL OPENBF(0,'FIRST',0)
  44       IBLOCK=IBLK
  45
  46       RETURN
  47       END