[CPMD-list] CPMD-list Digest, Vol 45, Issue 2

[oksana ismailova]

Dear cpmd users and experts!

I have problem with cpmd2cube .

After installation,  I tried to use cpmd2cube


cpmd2cube.x -dens DENSITY

STOP no interface to getarg for this platform: please add it to util.F.



I have looked in archive CPMD mailing list to fix this problem, but 
without success.

I will be appreciated if you give me idea to solve this problem.



thanks,
best regards,
oksana


Makefile is:

# Makefile for cpmd2cube.x
# Configuration: Linux-PC-GFORTRAN
# Creation of Makefile: Jan  7 2008
# on Linux hermes 2.6.18.8-0.7-default #1 SMP Tue Oct 2 17:21:08 UTC 
2007 x86_64 x86_64 x86_64 GNU/Linux
# Author: oksanai
#----------------------------------------------------------------------------
#
SHELL = /bin/sh
#
#--------------- Configuration
FC      = gfortran
FFLAGS  =  -ffree-form -DFFT_DEFAULT -std=gnu -O2 -D__GFORTRAN
LFLAGS  =
LIBS    =
# uncomment and set only if needed
#CC     = cc
#CFLAGS =
#--------------- End of Configuration
##############

EXE     = cpmd2cube.x

OBJECTS = \
    kinds.o periodic_table.o util.o grids.o cpmd2cube.o \
    grid_types.o atom_types.o readwrites.o \
    fftsg_lib.o fft_tools.o fftsg.o

CFGDEST = .
CFGMACH = Linux-PC-GFORTRAN
SRC=.

#############################

all:  $(EXE) trimcube cutcube.x

$(EXE): main.o $(OBJECTS)
         $(FC) -o $(EXE) $(LFLAGS) main.o $(OBJECTS) $(LIBS)

cutcube.x: cutcube.o $(OBJECTS)
         $(FC) -o $@ $(LFLAGS) cutcube.o $(OBJECTS) $(LIBS)

trimcube: trimcube.o
        $(CC) $(CFLAGS) -o $@ trimcube.o
#############################


util.F is


MODULE util

  USE kinds, ONLY : dbl

  IMPLICIT NONE

  PRIVATE
  PUBLIC :: quicksort, my_getarg, file_exists, wstrlen

CONTAINS

! ----------------------------------------------------------------------
  SUBROUTINE my_getarg(m,string)
    IMPLICIT NONE
    INTEGER:: M
    CHARACTER(len=*) :: STRING

#if defined ( __AIX ) || defined ( __SR8000 ) || defined ( __SR11000 ) \
 || defined ( __IFC ) || defined ( __NEC )    || defined ( __SGI ) \
 || defined ( __VPP5000 ) || defined ( __alpha ) || defined(__SUN) \
 || defined(__HP) || defined ( __OSX ) || defined ( __ALTIX )      \
 || defined ( __PGI ) || defined(__PWRLinux)
    CALL GETARG(M,STRING)
#elif defined ( __T3E )
    INTEGER :: ilen, ierror

    CALL pxfgetarg(m,string,ilen,ierror)
#elif defined (__GFORTRAN)
    CALL GET_COMMAND_ARGUMENT(M,STRING)
#else
    CALL getarg(m,string)
    !STOP 'no interface to getarg for this platform: please add it to 
util.F.'
#endif

    RETURN
  END SUBROUTINE my_getarg
! ----------------------------------------------------------------------

! ----------------------------------------------------------------------
  FUNCTION file_exists(name)
    IMPLICIT NONE
    LOGICAL:: file_exists
    CHARACTER(len=*) :: name

    INQUIRE(file=name,exist=file_exists)

    RETURN
  END FUNCTION file_exists
! ----------------------------------------------------------------------


-------------- next part --------------
A non-text attachment was scrubbed...
Name: Makefile
Type: application/octet-stream
Size: 2839 bytes
Desc: not available
Url : http://cpmd.org/pipermail/cpmd-list/attachments/20080108/83653b66/attachment.obj 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: util.F
Type: application/octet-stream
Size: 10709 bytes
Desc: not available
Url : http://cpmd.org/pipermail/cpmd-list/attachments/20080108/83653b66/attachment-0001.obj