w3tagb.f File Reference

Operational job identifier. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3tagb (prog, kyr, jd, lf, org)
	Prints identifying information for operational codes.

Detailed Description

Operational job identifier.

Author

J. Newell

Date

1985-10-29

Definition in file w3tagb.f.

Function/Subroutine Documentation

w3tagb()

subroutine w3tagb	(	character *(*)	prog,
			kyr,
			jd,
			lf,
		character *(*)	org
	)

Prints identifying information for operational codes.

Called at the beginning of a code, w3tagb() prints the program name, the year and julian day of its compilation, and the responsible organization. On a 2nd line it prints the starting date-time. Called at the end of a job, entry routine, w3tage prints a line with the ending date-time and a 2nd line stating the program name and that it has ended.

Program History Log:

Date	Programmer	Comment
1985-10-29	J. Newell	Initial.
1989-10-20	Ralph Jones	Convert to cray cft77 fortran
1991-03-01	Ralph Jones	Add machine name to ending line
1992-12-02	Ralph Jones	Add start-ending time-date
1993-11-16	Ralph Jones	Add day of year, day of week, and julian day number.
1997-12-24	M. Farley	Print statements modified for 4-digit yr
1998-03-17	M. Farley	Replaced datimx with calls to w3locdat/w3doxdat
1999-01-29	B. Vuong	Converted to ibm rs/6000 sp
1999-06-17	A. Spruill	Adjusted the size of program name to accommodate

the 20 character name convention on the ibm sp. 1999-08-24 | Gilbert | added call to start() in w3tagb and a call to summary() in w3tage to print out a resource summary list for the program using w3tags. 2012-10-18 | Vuong | Remove print statement 604 2013-02-06 | Vuong | Modified print statement 604

Parameters

[in]	PROG	Program name character*1
[in]	KYR	Year of compilation integer
[in]	JD	Julian day of compilation integer
[in]	LF	Hundreths of julian day of compilation integer (range is 0 to 99 inclusive)
[in]	ORG	Organization code (such as wd42) character*1

Remarks

Full word used in order to have at least seven decimal digits accuracy for value of ddate. subprogram clock and date may differ for each type computer. you may have to change them for another type of computer.

Author

J. Newell

Date

1985-10-29

Definition at line 46 of file w3tagb.f.