conper.c

Go to the documentation of this file.

/*Translated by FOR_C, v3.4.5 (H), on 07/20/95 at 10:36:00 */
/*FOR_C Options SET: do=r4 ftn=ln6kk op=iv s=vzn str=l */
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <fcrt.h>
/* CONPER CONVERTS THE CHARACTER REPRESENTATION OF A MONTHLY PERIOD INTO
 * WATER - MONTHS. */
 
#include <string.h>
void /*FUNCTION*/ conper(cresp, cresp_s, im1, im2, ier)
char *cresp;   int cresp_s;
long int *im1, *im2, *ier;
{
    static char cmonth[12][4], cp1[4], cp2[4];
    long int _i, _r;
    static long int i, _l0, i_, n1, j, j_, _fst, n2, l, l_, imm, imm_;
    void case_u();
    static int _aini = 1;
    if( _aini ){ /* Do 1 TIME INITIALIZATIONS! */
        { static char* _itmp0[] = {"OCT","NOV","DEC","JAN","FEB","MAR",
         "APR","MAY","JUN","JUL","AUG","SEP"};
        for( i = 1, _r = 0; i <= 12; i++ )
            {
            f_strncpy( cmonth[i - 1], _itmp0[_r++], 3 );
            }
        }
        _aini = 0;
    }
 
    *ier = 1;
 
    /* MONTH LABELS */
 
    /* CONVERT ALL LOWER CASE CHARACTERS TO UPPER CASE */
    case_u( cresp,cresp_s, ADR(_l0,7) );
 
    /* GET STARTING MONTH */
    for( i = 1; i <= 3; i++ )
        {
        i_ = i - 1;
        if( cresp[i - 1] != '-' && cresp[i - 1] != ' ' )
            {
            cp1[i - 1] = cresp[i - 1];
            n1 = i;
            }
        else
            {
            for( j = i, _fst=1; (j <= 3) || _fst; j++, _fst=0 )
                {
                j_ = j - 1;
                cp1[j - 1] = ' ';
                }
            goto L_200;
            }
        }
 
    /* GET ENDING MONTH */
L_200:
    n2 = 0;
    for( i = 2; i <= 4; i++ )
        {
        i_ = i - 1;
        if( cresp[i - 1] == '-' )
            {
            for( j = i + 1, _fst=1; (j <= (i + 3)) || _fst; j++, _fst=0 )
                {
                j_ = j - 1;
                if( cresp[j - 1] >= 'A' && cresp[j - 1] <= 'Z' )
                    {
                    n2 = n2 + 1;
                    cp2[n2 - 1] = cresp[j - 1];
                    }
                else
                    {
                    for( l = n2 + 1, _fst=1; (l <= 3) || _fst; l++, _fst=0 )
                        {
                        l_ = l - 1;
                        cp2[l - 1] = ' ';
                        }
                    goto L_300;
                    }
                }
            }
        }
 
    /* FIND A MONTH THAT MATCHES IM=-1 IF NO MATCH = ERROR
     *     *** STARTING MONTH */
L_300:
    for( imm = 1; imm <= 12; imm++ )
        {
        imm_ = imm - 1;
        if( f_strcmp(ntstr(cp1+0,min(n1,3)),ntstr(cmonth[imm_]+0,min(n1,3))
         ) == 0 )
            {
            *im1 = imm;
            goto L_500;
            }
        }
    *ier = -1;
    goto L_999;
    /*     *** ENDING MONTH */
L_500:
    if( n2 == 0 )
        {
        *im2 = *im1;
        goto L_999;
        }
    for( imm = 1; imm <= 12; imm++ )
        {
        imm_ = imm - 1;
        if( f_strcmp(ntstr(cp2+0,min(n2,3)),ntstr(cmonth[imm_]+0,min(n2,3))
         ) == 0 )
            {
            *im2 = imm;
            goto L_999;
            }
        }
    *ier = -1;
 
    /* MAKE SURE IM1<=IM2 */
L_999:
    if( *im1 > *im2 )
        {
        *ier = -1;
        }
 
    return;
} /* end of function */