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

Fix bug in plotting

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r21:781d2d915c68

Download file

             cnv_sec_mdhms.f
        
                    34 lines
            
             | 720 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / cnv_sec_mdhms.f
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        jespinoza
    
Initial

              r0
            
            SUBROUTINE CNV_SEC_MDHMS(YR,MO,DAY,HR,MINUT,SC,T0)

      C

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

      C

      C     cnv_sec_mdshm is a subroutine to return month, day, hour,

      C     minute and second given input year and number of seconds

      C

      C     Written because we didn't have SuperDARN's version

      C

      C     argument declaration

            INTEGER*4 YR,MO,DAY,HR,MINUT,SC,T0

      C     local varaibles

            INTEGER*4 DAYNO,SEC_LEFT

            DAYNO = 1 + (T0 / 86400)

            CALL CALNDR(YR,DAYNO,DAY,MO,IER)

            SEC_LEFT = T0 - (DAYNO-1)*86400

            HR = SEC_LEFT/3600

            SEC_LEFT = SEC_LEFT - HR*3600

            MINUT = SEC_LEFT/60

            SEC_LEFT = SEC_LEFT - MINUT*60

            SC = SEC_LEFT

            return

            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
		SUBROUTINE CNV_SEC_MDHMS(YR,MO,DAY,HR,MINUT,SC,T0)
		C
		C $Id: cnv_sec_mdhms.f 3304 2011-01-17 15:25:59Z brideout $
		C
		C cnv_sec_mdshm is a subroutine to return month, day, hour,
		C minute and second given input year and number of seconds
		C
		C Written because we didn't have SuperDARN's version
		C
		C argument declaration
		INTEGER*4 YR,MO,DAY,HR,MINUT,SC,T0

		C local varaibles
		INTEGER*4 DAYNO,SEC_LEFT

		DAYNO = 1 + (T0 / 86400)

		CALL CALNDR(YR,DAYNO,DAY,MO,IER)

		SEC_LEFT = T0 - (DAYNO-1)*86400

		HR = SEC_LEFT/3600

		SEC_LEFT = SEC_LEFT - HR*3600

		MINUT = SEC_LEFT/60

		SEC_LEFT = SEC_LEFT - MINUT*60

		SC = SEC_LEFT

		return
		end