DATABASES/madrigal Files · source/madf/geolib/izlr.f

Review updata app

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r8:9c1b6919a8a9

Download file

             izlr.f
        
                    38 lines
            
             | 991 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / izlr.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      C     $Id: izlr.f 3304 2011-01-17 15:25:59Z brideout $

      C

            SUBROUTINE IZLR(DAY,MONTH,YEAR,WDAY,IER)

      C

      C     Returns day-of-the-week value from DAY, MONTH and YEAR.

      C

      C      Input:

      C           DAY - Day of month (1-31)

      C         MONTH - Month of year (1-12)

      C          YEAR - Year (e.g. 1977)

      C

      C      Output:

      C          WDAY - Day of week (1-7)

      C           IER - If (IER.NE.0) an error has occurred.

      C

      C     .. Scalar Arguments ..

            INTEGER DAY,IER,MONTH,WDAY,YEAR

      C     ..

      C     .. Local Scalars ..

            INTEGER II,JJ,KK,L

      C     ..

      C     .. External Functions ..

            INTEGER IDMYCK

            EXTERNAL IDMYCK

      C     ..

            IER = IDMYCK(DAY,MONTH,YEAR)

            IF (IER.EQ.1) RETURN

            II = (13*(MONTH+10-(MONTH+10)/13*12)-1)/5 + DAY + 77

            L = 5*(YEAR+(MONTH-14)/12-(YEAR+(MONTH-14)/12)/100*100)

            JJ = L/4

            KK = (YEAR+(MONTH-14)/12)/400 - (YEAR+(MONTH-14)/12)/100*2

            L = II + JJ + KK

            II = L/7

            JJ = II*7

            WDAY = L - JJ + 1

            RETURN

      C

            END

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

				C $Id: izlr.f 3304 2011-01-17 15:25:59Z brideout $
				C
				SUBROUTINE IZLR(DAY,MONTH,YEAR,WDAY,IER)
				C
				C Returns day-of-the-week value from DAY, MONTH and YEAR.
				C
				C Input:
				C DAY - Day of month (1-31)
				C MONTH - Month of year (1-12)
				C YEAR - Year (e.g. 1977)
				C
				C Output:
				C WDAY - Day of week (1-7)
				C IER - If (IER.NE.0) an error has occurred.
				C
				C .. Scalar Arguments ..
				INTEGER DAY,IER,MONTH,WDAY,YEAR
				C ..
				C .. Local Scalars ..
				INTEGER II,JJ,KK,L
				C ..
				C .. External Functions ..
				INTEGER IDMYCK
				EXTERNAL IDMYCK
				C ..
				IER = IDMYCK(DAY,MONTH,YEAR)
				IF (IER.EQ.1) RETURN
				II = (13(MONTH+10-(MONTH+10)/1312)-1)/5 + DAY + 77
				L = 5(YEAR+(MONTH-14)/12-(YEAR+(MONTH-14)/12)/100100)
				JJ = L/4
				KK = (YEAR+(MONTH-14)/12)/400 - (YEAR+(MONTH-14)/12)/100*2
				L = II + JJ + KK
				II = L/7
				JJ = II*7
				WDAY = L - JJ + 1
				RETURN
				C
				END