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

Fix bug in upload data

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r11:4a6fe1f2abe6

Download file

             jdater.f
        
                    44 lines
            
             | 1.0 KiB
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / jdater.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

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

      C

            SUBROUTINE JDATER(JDAYNO,DAY,MONTH,YEAR,IER)

      C

      C     Returns DAY, MONTH, YEAR from Julian day (See JDAY for inverse).

      C

      C      Input:

      C        JDAYNO - Julian day (e.g. 2447892)

      C

      C      Output:

      C           DAY - Day of month (1-31)

      C         MONTH - Month of year (1-12)

      C          YEAR - Year (e.g. 1977)

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

      C

      C     .. Scalar Arguments ..

            INTEGER DAY,IER,JDAYNO,MONTH,YEAR

      C     ..

      C     .. Local Scalars ..

            INTEGER J

      C     ..

            IF (JDAYNO.LT.0) GO TO 20

            J = JDAYNO - 1721119

            YEAR = (4*J-1)/146097

            J = 4*J - 1 - 146097*YEAR

            DAY = J/4

            J = (4*DAY+3)/1461

            DAY = 4*DAY + 3 - 1461*J

            DAY = (DAY+4)/4

            MONTH = (5*DAY-3)/153

            DAY = 5*DAY - 3 - 153*MONTH

            DAY = (DAY+5)/5

            YEAR = 100*YEAR + J

            IER = 0

            IF (MONTH.GE.10) GO TO 10

            MONTH = MONTH + 3

            RETURN

         10 MONTH = MONTH - 9

            YEAR = YEAR + 1

            RETURN

         20 IER = 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: jdater.f 3304 2011-01-17 15:25:59Z brideout $
				C
				SUBROUTINE JDATER(JDAYNO,DAY,MONTH,YEAR,IER)
				C
				C Returns DAY, MONTH, YEAR from Julian day (See JDAY for inverse).
				C
				C Input:
				C JDAYNO - Julian day (e.g. 2447892)
				C
				C Output:
				C DAY - Day of month (1-31)
				C MONTH - Month of year (1-12)
				C YEAR - Year (e.g. 1977)
				C IER - If (IER.NE.0) an error has occurred.
				C
				C .. Scalar Arguments ..
				INTEGER DAY,IER,JDAYNO,MONTH,YEAR
				C ..
				C .. Local Scalars ..
				INTEGER J
				C ..
				IF (JDAYNO.LT.0) GO TO 20
				J = JDAYNO - 1721119
				YEAR = (4*J-1)/146097
				J = 4J - 1 - 146097YEAR
				DAY = J/4
				J = (4*DAY+3)/1461
				DAY = 4DAY + 3 - 1461J
				DAY = (DAY+4)/4
				MONTH = (5*DAY-3)/153
				DAY = 5DAY - 3 - 153MONTH
				DAY = (DAY+5)/5
				YEAR = 100*YEAR + J
				IER = 0
				IF (MONTH.GE.10) GO TO 10
				MONTH = MONTH + 3
				RETURN
				10 MONTH = MONTH - 9
				YEAR = YEAR + 1
				RETURN
				20 IER = 1
				RETURN
				C
				END