MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
gwf-welidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfwelinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_wel_param_definitions
8  public gwf_wel_aggregate_definitions
9  public gwf_wel_block_definitions
10  public gwfwelparamfoundtype
11  public gwf_wel_multi_package
12  public gwf_wel_subpackages
13 
14  type gwfwelparamfoundtype
15  logical :: auxiliary = .false.
16  logical :: auxmultname = .false.
17  logical :: boundnames = .false.
18  logical :: iprpak = .false.
19  logical :: iprflow = .false.
20  logical :: ipakcb = .false.
21  logical :: flowred = .false.
22  logical :: afrcsv_rec = .false.
23  logical :: afrcsv = .false.
24  logical :: fileout = .false.
25  logical :: afrcsvfile = .false.
26  logical :: ts_filerecord = .false.
27  logical :: ts6 = .false.
28  logical :: filein = .false.
29  logical :: ts6_filename = .false.
30  logical :: obs_filerecord = .false.
31  logical :: obs6 = .false.
32  logical :: obs6_filename = .false.
33  logical :: mover = .false.
34  logical :: maxbound = .false.
35  logical :: cellid = .false.
36  logical :: q = .false.
37  logical :: auxvar = .false.
38  logical :: boundname = .false.
39  end type gwfwelparamfoundtype
40 
41  logical :: gwf_wel_multi_package = .true.
42 
43  character(len=16), parameter :: &
44  gwf_wel_subpackages(*) = &
45  [ &
46  ' ' &
47  ]
48 
49  type(inputparamdefinitiontype), parameter :: &
50  gwfwel_auxiliary = inputparamdefinitiontype &
51  ( &
52  'GWF', & ! component
53  'WEL', & ! subcomponent
54  'OPTIONS', & ! block
55  'AUXILIARY', & ! tag name
56  'AUXILIARY', & ! fortran variable
57  'STRING', & ! type
58  'NAUX', & ! shape
59  'keyword to specify aux variables', & ! longname
60  .false., & ! required
61  .false., & ! prerelease
62  .false., & ! multi-record
63  .false., & ! preserve case
64  .false., & ! layered
65  .false. & ! timeseries
66  )
67 
68  type(inputparamdefinitiontype), parameter :: &
69  gwfwel_auxmultname = inputparamdefinitiontype &
70  ( &
71  'GWF', & ! component
72  'WEL', & ! subcomponent
73  'OPTIONS', & ! block
74  'AUXMULTNAME', & ! tag name
75  'AUXMULTNAME', & ! fortran variable
76  'STRING', & ! type
77  '', & ! shape
78  'name of auxiliary variable for multiplier', & ! longname
79  .false., & ! required
80  .false., & ! prerelease
81  .false., & ! multi-record
82  .false., & ! preserve case
83  .false., & ! layered
84  .false. & ! timeseries
85  )
86 
87  type(inputparamdefinitiontype), parameter :: &
88  gwfwel_boundnames = inputparamdefinitiontype &
89  ( &
90  'GWF', & ! component
91  'WEL', & ! subcomponent
92  'OPTIONS', & ! block
93  'BOUNDNAMES', & ! tag name
94  'BOUNDNAMES', & ! fortran variable
95  'KEYWORD', & ! type
96  '', & ! shape
97  '', & ! longname
98  .false., & ! required
99  .false., & ! prerelease
100  .false., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
107  gwfwel_iprpak = inputparamdefinitiontype &
108  ( &
109  'GWF', & ! component
110  'WEL', & ! subcomponent
111  'OPTIONS', & ! block
112  'PRINT_INPUT', & ! tag name
113  'IPRPAK', & ! fortran variable
114  'KEYWORD', & ! type
115  '', & ! shape
116  'print input to listing file', & ! longname
117  .false., & ! required
118  .false., & ! prerelease
119  .false., & ! multi-record
120  .false., & ! preserve case
121  .false., & ! layered
122  .false. & ! timeseries
123  )
124 
125  type(inputparamdefinitiontype), parameter :: &
126  gwfwel_iprflow = inputparamdefinitiontype &
127  ( &
128  'GWF', & ! component
129  'WEL', & ! subcomponent
130  'OPTIONS', & ! block
131  'PRINT_FLOWS', & ! tag name
132  'IPRFLOW', & ! fortran variable
133  'KEYWORD', & ! type
134  '', & ! shape
135  'print calculated flows to listing file', & ! longname
136  .false., & ! required
137  .false., & ! prerelease
138  .false., & ! multi-record
139  .false., & ! preserve case
140  .false., & ! layered
141  .false. & ! timeseries
142  )
143 
144  type(inputparamdefinitiontype), parameter :: &
145  gwfwel_ipakcb = inputparamdefinitiontype &
146  ( &
147  'GWF', & ! component
148  'WEL', & ! subcomponent
149  'OPTIONS', & ! block
150  'SAVE_FLOWS', & ! tag name
151  'IPAKCB', & ! fortran variable
152  'KEYWORD', & ! type
153  '', & ! shape
154  'save well flows to budget file', & ! longname
155  .false., & ! required
156  .false., & ! prerelease
157  .false., & ! multi-record
158  .false., & ! preserve case
159  .false., & ! layered
160  .false. & ! timeseries
161  )
162 
163  type(inputparamdefinitiontype), parameter :: &
164  gwfwel_flowred = inputparamdefinitiontype &
165  ( &
166  'GWF', & ! component
167  'WEL', & ! subcomponent
168  'OPTIONS', & ! block
169  'AUTO_FLOW_REDUCE', & ! tag name
170  'FLOWRED', & ! fortran variable
171  'DOUBLE', & ! type
172  '', & ! shape
173  'cell fractional thickness for reduced pumping', & ! longname
174  .false., & ! required
175  .false., & ! prerelease
176  .false., & ! multi-record
177  .false., & ! preserve case
178  .false., & ! layered
179  .false. & ! timeseries
180  )
181 
182  type(inputparamdefinitiontype), parameter :: &
183  gwfwel_afrcsv_rec = inputparamdefinitiontype &
184  ( &
185  'GWF', & ! component
186  'WEL', & ! subcomponent
187  'OPTIONS', & ! block
188  'AFRCSV_FILERECORD', & ! tag name
189  'AFRCSV_REC', & ! fortran variable
190  'RECORD AUTO_FLOW_REDUCE_CSV FILEOUT AFRCSVFILE', & ! type
191  '', & ! shape
192  '', & ! longname
193  .false., & ! required
194  .false., & ! prerelease
195  .false., & ! multi-record
196  .false., & ! preserve case
197  .false., & ! layered
198  .false. & ! timeseries
199  )
200 
201  type(inputparamdefinitiontype), parameter :: &
202  gwfwel_afrcsv = inputparamdefinitiontype &
203  ( &
204  'GWF', & ! component
205  'WEL', & ! subcomponent
206  'OPTIONS', & ! block
207  'AUTO_FLOW_REDUCE_CSV', & ! tag name
208  'AFRCSV', & ! fortran variable
209  'KEYWORD', & ! type
210  '', & ! shape
211  'budget keyword', & ! longname
212  .true., & ! required
213  .false., & ! prerelease
214  .true., & ! multi-record
215  .false., & ! preserve case
216  .false., & ! layered
217  .false. & ! timeseries
218  )
219 
220  type(inputparamdefinitiontype), parameter :: &
221  gwfwel_fileout = inputparamdefinitiontype &
222  ( &
223  'GWF', & ! component
224  'WEL', & ! subcomponent
225  'OPTIONS', & ! block
226  'FILEOUT', & ! tag name
227  'FILEOUT', & ! fortran variable
228  'KEYWORD', & ! type
229  '', & ! shape
230  'file keyword', & ! longname
231  .true., & ! required
232  .false., & ! prerelease
233  .true., & ! multi-record
234  .false., & ! preserve case
235  .false., & ! layered
236  .false. & ! timeseries
237  )
238 
239  type(inputparamdefinitiontype), parameter :: &
240  gwfwel_afrcsvfile = inputparamdefinitiontype &
241  ( &
242  'GWF', & ! component
243  'WEL', & ! subcomponent
244  'OPTIONS', & ! block
245  'AFRCSVFILE', & ! tag name
246  'AFRCSVFILE', & ! fortran variable
247  'STRING', & ! type
248  '', & ! shape
249  'file keyword', & ! longname
250  .true., & ! required
251  .false., & ! prerelease
252  .true., & ! multi-record
253  .true., & ! preserve case
254  .false., & ! layered
255  .false. & ! timeseries
256  )
257 
258  type(inputparamdefinitiontype), parameter :: &
259  gwfwel_ts_filerecord = inputparamdefinitiontype &
260  ( &
261  'GWF', & ! component
262  'WEL', & ! subcomponent
263  'OPTIONS', & ! block
264  'TS_FILERECORD', & ! tag name
265  'TS_FILERECORD', & ! fortran variable
266  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
267  '', & ! shape
268  '', & ! longname
269  .false., & ! required
270  .false., & ! prerelease
271  .false., & ! multi-record
272  .false., & ! preserve case
273  .false., & ! layered
274  .false. & ! timeseries
275  )
276 
277  type(inputparamdefinitiontype), parameter :: &
278  gwfwel_ts6 = inputparamdefinitiontype &
279  ( &
280  'GWF', & ! component
281  'WEL', & ! subcomponent
282  'OPTIONS', & ! block
283  'TS6', & ! tag name
284  'TS6', & ! fortran variable
285  'KEYWORD', & ! type
286  '', & ! shape
287  'head keyword', & ! longname
288  .true., & ! required
289  .false., & ! prerelease
290  .true., & ! multi-record
291  .false., & ! preserve case
292  .false., & ! layered
293  .false. & ! timeseries
294  )
295 
296  type(inputparamdefinitiontype), parameter :: &
297  gwfwel_filein = inputparamdefinitiontype &
298  ( &
299  'GWF', & ! component
300  'WEL', & ! subcomponent
301  'OPTIONS', & ! block
302  'FILEIN', & ! tag name
303  'FILEIN', & ! fortran variable
304  'KEYWORD', & ! type
305  '', & ! shape
306  'file keyword', & ! longname
307  .true., & ! required
308  .false., & ! prerelease
309  .true., & ! multi-record
310  .false., & ! preserve case
311  .false., & ! layered
312  .false. & ! timeseries
313  )
314 
315  type(inputparamdefinitiontype), parameter :: &
316  gwfwel_ts6_filename = inputparamdefinitiontype &
317  ( &
318  'GWF', & ! component
319  'WEL', & ! subcomponent
320  'OPTIONS', & ! block
321  'TS6_FILENAME', & ! tag name
322  'TS6_FILENAME', & ! fortran variable
323  'STRING', & ! type
324  '', & ! shape
325  'file name of time series information', & ! longname
326  .true., & ! required
327  .false., & ! prerelease
328  .true., & ! multi-record
329  .true., & ! preserve case
330  .false., & ! layered
331  .false. & ! timeseries
332  )
333 
334  type(inputparamdefinitiontype), parameter :: &
335  gwfwel_obs_filerecord = inputparamdefinitiontype &
336  ( &
337  'GWF', & ! component
338  'WEL', & ! subcomponent
339  'OPTIONS', & ! block
340  'OBS_FILERECORD', & ! tag name
341  'OBS_FILERECORD', & ! fortran variable
342  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
343  '', & ! shape
344  '', & ! longname
345  .false., & ! required
346  .false., & ! prerelease
347  .false., & ! multi-record
348  .false., & ! preserve case
349  .false., & ! layered
350  .false. & ! timeseries
351  )
352 
353  type(inputparamdefinitiontype), parameter :: &
354  gwfwel_obs6 = inputparamdefinitiontype &
355  ( &
356  'GWF', & ! component
357  'WEL', & ! subcomponent
358  'OPTIONS', & ! block
359  'OBS6', & ! tag name
360  'OBS6', & ! fortran variable
361  'KEYWORD', & ! type
362  '', & ! shape
363  'obs keyword', & ! longname
364  .true., & ! required
365  .false., & ! prerelease
366  .true., & ! multi-record
367  .false., & ! preserve case
368  .false., & ! layered
369  .false. & ! timeseries
370  )
371 
372  type(inputparamdefinitiontype), parameter :: &
373  gwfwel_obs6_filename = inputparamdefinitiontype &
374  ( &
375  'GWF', & ! component
376  'WEL', & ! subcomponent
377  'OPTIONS', & ! block
378  'OBS6_FILENAME', & ! tag name
379  'OBS6_FILENAME', & ! fortran variable
380  'STRING', & ! type
381  '', & ! shape
382  'obs6 input filename', & ! longname
383  .true., & ! required
384  .false., & ! prerelease
385  .true., & ! multi-record
386  .true., & ! preserve case
387  .false., & ! layered
388  .false. & ! timeseries
389  )
390 
391  type(inputparamdefinitiontype), parameter :: &
392  gwfwel_mover = inputparamdefinitiontype &
393  ( &
394  'GWF', & ! component
395  'WEL', & ! subcomponent
396  'OPTIONS', & ! block
397  'MOVER', & ! tag name
398  'MOVER', & ! fortran variable
399  'KEYWORD', & ! type
400  '', & ! shape
401  '', & ! longname
402  .false., & ! required
403  .false., & ! prerelease
404  .false., & ! multi-record
405  .false., & ! preserve case
406  .false., & ! layered
407  .false. & ! timeseries
408  )
409 
410  type(inputparamdefinitiontype), parameter :: &
411  gwfwel_maxbound = inputparamdefinitiontype &
412  ( &
413  'GWF', & ! component
414  'WEL', & ! subcomponent
415  'DIMENSIONS', & ! block
416  'MAXBOUND', & ! tag name
417  'MAXBOUND', & ! fortran variable
418  'INTEGER', & ! type
419  '', & ! shape
420  'maximum number of wells', & ! longname
421  .true., & ! required
422  .false., & ! prerelease
423  .false., & ! multi-record
424  .false., & ! preserve case
425  .false., & ! layered
426  .false. & ! timeseries
427  )
428 
429  type(inputparamdefinitiontype), parameter :: &
430  gwfwel_cellid = inputparamdefinitiontype &
431  ( &
432  'GWF', & ! component
433  'WEL', & ! subcomponent
434  'PERIOD', & ! block
435  'CELLID', & ! tag name
436  'CELLID', & ! fortran variable
437  'INTEGER1D', & ! type
438  'NCELLDIM', & ! shape
439  'cell identifier', & ! longname
440  .true., & ! required
441  .false., & ! prerelease
442  .true., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .false. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
449  gwfwel_q = inputparamdefinitiontype &
450  ( &
451  'GWF', & ! component
452  'WEL', & ! subcomponent
453  'PERIOD', & ! block
454  'Q', & ! tag name
455  'Q', & ! fortran variable
456  'DOUBLE', & ! type
457  '', & ! shape
458  'well rate', & ! longname
459  .true., & ! required
460  .false., & ! prerelease
461  .true., & ! multi-record
462  .false., & ! preserve case
463  .false., & ! layered
464  .true. & ! timeseries
465  )
466 
467  type(inputparamdefinitiontype), parameter :: &
468  gwfwel_auxvar = inputparamdefinitiontype &
469  ( &
470  'GWF', & ! component
471  'WEL', & ! subcomponent
472  'PERIOD', & ! block
473  'AUX', & ! tag name
474  'AUXVAR', & ! fortran variable
475  'DOUBLE1D', & ! type
476  'NAUX', & ! shape
477  'auxiliary variables', & ! longname
478  .false., & ! required
479  .false., & ! prerelease
480  .true., & ! multi-record
481  .false., & ! preserve case
482  .false., & ! layered
483  .true. & ! timeseries
484  )
485 
486  type(inputparamdefinitiontype), parameter :: &
487  gwfwel_boundname = inputparamdefinitiontype &
488  ( &
489  'GWF', & ! component
490  'WEL', & ! subcomponent
491  'PERIOD', & ! block
492  'BOUNDNAME', & ! tag name
493  'BOUNDNAME', & ! fortran variable
494  'STRING', & ! type
495  '', & ! shape
496  'well name', & ! longname
497  .false., & ! required
498  .false., & ! prerelease
499  .true., & ! multi-record
500  .false., & ! preserve case
501  .false., & ! layered
502  .false. & ! timeseries
503  )
504 
505  type(inputparamdefinitiontype), parameter :: &
506  gwf_wel_param_definitions(*) = &
507  [ &
508  gwfwel_auxiliary, &
509  gwfwel_auxmultname, &
510  gwfwel_boundnames, &
511  gwfwel_iprpak, &
512  gwfwel_iprflow, &
513  gwfwel_ipakcb, &
514  gwfwel_flowred, &
515  gwfwel_afrcsv_rec, &
516  gwfwel_afrcsv, &
517  gwfwel_fileout, &
518  gwfwel_afrcsvfile, &
519  gwfwel_ts_filerecord, &
520  gwfwel_ts6, &
521  gwfwel_filein, &
522  gwfwel_ts6_filename, &
523  gwfwel_obs_filerecord, &
524  gwfwel_obs6, &
525  gwfwel_obs6_filename, &
526  gwfwel_mover, &
527  gwfwel_maxbound, &
528  gwfwel_cellid, &
529  gwfwel_q, &
530  gwfwel_auxvar, &
531  gwfwel_boundname &
532  ]
533 
534  type(inputparamdefinitiontype), parameter :: &
535  gwfwel_spd = inputparamdefinitiontype &
536  ( &
537  'GWF', & ! component
538  'WEL', & ! subcomponent
539  'PERIOD', & ! block
540  'STRESS_PERIOD_DATA', & ! tag name
541  'SPD', & ! fortran variable
542  'RECARRAY CELLID Q AUX BOUNDNAME', & ! type
543  'MAXBOUND', & ! shape
544  '', & ! longname
545  .true., & ! required
546  .false., & ! prerelease
547  .false., & ! multi-record
548  .false., & ! preserve case
549  .false., & ! layered
550  .false. & ! timeseries
551  )
552 
553  type(inputparamdefinitiontype), parameter :: &
554  gwf_wel_aggregate_definitions(*) = &
555  [ &
556  gwfwel_spd &
557  ]
558 
559  type(inputblockdefinitiontype), parameter :: &
560  gwf_wel_block_definitions(*) = &
561  [ &
562  inputblockdefinitiontype( &
563  'OPTIONS', & ! blockname
564  .false., & ! required
565  .false., & ! aggregate
566  .false. & ! block_variable
567  ), &
568  inputblockdefinitiontype( &
569  'DIMENSIONS', & ! blockname
570  .true., & ! required
571  .false., & ! aggregate
572  .false. & ! block_variable
573  ), &
574  inputblockdefinitiontype( &
575  'PERIOD', & ! blockname
576  .true., & ! required
577  .true., & ! aggregate
578  .true. & ! block_variable
579  ) &
580  ]
581 
582 end module gwfwelinputmodule
constantsmodule
This module contains simulation constants.
Definition: Constants.f90:9
constantsmodule::lenvarname
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
gwfwelinputmodule::gwfwel_obs6_filename
type(inputparamdefinitiontype), parameter gwfwel_obs6_filename
Definition: gwf-welidm.f90:372
gwfwelinputmodule::gwfwel_spd
type(inputparamdefinitiontype), parameter gwfwel_spd
Definition: gwf-welidm.f90:534
gwfwelinputmodule::gwfwel_filein
type(inputparamdefinitiontype), parameter gwfwel_filein
Definition: gwf-welidm.f90:296
gwfwelinputmodule::gwfwel_ts_filerecord
type(inputparamdefinitiontype), parameter gwfwel_ts_filerecord
Definition: gwf-welidm.f90:258
gwfwelinputmodule::gwfwel_iprpak
type(inputparamdefinitiontype), parameter gwfwel_iprpak
Definition: gwf-welidm.f90:106
gwfwelinputmodule::gwfwel_maxbound
type(inputparamdefinitiontype), parameter gwfwel_maxbound
Definition: gwf-welidm.f90:410
gwfwelinputmodule::gwf_wel_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_wel_aggregate_definitions
Definition: gwf-welidm.f90:553
gwfwelinputmodule::gwfwel_boundnames
type(inputparamdefinitiontype), parameter gwfwel_boundnames
Definition: gwf-welidm.f90:87
gwfwelinputmodule::gwf_wel_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_wel_block_definitions
Definition: gwf-welidm.f90:559
gwfwelinputmodule::gwfwel_obs6
type(inputparamdefinitiontype), parameter gwfwel_obs6
Definition: gwf-welidm.f90:353
gwfwelinputmodule::gwf_wel_multi_package
logical, public gwf_wel_multi_package
Definition: gwf-welidm.f90:41
gwfwelinputmodule::gwf_wel_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_wel_param_definitions
Definition: gwf-welidm.f90:505
gwfwelinputmodule::gwfwel_ts6
type(inputparamdefinitiontype), parameter gwfwel_ts6
Definition: gwf-welidm.f90:277
gwfwelinputmodule::gwfwel_auxmultname
type(inputparamdefinitiontype), parameter gwfwel_auxmultname
Definition: gwf-welidm.f90:68
gwfwelinputmodule::gwfwel_q
type(inputparamdefinitiontype), parameter gwfwel_q
Definition: gwf-welidm.f90:448
gwfwelinputmodule::gwfwel_fileout
type(inputparamdefinitiontype), parameter gwfwel_fileout
Definition: gwf-welidm.f90:220
gwfwelinputmodule::gwfwel_ts6_filename
type(inputparamdefinitiontype), parameter gwfwel_ts6_filename
Definition: gwf-welidm.f90:315
gwfwelinputmodule::gwfwel_auxvar
type(inputparamdefinitiontype), parameter gwfwel_auxvar
Definition: gwf-welidm.f90:467
gwfwelinputmodule::gwfwel_boundname
type(inputparamdefinitiontype), parameter gwfwel_boundname
Definition: gwf-welidm.f90:486
gwfwelinputmodule::gwfwel_iprflow
type(inputparamdefinitiontype), parameter gwfwel_iprflow
Definition: gwf-welidm.f90:125
gwfwelinputmodule::gwfwel_cellid
type(inputparamdefinitiontype), parameter gwfwel_cellid
Definition: gwf-welidm.f90:429
gwfwelinputmodule::gwfwel_flowred
type(inputparamdefinitiontype), parameter gwfwel_flowred
Definition: gwf-welidm.f90:163
gwfwelinputmodule::gwf_wel_subpackages
character(len=16), dimension(*), parameter, public gwf_wel_subpackages
Definition: gwf-welidm.f90:43
gwfwelinputmodule::gwfwel_afrcsv_rec
type(inputparamdefinitiontype), parameter gwfwel_afrcsv_rec
Definition: gwf-welidm.f90:182
gwfwelinputmodule::gwfwel_obs_filerecord
type(inputparamdefinitiontype), parameter gwfwel_obs_filerecord
Definition: gwf-welidm.f90:334
gwfwelinputmodule::gwfwel_afrcsvfile
type(inputparamdefinitiontype), parameter gwfwel_afrcsvfile
Definition: gwf-welidm.f90:239
gwfwelinputmodule::gwfwel_mover
type(inputparamdefinitiontype), parameter gwfwel_mover
Definition: gwf-welidm.f90:391
gwfwelinputmodule::gwfwel_ipakcb
type(inputparamdefinitiontype), parameter gwfwel_ipakcb
Definition: gwf-welidm.f90:144
gwfwelinputmodule::gwfwel_afrcsv
type(inputparamdefinitiontype), parameter gwfwel_afrcsv
Definition: gwf-welidm.f90:201
gwfwelinputmodule::gwfwel_auxiliary
type(inputparamdefinitiontype), parameter gwfwel_auxiliary
Definition: gwf-welidm.f90:49
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7