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

Update configs

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r9:2e29893b10f5

Download file

             iday.f
        
                    36 lines
            
             | 968 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / iday.f
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        jespinoza
    
Initial

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

      C

            SUBROUTINE IDAY(DAY,MONTH,YEAR,DAYNO,IER)

      C

      C     Returns Day-of-year from DAY, MONTH, YEAR.

      C

      C      Input:

      C        IDBFIL - Madrigal file number (see EXDCON)

      C           DAY - Day of month (1-31)

      C         MONTH - Month of year (1-12)

      C          YEAR - Year (e.g. 1977)

      C

      C      Output:

      C         DAYNO - Day-of-year (1-356)

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

      C

      C     .. Scalar Arguments ..

            INTEGER DAY,DAYNO,IER,MONTH,YEAR

      C     ..

      C     .. Local Scalars ..

            INTEGER II,JJ,KK

      C     ..

      C     .. External Functions ..

            INTEGER IDMYCK

            EXTERNAL IDMYCK

      C     ..

            IER = IDMYCK(DAY,MONTH,YEAR)

            IF (IER.EQ.1) RETURN

            II = 3055*(MONTH+2)/100 - (MONTH+10)/13*2 - 91

            JJ = (1-((YEAR-YEAR/4*4+3)/4)+((YEAR-YEAR/100*100+99)/100)-

           *     (YEAR-YEAR/400*400+399)/400)

            KK = (MONTH+10)/13

            DAYNO = II + JJ*KK + DAY

            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

jespinoza Initial	r0	C $Id: iday.f 3304 2011-01-17 15:25:59Z brideout $
		C
		SUBROUTINE IDAY(DAY,MONTH,YEAR,DAYNO,IER)
		C
		C Returns Day-of-year from DAY, MONTH, YEAR.
		C
		C Input:
		C IDBFIL - Madrigal file number (see EXDCON)
		C DAY - Day of month (1-31)
		C MONTH - Month of year (1-12)
		C YEAR - Year (e.g. 1977)
		C
		C Output:
		C DAYNO - Day-of-year (1-356)
		C IER - If (IER.NE.0) an error has occurred.
		C
		C .. Scalar Arguments ..
		INTEGER DAY,DAYNO,IER,MONTH,YEAR
		C ..
		C .. Local Scalars ..
		INTEGER II,JJ,KK
		C ..
		C .. External Functions ..
		INTEGER IDMYCK
		EXTERNAL IDMYCK
		C ..
		IER = IDMYCK(DAY,MONTH,YEAR)
		IF (IER.EQ.1) RETURN
		II = 3055(MONTH+2)/100 - (MONTH+10)/132 - 91
		JJ = (1-((YEAR-YEAR/44+3)/4)+((YEAR-YEAR/100100+99)/100)-
		* (YEAR-YEAR/400*400+399)/400)
		KK = (MONTH+10)/13
		DAYNO = II + JJ*KK + DAY
		RETURN
		C
		END