algorithm - Problem creating a frequency array of a given array -

-

i trying create frequency array of given array on fortran 95. instance if have array (\1 2 4 2 4 2 5), frequency array should number of times each item appears; (\1 3 2 3 2 3 1). because there 1 of 5s in original array, last entry in new array 1 , because there 3 of 2s in original array, corresponding entries on new array 2.

below sample of code have, keep getting errors. wondering if willing give me guidance , on doing wrong. appreciated.

i haven't included part of code generates original array because i'm pretty sure correct here subroutine frequency array. original array sorted in ascending order outside subroutine. perhaps didn't pass original array, num(i) correctly??

integer, dimension(100)::num(100)     integer, dimension(100)::freq(100)     integer:: i=0, k=0, numinteger, count=0  call freqarray(num, numinteger,freq)   subroutine freqarray(num, numinteger, freq)  integer, intent(in):: num(100), numinteger integer, intent(out):: freq(100)  i=1,9     count=0     k=1, numinteger         if (num(k)==i)then             count=count+1         end if     end     freq(i)=count end  print*, "frequency of digits" print*, " " write(*,'(1x,a,t35,a)'),"digit","frequency" write(*,'(1x,i1,t35,i1)'),num(i),freq(i)   end subroutine

thanks time.

with regards display issue, suspect meant have loop around

write(*,'(1x,i1,t35,i1)'),num(i),freq(i)

Comments

Post a Comment

Popular posts from this blog

php - What is the difference between $_SERVER['PATH_INFO'] and $_SERVER['ORIG_PATH_INFO']? -

-
what’s difference between $_server['path_info'] , $_server['orig_path_info'] ? how use them? when run print_r($_server) , path_info , orig_path_info not present in array. why not? how can enable them? i have read php manual on them, still don’t understand them. the path_info variable present if invoke php script this: http://www.example.com/phpinfo.php/hello_there it's /hello_there part after .php script. if don't invoke url that, there won't $_server["path_info"] environment variable. the porig_ prefix uncommon. path_info standard cgi-environment variable, , should never prefixed. did read that? (there issues around php3/php4 if invoked php interpreter via cgi-bin/ - hardly has such setups today.) for reference: http://www.ietf.org/rfc/rfc3875
Read more

fortran - Function return type mismatch -

-
i'm attempting recode old c++ program in fortran make use of lapack (i'm aware c++ have lapack++, i'm having lot of trouble installing it, gave up). i didn't have problems compilation, when had variables declared real . when started coding section of program required lapack, found parameters passed dsyev need double precision . tried change double precision (including changing hard coded numbers double precision counterparts, i.e. 0.0 -> 0.0d0) when try compile, following error of functions , subroutines i've written: error: return type mismatch of function <function> @ (1) (real(4)/real(8)) i'm not sure coming from, in program has been changed double precision. for example, i've declared following: double precision :: alpha(3),d(3),zeta1,zeta2 double precision :: a1(3),a2(3),d1(3),d2(3) double precision :: pi pi = 3.14159265359d0 alpha = (/0.109818d0, 0.405771d0, 2.22766d0/) d = (/0.444635d0, 0.535328d0, 0.154329d0 /) 10 i=1,3 ...
Read more

queue - mq_receive: message too long -

-
i implementing communication between 2 processes using queue. problem when call function mq_receive, error: message long. i have done following: struct mq_attr attr; long size = attr.mq_msgsize; .... // initializing queue "/gateway" int rc = mq_receive(gateway, buffer, size, &prio); if print size value, size=1, while when print same size program (got same mechanism), not long integer ( -1217186280 )... how can solve error?....so while size = 1, believe it's right "message long" why 1? p.s. have tried put : int rc = mq_receive(gateway, buffer, sizeof(buffer), &prio); but no result. it seems need read docs more carefully. when call mq_receive should pass size of destination buffer. this size must greater mq_msgsize attribute of queue . in addition, seems have error in queue attributes initialisation makes proper mq_receive call impossible. here standard message queue session: fill mq_attr struct ( doc ): struct mq_a...
Read more