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

Update html images routes

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r14:8f437cc4b32c

Download file

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

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

      C

            SUBROUTINE WKNAME(WDAY,IER,WSTR)

      C

      C     Returns day of the week string from day of the week number.

      C

      C       Input:

      C         WDAY - week day number (1-7)

      C

      C      Output:

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

      C         WSTR - day of the week string (e.g. 'SUNDAY').

      C

      C     .. Scalar Arguments ..

            INTEGER IER,WDAY

            CHARACTER*(*) WSTR

      C     ..

      C     .. Local Scalars ..

            CHARACTER*51 WNAME

      C     ..

      C     .. Local Arrays ..

            INTEGER WCHAR(8)

      C     ..

      C     .. Data statements ..

            DATA WNAME/'SUNDAYMONDAYTUESDAYWEDNESDAYTHURSDAYFRIDAYSATURDAY'/

            DATA WCHAR/1,7,13,20,29,37,43,51/

      C     ..

      C

            IF (WDAY.LT.1 .OR. WDAY.GT.7) GO TO 10

            IER = 0

            WSTR = WNAME(WCHAR(WDAY) :WCHAR(WDAY+1)-1)

            RETURN

         10 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: wkname.f 3304 2011-01-17 15:25:59Z brideout $
				C
				SUBROUTINE WKNAME(WDAY,IER,WSTR)
				C
				C Returns day of the week string from day of the week number.
				C
				C Input:
				C WDAY - week day number (1-7)
				C
				C Output:
				C IER - If (IER.NE.0) an error has occurred.
				C WSTR - day of the week string (e.g. 'SUNDAY').
				C
				C .. Scalar Arguments ..
				INTEGER IER,WDAY
				CHARACTER() WSTR
				C ..
				C .. Local Scalars ..
				CHARACTER*51 WNAME
				C ..
				C .. Local Arrays ..
				INTEGER WCHAR(8)
				C ..
				C .. Data statements ..
				DATA WNAME/'SUNDAYMONDAYTUESDAYWEDNESDAYTHURSDAYFRIDAYSATURDAY'/
				DATA WCHAR/1,7,13,20,29,37,43,51/
				C ..
				C
				IF (WDAY.LT.1 .OR. WDAY.GT.7) GO TO 10
				IER = 0
				WSTR = WNAME(WCHAR(WDAY) :WCHAR(WDAY+1)-1)
				RETURN
				10 IER = 1
				RETURN
				C
				END