File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_init_fixed.F |
258 |
PROFILES_INIT_FIXED |
& vec_count2, tmp_weights(1,q)) |
./pkg/profiles/profiles_init_fixed.F |
339 |
PROFILES_INIT_FIXED |
& =tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
344 |
PROFILES_INIT_FIXED |
tmp_sum_weights=tmp_sum_weights+tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
354 |
PROFILES_INIT_FIXED |
if ( tmp_weights(k,q) .NE. 0. ) then |
./pkg/profiles/profiles_init_fixed.F |
363 |
PROFILES_INIT_FIXED |
& k,q,tmp_i(k,q),tmp_j(k,q),tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
367 |
PROFILES_INIT_FIXED |
if ( (tmp_weights(k,q).LT.0).OR.(tmp_weights(k,q).GT.1) ) then |
./pkg/profiles/profiles_init_fixed.F |
371 |
PROFILES_INIT_FIXED |
& k,q,tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
52 |
PROFILES_INIT_FIXED |
_RL tmp_weights(1000,NUM_INTERP_POINTS),tmp_sum_weights |