190 |
|
|
191 |
PRINT *, 'Call sequence information: inigeom' |
PRINT *, 'Call sequence information: inigeom' |
192 |
|
|
193 |
IF (nitergdiv/=2) THEN |
IF (nitergdiv /= 2) THEN |
194 |
gamdi_gdiv = coefdis / (real(nitergdiv)-2.) |
gamdi_gdiv = coefdis / (nitergdiv - 2) |
195 |
ELSE |
ELSE |
196 |
gamdi_gdiv = 0. |
gamdi_gdiv = 0. |
197 |
END IF |
END IF |
198 |
|
|
199 |
IF (nitergrot/=2) THEN |
IF (nitergrot /= 2) THEN |
200 |
gamdi_grot = coefdis / (real(nitergrot)-2.) |
gamdi_grot = coefdis / (nitergrot - 2) |
201 |
ELSE |
ELSE |
202 |
gamdi_grot = 0. |
gamdi_grot = 0. |
203 |
END IF |
END IF |
204 |
|
|
205 |
IF (niterh/=2) THEN |
IF (niterh /= 2) THEN |
206 |
gamdi_h = coefdis / (real(niterh)-2.) |
gamdi_h = coefdis / (niterh - 2) |
207 |
ELSE |
ELSE |
208 |
gamdi_h = 0. |
gamdi_h = 0. |
209 |
END IF |
END IF |