2
! Copyright (c) Fundacion General Universidad Autonoma de Madrid:
3
! E.Artacho, J.Gale, A.Garcia, J.Junquera, P.Ordejon, D.Sanchez-Portal
4
! and J.M.Soler, 1996-2003
6
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
7
! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
8
! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
9
! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
10
! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
11
! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
12
! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
13
! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
14
! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
15
! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
16
! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
18
C $Id: paste.f,v 1.2 1999/01/31 11:20:13 emilio Exp $
20
CHARACTER*(*) FUNCTION PASTE( STR1, STR2 )
22
C CONCATENATES THE STRINGS STR1 AND STR2 REMOVING BLANKS IN BETWEEN
25
CHARACTER*(*) STR1, STR2
26
DO 10 L = LEN( STR1 ), 1, -1
27
IF (STR1(L:L) .NE. ' ') GOTO 20
29
20 PASTE = STR1(1:L)//STR2
35
CHARACTER*(*) FUNCTION PASTEB( STR1, STR2 )
37
C CONCATENATES THE STRINGS STR1 AND STR2 LEAVING ONLY ONE BLANK IN BETWEEN
40
CHARACTER*(*) STR1, STR2
43
DO 10 L = LEN( STR1 ), 1, -1
44
IF (STR1(L:L) .NE. ' ') GOTO 20
46
20 PASTEB = STR1(1:L)//BLANK
47
PASTEB = PASTEB(1:L+1)//STR2