27-Dec-1987 12:58:35	VAX FORTRAN V4.5-219                Page   1
								27-Dec-1987 12:58:27	USER$LIB:[SXES_SOURCE.CALENDAR]DOW.FOR;1    

0001    	SUBROUTINE DOW(IYR,MONTH,IDAY,IDOW,RCDOW)
0002    	CHARACTER*10 rcdow,cdow(7)/'SUNDAY','MONDAY','TUESDAY','WEDNESDAY',
0003         +  'THURSDAY','FRIDAY','SATURDAY'/
0004    	INTEGER   iyr,mf,iday,dpos,nods(12),idow,lpyrsw/0/,MONTH
0005            DATA nods/31,28,31,30,31,30,31,31,30,31,30,31/
0006     
0007    	MF = MONTH
0008    	IF (IYR .LT. 100) iyr = 1900 + iyr
0009            IDOW=(IYR-1751)+(IYR-1753)/4-(IYR-1701)/100+(IYR-1601)/400
0010            IDOW=IDOW-7*((IDOW-1)/7)
0011            IF (IYR-4*(IYR/4)) 90,75,90
0012     75     IF (IYR-100*(IYR/100)) 85,80,85
0013     80     IF (IYR-400*(IYR/400)) 90,85,90
0014     85     LPYRSW=1
0015     90     NODS(2)=NODS(2)+LPYRSW
0016            IF (MF-1)	110,110,95
0017     95     MF=MF-1
0018            DO 105 MONTH=1,MF
0019     105    IDOW=IDOW+NODS(MONTH)
0020            IDOW=IDOW-7*((IDOW-1)/7)
0021     110    IDOW=IDOW+IDAY-1
0022            IDOW=IDOW-7*((IDOW-1)/7)
0023    	RCDOW = CDOW(IDOW)
0024    	RETURN
0025    	END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  274   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                 136   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  410


ENTRY POINTS

    Address  Type  Name          

  0-00000000       DOW           


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

      **      I*4  DPOS           AP-0000000C@ I*4  IDAY           AP-00000010@ I*4  IDOW           AP-00000004@ I*4  IYR           
  2-00000078  I*4  LPYRSW              **      I*4  MF             AP-00000008@ I*4  MONTH          AP-00000014@ CHAR RCDOW         

DOW                            					27-Dec-1987 12:58:35	VAX FORTRAN V4.5-219                Page   2
								27-Dec-1987 12:58:27	USER$LIB:[SXES_SOURCE.CALENDAR]DOW.FOR;1    

ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-00000030  CHAR CDOW                   70  (7)
  2-00000000  I*4  NODS                   48  (12)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

      **      75            **      80        0-000000B0  85        0-000000B3  90            **      95            **      105     
  0-000000EB  110     

                               					27-Dec-1987 12:58:35	VAX FORTRAN V4.5-219                Page   3
								27-Dec-1987 12:58:27	USER$LIB:[SXES_SOURCE.CALENDAR]DOW.FOR;1    

0001     


COMMAND QUALIFIERS

  FOR/LIS DOW

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP,NODICTIONARY,SINGLE)
  /WARNINGS=(GENERAL,NODECLARATIONS,NOULTRIX)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE  /F77
  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE


COMPILATION STATISTICS

  Run Time:           1.54 seconds
  Elapsed Time:       4.23 seconds
  Page Faults:        623
  Dynamic Memory:     471 pages