source_code/version2.2_windows/PSHPACK4.H

+/*++
+
+Copyright 1995 - 1998 Microsoft Corporation
+
+Module Name:
+
+    pshpack4.h
+
+Abstract:
+
+    This file turns 4 byte packing of structures on.  (That is, it disables
+    automatic alignment of structure fields.)  An include file is needed
+    because various compilers do this in different ways.  For Microsoft
+    compatible compilers, this files uses the push option to the pack pragma
+    so that the poppack.h include file can restore the previous packing
+    reliably.
+
+    The file poppack.h is the complement to this file.
+
+--*/
+
+#if ! (defined(lint) || defined(_lint) || defined(RC_INVOKED))
+#if ( _MSC_VER >= 800 ) || defined(_PUSHPOP_SUPPORTED)
+#pragma warning(disable:4103)
+#if !(defined( MIDL_PASS )) || defined( __midl )
+#pragma pack(push)
+#endif
+#pragma pack(4)
+#else
+#pragma pack(4)
+#endif
+#endif // ! (defined(lint) || defined(_lint) || defined(RC_INVOKED))

source_code/version2.2_windows/RICHEDIT.H

+/*
+ *	RICHEDIT.H
+ *	
+ *	Purpose:
+ *		RICHEDIT v2.0 public definitions.  Note that there is additional
+ *		functionality available for v2.0 that is not in the original
+ *		Windows 95 release.
+ *	
+ *	Copyright (c) 1985-1996, Microsoft Corporation
+ */
+
+#ifndef _RICHEDIT_
+#define	_RICHEDIT_
+
+#ifdef _WIN32
+#include <pshpack4.h>
+#elif !defined(RC_INVOKED)
+#pragma pack(4)
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/* To mimic older RichEdit behavior, simply set _RICHEDIT_VER to the appropriate value */
+/*		Version 1.0		0x0100	*/
+/*		Version 2.0		0x0200	*/
+#ifndef _RICHEDIT_VER
+#define _RICHEDIT_VER	0x0210
+#endif
+
+/*
+ *	To make some structures which can be passed between 16 and 32 bit windows
+ *	almost compatible, padding is introduced to the 16 bit versions of the
+ *	structure.
+ */
+#ifdef _WIN32
+#	define	_WPAD	/##/
+#else
+#	define	_WPAD	WORD
+#endif
+
+#define cchTextLimitDefault 32767
+
+/* Richedit2.0 Window Class. */
+
+#define RICHEDIT_CLASSA		"RichEdit20A"
+#define RICHEDIT_CLASS10A	"RICHEDIT"			// Richedit 1.0
+
+#ifndef MACPORT
+#define RICHEDIT_CLASSW		L"RichEdit20W"
+#else	/*----------------------MACPORT */
+#define RICHEDIT_CLASSW		TEXT("RichEdit20W")	/* MACPORT change */
+#endif /* MACPORT  */
+
+#if (_RICHEDIT_VER >= 0x0200 )
+#ifdef UNICODE
+#define RICHEDIT_CLASS		RICHEDIT_CLASSW
+#else
+#define RICHEDIT_CLASS		RICHEDIT_CLASSA
+#endif /* UNICODE */
+#else
+#define RICHEDIT_CLASS		RICHEDIT_CLASS10A
+#endif /* _RICHEDIT_VER >= 0x0200 */
+
+/* RichEdit messages */
+
+#ifndef WM_CONTEXTMENU
+#define WM_CONTEXTMENU			0x007B
+#endif
+
+#ifndef WM_PRINTCLIENT
+#define WM_PRINTCLIENT			0x0318
+#endif
+
+#ifndef EM_GETLIMITTEXT
+#define EM_GETLIMITTEXT			(WM_USER + 37)
+#endif
+
+#ifndef EM_POSFROMCHAR	
+#define EM_POSFROMCHAR			(WM_USER + 38)
+#define EM_CHARFROMPOS			(WM_USER + 39)
+#endif
+
+#ifndef EM_SCROLLCARET
+#define EM_SCROLLCARET			(WM_USER + 49)
+#endif
+#define EM_CANPASTE				(WM_USER + 50)
+#define EM_DISPLAYBAND			(WM_USER + 51)
+#define EM_EXGETSEL				(WM_USER + 52)
+#define EM_EXLIMITTEXT			(WM_USER + 53)
+#define EM_EXLINEFROMCHAR		(WM_USER + 54)
+#define EM_EXSETSEL				(WM_USER + 55)
+#define EM_FINDTEXT				(WM_USER + 56)
+#define EM_FORMATRANGE			(WM_USER + 57)
+#define EM_GETCHARFORMAT		(WM_USER + 58)
+#define EM_GETEVENTMASK			(WM_USER + 59)
+#define EM_GETOLEINTERFACE		(WM_USER + 60)
+#define EM_GETPARAFORMAT		(WM_USER + 61)
+#define EM_GETSELTEXT			(WM_USER + 62)
+#define EM_HIDESELECTION		(WM_USER + 63)
+#define EM_PASTESPECIAL			(WM_USER + 64)
+#define EM_REQUESTRESIZE		(WM_USER + 65)
+#define EM_SELECTIONTYPE		(WM_USER + 66)
+#define EM_SETBKGNDCOLOR		(WM_USER + 67)
+#define EM_SETCHARFORMAT		(WM_USER + 68)
+#define EM_SETEVENTMASK			(WM_USER + 69)
+#define EM_SETOLECALLBACK		(WM_USER + 70)
+#define EM_SETPARAFORMAT		(WM_USER + 71)
+#define EM_SETTARGETDEVICE		(WM_USER + 72)
+#define EM_STREAMIN				(WM_USER + 73)
+#define EM_STREAMOUT			(WM_USER + 74)
+#define EM_GETTEXTRANGE			(WM_USER + 75)
+#define EM_FINDWORDBREAK		(WM_USER + 76)
+#define EM_SETOPTIONS			(WM_USER + 77)
+#define EM_GETOPTIONS			(WM_USER + 78)
+#define EM_FINDTEXTEX			(WM_USER + 79)
+#ifdef _WIN32
+#define EM_GETWORDBREAKPROCEX	(WM_USER + 80)
+#define EM_SETWORDBREAKPROCEX	(WM_USER + 81)
+#endif
+
+/* Richedit v2.0 messages */
+#define	EM_SETUNDOLIMIT			(WM_USER + 82)
+#define EM_REDO					(WM_USER + 84)
+#define EM_CANREDO				(WM_USER + 85)
+#define EM_GETUNDONAME			(WM_USER + 86)
+#define EM_GETREDONAME			(WM_USER + 87)
+#define EM_STOPGROUPTYPING		(WM_USER + 88)
+
+#define EM_SETTEXTMODE			(WM_USER + 89)
+#define EM_GETTEXTMODE			(WM_USER + 90)
+
+/* enum for use with EM_GET/SETTEXTMODE */
+typedef enum tagTextMode
+{
+	TM_PLAINTEXT			= 1,
+	TM_RICHTEXT				= 2,	/* default behavior */
+	TM_SINGLELEVELUNDO		= 4,
+	TM_MULTILEVELUNDO		= 8,	/* default behavior */
+	TM_SINGLECODEPAGE		= 16,
+	TM_MULTICODEPAGE		= 32	/* default behavior */
+} TEXTMODE;
+
+#define EM_AUTOURLDETECT		(WM_USER + 91)
+#define EM_GETAUTOURLDETECT		(WM_USER + 92)
+#define EM_SETPALETTE			(WM_USER + 93)
+#define EM_GETTEXTEX			(WM_USER + 94)
+#define EM_GETTEXTLENGTHEX		(WM_USER + 95)
+
+/* Far East specific messages */
+#define EM_SETPUNCTUATION		(WM_USER + 100)
+#define EM_GETPUNCTUATION		(WM_USER + 101)
+#define EM_SETWORDWRAPMODE		(WM_USER + 102)
+#define EM_GETWORDWRAPMODE		(WM_USER + 103)
+#define EM_SETIMECOLOR			(WM_USER + 104)
+#define EM_GETIMECOLOR			(WM_USER + 105)
+#define EM_SETIMEOPTIONS		(WM_USER + 106)
+#define EM_GETIMEOPTIONS		(WM_USER + 107)
+#define EM_CONVPOSITION 		(WM_USER + 108)
+
+#define EM_SETLANGOPTIONS		(WM_USER + 120)
+#define EM_GETLANGOPTIONS		(WM_USER + 121)
+#define EM_GETIMECOMPMODE		(WM_USER + 122)
+
+#define EM_FINDTEXTW			(WM_USER + 123)
+#define EM_FINDTEXTEXW			(WM_USER + 124)
+
+/* BiDi specific messages */
+#define EM_SETBIDIOPTIONS		(WM_USER + 200)
+#define EM_GETBIDIOPTIONS		(WM_USER + 201)
+
+/* Options for EM_SETLANGOPTIONS and EM_GETLANGOPTIONS */
+#define IMF_AUTOKEYBOARD		0x0001
+#define IMF_AUTOFONT			0x0002
+#define IMF_IMECANCELCOMPLETE	0x0004	// high completes the comp string when aborting, low cancels.
+#define IMF_IMEALWAYSSENDNOTIFY 0x0008
+
+/* Values for EM_GETIMECOMPMODE */
+#define ICM_NOTOPEN				0x0000
+#define ICM_LEVEL3				0x0001
+#define ICM_LEVEL2				0x0002
+#define ICM_LEVEL2_5			0x0003
+#define ICM_LEVEL2_SUI			0x0004
+
+/* New notifications */
+
+#define EN_MSGFILTER			0x0700
+#define EN_REQUESTRESIZE		0x0701
+#define EN_SELCHANGE			0x0702
+#define EN_DROPFILES			0x0703
+#define EN_PROTECTED			0x0704
+#define EN_CORRECTTEXT			0x0705			/* PenWin specific */
+#define EN_STOPNOUNDO			0x0706
+#define EN_IMECHANGE			0x0707			/* Far East specific */
+#define EN_SAVECLIPBOARD		0x0708
+#define EN_OLEOPFAILED			0x0709
+#define EN_OBJECTPOSITIONS		0x070a
+#define EN_LINK					0x070b
+#define EN_DRAGDROPDONE			0x070c
+
+/* BiDi specific notifications */
+
+#define EN_ALIGN_LTR			0x0710
+#define EN_ALIGN_RTL			0x0711
+
+/* Event notification masks */
+
+#define ENM_NONE				0x00000000
+#define ENM_CHANGE				0x00000001
+#define ENM_UPDATE				0x00000002
+#define ENM_SCROLL				0x00000004
+#define ENM_KEYEVENTS			0x00010000
+#define ENM_MOUSEEVENTS			0x00020000
+#define ENM_REQUESTRESIZE		0x00040000
+#define ENM_SELCHANGE			0x00080000
+#define ENM_DROPFILES			0x00100000
+#define ENM_PROTECTED			0x00200000
+#define ENM_CORRECTTEXT			0x00400000		/* PenWin specific */
+#define ENM_SCROLLEVENTS		0x00000008
+#define ENM_DRAGDROPDONE		0x00000010
+
+/* Far East specific notification mask */
+#define ENM_IMECHANGE			0x00800000		/* unused by RE2.0 */
+#define ENM_LANGCHANGE			0x01000000
+#define ENM_OBJECTPOSITIONS		0x02000000
+#define ENM_LINK				0x04000000
+
+/* New edit control styles */
+
+#define ES_SAVESEL				0x00008000
+#define ES_SUNKEN				0x00004000
+#define ES_DISABLENOSCROLL		0x00002000
+/* same as WS_MAXIMIZE, but that doesn't make sense so we re-use the value */
+#define ES_SELECTIONBAR			0x01000000
+/* same as ES_UPPERCASE, but re-used to completely disable OLE drag'n'drop */
+#define ES_NOOLEDRAGDROP		0x00000008
+
+/* New edit control extended style */
+#ifdef	_WIN32
+#define ES_EX_NOCALLOLEINIT		0x01000000
+#endif	
+
+/* These flags are used in FE Windows */
+#define ES_VERTICAL				0x00400000
+#define	ES_NOIME				0x00080000
+#define ES_SELFIME				0x00040000
+
+/* Edit control options */
+#define ECO_AUTOWORDSELECTION	0x00000001
+#define ECO_AUTOVSCROLL			0x00000040
+#define ECO_AUTOHSCROLL			0x00000080
+#define ECO_NOHIDESEL			0x00000100
+#define ECO_READONLY			0x00000800
+#define ECO_WANTRETURN			0x00001000
+#define ECO_SAVESEL				0x00008000
+#define ECO_SELECTIONBAR		0x01000000
+#define ECO_VERTICAL			0x00400000		/* FE specific */
+
+
+/* ECO operations */
+#define ECOOP_SET				0x0001
+#define ECOOP_OR				0x0002
+#define ECOOP_AND				0x0003
+#define ECOOP_XOR				0x0004
+
+/* new word break function actions */
+#define WB_CLASSIFY			3
+#define WB_MOVEWORDLEFT		4
+#define WB_MOVEWORDRIGHT	5
+#define WB_LEFTBREAK		6
+#define WB_RIGHTBREAK		7
+
+/* Far East specific flags */
+#define WB_MOVEWORDPREV		4
+#define WB_MOVEWORDNEXT		5
+#define WB_PREVBREAK		6
+#define WB_NEXTBREAK		7
+
+#define PC_FOLLOWING		1
+#define	PC_LEADING			2
+#define	PC_OVERFLOW			3
+#define	PC_DELIMITER		4
+#define WBF_WORDWRAP		0x010
+#define WBF_WORDBREAK		0x020
+#define	WBF_OVERFLOW		0x040	
+#define WBF_LEVEL1			0x080
+#define	WBF_LEVEL2			0x100
+#define	WBF_CUSTOM			0x200
+
+/* Far East specific flags */
+#define IMF_FORCENONE           0x0001
+#define IMF_FORCEENABLE         0x0002
+#define IMF_FORCEDISABLE        0x0004
+#define IMF_CLOSESTATUSWINDOW   0x0008
+#define IMF_VERTICAL            0x0020
+#define IMF_FORCEACTIVE         0x0040
+#define IMF_FORCEINACTIVE       0x0080
+#define IMF_FORCEREMEMBER       0x0100
+#define IMF_MULTIPLEEDIT        0x0400
+
+/* Word break flags (used with WB_CLASSIFY) */
+#define WBF_CLASS			((BYTE) 0x0F)
+#define WBF_ISWHITE			((BYTE) 0x10)
+#define WBF_BREAKLINE		((BYTE) 0x20)
+#define WBF_BREAKAFTER		((BYTE) 0x40)
+
+
+/* new data types */
+
+#ifdef _WIN32
+/* extended edit word break proc (character set aware) */
+typedef LONG (*EDITWORDBREAKPROCEX)(char *pchText, LONG cchText, BYTE bCharSet, INT action);
+#endif
+
+/* all character format measurements are in twips */
+typedef struct _charformat
+{
+	UINT		cbSize;
+	_WPAD		_wPad1;
+	DWORD		dwMask;
+	DWORD		dwEffects;
+	LONG		yHeight;
+	LONG		yOffset;
+	COLORREF	crTextColor;
+	BYTE		bCharSet;
+	BYTE		bPitchAndFamily;
+	char		szFaceName[LF_FACESIZE];
+	_WPAD		_wPad2;
+} CHARFORMATA;
+
+typedef struct _charformatw
+{
+	UINT		cbSize;
+	_WPAD		_wPad1;
+	DWORD		dwMask;
+	DWORD		dwEffects;
+	LONG		yHeight;
+	LONG		yOffset;
+	COLORREF	crTextColor;
+	BYTE		bCharSet;
+	BYTE		bPitchAndFamily;
+	WCHAR		szFaceName[LF_FACESIZE];
+	_WPAD		_wPad2;
+} CHARFORMATW;
+
+#if (_RICHEDIT_VER >= 0x0200)
+#ifdef UNICODE
+#define CHARFORMAT CHARFORMATW
+#else
+#define CHARFORMAT CHARFORMATA
+#endif /* UNICODE */
+#else
+#define CHARFORMAT CHARFORMATA
+#endif /* _RICHEDIT_VER >= 0x0200 */
+
+/* CHARFORMAT masks */
+#define CFM_BOLD		0x00000001
+#define CFM_ITALIC		0x00000002
+#define CFM_UNDERLINE	0x00000004
+#define CFM_STRIKEOUT	0x00000008
+#define CFM_PROTECTED	0x00000010
+#define CFM_LINK		0x00000020		/* Exchange hyperlink extension */
+#define CFM_SIZE		0x80000000
+#define CFM_COLOR		0x40000000
+#define CFM_FACE		0x20000000
+#define CFM_OFFSET		0x10000000
+#define CFM_CHARSET		0x08000000
+
+/* CHARFORMAT effects */
+#define CFE_BOLD		0x0001
+#define CFE_ITALIC		0x0002
+#define CFE_UNDERLINE	0x0004
+#define CFE_STRIKEOUT	0x0008
+#define CFE_PROTECTED	0x0010
+#define CFE_LINK		0x0020
+#define CFE_AUTOCOLOR	0x40000000		/* NOTE: this corresponds to */
+										/* CFM_COLOR, which controls it */
+#define yHeightCharPtsMost 1638
+
+/* EM_SETCHARFORMAT wParam masks */
+#define SCF_SELECTION	0x0001
+#define SCF_WORD		0x0002
+#define SCF_DEFAULT		0x0000		// set the default charformat or paraformat
+#define SCF_ALL			0x0004		// not valid with SCF_SELECTION or SCF_WORD
+#define SCF_USEUIRULES	0x0008		// modifier for SCF_SELECTION; says that
+									// the format came from a toolbar, etc. and
+									// therefore UI formatting rules should be
+									// used instead of strictly formatting the
+									// selection.
+
+
+typedef struct _charrange
+{
+	LONG	cpMin;
+	LONG	cpMax;
+} CHARRANGE;
+
+typedef struct _textrange
+{
+	CHARRANGE chrg;
+	LPSTR lpstrText;	/* allocated by caller, zero terminated by RichEdit */
+} TEXTRANGEA;
+
+typedef struct _textrangew
+{
+	CHARRANGE chrg;
+	LPWSTR lpstrText;	/* allocated by caller, zero terminated by RichEdit */
+} TEXTRANGEW;
+
+#if (_RICHEDIT_VER >= 0x0200)
+#ifdef UNICODE
+#define TEXTRANGE 	TEXTRANGEW
+#else
+#define TEXTRANGE	TEXTRANGEA
+#endif /* UNICODE */
+#else
+#define TEXTRANGE	TEXTRANGEA
+#endif /* _RICHEDIT_VER >= 0x0200 */
+
+
+typedef DWORD (CALLBACK *EDITSTREAMCALLBACK)(DWORD dwCookie, LPBYTE pbBuff, LONG cb, LONG *pcb);
+
+typedef struct _editstream
+{
+	DWORD dwCookie;		/* user value passed to callback as first parameter */
+	DWORD dwError;		/* last error */
+	EDITSTREAMCALLBACK pfnCallback;
+} EDITSTREAM;
+
+/* stream formats */
+
+#define SF_TEXT			0x0001
+#define SF_RTF			0x0002
+#define SF_RTFNOOBJS	0x0003		/* outbound only */
+#define SF_TEXTIZED		0x0004		/* outbound only */
+#define SF_UNICODE		0x0010		/* Unicode file of some kind */
+
+/* Flag telling stream operations to operate on the selection only */
+/* EM_STREAMIN will replace the current selection */
+/* EM_STREAMOUT will stream out the current selection */
+#define SFF_SELECTION	0x8000
+
+/* Flag telling stream operations to operate on the common RTF keyword only */
+/* EM_STREAMIN will accept the only common RTF keyword */
+/* EM_STREAMOUT will stream out the only common RTF keyword */
+#define SFF_PLAINRTF	0x4000
+
+typedef struct _findtext
+{
+	CHARRANGE chrg;
+	LPSTR lpstrText;
+} FINDTEXTA;
+
+typedef struct _findtextw
+{
+	CHARRANGE chrg;
+	LPWSTR lpstrText;
+} FINDTEXTW;
+
+#if (_RICHEDIT_VER >= 0x0200)
+#ifdef UNICODE
+#define FINDTEXT	FINDTEXTW
+#else
+#define FINDTEXT	FINDTEXTA
+#endif /* UNICODE */
+#else
+#define FINDTEXT	FINDTEXTA
+#endif /* _RICHEDIT_VER >= 0x0200 */
+
+typedef struct _findtextexa
+{
+	CHARRANGE chrg;
+	LPSTR lpstrText;
+	CHARRANGE chrgText;
+} FINDTEXTEXA;
+
+typedef struct _findtextexw
+{
+	CHARRANGE chrg;
+	LPWSTR lpstrText;
+	CHARRANGE chrgText;
+} FINDTEXTEXW;
+
+#if (_RICHEDIT_VER >= 0x0200)
+#ifdef UNICODE
+#define FINDTEXTEX	FINDTEXTEXW
+#else
+#define FINDTEXTEX	FINDTEXTEXA
+#endif /* UNICODE */
+#else
+#define FINDTEXTEX	FINDTEXTEXA
+#endif /* _RICHEDIT_VER >= 0x0200 */
+
+
+typedef struct _formatrange
+{
+	HDC hdc;
+	HDC hdcTarget;
+	RECT rc;
+	RECT rcPage;
+	CHARRANGE chrg;
+} FORMATRANGE;
+
+/* all paragraph measurements are in twips */
+
+#define MAX_TAB_STOPS 32
+#define lDefaultTab 720
+
+typedef struct _paraformat
+{
+	UINT	cbSize;
+	_WPAD	_wPad1;
+	DWORD	dwMask;
+	WORD	wNumbering;
+#if (_RICHEDIT_VER >= 0x0210)
+	WORD	wEffects;
+#else
+	WORD	wReserved;
+#endif /* _RICHEDIT_VER >= 0x0210 */
+	LONG	dxStartIndent;
+	LONG	dxRightIndent;
+	LONG	dxOffset;
+	WORD	wAlignment;
+	SHORT	cTabCount;
+	LONG	rgxTabs[MAX_TAB_STOPS];
+} PARAFORMAT;
+
+/* PARAFORMAT mask values */
+#define PFM_STARTINDENT			0x00000001
+#define PFM_RIGHTINDENT			0x00000002
+#define PFM_OFFSET				0x00000004
+#define PFM_ALIGNMENT			0x00000008
+#define PFM_TABSTOPS			0x00000010
+#define PFM_NUMBERING			0x00000020
+#define PFM_OFFSETINDENT		0x80000000
+
+/* PARAFORMAT numbering options */
+#define PFN_BULLET		0x0001
+
+/* PARAFORMAT alignment options */
+#define PFA_LEFT	0x0001
+#define PFA_RIGHT	0x0002
+#define PFA_CENTER	0x0003
+
+/* CHARFORMAT2 and PARAFORMAT2 structures */
+
+#ifdef __cplusplus
+
+struct CHARFORMAT2W : _charformatw
+{
+	WORD		wWeight;			/* Font weight (LOGFONT value)		*/
+	SHORT		sSpacing;			/* Amount to space between letters	*/
+	COLORREF	crBackColor;		/* Background color					*/
+	LCID		lcid;				/* Locale ID						*/
+	DWORD		dwReserved;			/* Reserved. Must be 0				*/
+	SHORT		sStyle;				/* Style handle						*/
+	WORD		wKerning;			/* Twip size above which to kern char pair*/
+	BYTE		bUnderlineType;		/* Underline type					*/
+	BYTE		bAnimation;			/* Animated text like marching ants */
+	BYTE		bRevAuthor;			/* Revision author index			*/
+};
+
+struct CHARFORMAT2A : _charformat
+{
+	WORD		wWeight;			/* Font weight (LOGFONT value)		*/
+	SHORT		sSpacing;			/* Amount to space between letters	*/
+	COLORREF	crBackColor;		/* Background color					*/
+	LCID		lcid;				/* Locale ID						*/
+	DWORD		dwReserved;			/* Reserved. Must be 0				*/
+	SHORT		sStyle;				/* Style handle						*/
+	WORD		wKerning;			/* Twip size above which to kern char pair*/
+	BYTE		bUnderlineType;		/* Underline type					*/
+	BYTE		bAnimation;			/* Animated text like marching ants	*/
+	BYTE		bRevAuthor;			/* Revision author index			*/
+};
+
+#else	/* regular C-style  */
+
+typedef struct _charformat2w
+{
+	UINT		cbSize;
+	_WPAD		_wPad1;
+	DWORD		dwMask;
+	DWORD		dwEffects;
+	LONG		yHeight;
+	LONG		yOffset;			/* > 0 for superscript, < 0 for subscript */
+	COLORREF	crTextColor;
+	BYTE		bCharSet;
+	BYTE		bPitchAndFamily;
+	WCHAR		szFaceName[LF_FACESIZE];
+	_WPAD		_wPad2;
+	WORD		wWeight;			/* Font weight (LOGFONT value)		*/
+	SHORT		sSpacing;			/* Amount to space between letters	*/
+	COLORREF	crBackColor;		/* Background color					*/
+	LCID		lcid;				/* Locale ID						*/
+	DWORD		dwReserved;			/* Reserved. Must be 0				*/
+	SHORT		sStyle;				/* Style handle						*/
+	WORD		wKerning;			/* Twip size above which to kern char pair*/
+	BYTE		bUnderlineType;		/* Underline type					*/
+	BYTE		bAnimation;			/* Animated text like marching ants	*/
+	BYTE		bRevAuthor;			/* Revision author index			*/
+	BYTE		bReserved1;
+} CHARFORMAT2W;
+
+typedef struct _charformat2a
+{
+	UINT		cbSize;
+	_WPAD		_wPad1;
+	DWORD		dwMask;
+	DWORD		dwEffects;
+	LONG		yHeight;
+	LONG		yOffset;			/* > 0 for superscript, < 0 for subscript */
+	COLORREF	crTextColor;
+	BYTE		bCharSet;
+	BYTE		bPitchAndFamily;
+	char		szFaceName[LF_FACESIZE];
+	_WPAD		_wPad2;
+	WORD		wWeight;			/* Font weight (LOGFONT value)		*/
+	SHORT		sSpacing;			/* Amount to space between letters	*/
+	COLORREF	crBackColor;		/* Background color					*/
+	LCID		lcid;				/* Locale ID						*/
+	DWORD		dwReserved;			/* Reserved. Must be 0				*/
+	SHORT		sStyle;				/* Style handle						*/
+	WORD		wKerning;			/* Twip size above which to kern char pair*/
+	BYTE		bUnderlineType;		/* Underline type					*/
+	BYTE		bAnimation;			/* Animated text like marching ants	*/
+	BYTE		bRevAuthor;			/* Revision author index			*/
+} CHARFORMAT2A;
+
+#endif /* C++ */
+
+#ifdef UNICODE
+#define CHARFORMAT2	CHARFORMAT2W
+#else
+#define CHARFORMAT2 CHARFORMAT2A
+#endif
+
+#define CHARFORMATDELTA		(sizeof(CHARFORMAT2) - sizeof(CHARFORMAT))
+
+
+/* CHARFORMAT and PARAFORMAT "ALL" masks
+   CFM_COLOR mirrors CFE_AUTOCOLOR, a little hack to easily deal with autocolor*/
+
+#define CFM_EFFECTS (CFM_BOLD | CFM_ITALIC | CFM_UNDERLINE | CFM_COLOR | \
+					 CFM_STRIKEOUT | CFE_PROTECTED | CFM_LINK)
+#define CFM_ALL (CFM_EFFECTS | CFM_SIZE | CFM_FACE | CFM_OFFSET | CFM_CHARSET)
+
+#define	PFM_ALL (PFM_STARTINDENT | PFM_RIGHTINDENT | PFM_OFFSET	| \
+				 PFM_ALIGNMENT   | PFM_TABSTOPS    | PFM_NUMBERING | \
+				 PFM_OFFSETINDENT| PFM_DIR)
+
+/* New masks and effects -- a parenthesized asterisk indicates that
+   the data is stored by RichEdit2.0, but not displayed */
+
+#define CFM_SMALLCAPS		0x0040			/* (*)	*/
+#define	CFM_ALLCAPS			0x0080			/* (*)	*/
+#define	CFM_HIDDEN			0x0100			/* (*)	*/
+#define	CFM_OUTLINE			0x0200			/* (*)	*/
+#define	CFM_SHADOW			0x0400			/* (*)	*/
+#define	CFM_EMBOSS			0x0800			/* (*)	*/
+#define	CFM_IMPRINT			0x1000			/* (*)	*/
+#define CFM_DISABLED		0x2000
+#define	CFM_REVISED			0x4000
+
+#define CFM_BACKCOLOR		0x04000000
+#define CFM_LCID			0x02000000
+#define	CFM_UNDERLINETYPE	0x00800000		/* (*)	*/
+#define	CFM_WEIGHT			0x00400000
+#define CFM_SPACING			0x00200000		/* (*)	*/
+#define CFM_KERNING			0x00100000		/* (*)	*/
+#define CFM_STYLE			0x00080000		/* (*)	*/
+#define CFM_ANIMATION		0x00040000		/* (*)	*/
+#define CFM_REVAUTHOR		0x00008000
+
+#define CFE_SUBSCRIPT		0x00010000		/* Superscript and subscript are */
+#define CFE_SUPERSCRIPT		0x00020000		/*  mutually exclusive			 */
+
+#define CFM_SUBSCRIPT		CFE_SUBSCRIPT | CFE_SUPERSCRIPT
+#define CFM_SUPERSCRIPT		CFM_SUBSCRIPT
+
+#define	CFM_EFFECTS2 (CFM_EFFECTS | CFM_DISABLED | CFM_SMALLCAPS | CFM_ALLCAPS \
+					| CFM_HIDDEN  | CFM_OUTLINE | CFM_SHADOW | CFM_EMBOSS \
+					| CFM_IMPRINT | CFM_DISABLED | CFM_REVISED \
+					| CFM_SUBSCRIPT | CFM_SUPERSCRIPT | CFM_BACKCOLOR)
+
+#define CFM_ALL2	 (CFM_ALL | CFM_EFFECTS2 | CFM_BACKCOLOR | CFM_LCID \
+					| CFM_UNDERLINETYPE | CFM_WEIGHT | CFM_REVAUTHOR \
+					| CFM_SPACING | CFM_KERNING | CFM_STYLE | CFM_ANIMATION)
+
+#define	CFE_SMALLCAPS		CFM_SMALLCAPS
+#define	CFE_ALLCAPS			CFM_ALLCAPS
+#define	CFE_HIDDEN			CFM_HIDDEN
+#define	CFE_OUTLINE			CFM_OUTLINE
+#define	CFE_SHADOW			CFM_SHADOW
+#define	CFE_EMBOSS			CFM_EMBOSS
+#define	CFE_IMPRINT			CFM_IMPRINT
+#define	CFE_DISABLED		CFM_DISABLED
+#define	CFE_REVISED			CFM_REVISED
+
+/* NOTE: CFE_AUTOCOLOR and CFE_AUTOBACKCOLOR correspond to CFM_COLOR and
+   CFM_BACKCOLOR, respectively, which control them */
+#define CFE_AUTOBACKCOLOR	CFM_BACKCOLOR
+
+/* Underline types */
+#define CFU_CF1UNDERLINE	0xFF	/* map charformat's bit underline to CF2.*/
+#define CFU_INVERT			0xFE	/* For IME composition fake a selection.*/	
+#define	CFU_UNDERLINEDOTTED	0x4		/* (*) displayed as ordinary underline	*/
+#define	CFU_UNDERLINEDOUBLE	0x3		/* (*) displayed as ordinary underline	*/
+#define CFU_UNDERLINEWORD	0x2		/* (*) displayed as ordinary underline	*/
+#define CFU_UNDERLINE		0x1
+#define CFU_UNDERLINENONE	0
+
+#ifdef __cplusplus
+struct PARAFORMAT2 : _paraformat
+{
+	LONG	dySpaceBefore;			/* Vertical spacing before para			*/
+	LONG	dySpaceAfter;			/* Vertical spacing after para			*/	
+	LONG	dyLineSpacing;			/* Line spacing depending on Rule		*/
+	SHORT	sStyle;					/* Style handle							*/
+	BYTE	bLineSpacingRule;		/* Rule for line spacing (see tom.doc)	*/
+	BYTE	bCRC;					/* Reserved for CRC for rapid searching	*/
+	WORD	wShadingWeight;			/* Shading in hundredths of a per cent	*/
+	WORD	wShadingStyle;			/* Nibble 0: style, 1: cfpat, 2: cbpat	*/
+	WORD	wNumberingStart;		/* Starting value for numbering			*/
+	WORD	wNumberingStyle;		/* Alignment, roman/arabic, (), ), ., etc.*/
+	WORD	wNumberingTab;			/* Space bet FirstIndent and 1st-line text*/
+	WORD	wBorderSpace;			/* Space between border and text (twips)*/
+	WORD	wBorderWidth;			/* Border pen width (twips)				*/
+	WORD	wBorders;				/* Byte 0: bits specify which borders	*/
+									/* Nibble 2: border style, 3: color index*/
+};
+
+#else	/* regular C-style	*/
+
+typedef struct _paraformat2
+{
+	UINT	cbSize;
+	_WPAD	_wPad1;
+	DWORD	dwMask;
+	WORD	wNumbering;
+#if (_RICHEDIT_VER >= 0x0210)
+	WORD	wEffects;
+#else
+	WORD	wReserved;
+#endif /* _RICHEDIT_VER >= 0x0210 */
+	LONG	dxStartIndent;
+	LONG	dxRightIndent;
+	LONG	dxOffset;
+	WORD	wAlignment;
+	SHORT	cTabCount;
+	LONG	rgxTabs[MAX_TAB_STOPS];
+ 	LONG	dySpaceBefore;			/* Vertical spacing before para			*/
+	LONG	dySpaceAfter;			/* Vertical spacing after para			*/
+	LONG	dyLineSpacing;			/* Line spacing depending on Rule		*/
+	SHORT	sStyle;					/* Style handle							*/
+	BYTE	bLineSpacingRule;		/* Rule for line spacing (see tom.doc)	*/
+	BYTE	bCRC;					/* Reserved for CRC for rapid searching	*/
+	WORD	wShadingWeight;			/* Shading in hundredths of a per cent	*/
+	WORD	wShadingStyle;			/* Nibble 0: style, 1: cfpat, 2: cbpat	*/
+	WORD	wNumberingStart;		/* Starting value for numbering			*/	
+	WORD	wNumberingStyle;		/* Alignment, roman/arabic, (), ), ., etc.*/
+	WORD	wNumberingTab;			/* Space bet 1st indent and 1st-line text*/
+	WORD	wBorderSpace;			/* Space between border and text (twips)*/
+	WORD	wBorderWidth;			/* Border pen width (twips)				*/
+	WORD	wBorders;				/* Byte 0: bits specify which borders	*/
+									/* Nibble 2: border style, 3: color index*/
+} PARAFORMAT2;
+
+#endif /* C++	*/
+
+/* PARAFORMAT 2.0 masks and effects */
+
+#define PFM_SPACEBEFORE			0x00000040
+#define PFM_SPACEAFTER			0x00000080
+#define PFM_LINESPACING			0x00000100
+#define	PFM_STYLE				0x00000400
+#define PFM_BORDER				0x00000800	/* (*)	*/
+#define PFM_SHADING				0x00001000	/* (*)	*/
+#define PFM_NUMBERINGSTYLE		0x00002000	/* (*)	*/
+#define PFM_NUMBERINGTAB		0x00004000	/* (*)	*/
+#define PFM_NUMBERINGSTART		0x00008000	/* (*)	*/
+
+#define PFM_DIR					0x00010000
+#define PFM_RTLPARA				0x00010000	/* (Version 1.0 flag) */
+#define PFM_KEEP				0x00020000	/* (*)	*/
+#define PFM_KEEPNEXT			0x00040000	/* (*)	*/
+#define PFM_PAGEBREAKBEFORE		0x00080000	/* (*)	*/
+#define PFM_NOLINENUMBER		0x00100000	/* (*)	*/
+#define PFM_NOWIDOWCONTROL		0x00200000	/* (*)	*/
+#define PFM_DONOTHYPHEN			0x00400000	/* (*)	*/
+#define PFM_SIDEBYSIDE			0x00800000	/* (*)	*/
+
+#define PFM_TABLE				0xc0000000	/* (*)	*/
+
+/* Note: PARAFORMAT has no effects */
+#define PFM_EFFECTS  (PFM_DIR | PFM_KEEP | PFM_KEEPNEXT | PFM_TABLE \
+					| PFM_PAGEBREAKBEFORE | PFM_NOLINENUMBER  \
+					| PFM_NOWIDOWCONTROL | PFM_DONOTHYPHEN | PFM_SIDEBYSIDE \
+					| PFM_TABLE)
+
+#define PFM_ALL2	(PFM_ALL | PFM_EFFECTS | PFM_SPACEBEFORE | PFM_SPACEAFTER \
+					| PFM_LINESPACING | PFM_STYLE | PFM_SHADING | PFM_BORDER \
+					| PFM_NUMBERINGTAB | PFM_NUMBERINGSTART | PFM_NUMBERINGSTYLE)
+
+#define PFE_RTLPARA				(PFM_DIR			 >> 16)
+#define PFE_RTLPAR				(PFM_RTLPARA		 >> 16)	/* (Version 1.0 flag) */
+#define PFE_KEEP				(PFM_KEEP			 >> 16)	/* (*)	*/
+#define PFE_KEEPNEXT			(PFM_KEEPNEXT		 >> 16)	/* (*)	*/
+#define PFE_PAGEBREAKBEFORE		(PFM_PAGEBREAKBEFORE >> 16)	/* (*)	*/
+#define PFE_NOLINENUMBER		(PFM_NOLINENUMBER	 >> 16)	/* (*)	*/
+#define PFE_NOWIDOWCONTROL		(PFM_NOWIDOWCONTROL	 >> 16)	/* (*)	*/
+#define PFE_DONOTHYPHEN			(PFM_DONOTHYPHEN 	 >> 16)	/* (*)	*/
+#define PFE_SIDEBYSIDE			(PFM_SIDEBYSIDE		 >> 16)	/* (*)	*/
+
+#define PFE_TABLEROW			0xc000		/* These 3 options are mutually	*/
+#define PFE_TABLECELLEND		0x8000		/*  exclusive and each imply	*/
+#define PFE_TABLECELL			0x4000		/*  that para is part of a table*/
+
+/*
+ *	PARAFORMAT numbering options (values for wNumbering):
+ *
+ *		Numbering Type		Value	Meaning
+ *		tomNoNumbering		  0		Turn off paragraph numbering
+ *		tomNumberAsLCLetter	  1		a, b, c, ...
+ *		tomNumberAsUCLetter	  2		A, B, C, ...
+ *		tomNumberAsLCRoman	  3		i, ii, iii, ...
+ *		tomNumberAsUCRoman	  4		I, II, III, ...
+ *		tomNumberAsSymbols	  5		default is bullet
+ *		tomNumberAsNumber	  6		0, 1, 2, ...
+ *		tomNumberAsSequence	  7		tomNumberingStart is first Unicode to use
+ *
+ *	Other valid Unicode chars are Unicodes for bullets.
+ */
+
+
+#define	PFA_JUSTIFY			4	/* New paragraph-alignment option 2.0 (*)
+
+
+/* notification structures */
+
+#ifndef WM_NOTIFY
+#define WM_NOTIFY				0x004E
+
+typedef struct _nmhdr
+{
+	HWND	hwndFrom;
+	_WPAD	_wPad1;
+	UINT	idFrom;
+	_WPAD	_wPad2;
+	UINT	code;
+	_WPAD	_wPad3;
+} NMHDR;
+#endif  /* !WM_NOTIFY */
+
+typedef struct _msgfilter
+{
+	NMHDR	nmhdr;
+	UINT	msg;
+	_WPAD	_wPad1;
+	WPARAM	wParam;
+	_WPAD	_wPad2;
+	LPARAM	lParam;
+} MSGFILTER;
+
+typedef struct _reqresize
+{
+	NMHDR nmhdr;
+	RECT rc;
+} REQRESIZE;
+
+typedef struct _selchange
+{
+	NMHDR nmhdr;
+	CHARRANGE chrg;
+	WORD seltyp;
+} SELCHANGE;
+
+#define SEL_EMPTY		0x0000
+#define SEL_TEXT		0x0001
+#define SEL_OBJECT		0x0002
+#define SEL_MULTICHAR	0x0004
+#define SEL_MULTIOBJECT	0x0008
+
+/* used with IRichEditOleCallback::GetContextMenu, this flag will be
+   passed as a "selection type".  It indicates that a context menu for
+   a right-mouse drag drop should be generated.  The IOleObject parameter
+   will really be the IDataObject for the drop
+ */
+#define GCM_RIGHTMOUSEDROP  0x8000
+
+typedef struct _endropfiles
+{
+	NMHDR nmhdr;
+	HANDLE hDrop;
+	LONG cp;
+	BOOL fProtected;
+} ENDROPFILES;
+
+typedef struct _enprotected
+{
+	NMHDR nmhdr;
+	UINT msg;
+	_WPAD	_wPad1;
+	WPARAM wParam;
+	_WPAD	_wPad2;
+	LPARAM lParam;
+	CHARRANGE chrg;
+} ENPROTECTED;
+
+typedef struct _ensaveclipboard
+{
+	NMHDR nmhdr;
+	LONG cObjectCount;
+    LONG cch;
+} ENSAVECLIPBOARD;
+
+#ifndef MACPORT
+typedef struct _enoleopfailed
+{
+	NMHDR nmhdr;
+	LONG iob;
+	LONG lOper;
+	HRESULT hr;
+} ENOLEOPFAILED;
+#endif
+
+#define	OLEOP_DOVERB	1
+
+typedef struct _objectpositions
+{
+    NMHDR nmhdr;
+    LONG cObjectCount;
+    LONG *pcpPositions;
+} OBJECTPOSITIONS;
+
+typedef struct _enlink
+{
+    NMHDR nmhdr;
+    UINT msg;
+    _WPAD   _wPad1;
+    WPARAM wParam;
+    _WPAD   _wPad2;
+    LPARAM lParam;
+    CHARRANGE chrg;
+} ENLINK;
+
+/* PenWin specific */
+typedef struct _encorrecttext
+{
+	NMHDR nmhdr;
+	CHARRANGE chrg;
+	WORD seltyp;
+} ENCORRECTTEXT;
+
+/* Far East specific */
+typedef struct _punctuation
+{
+	UINT	iSize;
+	LPSTR	szPunctuation;
+} PUNCTUATION;
+
+/* Far East specific */
+typedef struct _compcolor
+{
+	COLORREF crText;
+	COLORREF crBackground;
+	DWORD dwEffects;
+}COMPCOLOR;
+
+
+/* clipboard formats - use as parameter to RegisterClipboardFormat() */
+#define CF_RTF 			TEXT("Rich Text Format")
+#define CF_RTFNOOBJS 	TEXT("Rich Text Format Without Objects")
+#define CF_RETEXTOBJ 	TEXT("RichEdit Text and Objects")
+
+/* Paste Special */
+typedef struct _repastespecial
+{
+	DWORD	dwAspect;
+	DWORD	dwParam;
+} REPASTESPECIAL;
+
+/*	UndoName info */
+typedef enum _undonameid
+{
+    UID_UNKNOWN     = 0,
+	UID_TYPING		= 1,
+	UID_DELETE 		= 2,
+	UID_DRAGDROP	= 3,
+	UID_CUT			= 4,
+	UID_PASTE		= 5
+} UNDONAMEID;
+
+/* flags for the GETEXTEX data structure */
+#define GT_DEFAULT		0
+#define GT_USECRLF		1
+
+/* EM_GETTEXTEX info; this struct is passed in the wparam of the message */
+typedef struct _gettextex
+{
+	DWORD	cb;				/* count of bytes in the string				*/
+	DWORD	flags;			/* flags (see the GT_XXX defines			*/
+	UINT	codepage;		/* code page for translation (CP_ACP for default,
+						       1200 for Unicode							*/
+	LPCSTR	lpDefaultChar;	/* replacement for unmappable chars			*/
+	LPBOOL	lpUsedDefChar;	/* pointer to flag set when def char used	*/
+} GETTEXTEX;
+
+/* flags for the GETTEXTLENGTHEX data structure							*/
+#define GTL_DEFAULT		0	/* do the default (return # of chars)		*/
+#define GTL_USECRLF		1	/* compute answer using CRLFs for paragraphs*/
+#define GTL_PRECISE		2	/* compute a precise answer					*/
+#define GTL_CLOSE		4	/* fast computation of a "close" answer		*/
+#define GTL_NUMCHARS	8	/* return the number of characters			*/
+#define GTL_NUMBYTES	16	/* return the number of _bytes_				*/
+
+/* EM_GETTEXTLENGTHEX info; this struct is passed in the wparam of the msg */
+typedef struct _gettextlengthex
+{
+	DWORD	flags;			/* flags (see GTL_XXX defines)				*/
+	UINT	codepage;		/* code page for translation (CP_ACP for default,
+							   1200 for Unicode							*/
+} GETTEXTLENGTHEX;
+	
+/* BiDi specific features */
+typedef struct _bidioptions
+{
+	UINT	cbSize;
+	_WPAD	_wPad1;
+	WORD	wMask;
+	WORD	wEffects; 
+} BIDIOPTIONS;
+
+/* BIDIOPTIONS masks */
+#if (_RICHEDIT_VER == 0x0100)
+#define BOM_DEFPARADIR			0x0001	/* Default paragraph direction (implies alignment) (obsolete) */
+#define BOM_PLAINTEXT			0x0002	/* Use plain text layout (obsolete) */
+#define BOM_NEUTRALOVERRIDE		0x0004	/* Override neutral layout (obsolete) */
+#endif /* _RICHEDIT_VER == 0x0100 */
+#define BOM_CONTEXTREADING		0x0008	/* Context reading order */
+#define BOM_CONTEXTALIGNMENT	0x0010	/* Context alignment */
+
+/* BIDIOPTIONS effects */
+#if (_RICHEDIT_VER == 0x0100)
+#define BOE_RTLDIR				0x0001	/* Default paragraph direction (implies alignment) (obsolete) */
+#define BOE_PLAINTEXT			0x0002	/* Use plain text layout (obsolete) */
+#define BOE_NEUTRALOVERRIDE		0x0004	/* Override neutral layout (obsolete) */
+#endif /* _RICHEDIT_VER == 0x0100 */
+#define BOE_CONTEXTREADING		0x0008	/* Context reading order */
+#define BOE_CONTEXTALIGNMENT	0x0010	/* Context alignment */
+
+/* Additional EM_FINDTEXT[EX] flags */
+#define FR_MATCHDIAC                    0x20000000
+#define FR_MATCHKASHIDA                 0x40000000
+#define FR_MATCHALEFHAMZA               0x80000000
+
+/* UNICODE embedding character */
+#ifndef WCH_EMBEDDING
+#define WCH_EMBEDDING (WCHAR)0xFFFC
+#endif /* WCH_EMBEDDING */
+		
+
+#undef _WPAD
+
+#ifdef _WIN32
+#include <poppack.h>
+#elif !defined(RC_INVOKED)
+#pragma pack()
+#endif
+
+#ifdef __cplusplus
+}
+#endif  /* __cplusplus */
+
+#endif /* !_RICHEDIT_ */
+

source_code/version2.2_windows/WINDOWS.H

+
+/*++ BUILD Version: 0001    Increment this if a change has global effects
+
+Copyright (c) 1985-1997, Microsoft Corporation
+
+Module Name:
+
+
+    windows.h
+
+Abstract:
+
+    Master include file for Windows applications.
+
+Modified with WC_STATIC by F. Suckow  04.08.2011
+
+--*/
+
+#ifndef _WINDOWS_
+#define _WINDOWS_
+
+#ifndef WINVER
+#define WINVER 0x0400
+#else	
+#if defined(_WIN32_WINNT) && (WINVER < 0x0400) && (_WIN32_WINNT > 0x0400)
+#error WINVER setting conflicts with _WIN32_WINNT setting
+#endif
+#endif
+
+#ifndef WC_STATIC
+#define WC_STATIC               "Static"
+#endif
+
+#if(WINVER >= 0x0500)
+#pragma message ("")
+#pragma message ("NOTE: WINVER has been defined as 0x0500 or greater which enables")
+#pragma message ("Windows NT 5.0 and Windows 98 features. When these headers were released,")
+#pragma message ("Windows NT 5.0 beta 1 and Windows 98 beta 2.1 were the current versions.")
+#pragma message ("")
+#pragma message ("For this release when WINVER is defined as 0x0500 or greater, you can only")
+#pragma message ("build beta or test applications.  To build a retail application,")
+#pragma message ("set WINVER to 0x0400 or visit http://www.microsoft.com/msdn/sdk")
+#pragma message ("to see if retail Windows NT 5.0 or Windows 98 headers are available.")
+#pragma message ("")
+#pragma message ("See the SDK release notes for more information.")
+#pragma message ("")
+#endif
+
+#ifndef _INC_WINDOWS
+#define _INC_WINDOWS
+
+#if defined (_MSC_VER) && (_MSC_VER >= 1020)
+#pragma once
+#endif
+
+/*  If defined, the following flags inhibit definition
+ *     of the indicated items.
+ *
+ *  NOGDICAPMASKS     - CC_*, LC_*, PC_*, CP_*, TC_*, RC_
+ *  NOVIRTUALKEYCODES - VK_*
+ *  NOWINMESSAGES     - WM_*, EM_*, LB_*, CB_*
+ *  NOWINSTYLES       - WS_*, CS_*, ES_*, LBS_*, SBS_*, CBS_*
+ *  NOSYSMETRICS      - SM_*
+ *  NOMENUS           - MF_*
+ *  NOICONS           - IDI_*
+ *  NOKEYSTATES       - MK_*
+ *  NOSYSCOMMANDS     - SC_*
+ *  NORASTEROPS       - Binary and Tertiary raster ops
+ *  NOSHOWWINDOW      - SW_*
+ *  OEMRESOURCE       - OEM Resource values
+ *  NOATOM            - Atom Manager routines
+ *  NOCLIPBOARD       - Clipboard routines
+ *  NOCOLOR           - Screen colors
+ *  NOCTLMGR          - Control and Dialog routines
+ *  NODRAWTEXT        - DrawText() and DT_*
+ *  NOGDI             - All GDI defines and routines
+ *  NOKERNEL          - All KERNEL defines and routines
+ *  NOUSER            - All USER defines and routines
+ *  NONLS             - All NLS defines and routines
+ *  NOMB              - MB_* and MessageBox()
+ *  NOMEMMGR          - GMEM_*, LMEM_*, GHND, LHND, associated routines
+ *  NOMETAFILE        - typedef METAFILEPICT
+ *  NOMINMAX          - Macros min(a,b) and max(a,b)
+ *  NOMSG             - typedef MSG and associated routines
+ *  NOOPENFILE        - OpenFile(), OemToAnsi, AnsiToOem, and OF_*
+ *  NOSCROLL          - SB_* and scrolling routines
+ *  NOSERVICE         - All Service Controller routines, SERVICE_ equates, etc.
+ *  NOSOUND           - Sound driver routines
+ *  NOTEXTMETRIC      - typedef TEXTMETRIC and associated routines
+ *  NOWH              - SetWindowsHook and WH_*
+ *  NOWINOFFSETS      - GWL_*, GCL_*, associated routines
+ *  NOCOMM            - COMM driver routines
+ *  NOKANJI           - Kanji support stuff.
+ *  NOHELP            - Help engine interface.
+ *  NOPROFILER        - Profiler interface.
+ *  NODEFERWINDOWPOS  - DeferWindowPos routines
+ *  NOMCX             - Modem Configuration Extensions
+ */
+
+#if defined(RC_INVOKED) && !defined(NOWINRES)
+
+#include <winresrc.h>
+
+#else
+
+#if defined(RC_INVOKED)
+/* Turn off a bunch of stuff to ensure that RC files compile OK. */
+#define NOATOM
+#define NOGDI
+#define NOGDICAPMASKS
+#define NOMETAFILE
+#define NOMINMAX
+#define NOMSG
+#define NOOPENFILE
+#define NORASTEROPS
+#define NOSCROLL
+#define NOSOUND
+#define NOSYSMETRICS
+#define NOTEXTMETRIC
+#define NOWH
+#define NOCOMM
+#define NOKANJI
+#define NOCRYPT
+#define NOMCX
+#endif
+
+#if !defined(_68K_) && !defined(_MPPC_) && !defined(_PPC_) && !defined(_ALPHA_) && !defined(_MIPS_) && !defined(_X86_) && defined(_M_IX86)
+#define _X86_
+#endif
+
+#if !defined(_68K_) && !defined(_MPPC_) && !defined(_PPC_) && !defined(_ALPHA_) && !defined(_X86_) && !defined(_MIPS_) && defined(_M_MRX000)
+#define _MIPS_
+#endif
+
+#if !defined(_68K_) && !defined(_MPPC_) && !defined(_PPC_) && !defined(_ALPHA_) && !defined(_X86_) && !defined(_MIPS_) && defined(_M_ALPHA)
+#define _ALPHA_
+#endif
+
+#if !defined(_68K_) && !defined(_MPPC_) && !defined(_PPC_) && !defined(_ALPHA_) && !defined(_X86_) && !defined(_MIPS_) && defined(_M_PPC)
+#define _PPC_
+#endif
+
+#if !defined(_68K_) && !defined(_MPPC_) && !defined(_PPC_) && !defined(_ALPHA_) && !defined(_X86_) && !defined(_MIPS_) && defined(_M_M68K)
+#define _68K_
+#endif
+
+#if !defined(_68K_) && !defined(_MPPC_) && !defined(_PPC_) && !defined(_ALPHA_) && !defined(_X86_) && !defined(_MIPS_) && defined(_M_MPPC)
+#define _MPPC_
+#endif
+
+#ifndef _MAC
+#if defined(_68K_) || defined(_MPPC_)
+#define _MAC
+#endif
+#endif
+
+#ifndef RC_INVOKED
+#if     ( _MSC_VER >= 800 )
+#pragma warning(disable:4001)
+#pragma warning(disable:4201)
+#pragma warning(disable:4214)
+#pragma warning(disable:4514)
+#endif
+#include <excpt.h>
+#include <stdarg.h>
+#endif /* RC_INVOKED */
+
+#include <windef.h>
+#include <winbase.h>
+#include <wingdi.h>
+#include <winuser.h>
+#ifdef _MAC
+DECLARE_HANDLE(HKEY);
+typedef HKEY *PHKEY;
+#endif
+#if !defined(_MAC) || defined(_WIN32NLS)
+#include <winnls.h>
+#endif
+#ifndef _MAC
+#include <wincon.h>
+#include <winver.h>
+#endif
+#if !defined(_MAC) || defined(_WIN32REG)
+#include <winreg.h>
+#endif
+#ifndef _MAC
+#include <winnetwk.h>
+#endif
+
+#ifndef WIN32_LEAN_AND_MEAN
+#include <cderr.h>
+#include <dde.h>
+#include <ddeml.h>
+#include <dlgs.h>
+#ifndef _MAC
+#include <lzexpand.h>
+#include <mmsystem.h>
+#include <nb30.h>
+#include <rpc.h>
+#endif
+#include <shellapi.h>
+#ifndef _MAC
+#include <winperf.h>
+
+#if(_WIN32_WINNT >= 0x0400)
+#include <winsock2.h>
+#include <mswsock.h>
+#else
+#include <winsock.h>
+#endif /* _WIN32_WINNT >=  0x0400 */
+
+#endif
+#ifndef NOCRYPT
+#include <wincrypt.h>
+#endif
+
+#ifndef NOGDI
+#include <commdlg.h>
+#ifndef _MAC
+#include <winspool.h>
+#ifdef INC_OLE1
+#include <ole.h>
+#else
+#include <ole2.h>
+#endif /* !INC_OLE1 */
+#endif /* !MAC */
+#endif /* !NOGDI */
+#endif /* WIN32_LEAN_AND_MEAN */
+
+#ifdef _MAC
+#include <winwlm.h>
+#endif
+
+
+#ifdef INC_OLE2
+#include <ole2.h>
+#endif /* INC_OLE2 */
+
+#ifndef _MAC
+#ifndef NOSERVICE
+#include <winsvc.h>
+#endif
+
+#if(WINVER >= 0x0400)
+#ifndef NOMCX          
+#include <mcx.h>      
+#endif /* NOMCX */      
+                   
+#ifndef NOIME           
+#include <imm.h>        
+#endif
+#endif /* WINVER >= 0x0400 */
+#endif
+
+#ifndef RC_INVOKED
+#if     ( _MSC_VER >= 800 )
+#pragma warning(default:4001)
+#pragma warning(default:4201)
+#pragma warning(default:4214)
+/* Leave 4514 disabled.  It's a stupid warning anyway. */
+#endif
+#endif /* RC_INVOKED */
+
+#endif /* RC_INVOKED */
+
+#endif /* _INC_WINDOWS */
+#endif /* _WINDOWS_ */
+

source_code/version2.2_windows/amod_soil.f

@@ -121,7 +121,7 @@ module data_soil
 
 ! arrays of given root distribution (defined input)
 	real, allocatable, save, dimension(:)   :: root_fr    ! root fraction per soil layer 
-!                                               dp_rfr      ! depth of root fraction / cm  
+
 ! yearly fine root loss after Rasse et al. 2001
 	integer		:: rdepth_kind				! kind of calculation of root depth
 	real, allocatable, dimension(:) :: wat_left		! auxiliary variable for coh%watleft to determin annual sum of available water in soil layer boardering on root zone 
@@ -298,15 +298,15 @@ module data_soil_t
 
 ! Variables and parameters for soil temperature calculation
 
-integer flag_surf   ! calculation of soil surface temperature
-                    ! 0 - old version
-                    ! 1 - new ersion with explicit surface temperature
+integer :: flag_surf = 0   ! calculation of soil surface temperature
+                        ! 0 - surface temperature equals temperature of first layer
+                        ! 1 - with explicit surface temperature
 
-real  temps_surf    ! soil surface temperature  
-real  hflux_surf    ! soil heat flux at soil surface  
+real  temps_surf        ! soil surface temperature  
+real  hflux_surf        ! soil heat flux at soil surface  
 
 ! model parameters
-real     :: C0 = 0.76,  &     ! Faltungskoeff.
+real     :: C0 = 0.76,  &     ! coefficients for calculation of surface temperature
             C1 = 0.05,  &
             C2 = 0.3
 

source_code/version2.2_windows/day_ini.f

@@ -50,11 +50,12 @@ if (hum .le. 0.) then
 else if (hum .gt. 100.) then
    hum = 100.
 endif
-if (press .gt. 0.) then
+if (prs(i,j) .gt. 0.) then
     press = prs(i,j)
 else
     press = 1013.
 endif
+
 rad       = rd(i,j)
 wind      = wd(i,j)
 if (wind .lt. 0.) wind = 0.5

source_code/version2.2_windows/initia.f

@@ -118,7 +118,8 @@ SUBROUTINE INITIA
 ! end of declaration section
 !******************************************************************************
 	 
-	 ncl1 = 60
+	 !ncl1 = 60
+     ncl1=40 
 	 allocate (zheigh(ncl1), zbhd(ncl1), zhbc(ncl1), nz(ncl1))
 	 allocate (smaldc(ncl1), bigdc(ncl1))
 print *,' '
@@ -133,7 +134,7 @@ WRITE(*,'(A)',advance='no') ' ***Make your choice: '
 READ *, data_flag
 print *,' '
 
-clwdth=2  !set diameter class-class width 
+clwdth=15  !set diameter class-class width 
 corr_la=1. !standard value for leaf area correction in stands of high sum of crown projection areas
 mixed_tot_ca=0. !sum of crown projection area for mixed stands
 pass = 1 !counter for number of passes through calculation loop for mixed stands
@@ -256,7 +257,7 @@ CASE(1)
    IF (datasets=='multi') THEN
     select_lines=.false.
     fl_num=0
-if(infile=='input/hyyti_ini_0616.txt') then
+
 
       ALLOCATE(ngroups(10000))
       numstand= 0
@@ -291,7 +292,6 @@ if(infile=='input/hyyti_ini_0616.txt') then
 		   iF(baum(i).EQ.22) ngroups(nlines)%taxid=6   ! Larix
 		   iF(baum(i).EQ.23) ngroups(nlines)%taxid=7   ! Pinus strobus
            iF(baum(i).EQ.24) ngroups(nlines)%taxid=10   ! Douglasie
-
            IF (dm(i).eq.0) dm(i) = 0.5
            IF (mhoe(i).eq.0) mhoe(i) = 1.0
            IF (gf(i).eq.0) gf(i) = 0.25
@@ -310,50 +310,6 @@ if(infile=='input/hyyti_ini_0616.txt') then
 3333 CONTINUE
      nlines=nlines-1
      WRITE(*,*) nlines,'sets of data', numstand, 'sets of stands'
-    ELSE
-      IF(select_lines) THEN
-         READ(listunit,*)nlines_comp
-         ALLOCATE(locid_comp(nlines_comp))
-         DO i=1,nlines_comp    ! reading list of sites to be initialised
-            READ(listunit,*) locid_comp(i)
-         ENDDO  ! end reading list of sites to be initialised
-      ENDIF  ! end of reading file with sites to be selected
-      IF(select_lines) CLOSE(listunit)
-      CALL assign_DSW
-      CALL init_plenter_param
-      READ (inunit,*)nlines
-      ALLOCATE(ngroups(nlines))
-         istart=1
-         READ(inunit,*) ngroups(1)%locid,ngroups(1)%schicht,ngroups(1)%BRAid,ngroups(1)%alter,ngroups(1)%patchsize,ngroups(1)%mhoe,ngroups(1)%dm,ngroups(1)%volume,ngroups(1)%gf
-         ngroups(1)%patchsize=ngroups(1)%patchsize*10000.
-         ngroups(1)%baumzahl=0
-         ngroups(istart)%standsize=ngroups(1)%patchsize
-         ngroups(1)%taxid=tax_of_BRA_id(ngroups(1)%BRAid)
-
-      DO i=2,nlines
-         READ(inunit,*) ngroups(i)%locid,ngroups(i)%schicht,ngroups(i)%BRAid,ngroups(i)%alter,ngroups(i)%patchsize,ngroups(i)%mhoe,ngroups(i)%dm,ngroups(i)%volume,ngroups(i)%gf
-          WRITE(*,*) 'set no', i, 'read'
-          ngroups(i)%baumzahl=0
-         ! the following line maps BRAid 770 to 779, other 'Mehlbeeren', because two
-         ! different numbering systems existed in Brandenburg in the course of time
-         IF(ngroups(i)%BRAid==770) ngroups(i)%BRAid=779
-         ngroups(i)%patchsize=ngroups(i)%patchsize*10000.
-         ngroups(i)%taxid=tax_of_BRA_id(ngroups(i)%BRAid)
-         IF(ngroups(i)%taxid==6) ngroups(i)%taxid=3
-         IF(ngroups(i)%taxid==0) THEN
-
-         ELSE
-         ENDIF
-         IF(ngroups(i)%locid==ngroups(istart)%locid) THEN
-            ngroups(istart)%standsize=ngroups(istart)%standsize+ngroups(i)%patchsize
-			ngroups(i)%standsize = ngroups(istart)%standsize
-         ELSE
-            istart=i
-            ngroups(istart)%standsize=ngroups(i)%patchsize
-            fl_num=fl_num+1
-         ENDIF
-      ENDDO ! readin loop for multi data-set
-    ENDIF   ! block for direct DSW data or brb_inv-file structure
       CLOSE(inunit)
     ! read in file headder for description, write into ini-file
       cform=1;hlp_lai=0
@@ -571,6 +527,7 @@ if(infile=='input/hyyti_ini_0616.txt') then
 
  ! classification of single values in diameter cohorts
     clwdth=1+AINT((bhdmax-bhdmin)/ncl1)  !calculation of class widths
+ !   write(4444,*) 'clwdth', clwdth, bhdmax, bhdmin, ncl1
     DO i=1,ncl1
        nz(i)=0
        zbhd(i)=0
@@ -771,8 +728,9 @@ CASE(6)
            g=ngroups(iz)%gf                     !basal area/ha
            gpatch=g*4.                          !basal area/patch
 		   bz=ngroups(iz)%baumzahl*4.           !tree numbre/patch
-		   clwdth=dg/20.
-
+!		   clwdth=dg/20.
+           clwdth=dg/5
+           
    ! selection of uni-height curve: beech, spruce, oak calculation according to Weimann,
    ! other species of trees after Kuleschis (vergl. Gerold 1990)
         IF (taxid==3.OR.taxid==5) THEN

source_code/version2.2_windows/main_4c_cons_win.f90

+!*****************************************************************!
+!*                                                               *!
+!*              4C (FORESEE) Simulation Model                    *!
+!*                                                               *!
+!*                                                               *!
+!*                    Subroutines for:                           *!
+!*                   - windows shell -                           *!
+!*                                                               *!
+!*  contains:                                                    *!
+!*     main program for 4C                                       *!
+!*                                                               *!
+!*                  Copyright (C) 1996-2018                      *!
+!*     Potsdam Institute for Climate Impact Reserach (PIK)       *!
+!*          Authors and contributors see AUTHOR file             *!
+!*  This file is part of 4C and is licensed under BSD-2-Clause   *!
+!*                   See LICENSE file or under:                  *!
+!*     http://www.https://opensource.org/licenses/BSD-2-Clause   *!
+!*                           Contact:                            *!
+!*       https://gitlab.pik-potsdam.de/XXXXXXXXXXXXXXXXXXXXX     *!
+!*                                                               *!
+!*****************************************************************!
+    
+    PROGRAM foresee
+
+    USE data_simul
+	
+	real time1, time2
+
+	call CPU_time (time1)
+    call Act_Dir(actDir)
+
+	CALL topmenu_win
+    call CPU_time (time2)
+    
+    print *, ' 4C total run time ', time2-time1, ' sec'
+
+	END PROGRAM foresee
+

source_code/version2.2_windows/prepsite.f

@@ -165,6 +165,7 @@ do
     case (8, 9, 10)
 
        call readsoil         ! reading soil parameter
+       IF (flag_end .gt.0) return
        call readredN         ! Input redN or test resp.
     end select
   endif
@@ -198,7 +199,7 @@ call readlit
 ! Initialization of soil model with profile data
 call soil_ini    ! Aufruf ohne s_cn_ini
 ! Initialization disturbances
-IF (flag_dis .eq. 1) CALL dist_ini
+IF (flag_dis .eq. 1 .or. flag_dis .eq. 2) CALL dist_ini
 ! Initialization of stand
 call prepare_stand
 IF (flag_end .gt.0) return
@@ -268,12 +269,13 @@ if (flag_eva .gt.10) call evapo_ini
 
 subroutine readsoil ! Input of soil parameter
 
+use data_par
 use data_soil_t
 use data_site
 
 implicit none
 
-integer :: inunit, helpnl, helpnr
+integer :: inunit, helpnl, helpnr, ihelp
 real helpgrw, hlong, hlat
 character :: text
 character(30) :: hor, boart, helpid
@@ -283,17 +285,15 @@ if (flag_trace) write (unit_trace, '(I4,I10,A)') iday, time_cur, ' readsoil'
 ! Setting of flag_surf from flag_cond
 select case (flag_cond)
 
-case (0,1,2,3)
-   flag_surf = 0
-
-case (10,11,12,13)
-   flag_surf = 1
+    case (0,1,2,3)
+       flag_surf = 0
 
-case (20,21,22,23)
-   flag_surf = 2
+    case (10,11,12,13)
+       flag_surf = 1
 
-case (30,31,32,33)
-   flag_surf = 3
+    case (30,31,32,33)
+       flag_surf = 3
+       
 end select
 
 ! Setting of flag_bc from flag_decomp
@@ -479,7 +479,7 @@ IF (ex .eqv. .true.) then
        if (.not.flag_mult8910) print *,' >>>FORESEE message: soil_id ', soilid(ip), ' not found'
        if (.not.flag_mult8910) print *,'  Check your input choice!!!'
        if (help==1)  call dealloc_soil
-       CALL error_mess(time,"soil identificator not found"//adjustl(soilid(ip))//"ip No.",real(help_ip))
+       CALL error_mess(time,"soil identificator not found "//adjustl(soilid(ip))//"ip No.",real(help_ip))
        flag_end = 5
        return
      ENDIF   ! ios
@@ -535,15 +535,11 @@ IF (ex .eqv. .true.) then
                      endif
              end do
              IF (ios .ne.0) then
-                  if (.not.flag_mult8910) print *,' >>>FORESEE message: Error during reading soil data!'
-                  WRITE(*,'(A)',advance='no') '  Stop program (y/n)? '
-                  read *, a
-                  IF ( a .eq. 'y' .or. a .eq. 'Y') then
-                      print *, '  STOP program!'
-                      stop
-                  endif
+                  print *,' >>>FORESEE message: Error during reading soil data!'    
+                  print *, ' Program stopped!'
                   IF (help==1)  call dealloc_soil
-                  if (.not.flag_mult8910) print *,'  Check your input choice!!!'
+                  flag_end = 7
+                  return
               endif   ! ios
            exit
          endif
@@ -556,7 +552,7 @@ IF (ex .eqv. .true.) then
            print *,'  Check your input choice!!!'
        endif
        if (help==1)  call dealloc_soil
-       CALL error_mess(time,"soil identificator not found"//adjustl(soilid(ip))//"ip No.",real(help_ip))
+       CALL error_mess(time,"soil identificator not found "//adjustl(soilid(ip))//"ip No.",real(help_ip))
        flag_end = 5
        return
      ENDIF   ! ios
@@ -915,7 +911,7 @@ if (.not.flag_mult8910 .or. (flag_mult8910 .and. anh .eq. "1") .or. (flag_mult89
     WRITE(unit_ctr,'(A66,I4)') 'Time step for photosynthesis calculations (days) -    ns_pro:     ',ns_pro
     WRITE(unit_ctr,'(A66,I4)') 'Mortality (0-OFF,1-ON stress, 2- ON stress+intr) -  flag_mort:    ',flag_mort
     WRITE(unit_ctr,'(A66,I4)') 'Regeneration (0-OFF,1-ON, 2-weekly growth of seedl.) - flag_reg:  ',flag_reg
-    WRITE(unit_ctr,'(A66,I4)') 'use FORSKA for regeneration (0-OFF,1-ON) - flag_forska:           ',flag_forska
+    WRITE(unit_ctr,'(A66,I4)') 'use FORSKA for regeneration (0-OFF,1-ON) - flag_forska:           ',flag_lambda
     WRITE(unit_ctr,'(A66,I4)') 'Stand initialization (0-no,1-from *.ini,2-generate) - flag_stand: ',flag_stand
     WRITE(unit_ctr,'(A66,I4)') 'Ground vegetation initialization (0-no,1-generate) - flag_sveg:     ',flag_sveg
     WRITE(unit_ctr,'(A66,I4)') 'Stand management (0-no,1-yes, 2 - seed once) - flag_mg:           ',flag_mg
@@ -1179,22 +1175,17 @@ real     hNO, hNH
 
 if (flag_trace) write (unit_trace, '(I4,I10,A)') iday, time_cur, ' readdepo'
 
+if (.not.allocated(NOd)) allocate (NOd (1:366,1:year))
+if (.not.allocated(NHd)) allocate (NHd (1:366, 1:year))
+
 ! for areal usage standard/constant deposition is set as concentration:
 if (flag_multi .eq. 8 .or. flag_mult910) then
     flag_depo = 2
-    if (.not.allocated(NOd)) then
-        allocate (NOd (1:366,1:year))
-        NOd = NOdep(ip)       ! concentration mg/l
-    endif    
-    if (.not.allocated(NHd)) then
-        allocate (NHd (1:366,1:year))
-        NHd = NHdep(ip)       ! concentration mg/l
-    endif
+    NOd = NOdep(ip)       ! concentration mg/l
+    NHd = NHdep(ip)       ! concentration mg/l
     return
 endif
 
-if (.not.allocated(NOd)) allocate (NOd (1:366,1:year))
-if (.not.allocated(NHd)) allocate (NHd (1:366, 1:year))
 NOd = 0.
 NHd = 0.
 
@@ -1427,6 +1418,7 @@ END subroutine readdepo
 SUBROUTINE readredN
 
 use data_out
+use data_site
 use data_species
 use data_stand
 use data_simul

source_code/version2.2_windows/script1.rc

+// Generated by ResEdit 1.5.9
+// Copyright (C) 2006-2011
+// http://www.resedit.net
+
+#include <windows.h>
+#include <commctrl.h>
+#include <richedit.h>
+#include "4C_dialogs.h"
+
+
+
+
+//
+// Bitmap resources
+//
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDB_BITMAP1        BITMAP         "4c_logo_klein.bmp"
+
+
+
+//
+// Dialog resources
+//
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_coh_daily DIALOG 100, 0, 540, 213
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_DAILYCOH_BUTTON_OK, 380, 190, 50, 14
+    PUSHBUTTON      "Cancel", ID_CANCEL_OUTF, 439, 190, 50, 14
+    GROUPBOX        "", IDC_STATIC_year, 10, 10, 510, 170
+    AUTOCHECKBOX    "", IDC_CHECK_y1, 26, 30, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y2, 26, 45, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y3, 26, 60, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y4, 26, 75, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y5, 25, 90, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y6, 26, 105, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y7, 26, 120, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y8, 26, 135, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y9, 26, 150, 271, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y10, 26, 165, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y11, 295, 30, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y12, 295, 45, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y13, 295, 60, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y14, 295, 75, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y15, 295, 90, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y16, 295, 105, 217, 8
+    LTEXT           "  Choose daily cohort output files  ", IDC_STATIC_yfile, 25, 10, 107, 8, SS_LEFT
+    AUTOCHECKBOX    "", IDC_CHECK_y17, 295, 120, 217, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y18, 295, 135, 217, 8
+    PUSHBUTTON      "Select all", ID_DAILYCOH_BUTTON_SELECT, 321, 190, 50, 14
+    PUSHBUTTON      "Deselect all", ID_DAILYCOH_BUTTON_DESELECT, 262, 190, 50, 14
+    AUTOCHECKBOX    "", IDC_CHECK_y19, 295, 150, 217, 8
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_coh_yearly DIALOG 0, 0, 718, 318
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_YEARLYCOH_BUTTON_OK, 559, 290, 50, 14
+    PUSHBUTTON      "Cancel", ID_CANCEL_OUTF, 625, 290, 50, 14
+    GROUPBOX        "", IDC_STATIC_year, 15, 10, 683, 275
+    AUTOCHECKBOX    "", IDC_CHECK_y1, 21, 30, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y2, 20, 45, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y3, 21, 60, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y4, 21, 75, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y5, 21, 90, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y6, 21, 105, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y7, 21, 120, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y8, 21, 135, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y9, 21, 150, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y10, 21, 165, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y11, 21, 180, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y12, 21, 195, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y13, 21, 210, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y14, 21, 225, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y15, 21, 240, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y16, 21, 255, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y17, 21, 270, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y18, 244, 30, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y19, 244, 45, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y20, 244, 60, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y21, 244, 75, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y22, 244, 90, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y23, 244, 105, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y24, 244, 120, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y25, 244, 135, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y26, 244, 150, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y27, 244, 165, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y28, 244, 180, 222, 8
+    LTEXT           "  Choose yearly cohort output files  ", IDC_STATIC_yfile, 30, 10, 111, 8, SS_LEFT
+    AUTOCHECKBOX    "", IDC_CHECK_y29, 244, 195, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y30, 244, 210, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y31, 244, 225, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y32, 244, 240, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y33, 244, 255, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y34, 244, 270, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y35, 465, 30, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y36, 465, 45, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y37, 465, 60, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y38, 465, 75, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y39, 465, 90, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y40, 465, 105, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y41, 465, 120, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y42, 465, 135, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y43, 465, 150, 222, 8
+    PUSHBUTTON      "Select all", ID_YEARLYCOH_BUTTON_SELECT, 493, 290, 50, 14
+    PUSHBUTTON      "Deselect all", ID_YEARLYCOH_BUTTON_DESELECT, 427, 290, 50, 14
+    AUTOCHECKBOX    "", IDC_CHECK_y44, 465, 165, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y45, 465, 178, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y46, 465, 193, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y47, 465, 210, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y48, 465, 225, 222, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y49, 465, 240, 222, 13
+    AUTOCHECKBOX    "", IDC_CHECK_y50, 465, 255, 222, 13
+    AUTOCHECKBOX    "", IDC_CHECK_y51, 465, 270, 222, 13
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_ctr DIALOG 100, 0, 280, 349
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_CTR_BUTTON_OK, 147, 319, 50, 14
+    PUSHBUTTON      "Cancel", IDCANCEL, 207, 319, 50, 14
+    LTEXT           "Edit simulation control file", IDC_STATIC_simul, 15, 14, 91, 11, SS_LEFT
+    GROUPBOX        "Run option control", IDC_STATIC_runo, 15, 30, 241, 173
+    LTEXT           "Run option", IDC_STATIC_runv, 23, 47, 36, 8, SS_LEFT
+    LTEXT           "Number of runs", IDC_STATIC_runnr, 23, 68, 49, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_runv, 69, 47, 175, 98, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    EDITTEXT        IDC_EDIT_runnr, 162, 67, 40, 12, ES_AUTOHSCROLL
+    LTEXT           "Number of simulation years", IDC_STATIC_yearn, 23, 89, 85, 8, SS_LEFT
+    LTEXT           "Start year", IDC_STATIC_start, 23, 111, 31, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_yearn, 162, 89, 40, 14, ES_AUTOHSCROLL
+    EDITTEXT        IDC_EDIT_start, 162, 111, 40, 14, ES_AUTOHSCROLL
+    LTEXT           "Patch size [m]", IDC_STATIC_patch, 23, 134, 47, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_patch, 162, 134, 40, 14, ES_AUTOHSCROLL
+    LTEXT           "Thickness of foliage layers [cm]", IDC_STATIC_thickf, 23, 158, 100, 8, SS_LEFT
+    LTEXT           "Time step photosynthesis calculations [d]", IDC_STATIC_timeph, 23, 184, 130, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_thickf, 162, 157, 40, 14, ES_AUTOHSCROLL
+    EDITTEXT        IDC_EDIT_timeph, 162, 180, 40, 14, ES_AUTOHSCROLL
+    GROUPBOX        "Run flags control", IDC_STATIC_runo3, 15, 214, 240, 93
+    COMBOBOX        IDC_COMBO_runv3, 65, 235, 101, 98, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "Run number", IDC_STATIC_runv3, 23, 238, 40, 8, SS_LEFT
+    DEFPUSHBUTTON   "Set Flags", ID_CTR_BUTTON_FLAGS, 177, 281, 65, 14
+    DEFPUSHBUTTON   "Set Files", ID_CTR_BUTTON_FILES, 177, 258, 65, 14
+    DEFPUSHBUTTON   "Apply", ID_CTR_BUTTON_RUNNR, 213, 66, 30, 14
+    DEFPUSHBUTTON   "Change Output Id", ID_CTR_BUTTON_IDS, 178, 235, 64, 14
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_daily DIALOG 0, 0, 568, 221
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_DAILY_BUTTON_OK, 408, 195, 50, 14
+    PUSHBUTTON      "Cancel", ID_CANCEL_OUTF, 471, 195, 50, 14
+    GROUPBOX        "", IDC_STATIC_day, 11, 14, 534, 171
+    AUTOCHECKBOX    "", IDC_CHECK_y1, 37, 30, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y2, 37, 45, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y3, 37, 60, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y4, 37, 75, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y5, 37, 90, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y6, 37, 105, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y7, 37, 120, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y8, 37, 135, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y9, 37, 150, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y10, 37, 165, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y11, 284, 30, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y12, 284, 45, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y13, 284, 60, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y14, 284, 75, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y15, 284, 90, 240, 8
+    LTEXT           "  Choose daily output files  ", IDC_STATIC_yfile, 22, 15, 85, 8, SS_LEFT
+    AUTOCHECKBOX    "", IDC_CHECK_y16, 284, 105, 240, 8
+    PUSHBUTTON      "Select all", ID_DAILY_BUTTON_SELECT, 345, 195, 50, 14
+    PUSHBUTTON      "Deselect all", ID_DAILY_BUTTON_DESELECT, 282, 195, 50, 14
+    AUTOCHECKBOX    "", IDC_CHECK_y17, 284, 120, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y18, 284, 135, 240, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y19, 284, 150, 240, 8
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_default_dir DIALOG 10, 100, 320, 99
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_DEFAULT_DIR_BUTTON_OK, 138, 79, 50, 14
+    LTEXT           "Default input and output directories", IDC_STATIC_4C, 15, 4, 216, 9, SS_LEFT
+    LTEXT           "Input directory", IDC_STATIC_dirin, 16, 31, 51, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_DIR_IN, 81, 27, 210, 12, ES_AUTOHSCROLL | ES_MULTILINE
+    LTEXT           "Output directory", IDC_STATIC_dirout, 16, 56, 51, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_DIR_OUT, 81, 52, 210, 12, ES_AUTOHSCROLL | ES_MULTILINE
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_files DIALOG 100, 0, 310, 330
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_FILES_BUTTON_OK, 189, 307, 50, 14
+    PUSHBUTTON      "Cancel", ID_CANCEL_FILES, 251, 307, 50, 14
+    GROUPBOX        "Model input files", IDC_STATIC_files, 7, 10, 295, 209
+    LTEXT           "Species parameter file", IDC_STATIC_specpar, 16, 51, 70, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_specpar, 109, 53, 146, 12, ES_AUTOHSCROLL | ES_MULTILINE
+    PUSHBUTTON      "Browse", IDC_BUTTON_specpar, 259, 54, 35, 12, WS_GROUP
+    LTEXT           "Soil parameter file", IDC_STATIC_sop, 16, 69, 56, 8, SS_LEFT
+    LTEXT           "Soil initialisation file", IDC_STATIC_soi, 16, 87, 60, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_sop, 109, 70, 146, 12, ES_AUTOHSCROLL
+    EDITTEXT        IDC_EDIT_soi, 109, 87, 146, 12, ES_AUTOHSCROLL
+    LTEXT           "Stand initialisation file", IDC_STATIC_ini, 13, 238, 68, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_ini, 107, 235, 145, 14, ES_AUTOHSCROLL
+    GROUPBOX        "", IDC_STATIC_ini1, 7, 222, 295, 73
+    LTEXT           "Stand identifier", IDC_STATIC_standid, 15, 256, 48, 8, SS_LEFT
+    PUSHBUTTON      "Browse", IDC_BUTTON_ini, 259, 235, 35, 12, WS_GROUP
+    LTEXT           "Management file", IDC_STATIC_man, 16, 107, 53, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_man, 109, 104, 146, 12, ES_AUTOHSCROLL
+    LTEXT           "Deposition data file", IDC_STATIC_dep, 16, 123, 61, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_dep, 109, 121, 146, 12, ES_AUTOHSCROLL
+    LTEXT           " N-reduction ( RedN) file", IDC_STATIC_red, 16, 141, 77, 8, SS_LEFT
+    LTEXT           "Litter intilisation file", IDC_STATIC_lit, 16, 158, 59, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_red, 109, 139, 146, 12, ES_AUTOHSCROLL
+    EDITTEXT        IDC_EDIT_lit, 109, 155, 146, 12, ES_AUTOHSCROLL
+    PUSHBUTTON      "Browse", IDC_BUTTON_sop, 259, 71, 35, 12, WS_GROUP
+    PUSHBUTTON      "Browse", IDC_BUTTON_soi, 259, 88, 35, 12, WS_GROUP
+    PUSHBUTTON      "Browse", IDC_BUTTON_man, 259, 105, 35, 12, WS_GROUP
+    PUSHBUTTON      "Browse", IDC_BUTTON_dep, 259, 123, 35, 12, WS_GROUP
+    PUSHBUTTON      "Browse", IDC_BUTTON_red, 259, 139, 35, 12, WS_GROUP
+    PUSHBUTTON      "Browse", IDC_BUTTON_lit, 259, 156, 35, 12, WS_GROUP
+    LTEXT           "Climate data file", IDC_STATIC_cli, 17, 32, 70, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_cli, 110, 34, 146, 12, ES_AUTOHSCROLL | ES_MULTILINE
+    PUSHBUTTON      "Browse", IDC_BUTTON_cli, 260, 35, 35, 12, WS_GROUP
+    COMBOBOX        IDC_COMBO_standid, 106, 254, 85, 77, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "WPM spinup intilisation file", IDC_STATIC_spinup, 15, 177, 84, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_wpm, 109, 174, 146, 12, ES_AUTOHSCROLL
+    PUSHBUTTON      "Browse", IDC_BUTTON_wpm, 259, 175, 35, 12, WS_GROUP
+    EDITTEXT        IDC_EDIT_standid, 106, 273, 76, 14, ES_AUTOHSCROLL
+    LTEXT           "Measurement file", IDC_STATIC_mes, 16, 194, 54, 8, SS_LEFT
+    EDITTEXT        IDC_EDIT_mes, 110, 191, 146, 12, ES_AUTOHSCROLL
+    PUSHBUTTON      "Browse", IDC_BUTTON_mes, 260, 191, 35, 12, WS_GROUP
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_flags DIALOGEX 100, 0, 580, 297
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+EXSTYLE WS_EX_TOOLWINDOW
+CAPTION "4C"
+FONT 8, "MS Sans Serif", 0, 0, 1
+{
+    DEFPUSHBUTTON   "OK", ID_FLAGS_BUTTON_OK, 443, 263, 50, 14
+    PUSHBUTTON      "Cancel", ID_CANCEL_FLAGS, 509, 262, 50, 14
+    LTEXT           "Mortality flag (flag_mort) ", IDC_STATIC_mort, 18, 33, 77, 8, SS_LEFT
+    LTEXT           "Regeneration flag (flag_reg) ", IDC_STATIC_reg, 18, 50, 90, 8, SS_LEFT
+    LTEXT           "Use FORSKA factors (flag_forska)", IDC_STATIC_forska, 18, 67, 113, 13, WS_TABSTOP | NOT WS_GROUP | SS_LEFT
+    LTEXT           "Stand initialization flag (flag_stand)", IDC_STATIC_stand, 18, 84, 109, 8, WS_TABSTOP | NOT WS_GROUP | SS_LEFT
+    LTEXT           "Soil vegetation flag (flag_sveg)", IDC_STATIC_sveg, 18, 101, 98, 8, SS_LEFT
+    LTEXT           "Management flag (flag_mg)", IDC_STATIC_mg, 18, 118, 86, 8, SS_LEFT
+    LTEXT           "Disturbance flag (flag_dis)", IDC_STATIC_dis, 18, 135, 82, 8, SS_LEFT
+    LTEXT           "Ligth algorithm number (flag_light)", IDC_STATIC_light, 18, 152, 106, 8, SS_LEFT
+    LTEXT           "Foliage-height relationship (flag_folhei)", IDC_STATIC_folhei, 18, 169, 120, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_mort, 143, 33, 133, 42, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_reg, 143, 50, 133, 116, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL
+    COMBOBOX        IDC_COMBO_forska, 143, 67, 133, 25, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "Volume function (flag_volfunc)", IDC_STATIC_volfunc, 18, 186, 96, 8, SS_LEFT
+    LTEXT           "Respiration flag (flag_resp)", IDC_STATIC_resp, 18, 203, 84, 8, SS_LEFT
+    LTEXT           "Limitation flag (flag_limi)", IDC_STATIC_limi, 18, 220, 74, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_stand, 143, 84, 133, 54, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_sveg, 143, 101, 133, 48, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_mg, 143, 118, 133, 78, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_dis, 143, 135, 133, 32, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_light, 143, 152, 133, 55, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_folhei, 143, 169, 133, 53, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_volfunc, 143, 186, 133, 63, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "Decomposition model (flag_decomp) ", IDC_STATIC_decomp, 308, 33, 117, 8, SS_LEFT
+    LTEXT           "Root activity function flag (flag_sign)", IDC_STATIC_sign, 308, 50, 115, 8, SS_LEFT
+    LTEXT           "Soil water uptake flag (flag_wred)", IDC_STATIC_wred, 308, 67, 106, 8, SS_LEFT
+    LTEXT           "Root distribution flag (flag_wurz)", IDC_STATIC_wurz, 308, 84, 101, 8, SS_LEFT
+    LTEXT           "Heat conductance flag (flag_cond)", IDC_STATIC_cond, 308, 101, 111, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_resp, 143, 203, 133, 64, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_limi, 143, 220, 133, 65, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_decomp, 431, 33, 133, 54, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_sign, 431, 50, 133, 67, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_wred, 431, 67, 133, 61, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_wurz, 431, 84, 133, 64, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_cond, 431, 101, 133, 78, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_int, 431, 118, 133, 75, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_eva, 431, 135, 133, 78, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "Interception flag (flag_int)", IDC_STATIC_int, 308, 118, 80, 8, SS_LEFT
+    LTEXT           "Evapotranspiration flag (flag_eva)", IDC_STATIC_eva, 308, 135, 106, 8, SS_LEFT
+    LTEXT           "Assortment flag (flag_sort)", IDC_STATIC_sort, 308, 169, 82, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_CO2, 431, 152, 133, 51, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_sort, 431, 169, 133, 48, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    GROUPBOX        "Model specification", IDC_STATIC_model, 0, 15, 564, 239
+    LTEXT           "wpm flag (flag_wpm)", IDC_STATIC_wpm, 307, 186, 65, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_wpm, 431, 186, 133, 64, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "Statistical analysis flag (flag_stat)", IDC_STATIC_stat, 307, 203, 104, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_stat, 431, 203, 133, 48, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    LTEXT           "CO2 flag (flag_CO2)", IDC_STATIC_CO2, 308, 152, 64, 8, SS_LEFT
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_ids DIALOG 100, 0, 130, 78
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_IDS_BUTTON_OK, 10, 55, 50, 14
+    GROUPBOX        "Output File Identifiers", IDC_STATIC_model, 6, 14, 111, 35
+    EDITTEXT        IDC_EDIT_ID, 14, 29, 95, 14, ES_AUTOHSCROLL
+    PUSHBUTTON      "Cancel", ID_CANCEL_IDS, 67, 55, 50, 14
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_main DIALOGEX 300, 50, 245, 268
+STYLE DS_3DLOOK | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
+EXSTYLE WS_EX_CLIENTEDGE | WS_EX_STATICEDGE
+CAPTION "4C"
+FONT 8, "MS Sans Serif", 0, 0, 1
+{
+    GROUPBOX        "", IDC_STATIC_year, 5, 6, 233, 258, 0, WS_EX_STATICEDGE
+    CTEXT           "Forest Growth Model 4C   PIK   2016", IDC_STATIC_4C, 25, 53, 82, 23, SS_CENTER
+    DEFPUSHBUTTON   "Start 4C", ID_START_4C, 103, 233, 56, 14
+    PUSHBUTTON      "Exit 4C", IDSTOP, 174, 233, 50, 14
+    GROUPBOX        "Simulation Control", IDC_STATIC_Control, 20, 126, 207, 68
+    AUTORADIOBUTTON "Start simulation", IDC_RADIO_start, 35, 148, 121, 10
+    AUTORADIOBUTTON "Edit control file", IDC_RADIO_edit, 35, 166, 62, 10
+    CONTROL         "", IDC_REBAR1, REBARCLASSNAME, WS_TABSTOP | 0x00000401, 4294967294, 4294967295, 249, 4, WS_EX_DLGMODALFRAME | WS_EX_ACCEPTFILES | WS_EX_STATICEDGE
+    CONTROL         IDB_BITMAP1, IDC_STATIC_pic, WC_STATIC, SS_BITMAP, 123, 14, 100, 104
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_out DIALOG 100, 0, 293, 212
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "Start simulation", ID_START, 89, 182, 56, 14
+    PUSHBUTTON      "Exit 4C", IDCANCEL, 226, 182, 50, 14
+    LTEXT           "Choice of output files", IDC_STATIC, 15, 18, 67, 8, SS_LEFT
+    PUSHBUTTON      "Yearly output", IDC_BUTTON_yearly, 207, 37, 50, 14
+    PUSHBUTTON      "Daily output", IDC_BUTTON_daily, 207, 60, 50, 14
+    PUSHBUTTON      "Cohorts yearly", IDC_BUTTON_coh_yearly, 207, 84, 50, 14
+    PUSHBUTTON      "Cohorts daily", IDC_BUTTON_coh_daily, 207, 108, 50, 14
+    GROUPBOX        "", IDC_STATIC_choice_out, 8, 7, 268, 164
+    LTEXT           "Summation output", IDC_STATIC_SUM, 19, 145, 58, 8, SS_LEFT
+    COMBOBOX        IDC_COMBO_sum, 88, 142, 165, 74, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_SORT
+    DEFPUSHBUTTON   "Back", ID_OUT_BUTTON_BACK, 161, 182, 50, 14
+    DEFPUSHBUTTON   "Save changes", ID_SAVE, 17, 182, 56, 14
+    COMBOBOX        IDC_COMBO_yearly, 14, 37, 181, 77, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_daily, 13, 60, 181, 77, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_coh_yearly, 13, 85, 181, 77, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+    COMBOBOX        IDC_COMBO_coh_daily, 13, 109, 181, 77, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWN | CBS_AUTOHSCROLL | CBS_SORT
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_4C_yearly DIALOG 100, 0, 606, 352
+STYLE DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
+CAPTION "4C"
+FONT 8, "MS Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", ID_YEARLY_BUTTON_OK, 455, 327, 50, 14
+    PUSHBUTTON      "Cancel", ID_CANCEL_OUTF, 519, 327, 50, 14
+    GROUPBOX        "", IDC_STATIC_year, 7, 15, 573, 302
+    AUTOCHECKBOX    "", IDC_CHECK_y1, 21, 30, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y2, 21, 45, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y3, 21, 60, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y4, 21, 75, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y5, 21, 90, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y6, 21, 105, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y7, 21, 120, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y8, 21, 135, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y9, 21, 150, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y10, 21, 165, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y11, 21, 180, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y12, 21, 195, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y13, 21, 210, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y14, 21, 225, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y15, 21, 240, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y16, 21, 255, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y17, 21, 270, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y18, 21, 285, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y19, 21, 300, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y20, 294, 30, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y21, 294, 45, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y22, 294, 60, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y23, 294, 75, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y24, 294, 90, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y25, 294, 105, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y26, 294, 120, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y27, 294, 135, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y28, 294, 150, 270, 8
+    LTEXT           "  Choose yearly output files  ", IDC_STATIC_yfile, 21, 14, 89, 8, SS_LEFT
+    AUTOCHECKBOX    "", IDC_CHECK_y29, 294, 165, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y30, 294, 180, 270, 8
+    PUSHBUTTON      "Select all", ID_YEARLY_BUTTON_SELECT, 391, 327, 50, 14
+    PUSHBUTTON      "Deselect all", ID_YEARLY_BUTTON_DESELECT, 327, 327, 50, 14
+    AUTOCHECKBOX    "", IDC_CHECK_y31, 294, 195, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y32, 294, 210, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y33, 294, 225, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y34, 294, 240, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y35, 294, 255, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y36, 294, 270, 270, 8
+    AUTOCHECKBOX    "", IDC_CHECK_y37, 294, 285, 270, 8
+}
+
+
+
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+IDD_DIALOG1 DIALOG 0, 0, 186, 95
+STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
+CAPTION "Dialog"
+FONT 8, "Microsoft Sans Serif"
+{
+    DEFPUSHBUTTON   "OK", IDOK, 129, 7, 50, 14
+    PUSHBUTTON      "Cancel", IDCANCEL, 129, 24, 50, 14
+}
+
+
+
+//
+// Version Information resources
+//
+LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
+VS_VERSION_INFO VERSIONINFO
+    FILEVERSION     1,0,0,0
+    PRODUCTVERSION  0,0,0,0
+    FILEOS          VOS_NT_WINDOWS32
+    FILETYPE        VFT_APP
+    FILESUBTYPE     VFT2_UNKNOWN
+    FILEFLAGSMASK   0x0000003F
+    FILEFLAGS       0x00000000
+{
+    BLOCK "StringFileInfo"
+    {
+        BLOCK "080904B0"
+        {
+            VALUE "Comments", "\0"
+            VALUE "CompanyName", "Potsdam-Institut fr Klimafolgenforschung\0"
+            VALUE "FileDescription", "FORESEE - Forest Ecosystems in a changing Environment\0"
+            VALUE "FileVersion", "0.99e\0"
+            VALUE "InternalName", "4C\0"
+            VALUE "LegalCopyright", "Copyright  2004\0"
+            VALUE "LegalTrademarks", "\0"
+            VALUE "OriginalFilename", "4C.exe\0"
+            VALUE "PrivateBuild", "\0"
+            VALUE "ProductName", "4C - PIK\0"
+            VALUE "ProductVersion", "0.99e\0"
+            VALUE "SpecialBuild", "\0"
+        }
+    }
+    BLOCK "VarFileInfo"
+    {
+        VALUE "Translation", 0x0809, 0x04B0
+    }
+}

source_code/version2.2_windows/simul.f

@@ -32,7 +32,6 @@ character a
 character(8) actdate
 character(10) acttime, helpsim, text1, text2
 real time1, time2, time3
-logical lhelp
 
 unit_err=getunit()
 if(flag_multi.eq.5) dirout = './'
@@ -46,20 +45,6 @@ write (unit_trace, '(I4,I10,A)') iday, time_cur, ' sim_control'
 
 ! check daily output
 if (year > 5 .and. flag_dayout .ge. 1) then
-
-    lhelp = .true.
-    do i = 1,outd_n
-       if (outd(i)%out_flag .eq. flag_dayout) then
-
-          select CASE (outd(i)%kind_name)
-
-          CASE ('day_short')
-            lhelp = .false.
-          end select
-       endif
-    enddo
-
-   if (lhelp) then
        write(*,*) '  Warning: Your choice of daily output is ON with a simulation time of'
        write(*,'(I6,A,I8,A)') year,'  years. This option will create ',365*year,' data records per file!'
        write(*,'(A)',advance='no') '  Do you really want do use daily output (y/n)? '
@@ -67,7 +52,6 @@ if (year > 5 .and. flag_dayout .ge. 1) then
        IF (a .eq. 'n' .or. a .eq. 'N') then
           flag_dayout = 0
        ENDIF
-   endif  ! lhelp
 ENDIF
 
 ! open file ycomp (yearly compressed output (multi run))
@@ -136,10 +120,14 @@ time3 = 0.
                   case (5)
                     print*,ip, ' stop in readsoil, soil ID not found ', adjustl(soilid(ip))
                   case (6)
-                    write(*,'(A,I5)') '  >>>foresee message: stop in read_cli - no climate data for year ',time_b
+                    write(*,'(A,I5)') '  >>>foresee message: stop in read_cli, no climate data for year ',time_b
+                    call finish_simul
+                    stop
+                  case (7)
+                    print*,ip, ' stop in readsoil, error during reading soil data ', adjustl(soilid(ip))
                     call finish_simul
                     stop
-                  case default
+                 case default
                     print*,ip, 'flag_end = ', flag_end
                   end select
 
@@ -228,7 +216,7 @@ if (flag_trace) write (unit_trace, '(I4,I10,A)') iday, time_cur, ' simulation_4C
   DO time = 1, year
      iday = 1
   ! Update population variable for new year if population is changed through interventions 
-     if (flag_standup .gt. 0 .or. flag_dis==1) then
+     if (flag_standup .gt. 0 .or. flag_dis==1 .or. flag_dis==1) then
         call stand_balance
         call standup
         flag_standup = 0
@@ -239,7 +227,10 @@ if (flag_trace) write (unit_trace, '(I4,I10,A)') iday, time_cur, ' simulation_4C
       ! read or create Redn for areal application 
 
      IF (time.EQ.1 .and. flag_redn) CALL RedN_ini
-      IF (flag_dis .eq. 1) CALL dis_manag
+     
+     IF (flag_dis .eq. 1 .or. flag_dis .eq. 2) then
+         CALL dis_manag
+      endif
   
       ! simulation of processes with subannual resolution (fluxes and soil)
       CALL stand_daily

source_code/version2.2_windows/soil_tem.f

@@ -453,12 +453,6 @@ CASE (0, 10, 20, 30, 40)   ! de Vries
 
    tcond0 = numera/denom * 86400.   ! s --> day
 
- CASE(2, 12, 22, 32, 42)   ! sum like resistor; wie Widerstaende addieren
-   tcond2 = water%vf / water%tc + quarz%vf / quarz%tc + clay%vf / clay%tc +  &
-            silt%vf / silt%tc + humus%vf / humus%tc + air%vf / air%tc + stone%vf / stone%tc + ice%vf / ice%tc
-
-   tcond2 = 86400. / tcond2
-
 CASE(3, 13, 23, 33, 43)    ! Campbell
     vfm = clay%vf + silt%vf + stone%vf
     vfs = vfm + quarz%vf + humus%vf
@@ -504,13 +498,6 @@ CASE (1, 11, 21, 31, 41)    ! Neusypina
     hcapi  = hcap1
     tcondi = tcond1 
 
-CASE (2, 12, 22, 32, 42)    ! sum like resitors; Widerstnde addieren
-    if ((tcond2 .gt. 8000.) .or. (tcond2 .le. 0.)) then
-    continue
-    endif
-    hcapi  = hcap0
-    tcondi = tcond2 
-
 CASE (3, 13, 23, 33, 43)    ! Campbell
     hcapi  = hcap0
     tcondi = tcond3

source_code/version2.2_windows/sr_forska.f

-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!
-!       Subroutines used only with flag flag_forska
-!
-!                 cetbl_4c
-!                 CGTSPE_4c
-!                 CLIMEF_4c
-!                 gsdr_cal
-!                 tmp_mean 
-!                 therm
-!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-
-SUBROUTINE CETBL_4c
-
-use data_effect
-use data_taxa
-use data_simul
-use data_stand
-                                                               
-! function declarations
-
-      REAL    RAND
-
-! local variables
-real      :: PMX
-INTEGER   :: I,J,K
-integer,dimension(17) :: nsap= 0
-real,dimension(17) :: amdest = 0.,   &
-                      amdest1 = 0.
-
-if (flag_light.eq.1.or.flag_light.eq.2) then
-  PMX= Vstruct(lowest_layer)%Irel
-else if  (flag_light.eq.3.OR.flag_light.EQ.4) then
-  PMX = Bgpool(lowest_layer+1)
-end if
-
-! amend the EST for climate according to the climate multipliers
-
-do i=1,17
-
-	 AMDEST(I)=EST(I)*GDDMX(I)*DRMX(I)*TCMX(I)*TWMX(I)*PMX      &
-                 *XTFTMX(I)*TWARMX(I)
-	 AMDEST1(I)=EST(I)*AMIN1(GDDMX(I),DRMX(I),TCMX(I),TWMX(I),  &
-        PMX,XTFTMX(I),TWARMX(I))
-
-     IF(GSC(I).EQ.0.0)GOTO 301
-301         CONTINUE
- end do
-
-      RETURN
-
-END subroutine cetbl_4c
-
-
-SUBROUTINE CGTSPE_4c
- 
-! input of species data for regeneration
-
-! reads species parameters
- use data_simul
- use data_taxa
-      
-! local variables
-INTEGER::     I,J,K,nowunit,ntax
-
-! reads number of taxa (NTAX)
-      nowunit=getunit()
-      open(unit=nowunit,file= '/data/safe/4C/4C_input/par/param_4c.dat', status='old')
-      READ(nowunit,*) NTAX
-
-! reads for each taxon:
-
-!   NAM(I): name (8 characters)
-!   HMX(I): max height (m)
-!   HDS(I): initial slope of diameter vs height (m/cm)
-!  hgro(I): maximum height growth per year (m)
-!   ALP(I): half-saturation point (umol/m**2/s)
-!   LCP(I): compensation point (umol/m**2/s)
-!   GSC(I): growth constant (cm**2/m/yr)
-!   EST(I): sapling establishment rate (/ha/yr)
-!   TDI(I): threshold relative growth efficiency for increased mortality
-!   UMN(I): intrinsic mortality rate (/yr)
-!   UMX(I): suppressed mortality rate (/yr)
-!   SPR(I): number of sprouts per tree (0.0 or greater)
-!   SMN(I): minimum diameter for sprouting (cm)
-!   LAC(I): initial leaf area/D2 ratio (m**2/cm**2)
-!   LAF(I): sapwood turnover rate (/yr)
-!   BCF(I): stemwood biomass conversion factor (kg/cm**2/m)  
-!     R(I): volumetric sapwood maintenance cost (/yr)
-!   Q10(I): rate of increase of respiration
-!  TMIN(I): minimum temperature for assimilation
-!  TMAX(I): maximum temperature for assimilation                     
-!   CCP(I): species compensation point
-!   DRI(I): maximum tolerated drought-index                
-!MINGDD(I): minimum growing degree-days
-! MINTC(I): minimum temperature of coldest month (degrees C)
-! MAXTC(I): maximum temperature of coldest month (degrees C)
-! MINTW(I): minimum temperature of warmest month (degrees C)
-!  DORE(I): deciduous or evergreen 0=deciduous,1=evergreen
-!   ntc(I): nitrogen tolerance class (1,2,3,4,5) 
-!    e1(I): Parameter smin of haadee height growth function
-!    e2(I): Second Parameter of haadee height growth function
-!  geff(I): growth efficiency factor of shaded trees
-
-  DO  I=1,ntax
-         READ(nowunit,1) NAM(I)
-         READ(nowunit,*) HMX(I),HDS(I),hgro(I),ALP(I),LCP(I),GSC(I),                     &
-
-   	                              EST(I),TDI(I),UMN(I),UMX(I),SPR(I),SMN(I),LAC(I),LAF(I),BCF(I), &
-                                  
-                                  R(I),Q10(I),TMIN(I),TMAX(I),CCP(I),DRI(I),MINGDD(I),MINTC(I),     &
-
-                                  MAXTC(I),MINTW(I),DORE(I),ntc(I)
-       			  
-         IF(SPR(I).EQ.0)SMN(I)=0.0
-
-
-         DRI(I)=DRI(I)+0.3
-
-
-
-  end do
-
-      RETURN
-      
-! format statements                                     
-
-1     FORMAT(A8)
- 
-END subroutine cgtspe_4c
-
-    
-SUBROUTINE CLIMEF_4c
-
-use data_taxa
-use data_effect
-use data_simul
-      
-                                    
-! computes the growth multipliers.
-! checks to see if GDD, temp coldest month below minimum for species 
-! if so multipliers = 0 else equals 1.
-! computes drought effect multipliers as per ICP
-! sets max.temp of coldest month multiplier to 0 or 1 for ESTBL routine
-! checks if warmest month exceeds species limit
-! averages light intensity (INS) over time step.
-
-
-! local parameters
-                              
-  INTEGER    :: I,J,K
-  REAL       ::TOTGDD= 0,      &
-               TGSDRT=0.,      &
-               TM4DRT=0.
-  
-  real,dimension(17) :: tottft=0.
-
-! gives growth multiplier for each species to be applied in subroutine 
-! TVXT or ETBL - growing degree days, growing/-4 drought index, temps.
-
-        TOTGDD=GDD(time)
-        TGSDRT=GSDRI(time)
-        TM4DRT=M4DRI(time)
-
-! totals and then averages species specific multipliers etc. over timestep
-! that is sapres, mutmx, tftmx
-         
-    do i=1,17
-
-           xtftmx(i) = tftmx(i,time)
-
-     end do
-
-! set multipliers to 1 before checking on environment
-  do i=1,17
-                
-       GDDMX(I)=1.0
-       TWARMX(I)=1.0
-       TCMX(I)=1.0
-       TWMX(I)=1.0     
-       TWARMX(I)=1.0
-
-! check to see is a deciduous species
-                
-       IF(DORE(I).EQ.0)THEN                                          
-         DRMX(I)=1-((TGSDRT/DRI(I))**2) 
-         IF(DRMX(I).LT.0.0)DRMX(I)=0.0
-       
-       ELSE
-
-! must be an evergreen 
-
-       DRMX(I)=1-((TM4DRT/DRI(I))**2) 
-       IF(DRMX(I).LT.0.0)DRMX(I)=0.0
-
-       ENDIF                              
-
-! check if environment exceeds species limits - step functions
-! if so set multiplier to zero
-
-       IF(TOTGDD.LT.MINGDD(I))GDDMX(I)=0.0
-       IF(TCOLD.LT.MINTC(I))TCMX(I)=0.0
-       IF(TCOLD.GT.MAXTC(I))TWMX(I)=0.0
-       IF(TWARM.LT.MINTW(I))TWARMX(I)=0.0
-
-! write out to screen and forcli.out multipliers for each species
-! keep these commented as they use a lot of paper     <--M.B was ist damit gemeint? ist das relevant fr den nutzer.                      
-
-  end do
-  do i=1,17
-  end do      
-                          
-
-end subroutine climef_4c
-      
- SUBROUTINE gsdr_cal
-! calculation of gsdri and m4dri for FORSKA regeneration
-
-use data_climate
-use data_effect
-use data_simul
-use data_evapo 
-
-if(tp(iday,time).ge.-4.) then
-  foudpt = foudpt + pet
-  foudae = foudae + aet
-end if
-
-if(tp(iday,time).ge.4.) then 
-  tgsdpt = tgsdpt + pet
-  tgsdae = tgsdae + aet
-
-end if
-
-if(iday.eq. recs(time)) then
-
-    gsdri(time) = (tgsdpt-tgsdae)/tgsdpt
-    m4dri(time) = (foudpt-foudae)/foudpt
-end if
-
-END SUBROUTINE gsdr_cal
-
-SUBROUTINE tmp_mean
-! calculation of environmental variables twarm, tcold and long-term monthly
-! mean of temperature
-
-USE data_effect
-USE data_climate
-USE data_simul
-
-real,dimension(12)    :: tmph = 0.
-integer               :: i,l,m,dayc
-allocate( tpmean(12))
-allocate (gdd(year))
-allocate (tftmx(17,year))
-monrec=(/31,28,31,30,31,30,31,31,30,31,30,31/) 
-tpmean = 0
-  
-if (recs(time).eq.366) then
-  monrec(2)=29
-else
-  monrec(2)=28
-endif
-
-
-do k = 1, year
-! call calculation of env. variables
-
-   call therm(k)
-
-   dayc = 1
-   do l= 1,12
-           tmph(l) = 0.
-          do m=1,monrec(l)
-               tmph(l) = tmph(l) + tp( dayc,k)
-               dayc = dayc + 1
-          end do     
-          tmph(l) = tmph(l)/monrec(l)
-          tpmean(l) = tpmean(l) + tmph(l)
-    end do
-           
-end do
-
-do l=1,12
-
-    tpmean(l) = tpmean(l)/year
-
-end do
-
-! work out which is temperature of coldest month
-! and warmest month for year
-
-   tcold = 50.0
-   twarm = -50.0
-
-do  k=1,12
-   if(tpmean(k).lt.tcold) tcold = tpmean(k)      
-   if(tpmean(k).gt.twarm) twarm = tpmean(k)
-end do 
-  
-END SUBROUTINE tmp_mean    
-
-SUBROUTINE therm(ktime) 
-
-! therm - calculation of environmental variables (annual and species specific)
-! gdd    - growing degress day
-! tftmx  - thermal multiplier - species specific
-
-use data_climate
-use data_simul 
-use data_effect
-use data_taxa
-implicit none
-
-
- 
-! local variables
-
-integer                  :: j,k,m4day,gdday1,ktime
-real,dimension(17)       ::  tft,tresft  
-  gdd(ktime) = 0.
-  m4day=0
-  gdday1=0
-  do j=1,17
-
-    tft(j)=0.0
-    tresft(j)=0.0
-  end do
-
-! calculate ft values for each day of the year 
-! for each species upto number of taxa
-      do k=1,17
-
-        do  j=1,recs(ktime)
-
-! add up mutmx multiplier 
-
-          tresft(k) = tresft(k)+(q10(k)**((tp(j,ktime) - tref)*0.1))
-          
-        if(k.eq.1) then   
-            if (tp(j,ktime).ge.tref) gdd(ktime) = gdd(ktime) + (tp(j,ktime)-tref)
-        end if
-! first check to see if deciduous or not
-
-         if(dore(k).eq.0)then
-
-! totalling daily deciduous multipliers  for growing season only
-
-           if(tp(j,ktime).ge.5.0) then
-   
-            tft(k) = tft(k)+(4*(tp(j,ktime)-tmin(k))*(tmax(k)-tp(j,ktime))/(tmin(k)-tmax(k))**2)   
-             
-            
-           endif    
-         else
-      
-! must be evergreen so produce daily values
-! do not allow below zero
-! checks for temperature greater than -4 oC for evergreen species
-
-          if(tp(j,ktime).ge.-4.0)then
-
-            tft(k)=tft(k)+(4*((tp(j,ktime)-tmin(k))*(tmax(k)-tp(j,ktime)))   &
-                  /(tmin(k)-tmax(k))**2)
-            
-          endif
-
-         endif
-         if(tft(k).lt.0.0)tft(k)=0.0
-         end do
-
-  end do
-  do  j=1,recs(ktime)
-      if(tp(j,ktime).ge.5.0) then
-         gdday1=gdday1+1
-      end if
-      if(tp(j,ktime).ge.-4.0) then
-         m4day=m4day+1
-      end if
-   end do
-
-  do  k=1,17
-
-    if(dore(k).eq.0) then
-       tftmx(k,ktime) = tft(k)/gdday1
-    else
-       tftmx(k,ktime) = tft(k)/m4day
-    end if
- end do               
-   
-END SUBROUTINE therm                                                              

source_code/version2.2_windows/stand_bal.f

@@ -104,7 +104,12 @@ do
             sumbio  = sumbio  + ntr * zeig%coh%totBio
             sumNPP  = sumNPP  + ntr * zeig%coh%NPP
             Ndem    = Ndem + ntr * zeig%coh%Ndemc_c
-            autresp = autresp + ntr * zeig%coh%maintres
+            select case (flag_dis)
+	         case (0,1)
+             autresp = autresp + ntr * zeig%coh%maintres
+             case (2)
+             autresp = autresp + ntr * (zeig%coh%maintres+zeig%coh%biocost_all)
+            end select
             totfol  = totfol  + ntr * zeig%coh%x_fol
             totsap  = totsap  + ntr * zeig%coh%x_sap
             totfrt  = totfrt  + ntr * zeig%coh%x_frt
@@ -498,10 +503,6 @@ svar%frt        = 0.
                       END SELECT 
                     Enddo 
 
-
-
-
-
                     IF(spar(spec_new)%phmodel==4) THEN
                         svar(spec_new)%daybb = svar(spec_new)%ext_daybb
                     ELSE
@@ -543,7 +544,7 @@ do i=1,nspecies
           svar(i)%mean_diam   = svar(i)%mean_diam / ntr
           svar(i)%mean_jrb    = svar(i)%mean_jrb / ntr
           
-          svar(i)%basal_area = pi*ntr*(svar(i)%med_diam*svar(i)%med_diam/40000)*10000/kpatchsize
+          svar(i)%basal_area = pi*(ntr-helpdiam(i))*(svar(i)%med_diam*svar(i)%med_diam/40000)*10000/kpatchsize
        else
           svar(i)%sum_ntreea = 0.
        endif
@@ -1083,8 +1084,14 @@ IMPLICIT NONE
   DO
     IF(.not.associated(zeig)) exit
      if (zeig%coh%species.ne.nspec_tree+2) then                          ! exclude mistletoe from senescence
-      zeig%coh%sfol = spar(zeig%coh%species)%psf * zeig%coh%x_fol
-      zeig%coh%sfrt = spar(zeig%coh%species)%psr * zeig%coh%x_frt
+         select case (flag_dis)
+	     ! case (1,2)
+	     !  zeig%coh%sfol = spar(zeig%coh%species)%psf * zeig%coh%x_fol + zeig%coh%x_fol_loss
+         !  zeig%coh%sfrt = spar(zeig%coh%species)%psr * zeig%coh%x_frt + zeig%coh%x_frt_loss
+	      case (0,1,2)
+	       zeig%coh%sfol = spar(zeig%coh%species)%psf * zeig%coh%x_fol
+           zeig%coh%sfrt = spar(zeig%coh%species)%psr * zeig%coh%x_frt
+	     end select
       IF (zeig%coh%height.ge.thr_height .and.zeig%coh%species.LE. nspec_tree) THEN
          zeig%coh%ssap = spar(zeig%coh%species)%pss * zeig%coh%x_sap
       ELSE

source_code/version2.2_windows/win_appl_path.f90

+!*****************************************************************!
+!*                                                               *!
+!*              4C (FORESEE) Simulation Model                    *!
+!*                                                               *!
+!*                    Subroutines for:                           *!
+!*                   - windows shell -                           *!
+!*                                                               *!
+!*  contains:                                                    *!
+!*   Act_Dir                                                     *!
+!*   winPath                                                     *!
+!*   dealofile                                                   *!
+!*   fullPath                                                    *!
+!*                                                               *!
+!*                  Copyright (C) 1996-2018                      *!
+!*     Potsdam Institute for Climate Impact Reserach (PIK)       *!
+!*          Authors and contributors see AUTHOR file             *!
+!*  This file is part of 4C and is licensed under BSD-2-Clause   *!
+!*                   See LICENSE file or under:                  *!
+!*     http://www.https://opensource.org/licenses/BSD-2-Clause   *!
+!*                           Contact:                            *!
+!*       https://gitlab.pik-potsdam.de/XXXXXXXXXXXXXXXXXXXXX     *!
+!*                                                               *!
+!*****************************************************************!
+    
+SUBROUTINE Act_Dir (dir)
+
+!  Program to demonstrate GETDRIVEDIRQQ
+use IFPORT
+!USE DFLIB ! In case QuickWin is used
+CHARACTER(150) dir
+INTEGER(4) length
+
+!  Get current directory
+dir = FILE$CURDRIVE
+
+length = GETDRIVEDIRQQ(dir)
+
+IF (length .GT. 0) THEN
+  WRITE (*,*) 'Current directory is: '
+  WRITE (*,*) dir
+ELSE
+  WRITE (*,*) 'Failed to get current directory'
+END IF
+
+END SUBROUTINE Act_Dir
+
+!**********************************************************
+
+subroutine winPath()
+
+use data_mess
+use data_simul
+
+implicit none
+
+integer ind, i
+
+	! set full path for the files	
+	ind = index(actDir, '\', .TRUE.)
+	! go to ..
+	if ( 'input' == trim(actDir(ind+1:ind+5)) ) then
+		dirout = trim(actDir(1:ind))//'output\'
+	! stay in the directory
+	else
+		dirout = trim(actdir)//'\output\' 
+	endif
+
+	do i = 1,site_nr 
+        call fullPath( sitefile(i) , actDir)
+        call fullPath( treefile(i) , actDir)
+	end do
+
+    if (.not.flag_mult910) then
+	    do i = 1,site_nr 
+		    call fullPath( specfile(i) , actDir)
+		    call fullPath( climfile(i) , actDir)
+            call fullPath( valfile(i)  , actDir)
+            call fullPath( manfile(i)  , actDir)
+            call fullPath( depofile(i) , actDir)
+            call fullPath( redfile(i)  , actDir)
+            call fullPath( litfile(i)  , actDir)
+		    
+		    ! till the wpm files is set
+		    wpmfile(i) = 'dummy.wpm'
+		    call fullPath( wpmfile(i)  , actDir)	
+	    end do
+    else
+		call fullPath( specfile(1) , actDir)
+        call fullPath( manfile(1)  , actDir)
+        call fullPath( depofile(1) , actDir)
+        call fullPath( redfile(1)  , actDir)
+        call fullPath( litfile(1)  , actDir)
+
+    endif
+
+    if (allocated(mesfile)) call fullPath( mesfile(1)  , actDir)	
+
+end subroutine winPath
+    
+!**************************************************************
+
+SUBROUTINE deallofile
+
+use data_simul
+
+implicit none
+
+    if ( allocated(site_name) ) deallocate(site_name)
+
+    if ( allocated(climfile) ) deallocate(climfile)
+
+    if ( allocated(sitefile) ) deallocate(sitefile)
+
+    if ( allocated(valfile) ) deallocate(valfile)
+
+    if ( allocated(treefile) ) deallocate(treefile)
+	if ( allocated(wpmfile) ) deallocate(wpmfile)
+    if ( allocated(standid) ) deallocate(standid)
+    if ( allocated(manfile) ) deallocate(manfile)
+    if ( allocated(depofile) ) deallocate(depofile)
+    if ( allocated(redfile) ) deallocate(redfile)
+    if ( allocated(litfile) ) deallocate(litfile)
+	if ( allocated(specfile) ) deallocate(specfile)
+	
+	site_nr = 1
+
+end subroutine deallofile
+
+!**************************************************************
+
+! changes "input\..." filename into absolute path filename
+subroutine fullPath(filename, dir)
+	
+character(150) dir, filename
+integer ind
+
+	if ('input' == filename(1:5)) then
+
+		! Problem: input/input
+		ind = index(dir, '\', .TRUE.)
+		if ( 'input' == trim(dir(ind+1:ind+5)) ) then
+			ind = index(filename, '/', .TRUE.)
+			filename = trim(dir)//trim(filename(ind:))
+		else
+			filename = trim(dir)//'\'//trim(filename)
+		end if
+	end if
+
+end subroutine fullPath
+

source_code/version2.2_windows/win_openfile.f90

+! ********************************************************************
+! *                                                                  *
+! *  Copyright 2000 Compaq Computer Corporation                      *
+! *                                                                  *
+! *  COMPAQ Registered in U.S. Patent and Trademark Office.          *
+! *                                                                  *
+! *  Confidential computer software. Valid license from Compaq or    *
+! *  authorized sublicensor required for possession, use or copying. *
+! *  Consistent with FAR 12.211 and 12.212, Commercial Computer      *
+! *  Software, Computer Software Documentation, and Technical Data   *
+! *  for Commercial Items are licensed to the U.S. Government under  *
+! *  vendor's standard commercial license.                           *
+! *                                                                  *
+! ********************************************************************
+!
+!DEC$ IF .NOT. DEFINED (COMDLG32_ )
+!DEC$ DEFINE COMDLG32_  
+!
+!
+!
+!************This version of comdlg32 contains new items****************** 
+! Whether new interfaces for routines in COMDLG32.LIB extracted from
+! VC++6 header files are included is controlled by a statement with the
+! following format towards the end of this file.
+! 
+!IF .NOT. DEFINED(__DO_NOT_INCLUDE_VC6_ITEMS)
+!
+!Unless the inclusion is explicitly turned off by defining the
+!above symbol, the items will be included. 
+!
+module comdlg32
+use dfwinty
+!DEC$OBJCOMMENT LIB:"COMDLG32.LIB"
+!
+!                       *****COMMDLG******
+interface !lib=comdlg32.lib
+logical(4) function  GetOpenFileName (dummy ) 
+!DEC$ ATTRIBUTES DEFAULT :: GetOpenFileName
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_GetOpenFileNameA@4' :: GetOpenFileName
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'GetOpenFileNameA'   :: GetOpenFileName
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_OPENFILENAME)  dummy
+end function GetOpenFileName
+end interface
+interface !lib=comdlg32.lib
+logical(4) function  GetSaveFileName (dummy ) 
+!DEC$ ATTRIBUTES DEFAULT :: GetSaveFileName
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_GetSaveFileNameA@4' :: GetSaveFileName
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'GetSaveFileNameA'   :: GetSaveFileName
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_OPENFILENAME)    dummy
+end function GetSaveFileName
+end interface
+interface !lib=comdlg32.lib
+integer*2 function  GetFileTitle (dummya ,dummyb ,dummyc ) 
+!DEC$ ATTRIBUTES DEFAULT :: GetFileTitle
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_GetFileTitleA@12' :: GetFileTitle
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'GetFileTitleA'    :: GetFileTitle
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummya
+!DEC$ ATTRIBUTES REFERENCE :: dummyb
+character*(*)   dummya
+character*(*)   dummyb
+integer*2       dummyc
+end function GetFileTitle
+end interface
+interface !lib=comdlg32.lib
+logical(4) function  ChooseColor (dummy ) 
+!DEC$ ATTRIBUTES DEFAULT :: ChooseColor
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_ChooseColorA@4' :: ChooseColor
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'ChooseColorA'   :: ChooseColor
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_CHOOSECOLOR) dummy
+end function ChooseColor
+end interface
+interface !lib=comdlg32.lib
+integer*4 function  FindText (dummy ) 
+!DEC$ ATTRIBUTES DEFAULT :: FindText
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_FindTextA@4' :: FindText
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'FindTextA'   :: FindText
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_FINDREPLACE) dummy
+end function FindText
+end interface
+interface !lib=comdlg32.lib
+integer*4 function  ReplaceText (dummy ) 
+!DEC$ ATTRIBUTES DEFAULT :: ReplaceText
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_ReplaceTextA@4' :: ReplaceText
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'ReplaceTextA'   :: ReplaceText
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_FINDREPLACE) dummy
+end function ReplaceText
+end interface
+interface !lib=comdlg32.lib
+logical(4) function  ChooseFont (dummy ) 
+!DEC$ ATTRIBUTES DEFAULT :: ChooseFont
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_ChooseFontA@4' :: ChooseFont
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'ChooseFontA'   :: ChooseFont
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_CHOOSEFONT) dummy
+end function ChooseFont
+end interface
+interface !lib=comdlg32.lib
+logical(4) function  PrintDlg (dummy) 
+!DEC$ ATTRIBUTES DEFAULT :: PrintDlg
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_PrintDlgA@4' :: PrintDlg
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'PrintDlgA'   :: PrintDlg
+!DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: dummy
+use dfwinty
+type(T_PRINTDLG)    dummy
+end function PrintDlg
+end interface
+interface !lib=comdlg32.lib
+integer*4 function  CommDlgExtendedError () 
+!DEC$ ATTRIBUTES DEFAULT :: CommDlgExtendedError
+!DEC$ IF DEFINED(_X86_)
+!DEC$ ATTRIBUTES STDCALL, ALIAS:'_CommDlgExtendedError@0' :: CommDlgExtendedError
+!DEC$ ELSE
+!DEC$ ATTRIBUTES STDCALL, ALIAS: 'CommDlgExtendedError'   :: CommDlgExtendedError
+!DEC$ ENDIF
+end function CommDlgExtendedError
+end interface
+!
+!DEC$ IF .NOT. DEFINED(__DO_NOT_INCLUDE_VC6_ITEMS)
+!
+INTERFACE 
+FUNCTION PageSetupDlg( &
+        arg1)
+USE DFWINTY
+  integer(BOOL) :: PageSetupDlg ! BOOL
+    !DEC$ ATTRIBUTES DEFAULT :: PageSetupDlg
+    !DEC$IF DEFINED(_X86_)
+    !DEC$ ATTRIBUTES STDCALL, ALIAS:'_PageSetupDlgA@4' :: PageSetupDlg
+    !DEC$ ELSE
+    !DEC$ ATTRIBUTES STDCALL, ALIAS:'PageSetupDlgA' :: PageSetupDlg
+    !DEC$ ENDIF
+!DEC$ ATTRIBUTES REFERENCE :: arg1
+  TYPE (T_PAGESETUPDLGA) arg1 ! LPPAGESETUPDLGA arg1
+ END FUNCTION
+END INTERFACE
+!
+!DEC$ ENDIF ! /* __DO_NOT_INCLUDE_VC6_ITEMS */
+!
+end module comdlg32
+!
+!DEC$ ENDIF ! /* COMDLG32_ */

source_code/version2.2_windows/wpm_wood_proc.f

@@ -154,7 +154,7 @@ integer act_spec, act_year, set_year
 		
               ! calculate emission from harvesting process
                emission_har (management_years(i)) = summe * sub_par(1)
-		 write (9999,*) emission_har(management_years(i)), management_years(i)
+!		 write (9999,*) emission_har(management_years(i)), management_years(i)
 	end do
 end subroutine calculate_product_lines
 

source_code/version_2.3_windows/4C_dialogs.fd

+!MS$FREEFORM
+! Microsoft Developer Studio generated include file.
+! Used by script1.rc
+!
+      integer, parameter :: IDD_4C                          = 101
+      integer, parameter :: IDD_4C_ctr                      = 102
+      integer, parameter :: IDD_4C_flags                    = 109
+      integer, parameter :: IDD_4C_files                    = 111
+      integer, parameter :: IDB_BITMAP3                     = 115
+      integer, parameter :: IDD_4C_out                      = 116
+      integer, parameter :: IDD_4C_yearly                   = 118
+      integer, parameter :: IDD_4C_daily                    = 119
+      integer, parameter :: IDD_4C_coh_yearly               = 120
+      integer, parameter :: IDD_4C_coh_daily                = 121
+      integer, parameter :: IDD_default_dir                 = 122
+      integer, parameter :: IDD_4C_default_dir              = 122
+      integer, parameter :: IDD_4C_main                     = 123
+      integer, parameter :: IDD_4C_ids                      = 126
+      integer, parameter :: IDB_BITMAP1                     = 131
+      integer, parameter :: IDC_STATIC_Control              = 1005
+      integer, parameter :: IDC_STATIC_4C                   = 1017
+      integer, parameter :: IDC_COMBO_runv                  = 1019
+      integer, parameter :: IDC_RADIO_ctrfile               = 1020
+      integer, parameter :: IDC_COMBO_runv3                 = 1020
+      integer, parameter :: IDC_RADIO_ctredit               = 1024
+      integer, parameter :: IDC_STATIC_simul                = 1034
+      integer, parameter :: IDC_STATIC_runv                 = 1036
+      integer, parameter :: IDC_STATIC_runnr                = 1037
+      integer, parameter :: IDC_STATIC_runv3                = 1038
+      integer, parameter :: IDC_EDIT_runnr                  = 1044
+      integer, parameter :: IDC_STATIC_runo                 = 1046
+      integer, parameter :: IDC_STATIC_runo3                = 1047
+      integer, parameter :: IDC_EDIT_yearn                  = 1048
+      integer, parameter :: IDC_EDIT_start                  = 1049
+      integer, parameter :: IDC_STATIC_yearn                = 1050
+      integer, parameter :: IDC_STATIC_start                = 1051
+      integer, parameter :: IDC_EDIT_patch                  = 1052
+      integer, parameter :: IDC_STATIC_patch                = 1053
+      integer, parameter :: IDC_STATIC_model                = 1055
+      integer, parameter :: IDC_EDIT_thickf                 = 1056
+      integer, parameter :: IDC_EDIT_timeph                 = 1057
+      integer, parameter :: IDC_STATIC_thickf               = 1058
+      integer, parameter :: IDC_STATIC_timeph               = 1059
+      integer, parameter :: IDC_STATIC_mort                 = 1060
+      integer, parameter :: IDC_STATIC_reg                  = 1061
+      integer, parameter :: IDC_STATIC_forska               = 1062
+      integer, parameter :: IDC_COMBO_mort                  = 1063
+      integer, parameter :: IDC_COMBO_reg                   = 1064
+      integer, parameter :: IDC_COMBO_forska                = 1065
+      integer, parameter :: IDC_STATIC_stand                = 1066
+      integer, parameter :: IDC_STATIC_sveg                 = 1067
+      integer, parameter :: IDC_STATIC_mg                   = 1068
+      integer, parameter :: IDC_STATIC_dis                  = 1069
+      integer, parameter :: IDC_STATIC_light                = 1070
+      integer, parameter :: IDC_STATIC_folhei               = 1071
+      integer, parameter :: IDC_COMBO_stand                 = 1072
+      integer, parameter :: IDC_COMBO_sveg                  = 1073
+      integer, parameter :: IDC_COMBO_mg                    = 1074
+      integer, parameter :: IDC_COMBO_dis                   = 1075
+      integer, parameter :: IDC_COMBO_light                 = 1076
+      integer, parameter :: IDC_COMBO_folhei                = 1077
+      integer, parameter :: IDC_COMBO_volfunc               = 1078
+      integer, parameter :: IDC_STATIC_volfunc              = 1079
+      integer, parameter :: IDC_STATIC_resp                 = 1080
+      integer, parameter :: IDC_STATIC_limi                 = 1081
+      integer, parameter :: IDC_STATIC_decomp               = 1082
+      integer, parameter :: IDC_STATIC_sign                 = 1083
+      integer, parameter :: IDC_STATIC_wred                 = 1084
+      integer, parameter :: IDC_STATIC_wurz                 = 1085
+      integer, parameter :: IDC_STATIC_cond                 = 1086
+      integer, parameter :: IDC_COMBO_resp                  = 1088
+      integer, parameter :: IDC_COMBO_limi                  = 1089
+      integer, parameter :: IDC_COMBO_decomp                = 1090
+      integer, parameter :: IDC_COMBO_sign                  = 1091
+      integer, parameter :: IDC_COMBO_wred                  = 1092
+      integer, parameter :: IDC_COMBO_wurz                  = 1093
+      integer, parameter :: IDC_COMBO_cond                  = 1094
+      integer, parameter :: IDC_COMBO_int                   = 1095
+      integer, parameter :: IDC_COMBO_eva                   = 1096
+      integer, parameter :: IDC_STATIC_int                  = 1097
+      integer, parameter :: IDC_STATIC_eva                  = 1098
+      integer, parameter :: IDC_STATIC_sort                 = 1099
+      integer, parameter :: IDC_STATIC_wpm                  = 1100
+      integer, parameter :: IDC_COMBO_CO2                   = 1101
+      integer, parameter :: IDC_STATIC_stat                 = 1102
+      integer, parameter :: IDC_COMBO_sort                  = 1103
+      integer, parameter :: IDC_COMBO_wpm                   = 1104
+      integer, parameter :: IDC_COMBO_stat                  = 1105
+      integer, parameter :: IDC_STATIC_files                = 1108
+      integer, parameter :: IDC_STATIC_specpar              = 1109
+      integer, parameter :: IDC_EDIT_specpar                = 1110
+      integer, parameter :: IDC_BUTTON_specpar              = 1111
+      integer, parameter :: IDC_BUTTON_ini                  = 1112
+      integer, parameter :: IDC_BUTTON_sop                  = 1113
+      integer, parameter :: IDC_STATIC_dir1                 = 1114
+      integer, parameter :: IDC_STATIC_dirin                = 1114
+      integer, parameter :: IDC_BUTTON_soi                  = 1115
+      integer, parameter :: IDC_STATIC_dirout               = 1115
+      integer, parameter :: IDC_STATIC_soi                  = 1116
+      integer, parameter :: IDC_EDIT_sop                    = 1117
+      integer, parameter :: IDC_EDIT_soi                    = 1118
+      integer, parameter :: IDC_STATIC_ini                  = 1119
+      integer, parameter :: IDC_EDIT_ini                    = 1120
+      integer, parameter :: IDC_STATIC_ini1                 = 1121
+      integer, parameter :: IDC_BUTTON_man                  = 1122
+      integer, parameter :: IDC_STATIC_cli                  = 1123
+      integer, parameter :: IDC_BUTTON_dep                  = 1124
+      integer, parameter :: IDC_BUTTON_red                  = 1125
+      integer, parameter :: IDC_BUTTON_lit                  = 1126
+      integer, parameter :: IDC_RADIO_single_ini            = 1127
+      integer, parameter :: IDC_RADIO_multi_ini             = 1128
+      integer, parameter :: IDC_STATIC_standid              = 1129
+      integer, parameter :: IDC_EDIT_standid                = 1130
+      integer, parameter :: IDC_STATIC_man                  = 1131
+      integer, parameter :: IDC_EDIT_man                    = 1132
+      integer, parameter :: IDC_STATIC_dep                  = 1133
+      integer, parameter :: IDC_EDIT_dep                    = 1134
+      integer, parameter :: IDC_EDIT_red                    = 1135
+      integer, parameter :: IDC_EDIT_lit                    = 1136
+      integer, parameter :: IDC_STATIC_lit                  = 1137
+      integer, parameter :: IDC_STATIC_red                  = 1138
+      integer, parameter :: IDC_STATIC_dir2                 = 1139
+      integer, parameter :: IDC_STATIC_sop                  = 1140
+      integer, parameter :: IDC_EDIT_cli                    = 1141
+      integer, parameter :: IDC_BUTTON_cli                  = 1142
+      integer, parameter :: IDC_BUTTON_DIR                  = 1143
+      integer, parameter :: IDC_EDIT_cli2                   = 1144
+      integer, parameter :: IDC_EDIT_DIR                    = 1144
+      integer, parameter :: IDC_EDIT_DIR_IN                 = 1144
+      integer, parameter :: IDC_STATIC_name                 = 1145
+      integer, parameter :: IDC_EDIT_DIR_OUT                = 1145
+      integer, parameter :: IDC_EDIT_sitename               = 1147
+      integer, parameter :: IDC_STATIC_nameall              = 1148
+      integer, parameter :: IDC_RADIO_idy                   = 1149
+      integer, parameter :: IDC_RADIO_idn                   = 1150
+      integer, parameter :: IDC_STATIC_id                   = 1151
+      integer, parameter :: IDC_STATIC_year                 = 1152
+      integer, parameter :: IDC_STATIC_yearly               = 1153
+      integer, parameter :: IDC_CHECK_y1                    = 1161
+      integer, parameter :: IDC_CHECK_y2                    = 1162
+      integer, parameter :: IDC_CHECK_y3                    = 1163
+      integer, parameter :: IDC_CHECK_y4                    = 1164
+      integer, parameter :: IDC_CHECK_y5                    = 1165
+      integer, parameter :: IDC_CHECK_y6                    = 1166
+      integer, parameter :: IDC_CHECK_y7                    = 1167
+      integer, parameter :: IDC_CHECK_y8                    = 1168
+      integer, parameter :: IDC_CHECK_y9                    = 1169
+      integer, parameter :: IDC_CHECK_y10                   = 1170
+      integer, parameter :: IDC_CHECK_y11                   = 1171
+      integer, parameter :: IDC_CHECK_y12                   = 1172
+      integer, parameter :: IDC_CHECK_y13                   = 1173
+      integer, parameter :: IDC_CHECK_y14                   = 1174
+      integer, parameter :: IDC_CHECK_y15                   = 1175
+      integer, parameter :: IDC_CHECK_y16                   = 1176
+      integer, parameter :: IDC_CHECK_y17                   = 1177
+      integer, parameter :: IDC_CHECK_y18                   = 1178
+      integer, parameter :: IDC_CHECK_y19                   = 1179
+      integer, parameter :: IDC_CHECK_y20                   = 1180
+      integer, parameter :: IDC_CHECK_y21                   = 1181
+      integer, parameter :: IDC_CHECK_y22                   = 1182
+      integer, parameter :: IDC_CHECK_y23                   = 1183
+      integer, parameter :: IDC_CHECK_y24                   = 1184
+      integer, parameter :: IDC_CHECK_y25                   = 1185
+      integer, parameter :: IDC_CHECK_y26                   = 1186
+      integer, parameter :: IDC_CHECK_y27                   = 1187
+      integer, parameter :: IDC_CHECK_y28                   = 1188
+      integer, parameter :: IDC_STATIC_yfile                = 1189
+      integer, parameter :: IDC_BUTTON_yearly               = 1190
+      integer, parameter :: IDC_CHECK_y29                   = 1190
+      integer, parameter :: IDC_BUTTON_daily                = 1191
+      integer, parameter :: IDC_CHECK_y30                   = 1191
+      integer, parameter :: IDC_BUTTON_coh_yearly           = 1192
+      integer, parameter :: IDC_CHECK_y31                   = 1192
+      integer, parameter :: IDC_BUTTON_coh_daily            = 1193
+      integer, parameter :: IDC_CHECK_y32                   = 1193
+      integer, parameter :: IDC_STATIC_choice_out           = 1194
+      integer, parameter :: IDC_CHECK_y33                   = 1194
+      integer, parameter :: IDC_STATIC_daily                = 1195
+      integer, parameter :: IDC_CHECK_y34                   = 1195
+      integer, parameter :: IDC_COMBO_daily                 = 1196
+      integer, parameter :: IDC_CHECK_y35                   = 1196
+      integer, parameter :: IDC_STATIC_coh_daily            = 1197
+      integer, parameter :: IDC_CHECK_y36                   = 1197
+      integer, parameter :: IDC_COMBO_coh_daily             = 1198
+      integer, parameter :: IDC_CHECK_y37                   = 1198
+      integer, parameter :: IDC_CHECK_y38                   = 1199
+      integer, parameter :: IDC_CHECK_y39                   = 1200
+      integer, parameter :: IDC_CHECK_y40                   = 1201
+      integer, parameter :: IDC_CHECK_y41                   = 1202
+      integer, parameter :: IDC_CHECK_y42                   = 1203
+      integer, parameter :: IDC_COMBO_coh_yearly            = 1204
+      integer, parameter :: IDC_STATIC_coh_yearly           = 1205
+      integer, parameter :: IDC_STATIC_SUM                  = 1206
+      integer, parameter :: IDC_CHECK_y43                   = 1206
+      integer, parameter :: ID4C_BUTTON_OK                  = 1208
+      integer, parameter :: ID_CTR_BUTTON_FLAGS             = 1209
+      integer, parameter :: ID_CTR_BUTTON_OK                = 1210
+      integer, parameter :: ID_FILES_BUTTON_OK              = 1211
+      integer, parameter :: ID_CTR_BUTTON_FILES             = 1212
+      integer, parameter :: ID_OUT_BUTTON_BACK              = 1213
+      integer, parameter :: ID_START                        = 1214
+      integer, parameter :: ID_SAVE                         = 1215
+      integer, parameter :: ID_YEARLY_BUTTON_OK             = 1216
+      integer, parameter :: ID_DAILY_BUTTON_OK              = 1217
+      integer, parameter :: ID_YEARLYCOH_BUTTON_OK          = 1218
+      integer, parameter :: ID_FLAGS_BUTTON_OK              = 1219
+      integer, parameter :: ID_DAILYCOH_BUTTON_OK           = 1220
+      integer, parameter :: ID_CTR_BUTTON_RUNNR             = 1221
+      integer, parameter :: ID_DEFAULT_DIR_BUTTON_OK        = 1222
+      integer, parameter :: ID_START_4C                     = 1226
+      integer, parameter :: IDSTOP                          = 1227
+      integer, parameter :: IDC_RADIO_start                 = 1229
+      integer, parameter :: IDC_RADIO_start_dir             = 1230
+      integer, parameter :: IDC_RADIO_edit                  = 1231
+      integer, parameter :: ID_CANCEL_FLAGS                 = 1232
+      integer, parameter :: IDC_EDIT_ID                     = 1233
+      integer, parameter :: ID_CANCEL_FILES                 = 1233
+      integer, parameter :: IDC_COMBO_standid               = 1234
+      integer, parameter :: ID_CANCEL_IDS                   = 1234
+      integer, parameter :: IDC_STATIC_spinup               = 1235
+      integer, parameter :: IDC_EDIT_spinup                 = 1236
+      integer, parameter :: IDC_EDIT_wpm                    = 1236
+      integer, parameter :: ID_CANCEL_OUTF                  = 1236
+      integer, parameter :: IDC_BUTTON_spinup               = 1237
+      integer, parameter :: IDC_STATIC_mes                  = 1237
+      integer, parameter :: ID_CTR_BUTTON_IDS               = 1238
+      integer, parameter :: IDC_EDIT_mes                    = 1238
+      integer, parameter :: IDC_COMBO_yearly                = 1239
+      integer, parameter :: IDC_COMBO_sum                   = 1240
+      integer, parameter :: ID_IDS_BUTTON_OK                = 1242
+      integer, parameter :: ID_YEARLY_BUTTON_SELECT         = 1248
+      integer, parameter :: ID_YEARLY_BUTTON_DESELECT       = 1249
+      integer, parameter :: IDC_BUTTON_wpm                  = 1250
+      integer, parameter :: ID_DAILY_BUTTON_SELECT          = 1250
+      integer, parameter :: IDC_BUTTON_mes                  = 1251
+      integer, parameter :: ID_DAILY_BUTTON_DESELECT        = 1251
+      integer, parameter :: ID_DAILYCOH_BUTTON_SELECT       = 1252
+      integer, parameter :: ID_DAILYCOH_BUTTON_DESELECT     = 1253
+      integer, parameter :: ID_YEARLYCOH_BUTTON_SELECT      = 1254
+      integer, parameter :: ID_YEARLYCOH_BUTTON_DESELECT    = 1255
+      integer, parameter :: IDC_CHECK_y44                   = 1256
+      integer, parameter :: IDC_STATIC_CO2                  = 1256
+      integer, parameter :: IDC_CHECK_y45                   = 1257
+      integer, parameter :: IDC_CHECK_y46                   = 1258
+      integer, parameter :: IDC_CHECK_y47                   = 1259
+      integer, parameter :: IDC_CHECK_y48                   = 1260
+      integer, parameter :: IDC_CHECK_y49                   = 1261
+      integer, parameter :: IDC_REBAR1                      = 1262
+      integer, parameter :: IDC_CHECK_y50                   = 1001
+      integer, parameter :: IDC_CHECK_y51                   = 1002