initial Subroutine

subroutine initial()

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

Arguments

None

Contents

Source Code


Source Code

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