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

Build 40 char communications prefix. More...

Go to the source code of this file.

Functions/Subroutines

subroutine w3fi61 (loc, icat, areg, ibckup, idatyp, ierr)
 Using information from the user, build a 40 character communications prefix and place in indicated location.
 

Detailed Description

Build 40 char communications prefix.

Author
Bill Cavanaugh
Date
1991-06-21

Definition in file w3fi61.f.

Function/Subroutine Documentation

◆ w3fi61()

subroutine w3fi61 ( integer, dimension(*)  loc,
integer  icat,
character*6  areg,
integer  ibckup,
integer  idatyp,
integer  ierr 
)

Using information from the user, build a 40 character communications prefix and place in indicated location.

Program history log:

  • Bill Cavanaugh 1991-06-21
  • Ralph Jones 1991-09-20 Changes for silicongraphics 3.3 fortran 77.
  • Ralph Jones 1993-03-29 Add save statement.
  • Ralph Jones 1994-04-28 Change for cray 64 bit word size and for ASCII character set computers.
  • Boi Vuong 2002-10-15 Replaced function ichar with mova2i.
Parameters
[in]ICATCatalog number.
[in]AREGAFOS regional addressing flags (6 positions) select any or all of the following. Selections will automatically be left justified and blank filled to 6 positions. If bulletins and/or messages are not to be routed to AFOS, then leave the field filled with blanks.
  • E - Eastern region
  • C - Central region
  • W - Western region
  • S - Southern region
  • A - Atlantic region
  • P - Pacific region
[in]IERRError return.
[in]IBCKUPBackup indicator w/header key
  • 0 = Not a backup.
  • 1 = FD backup.
  • 2 = DF backup.
    • Back up is only permitted for KU and KU bulletins.
[in]IDATYPData type indicator.
  • 0 = EBCIDIC data.
  • 11 = Binary data.
  • 12 = Psuedo-ASCII data.
  • 3 = ASCII data.
[out]LOCName of the array to receive the communications prefix.
Note
Error returns IERR:
  • = 0 Normal return.
  • = 1 Incorrect backup flag.
  • = 2 A regional addressing flag is non-blank and non-standard entry.
  • = 3 Data type is non-standard entry.
Author
Bill Cavanaugh
Date
1991-06-21

Definition at line 50 of file w3fi61.f.