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	guez	32	module cmpblank_m
2			contains
3	guez	30	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	guez	32	end module cmpblank_m