UseTheForce/DarkSide/LJ.F90

module ljmod
  use, intrinsic :: iso_c_binding
  use definitions
  implicit none
  private
  type(c_funptr) :: ljClass
  save

  public :: getSigma
  public :: getEpsilon
  public :: setLJDefaultCutoff
  public :: do_lj_pair

  real(kind=dp) function getSigma(atid)
    integer :: atid
    re


  function LJgetSigma(ljClass, atid) result(sigma) bind(C,NAME="LJ_getSigma")
    use iso_c_binding
    type(c_funptr), value :: ljClass
    integer(c_int), value :: atid
    real(c_double) :: sigma
  end function getSigma

  function LJgetEpsilon(ljClass, atid) result(epsilon) bind(C,NAME="LJ_getEpsilon")
    use iso_c_binding
    type(c_funptr), value :: ljClass
    integer(c_int), value :: atid
    real(c_double) :: epsilon
  end function getEpsilon

    
end module ljmod
     
Revision:	1467
Committed:	Sat Jul 17 15:33:03 2010 UTC (15 years ago) by gezelter
File size:	781 byte(s)
Log Message:	well, it compiles, but still segfaults
#	User	Rev	Content
1	gezelter	1467	module ljmod
2			use, intrinsic :: iso_c_binding
3	gezelter	960	use definitions
4	gezelter	115	implicit none
5	gezelter	1467	private
6			type(c_funptr) :: ljClass
7			save
8	gezelter	507
9	gezelter	572	public :: getSigma
10			public :: getEpsilon
11	gezelter	1467	public :: setLJDefaultCutoff
12	gezelter	135	public :: do_lj_pair
13	gezelter	507
14	gezelter	1467	real(kind=dp) function getSigma(atid)
15			integer :: atid
16			re
17	gezelter	115
18	gezelter	135
19	gezelter	1467	function LJgetSigma(ljClass, atid) result(sigma) bind(C,NAME="LJ_getSigma")
20			use iso_c_binding
21			type(c_funptr), value :: ljClass
22			integer(c_int), value :: atid
23			real(c_double) :: sigma
24	gezelter	140	end function getSigma
25
26	gezelter	1467	function LJgetEpsilon(ljClass, atid) result(epsilon) bind(C,NAME="LJ_getEpsilon")
27			use iso_c_binding
28			type(c_funptr), value :: ljClass
29			integer(c_int), value :: atid
30			real(c_double) :: epsilon
31	gezelter	140	end function getEpsilon
32
33	gezelter	572
34	gezelter	1467	end module ljmod
35