IOIPSL/Stringop/cmpblank.f90

module cmpblank_m
contains
   SUBROUTINE cmpblank (str)
!---------------------------------------------------------------------
!-
!---------------------------------------------------------------------
   CHARACTER(LEN=*),INTENT(inout) :: str
!-
   INTEGER :: lcc,ipb
!---------------------------------------------------------------------
   lcc = LEN_TRIM(str)
   ipb = 1
   DO
     IF (ipb >= lcc)   EXIT
     IF (str(ipb:ipb+1) == '  ') THEN
       str(ipb+1:) = str(ipb+2:lcc)
       lcc = lcc-1
     ELSE
       ipb = ipb+1
     ENDIF
   ENDDO
!-------------------------
   END SUBROUTINE cmpblank
 end module cmpblank_m
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