W3FQ07
The W3FQ07 routine sends fax,varian,afos,awips, maps & bulls.
USAGE: CALL W3FQ07(LPARM, NUMBYT, OUTFIL, CARDFIL, KRTN)
Input argument list:
LPARM - CHARACTER*1 100 BYTE ARRAY CONTAINING ASCII
FLAGS AND KEY WORDS.
NUMBYT - INTEGER NUMBER OF BYTES OF ASCII DATA IN LPARM.
OUTFIL - INTEGER UNIT NUMBER OF FILE TO POST TO THE
TELECOMMUNICATIONS GATEWAY COMPUTER SYSTEM.
CARDFIL - INTEGER UNIT NUMBER OF FILE TO READ TO GET DATA
CONTROL CARD IN LUE OF PARM. THIS IS ONLY NECESSARY
WHEN PARM(5:5) = 'A'.
Output argument list:
KRTN - SEE RETURN CONDITIONS.
Return conditions:
KRTN = 0 GOOD RETURN, FILE POSTED FOR TRANSMISSION
KRTN = 1 GOOD RETURN, FILE NOT POSTED FOR TRANSMISSION
TEST FLAG WAS ON IE K=TEST OR THERE WAS AN "N"
THE 1ST BYTE OF THE INPUT DATA CARD.
KRTN = 2 BAD RETURN, POSTING NOT ATTEMPTED, THE "K" KEY
WAS MISSING.
KRTN = 3 BAD RETURN, POSTING NOT ATTEMPTED, PARM LESS THAN
THAN 6 BYTES.
KRTN = 4 BAD RETURN, CARD READER EMPTY.
KRTN = 5 BAD RETURN, ERROR RETURN FROM SUB DBN_ALERT.
Input files:
FTNNF001 - FILE THAT CONTAINS THE DATA TO SEND.
WHERE 'NN' CAN BE ANY NUMBER FROM 01 TO 99
EXCEPT 5 OR 6. THIS FILE MUST BE ASSIGNED WITH U:NN.
FTXXF001 - INPUT CARDS, ONLY NECESSARY IF LPARM(3-6) ='CARD'.
A SAMPLE DATA CARD IS:
M=FT24F001,K=AFOS
(ALL ON ONE CARD STARTING IN COL 1).
IF COL 1 = 'N' THEN THE DATA SET IS NOT POSTED
TO THE MONITIOR,IE., W3FQ07 WILL RETURN TO CALLING
PROGRAM WITH OUT SENDING THE PRODUCT.
(XX HAS DEFAULT OF 05. HOWEVER THIS NUMBER CAN
BE ANY UNIT NUMBER YOU WISH.
Output files:
FT06F001 - PRINT FILE.
REMARKS:
THE KEY WORDS THAT ARE PASSED TO SUB IN LPARM MAY
BE IN ANY ORDER IN THE LPARM ARRAY OR DATA CARD.
THERE IS ONE KEY WORD THAT IS MANDATORY.
THEY ARE:
K=KKKKKKK
WHERE KKKKKKKK IS UP TO A 24 BYTE ASCII KEYWORD LEFT-JUSTIFIED
WHICH IDENTIFIES WHAT DBNET IS TO DO WITH THE INPUT DATA FILE.
'KKKKKKKK' IS GENERALLY A KEYWORD SUCH AS:
'FAXX', 'TRAN','AFOS','AWIP' BUT MAY BE:
ANY ONE OF THESE type-keys.
type-keys FUNCTIONS
AFOS, Posts AFOS utf map file to CRAY OSO'S statusfile.
AWIP, Posts AWIPS map file to CRAY OSO'S statusfile.
FAXX, Posts nmc6bit map file to CRAY OSO'S statusfile.
GRIB, Posts wmo grib file to CRAY OSO'S statusfile.
TRAN, Posts wmo bulletin file to CRAY OSO'S statusfile.
XTRN, Posts xtrn file to CRAY OSO'S statusfile.
IG_DATA_ipsa1, Sends data file to the intergraph ipsa1.
IG_DATA_ipsa2, Sends data file to the intergraph ipsa2.
IG_DATA_lzr_srv1, Sends data file to the intergraph lzr_srv1.
IG_PLTF_ipsa1, Sends AFOS plot file to the intergraph ipsa1.
IG_PLTF_ipsa2, Sends AFOS plot file to the intergraph ipsa2.
IG_PLTF_lzr_srv1, Sends AFOS plot file to the intergraph lzr_srv1.
IG_6BIT_lzr_srv1, Sends nmc6bit file to the intergraph lzr_srv1.
TPC_6BIT_nhc-hp13, Sends nmc6bit file to nhc-hp13 at TPC.
OSO_IG_6BIT_lzr_srv1, Posts nmc6bit file to CRAY OSO'S
statusfile and then Sends nmc6bit file
to the intergraph lzr_srv1.
OSO_TPC_6BIT_nhc-hp13, Posts nmc6bit file to CRAY OSO'S
statusfile and then Sends nmc6bit file
to nhc-hp13 at TPC.
WHERE OUTFIL IS THE FILE NUMBER CONTAING THE DATA.
A SAMPLE:
M=PETERS,K=FAXX WHERE A ',' OR A ' ' TERMINATES THE KEY WORD.
WHERE A COMMA OR BLANK TERMINATES THE KEY WORD.
THE M= IS AN OPTIONAL KEY WORD. THE 'M' KEY WORD IS THE MODEL NAME
IF IF MISSING THE "MISSING" IS USED OTHER WISE IT MAY BY ANY
24 BYTE ASCII STRING.
A SAMPLE:
M=AVN,K=AFOS,
WHERE A COMMA OR BLANK TERMINATES THE KEY WORD.
W3lib.tar |
Library contains Fortran 90 decoder/encoder
routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007 |