MATT_EOB
Copies Threat Data to a Message File

MATT_EOB is a FORTRAN77 program which reads a threat file, and copies the relevant information into a message file for transmission.

Usage:

matt_eob

Related Data and Programs:

MATT_MESSAGE is a FORTRAN77 program which writes a combination of threat and survivor reports to a file.

• matt_eob.f, the source code.
• matt_eob.csh, commands to compile the source code.

Examples and Tests:

• threats.txt, a file of sample threat messages.
threats_big.txt, a big file of sample threat messages.
• matt_message.txt, a MATT message file created by selecting random items from THREATS.TXT.

List of Routines:

• MAIN is the main program for MATT_EOB.
• CH_CAP capitalizes a single character.
• CH_EQI is a case insensitive comparison of two characters for equality.
• CH_TO_DIGIT returns the integer value of a base 10 digit.
• DEG2RAD returns the factor necessary to convert degrees to radians.
• FILE_DELETE deletes a file if it exists.
• GETDMY returns the current day, month, and year.
• GETHMS returns the current hour, minute and second.
• GET_UNIT returns a free FORTRAN unit number.
• INTERP fills in or makes up missing data.
• I4_UNIFORM returns a scaled pseudorandom I4.
• MONTH_DAYS returns the number of days in a month.
• MOVDAT perturbs the data slightly, to make life interesting.
• R8_UNIFORM returns a scaled pseudorandom R8.
• REOB reads one set of EOB records from THREATS.DAT.
• S_ADJUSTL flushes a string left.
• S_AFTER_SS_COPY copies a string after a given substring.
• S_EQI is a case insensitive comparison of two strings for equality.
• S_FIRST_NONBLANK returns the location of the first nonblank.
• S_LEN_TRIM returns the length of a string to the last nonblank.
• S_TO_I4 reads an I4 from a string.
• S_TO_L reads a logical value from a string.
• S_TO_R8 reads an R8 from a string.
• TIMESTAMP prints out the current YMDHMS date as a timestamp.
• TIMESTRING writes the current YMDHMS date into a string.
• WMATT writes the data corresponding to a single MATT message.
• YMDHMS_NORMALIZE normalizes a date.
• YEAR_IS_LEAP returns TRUE if the year was a leap year.

You can go up one level to the FORTRAN77 source codes.