Y2K Millennium Compliance - University of Delaware


Fortran Program samp1fixedm.f - 2-digit Year Processing Using a Movable Window

We modify the program, samp1.f, to include movable window logic, producing samp1movew.f

Enter two sets of names and birthdates using 2-digit years

Examples:



     The following examples give the correct answers 
assuming that 2-digit years >= ipivot designate 1900 + the
year and 2-digit years < ipivot designate 2000 + the year.
The fixed window covers the years 1900+ipivot to 
1999+ipivot inclusive. 

        Sally Smith
        010159
        Fred Smith
        010160

        Tom Younger
	010140
	Tom Older
	010124 

   Name 1:   
   Age 1 :   

   Name 2:   
   Age 2 :   
Submit the age/birthdate data to program samp1expand.f