[WIP] Add support for Fortran Package Manager

fpm.toml

@@ -0,0 +1,22 @@
+name = "precice-fortran-module"
+version = "0.1.0"
+license = "license"
+author = "Jane Doe"
+maintainer = "[email protected]"
+copyright = "Copyright 2021, Jane Doe"
+description = "precice Fortran module"
+homepage = "https://precice.org/index.html"
+
+[build]
+auto-executables = false
+auto-examples = false
+auto-tests = false
+link = ["precice"]
+
+[[example]]
+name = "solverdummy"
+source-dir = "examples/solverdummy"
+main = "solverdummy.f90"
+
+[install]
+library = true

precice.f90 → src/precice.f90

@@ -3,20 +3,22 @@ module precice
   implicit none
 
   interface
+
+    ! This interface contains subroutines of two kinds:
+    ! - precicec_<name> expect C-style, null-terminated strings and their sizes
+    ! - precicef_<name> automatically convert strings to null-terminated and call
+    !   the corresponding `precicec_<name>`.
 
-    subroutine precicef_create(participantName, configFileName, &
-      &                        solverProcessIndex, solverProcessSize, &
-      &                        participantNameLength, configFileNameLength) &
-      &  bind(c, name='precicef_create_')
+    subroutine precicec_create(participantName, configFileName, &
+      &                        solverProcessIndex, solverProcessSize) &
+      &  bind(c, name='precicec_createParticipant')
 
       use, intrinsic :: iso_c_binding
       character(kind=c_char), dimension(*) :: participantName
       character(kind=c_char), dimension(*) :: configFileName
       integer(kind=c_int) :: solverProcessIndex
       integer(kind=c_int) :: solverProcessSize
-      integer(kind=c_int), value :: participantNameLength
-      integer(kind=c_int), value :: configFileNameLength
-    end subroutine precicef_create
+    end subroutine precicec_create
 
     subroutine precicef_initialize() &
       &  bind(c, name='precicef_initialize_')
@@ -108,8 +110,8 @@ subroutine precicef_set_vertex(meshName, position, vertexID, meshNameLength) &
 
       use, intrinsic :: iso_c_binding
       character(kind=c_char), dimension(*) :: meshName
-      real(kind=c_double) :: coordinates(3)
-      integer(kind=c_int) :: id
+      real(kind=c_double) :: position(3)
+      integer(kind=c_int) :: vertexID
       integer(kind=c_int), value :: meshNameLength
     end subroutine precicef_set_vertex
 
@@ -312,4 +314,21 @@ end subroutine precicef_get_version_information
 
   end interface
 
+  contains
+
+  subroutine precicef_create(participantName, configFileName, &
+    &                        solverProcessIndex, solverProcessSize)
+
+    use, intrinsic :: iso_c_binding, only: c_char, c_int
+    character(len=*), intent(in) :: participantName
+    character(len=*), intent(in) :: configFileName
+    integer(c_int), intent(in) :: solverProcessIndex
+    integer(c_int), intent(in) :: solverProcessSize
+
+    call precicec_create( &
+      trim(participantName)//c_null_char, &
+      trim(configFileName)//c_null_char, &
+      solverProcessIndex, solverProcessSize)
+  end subroutine precicef_create
+
 end module precice