hwrf-baseline-20120103-1354/ungrib/src/ngl/w3/baciof.f

   1 C-----------------------------------------------------------------------
   2       MODULE BACIO_MODULE
   3 C$$$  F90-MODULE DOCUMENTATION BLOCK
   4 C
   5 C F90-MODULE: BACIO_MODULE   BYTE-ADDRESSABLE I/O MODULE
   6 C   PRGMMR: IREDELL          ORG: NP23        DATE: 98-06-04
   7 C
   8 C ABSTRACT: MODULE TO SHARE FILE DESCRIPTORS
   9 C   IN THE BYTE-ADDESSABLE I/O PACKAGE.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C   98-06-04  IREDELL
  13 C
  14 C ATTRIBUTES:
  15 C   LANGUAGE: FORTRAN 90
  16 C
  17 C$$$
  18       INTEGER,EXTERNAL:: BA_CIO
  19       INTEGER,DIMENSION(999),SAVE:: FD=999*0
  20       INTEGER,DIMENSION(20),SAVE:: BAOPTS=0
  21       INCLUDE 'baciof.h'
  22       END
  23 C-----------------------------------------------------------------------
  24       SUBROUTINE BASETO(NOPT,VOPT)
  25 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
  26 C
  27 C SUBPROGRAM: BASETO         BYTE-ADDRESSABLE SET OPTIONS
  28 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
  29 C
  30 C ABSTRACT: SET OPTIONS FOR BYTE-ADDRESSABLE I/O.
  31 C   ALL OPTIONS DEFAULT TO 0.
  32 C   OPTION 1: BLOCKED READING OPTION
  33 C             IF THE OPTION VALUE IS 1, THEN THE READING IS BLOCKED
  34 C             INTO FOUR 4096-BYTE BUFFERS.  THIS MAY BE EFFICIENT IF
  35 C             THE READS WILL BE REQUESTED IN MUCH SMALLER CHUNKS.
  36 C             OTHERWISE, EACH CALL TO BAREAD INITIATES A PHYSICAL READ.
  37 C
  38 C PROGRAM HISTORY LOG:
  39 C   1998-06-04  IREDELL
  40 C
  41 C USAGE:    CALL BASETO(NOPT,VOPT)
  42 C   INPUT ARGUMENTS:
  43 C     NOPT         INTEGER OPTION NUMBER
  44 C     VOPT         INTEGER OPTION VALUE
  45 C
  46 C MODULES USED:
  47 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
  48 C
  49 C ATTRIBUTES:
  50 C   LANGUAGE: FORTRAN 90
  51 C
  52 C$$$
  53       USE BACIO_MODULE
  54       INTEGER NOPT,VOPT
  55 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  56       IF(NOPT.GE.1.AND.NOPT.LE.20) BAOPTS(NOPT)=VOPT
  57 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  58       END
  59 C-----------------------------------------------------------------------
  60       SUBROUTINE BAOPEN(LU,CFN,IRET)
  61 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
  62 C
  63 C SUBPROGRAM: BAOPEN         BYTE-ADDRESSABLE OPEN
  64 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
  65 C
  66 C ABSTRACT: OPEN A BYTE-ADDRESSABLE FILE.
  67 C
  68 C PROGRAM HISTORY LOG:
  69 C   1998-06-04  IREDELL
  70 C
  71 C USAGE:    CALL BAOPEN(LU,CFN,IRET)
  72 C   INPUT ARGUMENTS:
  73 C     LU           INTEGER UNIT TO OPEN
  74 C     CFN          CHARACTER FILENAME TO OPEN
  75 C                  (CONSISTING OF NONBLANK PRINTABLE CHARACTERS)
  76 C   OUTPUT ARGUMENTS:
  77 C     IRET         INTEGER RETURN CODE
  78 C
  79 C MODULES USED:
  80 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
  81 C
  82 C SUBPROGRAMS CALLED:
  83 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
  84 C
  85 C ATTRIBUTES:
  86 C   LANGUAGE: FORTRAN 90
  87 C
  88 C$$$
  89       USE BACIO_MODULE
  90       CHARACTER CFN*(*)
  91       CHARACTER(80) CMSG
  92 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  93       IF(LU.LT.001.OR.LU.GT.999) THEN
  94         IRET=6
  95         RETURN
  96       ENDIF
  97 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  98       IRET=BA_CIO(BACIO_OPENRW,IB,JB,1,NB,KA,FD(LU),CFN,A)
  99 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 100       END
 101 C-----------------------------------------------------------------------
 102       SUBROUTINE BAOPENR(LU,CFN,IRET)
 103 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 104 C
 105 C SUBPROGRAM: BAOPENR        BYTE-ADDRESSABLE OPEN
 106 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 107 C
 108 C ABSTRACT: OPEN A BYTE-ADDRESSABLE FILE FOR READ ONLY.
 109 C
 110 C PROGRAM HISTORY LOG:
 111 C   1998-06-04  IREDELL
 112 C
 113 C USAGE:    CALL BAOPENR(LU,CFN,IRET)
 114 C   INPUT ARGUMENTS:
 115 C     LU           INTEGER UNIT TO OPEN
 116 C     CFN          CHARACTER FILENAME TO OPEN
 117 C                  (CONSISTING OF NONBLANK PRINTABLE CHARACTERS)
 118 C   OUTPUT ARGUMENTS:
 119 C     IRET         INTEGER RETURN CODE
 120 C
 121 C MODULES USED:
 122 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 123 C
 124 C SUBPROGRAMS CALLED:
 125 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 126 C
 127 C ATTRIBUTES:
 128 C   LANGUAGE: FORTRAN 90
 129 C
 130 C$$$
 131       USE BACIO_MODULE
 132       CHARACTER CFN*(*)
 133 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 134       IF(LU.LT.001.OR.LU.GT.999) THEN
 135         IRET=6
 136         RETURN
 137       ENDIF
 138 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 139       IRET=BA_CIO(BACIO_OPENR,IB,JB,1,NB,KA,FD(LU),CFN,A)
 140 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 141       END
 142 C-----------------------------------------------------------------------
 143       SUBROUTINE BAOPENW(LU,CFN,IRET)
 144 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 145 C
 146 C SUBPROGRAM: BAOPENW        BYTE-ADDRESSABLE OPEN
 147 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 148 C
 149 C ABSTRACT: OPEN A BYTE-ADDRESSABLE FILE FOR WRITE ONLY.
 150 C
 151 C PROGRAM HISTORY LOG:
 152 C   1998-06-04  IREDELL
 153 C
 154 C USAGE:    CALL BAOPENW(LU,CFN,IRET)
 155 C   INPUT ARGUMENTS:
 156 C     LU           INTEGER UNIT TO OPEN
 157 C     CFN          CHARACTER FILENAME TO OPEN
 158 C                  (CONSISTING OF NONBLANK PRINTABLE CHARACTERS)
 159 C   OUTPUT ARGUMENTS:
 160 C     IRET         INTEGER RETURN CODE
 161 C
 162 C MODULES USED:
 163 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 164 C
 165 C SUBPROGRAMS CALLED:
 166 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 167 C
 168 C ATTRIBUTES:
 169 C   LANGUAGE: FORTRAN 90
 170 C
 171 C$$$
 172       USE BACIO_MODULE
 173       CHARACTER CFN*(*)
 174 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 175       IF(LU.LT.001.OR.LU.GT.999) THEN
 176         IRET=6
 177         RETURN
 178       ENDIF
 179 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 180       IRET=BA_CIO(BACIO_OPENW,IB,JB,1,NB,KA,FD(LU),CFN,A)
 181 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 182       END
 183 C-----------------------------------------------------------------------
 184       SUBROUTINE BAOPENWT(LU,CFN,IRET)
 185 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 186 C
 187 C SUBPROGRAM: BAOPENWT       BYTE-ADDRESSABLE OPEN
 188 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 189 C
 190 C ABSTRACT: OPEN A BYTE-ADDRESSABLE FILE FOR WRITE ONLY WITH TRUNCATION.
 191 C
 192 C PROGRAM HISTORY LOG:
 193 C   1998-06-04  IREDELL
 194 C
 195 C USAGE:    CALL BAOPENWT(LU,CFN,IRET)
 196 C   INPUT ARGUMENTS:
 197 C     LU           INTEGER UNIT TO OPEN
 198 C     CFN          CHARACTER FILENAME TO OPEN
 199 C                  (CONSISTING OF NONBLANK PRINTABLE CHARACTERS)
 200 C   OUTPUT ARGUMENTS:
 201 C     IRET         INTEGER RETURN CODE
 202 C
 203 C MODULES USED:
 204 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 205 C
 206 C SUBPROGRAMS CALLED:
 207 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 208 C
 209 C ATTRIBUTES:
 210 C   LANGUAGE: FORTRAN 90
 211 C
 212 C$$$
 213       USE BACIO_MODULE
 214       CHARACTER CFN*(*)
 215 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 216       IF(LU.LT.001.OR.LU.GT.999) THEN
 217         IRET=6
 218         RETURN
 219       ENDIF
 220 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 221       IRET=BA_CIO(BACIO_OPENWT,IB,JB,1,NB,KA,FD(LU),CFN,A)
 222 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 223       END
 224 C-----------------------------------------------------------------------
 225       SUBROUTINE BAOPENWA(LU,CFN,IRET)
 226 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 227 C
 228 C SUBPROGRAM: BAOPENWA       BYTE-ADDRESSABLE OPEN
 229 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 230 C
 231 C ABSTRACT: OPEN A BYTE-ADDRESSABLE FILE FOR WRITE ONLY WITH APPEND.
 232 C
 233 C PROGRAM HISTORY LOG:
 234 C   1998-06-04  IREDELL
 235 C
 236 C USAGE:    CALL BAOPENWA(LU,CFN,IRET)
 237 C   INPUT ARGUMENTS:
 238 C     LU           INTEGER UNIT TO OPEN
 239 C     CFN          CHARACTER FILENAME TO OPEN
 240 C                  (CONSISTING OF NONBLANK PRINTABLE CHARACTERS)
 241 C   OUTPUT ARGUMENTS:
 242 C     IRET         INTEGER RETURN CODE
 243 C
 244 C MODULES USED:
 245 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 246 C
 247 C SUBPROGRAMS CALLED:
 248 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 249 C
 250 C ATTRIBUTES:
 251 C   LANGUAGE: FORTRAN 90
 252 C
 253 C$$$
 254       USE BACIO_MODULE
 255       CHARACTER CFN*(*)
 256 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 257       IF(LU.LT.001.OR.LU.GT.999) THEN
 258         IRET=6
 259         RETURN
 260       ENDIF
 261 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 262       IRET=BA_CIO(BACIO_OPENWA,IB,JB,1,NB,KA,FD(LU),CFN,A)
 263 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 264       END
 265 C-----------------------------------------------------------------------
 266       SUBROUTINE BACLOSE(LU,IRET)
 267 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 268 C
 269 C SUBPROGRAM: BACLOSE        BYTE-ADDRESSABLE CLOSE
 270 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 271 C
 272 C ABSTRACT: CLOSE A BYTE-ADDRESSABLE FILE.
 273 C
 274 C PROGRAM HISTORY LOG:
 275 C   1998-06-04  IREDELL
 276 C
 277 C USAGE:    CALL BACLOSE(LU,IRET)
 278 C   INPUT ARGUMENTS:
 279 C     LU           INTEGER UNIT TO CLOSE
 280 C   OUTPUT ARGUMENTS:
 281 C     IRET         INTEGER RETURN CODE
 282 C
 283 C MODULES USED:
 284 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 285 C
 286 C SUBPROGRAMS CALLED:
 287 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 288 C
 289 C REMARKS:  A BAOPEN MUST HAVE ALREADY BEEN CALLED.
 290 C
 291 C ATTRIBUTES:
 292 C   LANGUAGE: FORTRAN 90
 293 C
 294 C$$$
 295       USE BACIO_MODULE
 296 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 297       IF(LU.LT.001.OR.LU.GT.999) THEN
 298         IRET=6
 299         RETURN
 300       ENDIF
 301 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 302       IRET=BA_CIO(BACIO_CLOSE,IB,JB,1,NB,KA,FD(LU),CFN,A)
 303       IF(IRET.EQ.0) FD(LU)=0
 304 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 305       END
 306 C-----------------------------------------------------------------------
 307       SUBROUTINE BAREAD(LU,IB,NB,KA,A)
 308 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 309 C
 310 C SUBPROGRAM: BAREAD         BYTE-ADDRESSABLE READ
 311 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 312 C
 313 C ABSTRACT: READ A GIVEN NUMBER OF BYTES FROM AN UNBLOCKED FILE,
 314 C   SKIPPING A GIVEN NUMBER OF BYTES.
 315 C   THE PHYSICAL I/O IS BLOCKED INTO FOUR 4096-BYTE BUFFERS
 316 C   IF THE BYTE-ADDRESSABLE OPTION 1 HAS BEEN SET TO 1 BY BASETO.
 317 C   THIS BUFFERED READING IS INCOMPATIBLE WITH NO-SEEK READING.
 318 C
 319 C PROGRAM HISTORY LOG:
 320 C   1998-06-04  IREDELL
 321 C
 322 C USAGE:    CALL BAREAD(LU,IB,NB,KA,A)
 323 C   INPUT ARGUMENTS:
 324 C     LU           INTEGER UNIT TO READ
 325 C     IB           INTEGER NUMBER OF BYTES TO SKIP
 326 C                  (IF IB<0, THEN THE FILE IS ACCESSED WITH NO SEEKING)
 327 C     NB           INTEGER NUMBER OF BYTES TO READ
 328 C   OUTPUT ARGUMENTS:
 329 C     KA           INTEGER NUMBER OF BYTES ACTUALLY READ
 330 C     A            CHARACTER*1 (NB) DATA READ
 331 C
 332 C MODULES USED:
 333 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 334 C
 335 C SUBPROGRAMS CALLED:
 336 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 337 C
 338 C REMARKS:  A BAOPEN MUST HAVE ALREADY BEEN CALLED.
 339 C
 340 C ATTRIBUTES:
 341 C   LANGUAGE: FORTRAN 90
 342 C
 343 C$$$
 344       USE BACIO_MODULE
 345       CHARACTER A(NB)
 346       CHARACTER CFN
 347       PARAMETER(NY=4096,MY=4)
 348       INTEGER NS(MY),NN(MY)
 349       CHARACTER Y(NY,MY)
 350       DATA LUX/0/
 351       SAVE JY,NS,NN,Y,LUX
 352 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 353       IF(FD(LU).LE.0) THEN
 354         KA=0
 355         RETURN
 356       ENDIF
 357       IF(IB.LT.0.AND.BAOPTS(1).EQ.1) THEN
 358         KA=0
 359         RETURN
 360       ENDIF
 361       IF(NB.LE.0) THEN
 362         KA=0
 363         RETURN
 364       ENDIF
 365 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 366 C  UNBUFFERED I/O
 367       IF(BAOPTS(1).NE.1) THEN
 368         IF(IB.GE.0) THEN
 369           IRET=BA_CIO(BACIO_READ,IB,JB,1,NB,KA,FD(LU),CFN,A)
 370         ELSE
 371           IRET=BA_CIO(BACIO_READ+BACIO_NOSEEK,0,JB,1,NB,KA,FD(LU),CFN,A)
 372         ENDIF
 373 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 374 C  BUFFERED I/O
 375 C  GET DATA FROM PREVIOUS CALL IF POSSIBLE
 376       ELSE
 377         KA=0
 378         IF(LUX.NE.LU) THEN
 379           JY=0
 380           NS=0
 381           NN=0
 382         ELSE
 383           DO I=1,MY
 384             IY=MOD(JY+I-1,MY)+1
 385             KY=IB+KA-NS(IY)
 386             IF(KA.LT.NB.AND.KY.GE.0.AND.KY.LT.NN(IY)) THEN
 387               K=MIN(NB-KA,NN(IY)-KY)
 388               A(KA+1:KA+K)=Y(KY+1:KY+K,IY)
 389               KA=KA+K
 390             ENDIF
 391           ENDDO
 392         ENDIF
 393 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 394 C  SET POSITION AND READ BUFFER AND GET DATA
 395         IF(KA.LT.NB) THEN
 396           LUX=ABS(LU)
 397           JY=MOD(JY,MY)+1
 398           NS(JY)=IB+KA
 399           IRET=BA_CIO(BACIO_READ,NS(JY),JB,1,NY,NN(JY),
 400      &               FD(LUX),CFN,Y(1,JY))
 401           IF(NN(JY).GT.0) THEN
 402             K=MIN(NB-KA,NN(JY))
 403             A(KA+1:KA+K)=Y(1:K,JY)
 404             KA=KA+K
 405           ENDIF
 406 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 407 C  CONTINUE TO READ BUFFER AND GET DATA
 408           DOWHILE(NN(JY).EQ.NY.AND.KA.LT.NB)
 409             JY=MOD(JY,MY)+1
 410             NS(JY)=NS(JY)+NN(JY)
 411             IRET=BA_CIO(BACIO_READ+BACIO_NOSEEK,NS(JY),JB,1,NY,NN(JY),
 412      &                 FD(LUX),CFN,Y(1,JY))
 413             IF(NN(JY).GT.0) THEN
 414               K=MIN(NB-KA,NN(JY))
 415               A(KA+1:KA+K)=Y(1:K,JY)
 416               KA=KA+K
 417             ENDIF
 418           ENDDO
 419         ENDIF
 420       ENDIF
 421 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 422       END
 423 C-----------------------------------------------------------------------
 424       SUBROUTINE BAWRITE(LU,IB,NB,KA,A)
 425 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 426 C
 427 C SUBPROGRAM: BAWRITE        BYTE-ADDRESSABLE WRITE
 428 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 429 C
 430 C ABSTRACT: WRITE A GIVEN NUMBER OF BYTES TO AN UNBLOCKED FILE,
 431 C   SKIPPING A GIVEN NUMBER OF BYTES.
 432 C
 433 C PROGRAM HISTORY LOG:
 434 C   1998-06-04  IREDELL
 435 C
 436 C USAGE:    CALL BAWRITE(LU,IB,NB,KA,A)
 437 C   INPUT ARGUMENTS:
 438 C     LU           INTEGER UNIT TO WRITE
 439 C     IB           INTEGER NUMBER OF BYTES TO SKIP
 440 C                  (IF IB<0, THEN THE FILE IS ACCESSED WITH NO SEEKING)
 441 C     NB           INTEGER NUMBER OF BYTES TO WRITE
 442 C     A            CHARACTER*1 (NB) DATA TO WRITE
 443 C   OUTPUT ARGUMENTS:
 444 C     KA           INTEGER NUMBER OF BYTES ACTUALLY WRITTEN
 445 C
 446 C MODULES USED:
 447 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 448 C
 449 C SUBPROGRAMS CALLED:
 450 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 451 C
 452 C REMARKS:  A BAOPEN MUST HAVE ALREADY BEEN CALLED.
 453 C
 454 C ATTRIBUTES:
 455 C   LANGUAGE: FORTRAN 90
 456 C
 457 C$$$
 458       USE BACIO_MODULE
 459       CHARACTER A(NB)
 460       CHARACTER CFN
 461 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 462       IF(FD(LU).LE.0) THEN
 463         KA=0
 464         RETURN
 465       ENDIF
 466       IF(NB.LE.0) THEN
 467         KA=0
 468         RETURN
 469       ENDIF
 470 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 471       IF(IB.GE.0) THEN
 472         IRET=BA_CIO(BACIO_WRITE,IB,JB,1,NB,KA,FD(LU),CFN,A)
 473       ELSE
 474         IRET=BA_CIO(BACIO_WRITE+BACIO_NOSEEK,0,JB,1,NB,KA,FD(LU),CFN,A)
 475       ENDIF
 476 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 477       END
 478 C-----------------------------------------------------------------------
 479       SUBROUTINE WRYTE(LU,NB,A)
 480 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
 481 C
 482 C SUBPROGRAM: WRYTE          WRITE DATA OUT BY BYTES
 483 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 1998-06-04
 484 C
 485 C ABSTRACT: WRITE A GIVEN NUMBER OF BYTES TO AN UNBLOCKED FILE.
 486 C
 487 C PROGRAM HISTORY LOG:
 488 C   92-10-31  IREDELL
 489 C   95-10-31  IREDELL     WORKSTATION VERSION
 490 C   1998-06-04  IREDELL   BACIO VERSION
 491 C
 492 C USAGE:    CALL WRYTE(LU,NB,A)
 493 C   INPUT ARGUMENTS:
 494 C     LU           INTEGER UNIT TO WHICH TO WRITE
 495 C     NB           INTEGER NUMBER OF BYTES TO WRITE
 496 C     A            CHARACTER*1 (NB) DATA TO WRITE
 497 C
 498 C MODULES USED:
 499 C   BACIO_MODULE   BYTE-ADDRESSABLE I/O FORTRAN INTERFACE
 500 C
 501 C SUBPROGRAMS CALLED:
 502 C   BACIO          BYTE-ADDRESSABLE I/O C PACKAGE
 503 C
 504 C REMARKS:  A BAOPEN MUST HAVE ALREADY BEEN CALLED.
 505 C
 506 C ATTRIBUTES:
 507 C   LANGUAGE: FORTRAN 90
 508 C
 509 C$$$
 510       USE BACIO_MODULE
 511       CHARACTER A(NB)
 512       CHARACTER CFN
 513 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 514       IF(FD(LU).LE.0) THEN
 515         RETURN
 516       ENDIF
 517       IF(NB.LE.0) THEN
 518         RETURN
 519       ENDIF
 520 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 521       IRET=BA_CIO(BACIO_WRITE+BACIO_NOSEEK,0,JB,1,NB,KA,FD(LU),CFN,A)
 522 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 523       RETURN
 524       END