Routine to initialise author: P J Knight, CCFE, Culham Science Centre None !
boundl(ipnvars) /../ : lower bounds on iteration variables boundu(ipnvars) /../ : upper bounds on iteration variables
subroutine initial
!! Routine to initialise
!! author: P J Knight, CCFE, Culham Science Centre
!! None
!! !
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
use define_iteration_variables, only: init_itv_1, init_itv_2, init_itv_3, &
init_itv_4, init_itv_5, init_itv_6, init_itv_7, init_itv_8, init_itv_9, &
init_itv_10, init_itv_11, init_itv_12, init_itv_13, init_itv_14, init_itv_15, &
init_itv_16, init_itv_17, init_itv_18, init_itv_19, init_itv_20, init_itv_21, &
init_itv_23, init_itv_25, init_itv_26, init_itv_27, init_itv_28, init_itv_29, &
init_itv_30, init_itv_31, init_itv_32, init_itv_33, init_itv_34, init_itv_35, &
init_itv_36, init_itv_37, init_itv_38, init_itv_39, init_itv_40, init_itv_41, &
init_itv_42, init_itv_44, init_itv_45, init_itv_46, init_itv_47, init_itv_48, &
init_itv_49, init_itv_50, init_itv_51, init_itv_53, init_itv_54, &
init_itv_56, init_itv_57, init_itv_58, init_itv_59, init_itv_60, init_itv_61, &
init_itv_62, init_itv_63, init_itv_64, init_itv_65, init_itv_66, init_itv_67, &
init_itv_68, init_itv_69, init_itv_70, init_itv_71, init_itv_72, init_itv_73, &
init_itv_74, init_itv_75, init_itv_79, init_itv_81, init_itv_82, init_itv_83, &
init_itv_84, init_itv_85, init_itv_86, init_itv_89, init_itv_90, init_itv_91, &
init_itv_92, init_itv_93, init_itv_94, init_itv_95, init_itv_96, init_itv_97, &
init_itv_98, init_itv_103, init_itv_104, init_itv_105, &
init_itv_106, init_itv_107, init_itv_108, init_itv_109, init_itv_110, &
init_itv_111, init_itv_112, init_itv_113, init_itv_114, init_itv_115, &
init_itv_116, init_itv_117, init_itv_118, init_itv_119, init_itv_120, &
init_itv_121, init_itv_122, init_itv_123, init_itv_124, init_itv_125, &
init_itv_126, init_itv_127, init_itv_128, init_itv_129, init_itv_130, &
init_itv_131, init_itv_132, init_itv_133, init_itv_134, init_itv_135, &
init_itv_136, init_itv_137, init_itv_138, init_itv_139, init_itv_140, &
init_itv_141, init_itv_142, init_itv_143, init_itv_144, init_itv_145, &
init_itv_146, init_itv_147, init_itv_148, init_itv_149, &
init_itv_152, init_itv_153, init_itv_154, init_itv_155, &
init_itv_156, init_itv_157, init_itv_158, init_itv_159, init_itv_160, &
init_itv_161, init_itv_162, init_itv_163, init_itv_164, init_itv_165, &
init_itv_166, init_itv_167, init_itv_168, init_itv_169, init_itv_170, &
init_itv_171, init_itv_172, init_itv_173, init_itv_174, init_itv_175
#ifndef dp
use, intrinsic :: iso_fortran_env, only: dp=>real64
#endif
implicit none
! Arguments
! Local variables
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! boundl(ipnvars) /../ : lower bounds on iteration variables
!! boundu(ipnvars) /../ : upper bounds on iteration variables
! Issue #287 The initialization subroutines for the iteration variables are called
call init_itv_1
call init_itv_2
call init_itv_3
call init_itv_4
call init_itv_5
call init_itv_6
call init_itv_7
call init_itv_8
call init_itv_9
call init_itv_10
call init_itv_11
call init_itv_12
call init_itv_13
call init_itv_14
call init_itv_15
call init_itv_16
call init_itv_17
call init_itv_18
call init_itv_19
call init_itv_20
call init_itv_21
call init_itv_23
call init_itv_25
call init_itv_26
call init_itv_27
call init_itv_28
call init_itv_29
call init_itv_30
call init_itv_31
call init_itv_32
call init_itv_33
call init_itv_34
call init_itv_35
call init_itv_36
call init_itv_37
call init_itv_38
call init_itv_39
call init_itv_40
call init_itv_41
call init_itv_42
call init_itv_44
call init_itv_45
call init_itv_46
call init_itv_47
call init_itv_48
call init_itv_49
call init_itv_50
call init_itv_51
call init_itv_53
call init_itv_54
call init_itv_56
call init_itv_57
call init_itv_58
call init_itv_59
call init_itv_60
call init_itv_61
call init_itv_62
call init_itv_63
call init_itv_64
call init_itv_65
call init_itv_66
call init_itv_67
call init_itv_68
call init_itv_69
call init_itv_70
call init_itv_71
call init_itv_72
call init_itv_73
call init_itv_74
call init_itv_75
call init_itv_79
call init_itv_81
call init_itv_82
call init_itv_83
call init_itv_85
call init_itv_86
call init_itv_89
call init_itv_90
call init_itv_91
call init_itv_92
call init_itv_93
call init_itv_94
call init_itv_95
call init_itv_96
call init_itv_97
call init_itv_98
!Not used
call init_itv_103
call init_itv_104
call init_itv_105
call init_itv_106
call init_itv_107
call init_itv_108
call init_itv_109
call init_itv_110
call init_itv_111
call init_itv_112
call init_itv_113
call init_itv_114
call init_itv_115
call init_itv_116
call init_itv_117
call init_itv_118
call init_itv_119
call init_itv_120
call init_itv_121
call init_itv_122
call init_itv_123
call init_itv_124
call init_itv_125
call init_itv_126
call init_itv_127
call init_itv_128
call init_itv_129
call init_itv_130
call init_itv_131
call init_itv_132
call init_itv_133
call init_itv_134
call init_itv_135
call init_itv_136
call init_itv_137
call init_itv_138
call init_itv_139
call init_itv_140
call init_itv_141
call init_itv_142
call init_itv_143
call init_itv_144
call init_itv_145
call init_itv_146
call init_itv_147
call init_itv_148
call init_itv_149
call init_itv_152
call init_itv_153
call init_itv_154
call init_itv_155
call init_itv_156
call init_itv_157
call init_itv_158
call init_itv_159
call init_itv_160
call init_itv_161
call init_itv_162
call init_itv_163
call init_itv_164
call init_itv_165
call init_itv_166
call init_itv_167
call init_itv_168
call init_itv_169
call init_itv_170
call init_itv_171
call init_itv_172
call init_itv_173
call init_itv_174
call init_itv_175
end subroutine initial