FUNCTION waterprop_pt(pin, tin, ifn) RESULT(value)
! static lib statement
!DEC$ IF DEFINED(_X86_)
!DEC$ Attributes C, Dllexport, Alias : '_waterprop_pt'::waterprop_pt
!DEC$ ELSE
!DEC$ Attributes C, Dllexport, Alias : 'waterprop_pt'::waterprop_pt
!DEC$ ENDIF
END FUNCTION waterprop_pt
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |