NCEPLIBS-w3emc 2.12.0
Loading...
Searching...
No Matches
Functions/Subroutines
w3fi62.f File Reference

Build 80-char on295 queue descriptor. More...

Go to the source code of this file.

Functions/Subroutines

subroutine w3fi62 (loc, ttaaii, kary, ierr)
 Build 80 character queue descriptor using information supplied by user, placing the completed queue descriptor in the location specified by the user.
 

Detailed Description

Build 80-char on295 queue descriptor.

Author
Bill Cavanaugh
Date
1991-06-21

Definition in file w3fi62.f.

Function/Subroutine Documentation

◆ w3fi62()

subroutine w3fi62 ( character*80  loc,
character*6  ttaaii,
integer, dimension(7)  kary,
integer  ierr 
)

Build 80 character queue descriptor using information supplied by user, placing the completed queue descriptor in the location specified by the user.

(based on office note 295).

PROGRAM HISTORY LOG:

  • Bill Cavanaugh 1991-06-21
  • Bill Cavanaugh 1994-03-08 Modified to allow for bulletin sizes that exceed 20000 bytes
  • Ralph Jones 1994-04-28 Change for cray 64 bit word size and for ASCII character set computers
  • Ralph Jones 1996-01-29 Preset IERR to zero
  • Boi Vuong 2002-10-15 Replaced function ichar with mova2i
Parameters
[in]TTAAIIFirst 6 characters of WMO header
[in,out]KARYInteger array containing user information
  • (1) = Day of month
  • (2) = Hour of day
  • (3) = Hour * 100 + minute
  • (4) = Catalog number
  • (5) = Number of 80 byte increments
  • (6) = Number of bytes in last increment
  • (7) = Total size of message WMO header + body of message in bytes (not including queue descriptor)
[out]LOCLocation to receive queue descriptor
[out]IERRError return
Note
If total size is entered (kary(7)) then kary(5) and kary(6) will be calculated. If kary(5) and kary(6) are provided then kary(7) will be ignored.
Equivalence array loc to integer array so it starts on a word boundary for sbyte subroutine.

Error returns:

  • IERR = 1 Total byte count and/or 80 byte increment count is missing. One or the other is required to complete the queue descriptor.
  • IERR = 2 Total size too small
Author
Bill Cavanaugh
Date
1991-06-21

Definition at line 47 of file w3fi62.f.