6
6
!====================================================================
8
8
integer CTModeInit,CTModeRun,CheckCycle,MaxAttempts,
9
&CTLoopLibrary,NRotations_DP,NRotations_QP
9
&CTLoopLibrary,NRotations_DP,NRotations_QP,ImprovePSPoint
11
11
real*8 MLStabThres,CTStabThres,ZeroThres
13
13
logical UseLoopFilter,LoopInitStartOver,DoubleCheckHelicityFilter
14
logical ImprovePSPoint,HelInitStartOver
14
logical HelInitStartOver
16
16
common /MADLOOP/CTModeInit,CTModeRun,NRotations_DP,NRotations_QP,
17
&CheckCycle, MaxAttempts,UseLoopFilter,MLStabThres,CTStabThres,
18
&CTLoopLibrary,LoopInitStartOver,DoubleCheckHelicityFilter,
19
&ZeroThres,ImprovePSPoint,HelInitStartOver
17
&ImprovePSPoint,CheckCycle, MaxAttempts,UseLoopFilter,MLStabThres,
18
&CTStabThres,CTLoopLibrary,LoopInitStartOver,
19
&DoubleCheckHelicityFilter,ZeroThres,HelInitStartOver