      module pmep_C 
      USE vast_kind_param, ONLY:  double 
      integer, dimension(:), allocatable :: ian 
      integer :: natom 
      real(double), dimension(:,:), allocatable :: co 
      end module pmep_C 
