Skip to content

Commit 36c02bc

Browse files
committed
Remove unused function stub
1 parent 75a9ca3 commit 36c02bc

File tree

1 file changed

+0
-13
lines changed

1 file changed

+0
-13
lines changed

modules/seastate/src/SeaState_C_Binding.f90

Lines changed: 0 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -306,17 +306,4 @@ FUNCTION SeaSt_GetWaveFieldPointer_C() BIND (C, NAME='SeaSt_GetWaveFieldPointer_
306306
RETURN
307307
END FUNCTION
308308

309-
! FUNCTION SetFlowFieldPointer_C(FlowFieldPointer) BIND (C, NAME='SetFlowFieldPointer_C')
310-
! IMPLICIT NONE
311-
! #ifndef IMPLICIT_DLLEXPORT
312-
! !DEC$ ATTRIBUTES DLLEXPORT :: SetFlowFieldPointer_C
313-
! !GCC$ ATTRIBUTES DLLEXPORT :: SetFlowFieldPointer_C
314-
! #endif
315-
! TYPE(C_PTR), INTENT(IN) :: FlowFieldPointer
316-
! SetFlowFieldPointer_C = C_LOC(p%FlowField)
317-
! RETURN
318-
! END FUNCTION
319-
320-
! SUBROUTINE get_wave_height(position)
321-
322309
end module SeaState_C_Binding

0 commit comments

Comments
 (0)