blanc2uscore.f

Go to the documentation of this file.

!                    *****************
      SUBROUTINE blanc2uscore(STRING,N)
!                    *****************
!***********************************************************************
! SPECIAL V7P2
!***********************************************************************
!
!brief    Replance space by underscore in string
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| STRING         |<->| THE CHARACTER ARRAY TO CHANGE
!| N              |-->| SIZE OF STRING
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
!
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN) :: n
      CHARACTER(LEN=N), INTENT(INOUT) :: string
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER :: i
!
!-----------------------------------------------------------------------
!
      DO i=1,n
        IF(string(i:i).EQ.' ') string(i:i) = '_'
      ENDDO
!
!-----------------------------------------------------------------------
!
      END SUBROUTINE blanc2uscore