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

Add restart to nginx container

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r22:1c8c96a4f254

master

Download file

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

            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


				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