1 files changed, 49 insertions, 0 deletions
diff --git a/Ganlib/src/LCMPCL.f b/Ganlib/src/LCMPCL.f
new file mode 100644
index 0000000..667e03a
--- /dev/null
+++ b/Ganlib/src/LCMPCL.f
@@ -0,0 +1,49 @@
+*DECK LCMPCL
+      SUBROUTINE LCMPCL(IPLIST,ISET,ILONG,HDATA)
+*
+*-----------------------------------------------------------------------
+*
+*Purpose:
+* Copy a character variable from memory into a table.
+*
+*Copyright:
+* Copyright (C) 2000 Ecole Polytechnique de Montreal
+* This library is free software; you can redistribute it and/or
+* modify it under the terms of the GNU Lesser General Public
+* License as published by the Free Software Foundation; either
+* version 2.1 of the License, or (at your option) any later version
+*
+*Author(s): A. Hebert
+*
+*Parameters: input
+* IPLIST  address of the table.
+* ISET    position of the block in the list.
+* ILONG   dimension of the character variable.
+* HDATA   character variable.
+*
+*-----------------------------------------------------------------------
+*
+      USE GANLIB
+*----
+*  SUBROUTINE ARGUMENTS
+*----
+      TYPE(C_PTR) IPLIST
+      INTEGER ISET,ILONG
+      CHARACTER*(*) HDATA(*)
+*----
+*  LOCAL VARIABLES
+*----
+      TYPE(C_PTR) JPLIST
+      INTEGER, ALLOCATABLE, DIMENSION(:) :: IDATA
+*
+      ILEN=(LEN(HDATA(1))+3)/4
+      IF(ILEN.GT.100) CALL XABORT('LCMPCL: ILEN OVERFLOW.')
+      ALLOCATE(IDATA(ILEN))
+      JPLIST=LCMLIL(IPLIST,ISET,ILONG)
+      DO JSET=1,ILONG
+         READ(HDATA(JSET),'(100A4)') (IDATA(I),I=1,ILEN)
+         CALL LCMPDL(JPLIST,JSET,ILEN,3,IDATA)
+      ENDDO
+      DEALLOCATE(IDATA)
+      RETURN
+      END