File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_init_fixed.F |
363 |
PROFILES_INIT_FIXED |
& vec_count2, tmp_weights(1,q)) |
./pkg/profiles/profiles_init_fixed.F |
533 |
PROFILES_INIT_FIXED |
& =tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
538 |
PROFILES_INIT_FIXED |
tmp_sum_weights=tmp_sum_weights+tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
551 |
PROFILES_INIT_FIXED |
if ( tmp_weights(k,q) .NE. 0. _d 0) then |
./pkg/profiles/profiles_init_fixed.F |
565 |
PROFILES_INIT_FIXED |
if ( (tmp_weights(k,q).LT.0. _d 0).OR. |
./pkg/profiles/profiles_init_fixed.F |
566 |
PROFILES_INIT_FIXED |
& (tmp_weights(k,q).GT.1. _d 0) ) then |
./pkg/profiles/profiles_init_fixed.F |
65 |
PROFILES_INIT_FIXED |
_RL tmp_weights(1000,NUM_INTERP_POINTS),tmp_sum_weights |