size - Over-riding FORTRAN error "array bound is not scalar integer" -

-

i'd know if loop can created, inside can call subroutine in there arrays defined size varies function of loop variable. tried following, got error "array bound not scalar integer". how solve issue?

. . . iloop: i=5,24,0.5 jloop: j=5,20  call check(i,j,divlen,machexit,final) if (final.eq.1) exit iloop enddo jloop enddo iloop . . end program

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

subroutine check(i,j,divlen,machexit,final) integer, parameter :: ivlpts=10  real :: i,divlen,machexit integer :: final,j integer :: exppts,intstrtpts,contourstrtpts,totalpts,p1,p2,p3,p4,p5,p6,p7 exppts=((j*ivlpts)+((j-1)*(ivlpts-1))) p2=(exppts-ivlpts) p3=(ivlpts-1) p6=(exppts-p2)  call check2(ivlpts,i,j,divlen,machexit,final,exppts,p2,p3,p6)  end subroutine check

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

subroutine check2(ivlpts,i,j,divlen,machexit,final,exppts,p2,p3,p6) real, parameter :: gamma=1.4d0,mini=1.02d0 integer,allocatable :: expcontourpts(:),m(:),x(:),y(:) real,allocatable :: aoverastar(:),mvariance(:) allocate(expcontourpts(exppts)) allocate(m(exppts)) allocate(x(exppts)) allocate(y(exppts)) allocate(aoverastar(p6)) allocate(mvariance(p6)) . . . end subroutine check2

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

here i'm answering:

i'd know if loop can created, inside can call subroutine in there arrays defined size varies function of loop variable.

the answer "yes", allocate() isn't way it. use 1 of arguments array dimension. here example summation in inefficient way, uses method i'm describing:

program main   implicit none   integer :: i, j    = 1,5     call sum_values(i,j)     write(*,*) j   end  end program main  subroutine sum_values(i,j)   implicit none   integer, intent(in) ::   integer, intent(out) :: j   integer, dimension(i) :: an_array    an_array(1:i) = 1   j = sum(an_array(1:i))  end subroutine sum_values

critical line is:

  integer, dimension(i) :: an_array

the dimension of array given in argument list when called.

i see you're using different approach. approach should still work, think way i'm describing lot less error-prone , appropriate complexity of you've asked for. make sure use "implicit none" statements, , declare in/out arguments.


Comments

Post a Comment

Popular posts from this blog

python - Subclassed QStyledItemDelegate ignores Stylesheet -

-
i'm trying subclass qstyleditemdelegate remove focus rectangle in qcombobox . even though i'm calling base implementation of paint function , nothing else, result different. looks if parts of style-sheet influence bounding box of item taken consideration. class pstyleditemdelegate(qstyleditemdelegate): def __init__(self, *args, **kwds): super(pstyleditemdelegate, self).__init__(*args, **kwds) def paint(self, *args, **kwargs): qstyleditemdelegate.paint(*args, **kwargs) what have paint unmodified qstyleditemdelegate ? as suggested tried replacing pyside pyqt4 , works, appears bug. update pyside 1.1.2 1.2.1 result same. unfortunately switch breaks other parts of code, if there no other suggestions i'm going accept answer. edit bug tracked here
Read more

java - HttpClient 3.1 Connection pooling vs HttpClient 4.3.2 -

-
i have used httpclient3.1(java) connection pooling below : import org.apache.commons.httpclient.httpclient; import org.apache.commons.httpclient.multithreadedhttpconnectionmanager; import org.apache.commons.httpclient.params.httpclientparams; import org.apache.commons.httpclient.params.httpmethodparams; import org.apache.log4j.logger; public class httpclientmanager { private static logger logger = logger.getlogger(httpclientmanager.class); private static multithreadedhttpconnectionmanager connectionmanager = new multithreadedhttpconnectionmanager(); private static httpclientparams clientparams = new httpclientparams(); static { try { clientparams.makelenient(); clientparams.setauthenticationpreemptive(false); clientparams.setparameter(httpmethodparams.so_timeout, new integer(30000)); // set so_timeout clientparams.setparameter(httpmethodparams.head_body_check_timeout, new integer(3000)); // head responses ...
Read more

node.js - StackOverflow API not returning JSON -

-
i using node.js script gather data stackoverflow. know responses gzipped, put code in should take care of that. script follows: var request = require('request'); var zlib = require('zlib'); function getstackoverflowresponse(url, callback){ request(url, {encoding: null}, function(err, response, body){ if(response.headers['content-encoding'] == 'gzip'){ zlib.gunzip(body, function(err, dezipped) { callback(dezipped); }); } else { callback(body); } }); } var url = "https://api.stackexchange.com/docs/questions#pagesize=2&order=desc&min=2014-01-04&max=2014-02-02&sort=activity&tagged=apigee&filter=default&site=stackoverflow&run=true"; getstackoverflowresponse(url, function(questions) { console.log(questions); }); instead of getting json output, i'm getting following response: buffer 0d 0a 0d 0a 0d 0a 0d 0a 3c 21 44 4f 43 54 59 50 45 20 48...
Read more