/usr/share/elmerfront/lib/procedure.stub.txt is in elmer-common 6.1.0.svn.5396.dfsg-2ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | !#ELMER Cadinterface
!#A stub for a Solver parameter dll procedure
!#06.03.2000, MVe
!Fortran 90 stub for ELMER Solver parameter funtion: Y = F(X)
!
!#*** DO NOT EDIT THIS FILE! ***
!
!-------------------------------------------------------------------------------
FUNCTION #function-name#( Model #n# #X# ) RESULT( Y )
!-------------------------------------------------------------------------------
!DEC$ATTRIBUTES DLLEXPORT :: #function-name#
!-------------------------------------------------------------------------------
USE Types
USE Lists
!-------------------------------------------------------------------------------
TYPE(Model_t) :: Model
INTEGER :: n
DOUBLE PRECISION :: Y #X#
!-------------------------------------------------------------------------------
LOGICAL :: FirstTime = .TRUE.
SAVE FirstTime
!-------------------------------------------------------------------------------
IF ( FirstTime ) THEN
FirstTime = .FALSE.
END IF
!-------------------------------------------------------------------------------
!START OF CODE (in place of Y = 1.0)
!*******************************************************************************
Y = 1.0
!*******************************************************************************
!END OF CODE
!-------------------------------------------------------------------------------
END FUNCTION #function-name#
!-------------------------------------------------------------------------------
|