Search Site | Contact Details | FAQ

ADAS Subroutine xxrmve

      subroutine xxrmve( cstrg1 , cstrg2 , crmve )
C-----------------------------------------------------------------------
C
C  ****************** fortran77 subroutine: xxrmve *********************
C
C  purpose: to remove all occurrences of a selected character from a
C           string and concatenate.  Output string tail is blank filled
C
C  calling program: general use
C
C  subroutine:
C
C  input : (c*(*)) cstrg1   = input string for conversion
C  input : (c*1)   crmve    = character to be removed
C
C  output: (c*(*)) cstrg2   = output string after conversion
C
C          (i*4)   i        = general use
C          (i*4)   ilen     = length of 'cstrng' string in bytes
C
C routines:
C          routine    source    brief description
C          -------------------------------------------------------------
C          i4unit     adas      fetch unit number for output of messages
C
C
C
C author:  H. P. Summers, university of strathclyde
C          ja7.08
C          tel. 0141-548-4196
C
C date:    06/09/01
C
C version : 1.1
C date    : 06/09/2001
C modified: Hugh Summers
C               - first edition.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      CHARACTER           CRMVE
      CHARACTER*(*)       CSTRG1,      CSTRG2
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk