snipps.code-snippets

{
	"Header": {
		"prefix": "hdr",
		"body": [
			"$LINE_COMMENT ==============================================================",
			"! $1",
			"$LINE_COMMENT --------------------------------------------------------------",
			"$0"
		]
	},
	"Cite Michelsen-Møllerup": {
		"prefix": "mm",
		"body": [
			"Thermodynamic Models: Fundamental and Computational Aspects, Michael L.",
			"!! Michelsen, Jørgen M. Mollerup. Tie-Line Publications, Denmark (2004)",
			"!! [doi](http://dx.doi.org/10.1016/j.fluid.2005.11.032)",
		]
	},
	"Use yaeos": {
		"scope": "[FortranFreeForm]",
		"prefix": "usy",
		"body": [
			"use yaeos__$1"
		]
	},
	"Documentation": {
		"scope": "[FortranFxedForm]",
		"prefix": "doc",
		"body": [
			"!! # ${1:Title}",
			"!! ${2:Simple description}",
			"!!",
			"!! # Description",
			"!! ${3:Detailed description}",
			"!!",
			"!! # Examples",
			"!!",
			"!! ```fortran",
			"!! ${4: A basic code example}",
			"!! ```",
			"!!",
			"!! # References",
			"!!",
		],
		"description": "Documentation template",
	},
	"Hyperdual-based ArModel": {
		"scope": "[FortranFreeForm]",
		"prefix": "hdar",
		"body": [
			"module yaeos__${1:ModelName}",
			"   use yaeos, only: pr, R",
			"   use yaeos__autodiff",
			"",
			"   type, extends(ArModelAdiff) :: ${1:ModelName}",
			"      ${2:ModelParameters}",
			"   contains",
			"      procedure :: Ar => Ar",
			"      procedure :: get_v0 => v0",
			"   end type ${1:ModelName}",
			"",
			"contains",
			"   ",
			"   type(hyperdual) function Ar(self, n, V, T)",
			"      class(${1:ModelName}) :: self !! Model",
			"      type(hyperdual), intent(in) :: n(:) !! Number of moles vector",
			"      type(hyperdual), intent(in) :: V !! Volume [L/mol]",
			"      type(hyperdual), intent(in) :: T !! Temperature [K]",
			"",
			"      Ar = Ar function here",
			"   end function Ar",
			"",
			"   function v0(self, n, P, T)",
			"      class(${1:ModelName}), intent(in) :: self !! Model",
			"      real(pr), intent(in) :: n(:) !! Moles vector",
			"      real(pr), intent(in) :: P !! Pressure [bar]",
			"      real(pr), intent(in) :: T !! Temperature [K]",
			"      real(pr) :: v0",
			"",
			"      v0 = 0.001_pr",
			"   end function v0",
			"end module yaeos__${1:ModelName}",
		]
	},
	"FittingProblem": {
		"scope": "[FortranFreeForm]",
		"prefix": "fp",
		"body": [
			"module yaeos__fitting_$1",
			"   use yaeos, only: pr, ArModel, GeModel",
			"   use yaeos__fitting, only: FittingProblem",
			"",
			"   type, extends(FittingProblem) :: Fit$2",
			"   contains",
			"      procedure :: get_model_from_X",
			"   end type",
			"",
			"contains",
			"",
			"   type(Fit$2) function get_model_from_X(X) result(model)",
			"      real(pr), intent(in) :: X(:) !! Vector of fitting parameters",
			"      class(ArModel), allocatable :: model !! Setted up model",
			"",
			"      $3",
			"   end function",
			"end module",
		]
	},
	"nlopt": {
		"scope": "[FortranFreeForm]",
		"prefix": "nlopt",
		"body": [
			"real(pr) function fobj(x, gradient, func_data)",
			"   real(pr), intent(in out) :: x(:)",
			"   real(pr), intent(in out), optional :: gradient(:)",
			"   class(*), intent(in), optional :: func_data",
			"   ! Here goes the objective function to optimize",
			"   fobj = 0.0_pr",
			"end function",
			"",
			"real(pr) function optimize(X, func_data) result(y)",
			"   use nlopt_wrap, only: create, destroy, nlopt_opt, nlopt_algorithm_enum",
			"   use nlopt_callback, only: nlopt_func, create_nlopt_func",
			"   real(pr), intent(in) :: X(:)",
			"   class(*), intent(in), optional :: func_data",
			"",
			"   type(nlopt_opt) :: opt",
			"   type(nlopt_func) :: f",
			"   integer :: stat",
			"",
			"   f = create_nlopt_func(fobj, f_data=func_data)",
			"   opt = create(nlopt_algorithm_enum%NELDER_MEAD, size(X))",
			"   call opt%set_min_objective(f)",
			"   call opt%optimize(x, y, stat)",
		]
	},
	"Legacy Makefile": {
		"prefix": "makeleg",
		"body": [
			"# Makefile for legact Fortran project",
			"# Replace the files names with CAPS (and their extension) with your files",
			"FC=ifort -g -extend-source",
			"# Here put the files that are needed to compile, except the program file",
			"# which should be in a 'src' folder",
			"dependencies:",
			"\tmkdir -p obj",
			"\t$(FC) -c src/SOMEFILE.f90",
			"\t$(FC) -c src/OTHERFILE.f",
			"\tmv *.o obj/",
			"# Here goes the main program file",
			"# which should be in an 'app' folder",
			"all: dependencies",
			"\t$(FC) -o executable.exe ./app/MAIN_PROGRAM_FILE.for obj/* -qmkl",
			"",
			"clean:",
			"\trm obj/*"
		]
	}
}