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