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

Fixing plots

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r7:4e0b343b0c61

Download file

             moname.f
        
                    46 lines
            
             | 1.1 KiB
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / moname.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

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

      C

            SUBROUTINE MONAME(MONTH,MSTR,IER)

      C

      C     Returns Month string from Month integer.

      C

      C      Input:

      C        MONTH - Month of year (1-12)

      C

      C      Output:

      C         MSTR - Month string (e.g. 'JANUARY')

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

      C

      C     .. Scalar Arguments ..

            INTEGER IER,MONTH

            CHARACTER*(*) MSTR

      C     ..

      C     .. Local Scalars ..

            INTEGER ICH,JCHAR,NCHAR

            CHARACTER*75 MNAME

      C     ..

      C     .. Local Arrays ..

            INTEGER MCHAR(13)

      C     ..

      C     .. Data statements ..

            DATA MCHAR/1,8,16,21,26,29,33,37,43,52,59,67,75/

      C     ..

            MNAME = 'JANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUSTSEPTEMBER'//

           *        'OCTOBERNOVEMBERDECEMBER'

      C

            ICH = 1

            IF (MONTH.LT.1 .OR. MONTH.GT.12) GO TO 30

            NCHAR = 9

            DO 10 ICH = 1,NCHAR

               JCHAR = MCHAR(MONTH) + ICH - 1

               IF (JCHAR.GE.MCHAR(MONTH+1)) GO TO 20

               MSTR(ICH:ICH) = MNAME(JCHAR:JCHAR)

         10 CONTINUE

            RETURN

         20 MSTR(ICH:NCHAR) = ' '

            IER = 0

            RETURN

         30 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: moname.f 3304 2011-01-17 15:25:59Z brideout $
				C
				SUBROUTINE MONAME(MONTH,MSTR,IER)
				C
				C Returns Month string from Month integer.
				C
				C Input:
				C MONTH - Month of year (1-12)
				C
				C Output:
				C MSTR - Month string (e.g. 'JANUARY')
				C IER - If (IER.NE.0) an error has occurred.
				C
				C .. Scalar Arguments ..
				INTEGER IER,MONTH
				CHARACTER() MSTR
				C ..
				C .. Local Scalars ..
				INTEGER ICH,JCHAR,NCHAR
				CHARACTER*75 MNAME
				C ..
				C .. Local Arrays ..
				INTEGER MCHAR(13)
				C ..
				C .. Data statements ..
				DATA MCHAR/1,8,16,21,26,29,33,37,43,52,59,67,75/
				C ..
				MNAME = 'JANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUSTSEPTEMBER'//
				* 'OCTOBERNOVEMBERDECEMBER'
				C
				ICH = 1
				IF (MONTH.LT.1 .OR. MONTH.GT.12) GO TO 30
				NCHAR = 9
				DO 10 ICH = 1,NCHAR
				JCHAR = MCHAR(MONTH) + ICH - 1
				IF (JCHAR.GE.MCHAR(MONTH+1)) GO TO 20
				MSTR(ICH:ICH) = MNAME(JCHAR:JCHAR)
				10 CONTINUE
				RETURN
				20 MSTR(ICH:NCHAR) = ' '
				IER = 0
				RETURN
				30 IER = 1
				RETURN
				C
				END