File: pick-dir/blank.f90

    1       SUBROUTINE BLANK(St)
    2       IMPLICIT NONE
    3 !
    4 ! Dummy arguments
    5 !
    6       CHARACTER(*) :: St
    7 !
    8 ! Local variables
    9 !
   10       INTEGER :: i
   11 !
   12 !-----------------------------------------------------------------------
   13 !
   14 !     written by:   David Lary
   15 !
   16 !     started:      7/1/1993
   17 !
   18 !     last updated: 22/1/2004
   19 !
   20 !----------------------------------------------------------------------
   21 !
   22 !     Makes a string blank.
   23 !
   24 !----------------------------------------------------------------------
   25 !
   26       DO i = 1 , LEN(St)
   27          St(i:i) = " '
   28       END DO
   29 !
   30 !----------------------------------------------------------------------
   31 !
   32       END SUBROUTINE BLANK