// $Id$
//-----------------------------------------------------------------------
//       The GSI Online Offline Object Oriented (Go4) Project
//         Experiment Data Processing at EE department, GSI
//-----------------------------------------------------------------------
// Copyright (C) 2000- GSI Helmholtzzentrum fuer Schwerionenforschung GmbH
//                     Planckstr. 1, 64291 Darmstadt, Germany
// Contact:            http://go4.gsi.de
//-----------------------------------------------------------------------
// This software can be used under the license agreements as stated
// in Go4License.txt file which is part of the distribution.
//-----------------------------------------------------------------------

/*****************+***********+****************************************/
/*                                                                    */
/*   GSI, Gesellschaft fuer Schwerionenforschung mbH                  */
/*   Postfach 11 05 52                                                */
/*   D-64220 Darmstadt                                               */
/*                                                                    */
/*1+ C Procedure *************+****************************************/
/*                                                                    */
/*+ Module      : f_his_toupper                                       */
/*                                                                    */
/*--------------------------------------------------------------------*/
/*+ CALLING     : f_his_toupper(string,i_max)                         */
/*--------------------------------------------------------------------*/
/*                                                                    */
/*+ PURPOSE     :  Convert string to upper case.                      */
/*                                                                    */
/*+ ARGUMENTS   :                                                     */
/*                                                                    */
/*+   string    : (char *) input/output                               */
/*                 pointer to character string                        */
/*                                                                    */
/*+   i_max     : int input                                           */
/*                 maximum number of char to be converted.            */
/*                                                                    */
/*+ Return type : void                                                */
/*                                                                    */
/*2+Description***+***********+****************************************/
/*                                                                    */
/*+ CALLING     : f_his_tolower(string,i_max)                         */
/*                                                                    */
/*+ FUNCTION    : Converts string to upper case until '\0' or         */
/*                the specified maximum number of characters          */
/*                                                                    */
/*3+Function******+***********+****************************************/
/*                                                                    */
/*2+Implementation************+****************************************/
/*+ Utility     : f_his_toupper                                       */
/*+ File name   : f_his_toupper.c                                     */
/*+ Home direct.: /sbs/prod/src                                       */
/*+ Version     : 1.01                                                */
/*+ Author      : Ilya Kuznetsov                                      */
/*+ Created     : 20-Sep-1994                                         */
/*+ Object libr.: libxxx.a                                            */
/*+ Updates     : Date        Purpose                                 */
/*-               11-Oct-94 : changes/RSM                             */
/*1- C Procedure *************+****************************************/

#include "f_his_toupper.h"

#include <ctype.h>

void f_his_toupper(CHARS* c, INTS4 i)
/* +++ convert string to uppercase, max i char +++ */
{
  INTS4 i_j=0;
  while (!((c[i_j]=='\0') || (i_j==i)))
  {
    c[i_j]=(CHARS)toupper((INTS4)c[i_j]);
    i_j++;
  }
  c[i_j] = '\0';
}