Symbol Description Uses
vec_count 50


File Line number Procedure Code
./pkg/profiles/profiles_init_fixed.F 131 PROFILES_INIT_FIXED 
      vec_count(1)=1
./pkg/profiles/profiles_init_fixed.F 132 PROFILES_INIT_FIXED 
      vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 134 PROFILES_INIT_FIXED 
      if ( (vec_count(2).LE.0).OR.(vec_count(2).GT.1000).OR.
./pkg/profiles/profiles_init_fixed.F 136 PROFILES_INIT_FIXED 
     & (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) )
./pkg/profiles/profiles_init_fixed.F 138 PROFILES_INIT_FIXED 
      print*,"stop 1",vec_start, vec_count
./pkg/profiles/profiles_init_fixed.F 143 PROFILES_INIT_FIXED 
     & vec_count(2), tmpyymmdd)
./pkg/profiles/profiles_init_fixed.F 145 PROFILES_INIT_FIXED 
     & vec_count(2), tmphhmmss)
./pkg/profiles/profiles_init_fixed.F 147 PROFILES_INIT_FIXED 
     & vec_count(2), tmp_lon2)
./pkg/profiles/profiles_init_fixed.F 149 PROFILES_INIT_FIXED 
     & vec_count(2), tmp_lat2)
./pkg/profiles/profiles_init_fixed.F 152 PROFILES_INIT_FIXED 
      print*,"stop 2",vec_start(2),vec_count(2),
./pkg/profiles/profiles_init_fixed.F 37 PROFILES_INIT_FIXED 
      integer vec_start(2), vec_count(2), profno_div1000, kk
./pkg/profiles/active_file_control_profiles.F 125 ACTIVE_READ_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 126 ACTIVE_READ_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 129 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 139 ACTIVE_READ_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 140 ACTIVE_READ_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 143 ACTIVE_READ_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 203 ACTIVE_READ_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 204 ACTIVE_READ_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 207 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 273 ACTIVE_WRITE_PROFILE_RL 
      integer err, fid, varid1 , vec_start(2), vec_count(2)
./pkg/profiles/active_file_control_profiles.F 303 ACTIVE_WRITE_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 304 ACTIVE_WRITE_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 307 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 312 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 362 ACTIVE_WRITE_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 363 ACTIVE_WRITE_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 365 ACTIVE_WRITE_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 376 ACTIVE_WRITE_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 377 ACTIVE_WRITE_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 380 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 432 ACTIVE_WRITE_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 433 ACTIVE_WRITE_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 436 ACTIVE_WRITE_PROFILE_RL 
      err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 48 ACTIVE_READ_PROFILE_RL 
      integer err, fid, varid1 , vec_start(2), vec_count(2)
./pkg/profiles/active_file_control_profiles.F 74 ACTIVE_READ_PROFILE_RL 
      vec_count(1)=nactive_var
./pkg/profiles/active_file_control_profiles.F 75 ACTIVE_READ_PROFILE_RL 
      vec_count(2)=1
./pkg/profiles/active_file_control_profiles.F 78 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/active_file_control_profiles.F 83 ACTIVE_READ_PROFILE_RL 
      err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count,
./pkg/profiles/profiles_readvector.F 33 PROFILES_READVECTOR 
      integer vec_start(2),vec_count(2)
./pkg/profiles/profiles_readvector.F 63 PROFILES_READVECTOR 
      vec_count(1)=vec_loc_length
./pkg/profiles/profiles_readvector.F 64 PROFILES_READVECTOR 
      vec_count(2)=
./pkg/profiles/profiles_readvector.F 72 PROFILES_READVECTOR 
     & vec_count, vec_tmp1)
./pkg/profiles/profiles_readvector.F 76 PROFILES_READVECTOR 
     & vec_count, vec_tmp2)
./pkg/profiles/profiles_readvector.F 79 PROFILES_READVECTOR 
      print*,"stop readvector",vec_start(2),vec_count(2)
./pkg/profiles/profiles_readvector.F 83 PROFILES_READVECTOR 
      do k=1,vec_count(1)
./pkg/profiles/profiles_readvector.F 84 PROFILES_READVECTOR 
      do kk=1,vec_count(2)
./pkg/profiles/profiles_readvector.F 85 PROFILES_READVECTOR 
      profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k)
./pkg/profiles/profiles_readvector.F 86 PROFILES_READVECTOR 
      profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1)