Page 11 - Demo

Add-on Creator 2%uf09f %uf09f RCP Consult 2021-2025 Page 11This source file must be written using rules that are described in a section 1.2.4 of SAO Technical Reference. The file content will be automatically parsed to get a list of export function names. In our case it looks like real*8 function StoneCircularVI(ier) * bind(C,name='StoneCircularVI') implicit none!! Include file with internal STRUREL definitions include 'strurel.hf'!GCC$ ATTRIBUTES DLLEXPORT::StoneCircularVI integer, intent(out) :: ier!# Uses only vector notation to access values of Variables and Parameters.!# The sequence in global vector v_XP_ is predefined by Stochastic Model. StoneCircularVI = v_XP_(4)*DACOS(-1.D0)/4*v_XP_(2) * * v_XP_(3)**2-v_XP_(5)*v_XP_(1) ier=0 end function real*8 function StoneCircularGN(ier) * bind(C,name='StoneCircularGN') implicit none!! Include file with internal STRUREL definitions include 'strurel.hf'!GCC$ ATTRIBUTES DLLEXPORT::StoneCircularGN integer, intent(out) :: ier!# Uses global names of Variables and Parameters to access their values.!# The sequence is arbitrary. STRUREL is case sensitive but FORTRAN not. StoneCircularGN = PAR1*DACOS(-1.D0)/4*Strength * * Diameter**2-PAR2*Load ier=0 end function real*8 function StoneCircularFA(l,s,d,p1,p2,pi,ier) * bind(C,name='StoneCircularFA') implicit none!! Include file with internal STRUREL definitions include 'strurel.hf'!GCC$ ATTRIBUTES DLLEXPORT::StoneCircularFA double precision, intent(in), value :: l, s, d, p1, p2, pi integer, intent(out) :: ier!# Uses function argument values as defined in Symbolic Expressions.!# The sequence is predefined by definition of parameters of DEFFUNC. StoneCircularFA = p1*pi/4*s*d**2-p2*l ier=0 end function