convwy.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
/*CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 *
 *     SUBROUTINE CONVWY
 *
 *     CONVERTS CALENDAR MONTH # TO WATER YEAR MONTH #
 *
 *CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 * */
void convwy(inmon, newmon)
long int *inmon, *newmon;
{
  *newmon = *inmon;
  if( *inmon < 10 )
    *newmon = *inmon + 12;
  *newmon = *newmon - 9;
  return;
}