recursion - Recursive Combination on Fortran -


i wrote recursive program on fortran calculate combinations of npoints of ndim dimensions follows. first wrote program on matlab , running. in fortran, problem after first iteration assigning absurd values list of points, no explanation. give me hand?

program main    implicit none     integer :: ndim, k, npontos, contador,i,iterate, test    integer, dimension(:), allocatable :: pontos     print*, ' '    print*, 'npoints?'    read *, npontos    print*, 'ndim?'    read *, ndim    k=1    contador = 1    open(450,file= 'combination.out',form='formatted',status='unknown')    write(450,100) 'comb  ','stat  ',(' pt ',i,' ',i=1,ndim)    write(450,120) ('xxxxxxxxxx ',i=1,ndim+1)    allocate(pontos(ndim))     i=1,4    pontos(i)=i    end      test = iterate(pontos, ndim, npontos,k,contador)          end program main           recursive integer function iterate(pontos, ndim, npontos, k,contador)            implicit none            integer, intent(in) :: ndim, k, npontos            integer,dimension(:) :: pontos            integer contador,inic,i,j,m               if (k.eq.ndim)                  inic=pontos(ndim)                  = pontos(ndim),npontos                     pontos(k)=                     write(*,*) pontos(:)                       contador=contador+1                  end                  pontos(ndim)= inic + 1                              else                  inic = pontos (k)                  j = pontos(k),(npontos-ndim+k)                      pontos(k)=j                      pontos= iterate(pontos, ndim, npontos, k+1,contador)                 end             end if               pontos(k)=inic+1;            if (pontos(k).gt.(npontos-ndim+k+1))                 m =k+1,ndim                     pontos(m)=pontos(m-1)+1                 end             end if                         end function iterate

there many issues in code... stopped debugging it. got far, it's comment.

this doesn't make sense: 

pontos= iterate(pontos, ndim, npontos, k+1,contador)

you changing pontos inside iterate, , never set return value within function.

you need a) provide result statement recursive functions (and set it) or b) convert subroutine. since modifying @ least 1 dummy argument, should go b).

since using assumed-shape dummy arguments, need specify interface function/subroutine, either explicitly or module.

neither format 100 nor format 120 specified in code.


Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

c# - Retrieve google contact -

i'm using .net retrieve contact info google contact. however, retrieves including sent email not stored in contact. there anyway can retrieve contact contact? here code requestsettings rs = new requestsettings("", email, password); rs.autopaging = true; contactsrequest cr = new contactsrequest(rs); feed<contact> contacts = cr.getcontacts(); foreach (contact contact in contacts.entries) { name name = contact.name; response.write(name.givenname + " " + name.familyname + "<br/>"); foreach (email emailid in contact.emails) { response.write(emailid.address + "<br/>"); } response.write("<br/>"); } im using google.gdata.contacts package nuget v 2.2.0 string redirecturi = "urn:ietf:wg:oauth:2.0:oob"; // build base oauth2 parameters var oauth2
Read more

javascript - How to insert selected radio button value into table cell -

i have 5 radio buttons <input type="radio" id="rating">1 <input type="radio" id="rating2">2 <input type="radio" id="rating3">3 <input type="radio" id="rating4">4 <input type="radio" id="rating5">5 i have 1 table <table id="mytabledata" border="1" style="width:100%"> <tr id="templaterow"> <th>ratings</th> </tr> </table> one add button <input type="button" id="add" value="add" onclick="addradiovalue()"> i've written code dynamically add rows table, when select radio button , click on add button, value of selected radio button should inserted new cell within table ratings. i able thing text box, i'm not able radio button. can me? your problems didn't have name set on radios , tryi
Read more