source_code/version2.2_windows/win_appl_flags_field.f90

+!*****************************************************************!
+!*                                                               *!
+!*              4C (FORESEE) Simulation Model                    *!
+!*                                                               *!
+!*                    Subroutines for:                           *!
+!*                                                               *!
+!*    - data_general_dlg: module to store the general dlg info	 *!
+!*    - flag_field :      module to store the flags				 *!
+!*    - flags_comments:   module to store the flags commens		 *!
+!*                                                               *!                                 
+!*                                                               *!
+!*                  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     *!
+!*                                                               *!      
+!*****************************************************************!
+
+module data_general_dlg
+	
+	! which way was chosen
+	integer :: id_ctr	
+
+end module
+
+!***********************************************************************
+
+! data module containig the flags changes for the win_appl
+module flag_field
+
+	integer,allocatable,save,dimension(:,:)	::	flagsave
+	character(50), dimension(22) :: flagnames	
+	integer act_run
+
+    end ! module flags_field
+
+!**********************
+    
+!contains all flag comments for the combo-boxes
+module flags_comments
+	character(60), dimension(30) :: flag_mort_com
+	character(60), dimension(30) :: flag_reg_com
+	character(60), dimension(30) :: flag_forska_com
+	character(60), dimension(30) :: flag_stand_com
+	character(60), dimension(30) :: flag_sveg_com
+	character(60), dimension(30) :: flag_mg_com
+	character(60), dimension(30) :: flag_dis_com
+	character(60), dimension(30) :: flag_light_com
+	character(60), dimension(30) :: flag_folhei_com
+	character(60), dimension(30) :: flag_volfunc_com
+	character(60), dimension(30) :: flag_resp_com
+	character(60), dimension(30) :: flag_limi_com
+	character(60), dimension(30) :: flag_decomp_com
+	character(60), dimension(30) :: flag_sign_com
+	character(60), dimension(30) :: flag_wred_com
+	character(60), dimension(30) :: flag_wurz_com
+	character(60), dimension(30) :: flag_cond_com
+	character(60), dimension(30) :: flag_int_com
+	character(60), dimension(30) :: flag_eva_com
+	character(100), dimension(30) :: flag_CO2_com
+	character(60), dimension(30) :: flag_sort_com
+	character(60), dimension(30) :: flag_wpm_com
+	character(60), dimension(30) :: flag_stat_com
+end
+

source_code/version2.2_windows/win_appl_help_functions.f90

+!*****************************************************************!
+!*                                                               *!
+!*              4C (FORESEE) Simulation Model                    *!
+!*                                                               *!
+!*                    Subroutines for:                           *!
+!*                   - windows shell -                           *!
+!*                                                               *!
+!*  contains:                                                    *!
+!*   GetFile                                                     *!
+!*   GetFileF                                                    *!
+!*                                                               *!
+!*                  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 GetFile ( filename, filter_spec, text )
+
+use dflogm
+
+implicit none
+integer id
+logical ex
+character(512):: filename 
+character(*)  :: text
+
+!Settings for FileOpen
+character*512 :: file_get 
+character*(*) :: filter_spec 
+
+include '4C_dialogs.fd'
+
+logical retlog
+
+         call FileOpen (filename, filter_spec)
+         inquire (File = filename, exist = ex)
+         if(ex .eqv. .true.) then
+            write(*,'(A,A)') ' Simulation control file: ', trim(filename)
+         else
+			filename = ' '
+         endif
+
+END SUBROUTINE GetFile
+
+!***************************************************************
+
+! needed for time_out in Open Existing File
+SUBROUTINE GetFileF ( filename, filter_spec, text )
+
+use dflogm
+
+implicit none
+
+integer id
+logical ex
+character(150) :: filename 
+character(*) :: text
+
+!Settings for FileOpen
+character*512 :: file_get 
+character*(*) :: filter_spec 
+
+include '4C_dialogs.fd'
+
+logical retlog
+!logical retdir
+
+        call FileOpen (file_get, filter_spec)
+        do       
+         filename = file_get
+        ex = .true.
+        if(ex .eqv. .true.) then
+            write(*,'(A,A)') ' Simulation control file: ', trim(filename)
+            exit
+         else
+            write(*,'(A)') ' Simulation control file: ', trim(filename), ' not exists'
+            write(*,'(A)',advance='no') ' Try again' 
+            PAUSE
+            call FileOpen (file_get, filter_spec)
+            cycle
+         endif
+        enddo 
+
+END SUBROUTINE GetFileF
+
+!***************************************************************

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

source_code/version_2.3_windows/POPPACK.H

+/*++
+
+Copyright 1990 - 1998 Microsoft Corporation
+
+Module Name:
+
+    poppack.h
+
+Abstract:
+
+    This file turns packing of structures off.  (That is, it enables
+    automatic alignment of structure fields.)  An include file is needed
+    because various compilers do this in different ways.
+
+    poppack.h is the complement to pshpack?.h.  An inclusion of poppack.h
+    MUST ALWAYS be preceded by an inclusion of one of pshpack?.h, in one-to-one
+    correspondence.
+
+    For Microsoft compatible compilers, this file uses the pop option
+    to the pack pragma so that it can restore the previous saved by the
+    pshpack?.h include 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(pop)
+#else
+#pragma pack()
+#endif
+#else
+#pragma pack()
+#endif
+#endif // ! (defined(lint) || defined(_lint) || defined(RC_INVOKED))