1 |
module cmpblank_m |
2 |
contains |
3 |
SUBROUTINE cmpblank (str) |
4 |
!--------------------------------------------------------------------- |
5 |
!- |
6 |
!--------------------------------------------------------------------- |
7 |
CHARACTER(LEN=*),INTENT(inout) :: str |
8 |
!- |
9 |
INTEGER :: lcc,ipb |
10 |
!--------------------------------------------------------------------- |
11 |
lcc = LEN_TRIM(str) |
12 |
ipb = 1 |
13 |
DO |
14 |
IF (ipb >= lcc) EXIT |
15 |
IF (str(ipb:ipb+1) == ' ') THEN |
16 |
str(ipb+1:) = str(ipb+2:lcc) |
17 |
lcc = lcc-1 |
18 |
ELSE |
19 |
ipb = ipb+1 |
20 |
ENDIF |
21 |
ENDDO |
22 |
!------------------------- |
23 |
END SUBROUTINE cmpblank |
24 |
end module cmpblank_m |