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

Fix bug in plotting

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r21:781d2d915c68

Download file

             idmyck.f
        
                    36 lines
            
             | 926 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / idmyck.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

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

      C

            INTEGER FUNCTION IDMYCK(DAY,MONTH,YEAR)

      C

      C     Returns 1 if DAY, MONTH and YEAR are legal values, 0 otherwise.

      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     .. Scalar Arguments ..

            INTEGER DAY,MONTH,YEAR

      C     ..

      C     .. Local Scalars ..

            INTEGER L

      C     ..

      C     .. Local Arrays ..

            INTEGER NUMDAY(12)

      C     ..

      C     .. Data statements ..

            DATA NUMDAY/31,28,31,30,31,30,31,31,30,31,30,31/

      C     ..

      C

            IDMYCK = 0

            IF (DAY.LT.1 .OR. MONTH.LT.1 .OR. MONTH.GT.12 .OR. YEAR.LT.0 .OR.

           *    YEAR.GT.9999) GO TO 10

            L = 0

            IF (MONTH.EQ.2 .AND. YEAR/4*4.EQ.YEAR .AND.

           *    (YEAR/400*400.EQ.YEAR.OR.YEAR/100*100.NE.YEAR)) L = 1

            IF (DAY.GT.NUMDAY(MONTH)+L) GO TO 10

            GO TO 20

         10 IDMYCK = 1

         20 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: idmyck.f 3304 2011-01-17 15:25:59Z brideout $
				C
				INTEGER FUNCTION IDMYCK(DAY,MONTH,YEAR)
				C
				C Returns 1 if DAY, MONTH and YEAR are legal values, 0 otherwise.
				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 .. Scalar Arguments ..
				INTEGER DAY,MONTH,YEAR
				C ..
				C .. Local Scalars ..
				INTEGER L
				C ..
				C .. Local Arrays ..
				INTEGER NUMDAY(12)
				C ..
				C .. Data statements ..
				DATA NUMDAY/31,28,31,30,31,30,31,31,30,31,30,31/
				C ..
				C
				IDMYCK = 0
				IF (DAY.LT.1 .OR. MONTH.LT.1 .OR. MONTH.GT.12 .OR. YEAR.LT.0 .OR.
				* YEAR.GT.9999) GO TO 10
				L = 0
				IF (MONTH.EQ.2 .AND. YEAR/4*4.EQ.YEAR .AND.
				* (YEAR/400400.EQ.YEAR.OR.YEAR/100100.NE.YEAR)) L = 1
				IF (DAY.GT.NUMDAY(MONTH)+L) GO TO 10
				GO TO 20
				10 IDMYCK = 1
				20 RETURN
				C
				END